*
* 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 = 0
      deemax = 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 = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      chname = 'BA11'
      chshap = 'TUBS'
      nmed = 11
      npar = 5
      par(1) = 0.25
      par(2) = 2.5
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.11) stop 'consistency check #1 failed'

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

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

      itmed = 12
      natmed = 'PIN1 SoftTungsten'
      nmat = 14
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 'TUBE'
      nmed = 12
      npar = 3
      par(1) = 0
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.12) stop 'consistency check #1 failed'

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

      chname = 'PIN1'
      nr = 1
      chmoth = 'AIRH'
      x = 0.259808
      y = 0.15
      z = 0.2
      irot = 5
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 2
      chmoth = 'AIRH'
      x = 0.212132
      y = 0.212132
      z = 0.2
      irot = 6
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 3
      chmoth = 'AIRH'
      x = 0.15
      y = 0.259808
      z = 0.2
      irot = 7
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 4
      chmoth = 'AIRH'
      x = 0.334127
      y = 0.170246
      z = 0.2
      irot = 8
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 5
      chmoth = 'AIRH'
      x = 0.29143
      y = 0.235995
      z = 0.2
      irot = 9
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 6
      chmoth = 'AIRH'
      x = 0.235995
      y = 0.29143
      z = 0.2
      irot = 10
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 7
      chmoth = 'AIRH'
      x = 0.170246
      y = 0.334127
      z = 0.2
      irot = 11
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 8
      chmoth = 'AIRH'
      x = 0.407839
      y = 0.190178
      z = 0.2
      irot = 12
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 9
      chmoth = 'AIRH'
      x = 0.368618
      y = 0.258109
      z = 0.2
      irot = 13
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 10
      chmoth = 'AIRH'
      x = 0.318198
      y = 0.318198
      z = 0.2
      irot = 14
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 11
      chmoth = 'AIRH'
      x = 0.258109
      y = 0.368618
      z = 0.2
      irot = 15
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 12
      chmoth = 'AIRH'
      x = 0.190178
      y = 0.407839
      z = 0.2
      irot = 16
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 13
      chmoth = 'AIRH'
      x = 0.4812
      y = 0.209931
      z = 0.2
      irot = 17
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 14
      chmoth = 'AIRH'
      x = 0.444544
      y = 0.279295
      z = 0.2
      irot = 18
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 15
      chmoth = 'AIRH'
      x = 0.397961
      y = 0.342421
      z = 0.2
      irot = 19
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 20
      theta1 = 90
      phi1 = 49.28
      theta2 = 90
      phi2 = 139.28
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 16
      chmoth = 'AIRH'
      x = 0.342491
      y = 0.397901
      z = 0.2
      irot = 20
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 17
      chmoth = 'AIRH'
      x = 0.279372
      y = 0.444495
      z = 0.2
      irot = 21
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 18
      chmoth = 'AIRH'
      x = 0.210015
      y = 0.481164
      z = 0.2
      irot = 22
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 19
      chmoth = 'AIRH'
      x = 0.554328
      y = 0.22961
      z = 0.2
      irot = 23
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 20
      chmoth = 'AIRH'
      x = 0.519615
      y = 0.3
      z = 0.2
      irot = 24
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 21
      chmoth = 'AIRH'
      x = 0.476012
      y = 0.365257
      z = 0.2
      irot = 25
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 22
      chmoth = 'AIRH'
      x = 0.424264
      y = 0.424264
      z = 0.2
      irot = 26
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 23
      chmoth = 'AIRH'
      x = 0.365257
      y = 0.476012
      z = 0.2
      irot = 27
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 24
      chmoth = 'AIRH'
      x = 0.3
      y = 0.519615
      z = 0.2
      irot = 28
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 25
      chmoth = 'AIRH'
      x = 0.22961
      y = 0.554328
      z = 0.2
      irot = 29
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 26
      chmoth = 'AIRH'
      x = 0.627295
      y = 0.249251
      z = 0.2
      irot = 30
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 31
      theta1 = 90
      phi1 = 28.34
      theta2 = 90
      phi2 = 118.34
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 27
      chmoth = 'AIRH'
      x = 0.594099
      y = 0.320424
      z = 0.2
      irot = 31
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 28
      chmoth = 'AIRH'
      x = 0.55286
      y = 0.387261
      z = 0.2
      irot = 32
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 33
      theta1 = 90
      phi1 = 41.68
      theta2 = 90
      phi2 = 131.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 29
      chmoth = 'AIRH'
      x = 0.504137
      y = 0.448855
      z = 0.2
      irot = 33
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 34
      theta1 = 90
      phi1 = 48.35
      theta2 = 90
      phi2 = 138.35
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 30
      chmoth = 'AIRH'
      x = 0.448591
      y = 0.504372
      z = 0.2
      irot = 34
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 35
      theta1 = 90
      phi1 = 55.02
      theta2 = 90
      phi2 = 145.02
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 31
      chmoth = 'AIRH'
      x = 0.386971
      y = 0.553063
      z = 0.2
      irot = 35
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 36
      theta1 = 90
      phi1 = 61.69
      theta2 = 90
      phi2 = 151.69
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 32
      chmoth = 'AIRH'
      x = 0.320113
      y = 0.594266
      z = 0.2
      irot = 36
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 37
      theta1 = 90
      phi1 = 68.36
      theta2 = 90
      phi2 = 158.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 33
      chmoth = 'AIRH'
      x = 0.248922
      y = 0.627426
      z = 0.2
      irot = 37
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 34
      chmoth = 'AIRH'
      x = 0.700185
      y = 0.268776
      z = 0.2
      irot = 38
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 35
      chmoth = 'AIRH'
      x = 0.668255
      y = 0.340493
      z = 0.2
      irot = 39
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 40
      theta1 = 90
      phi1 = 33
      theta2 = 90
      phi2 = 123
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 36
      chmoth = 'AIRH'
      x = 0.629003
      y = 0.408479
      z = 0.2
      irot = 40
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 41
      theta1 = 90
      phi1 = 39
      theta2 = 90
      phi2 = 129
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN1'
      nr = 37
      chmoth = 'AIRH'
      x = 0.582859
      y = 0.47199
      z = 0.2
      irot = 41
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 38
      chmoth = 'AIRH'
      x = 0.53033
      y = 0.53033
      z = 0.2
      irot = 42
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 39
      chmoth = 'AIRH'
      x = 0.47199
      y = 0.582859
      z = 0.2
      irot = 43
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 40
      chmoth = 'AIRH'
      x = 0.408479
      y = 0.629003
      z = 0.2
      irot = 44
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 41
      chmoth = 'AIRH'
      x = 0.340493
      y = 0.668255
      z = 0.2
      irot = 45
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 42
      chmoth = 'AIRH'
      x = 0.268776
      y = 0.700185
      z = 0.2
      irot = 46
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 43
      chmoth = 'AIRH'
      x = 0.773006
      y = 0.288247
      z = 0.2
      irot = 47
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 44
      chmoth = 'AIRH'
      x = 0.742135
      y = 0.360361
      z = 0.2
      irot = 48
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 45
      chmoth = 'AIRH'
      x = 0.704554
      y = 0.429218
      z = 0.2
      irot = 49
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 46
      chmoth = 'AIRH'
      x = 0.660603
      y = 0.494194
      z = 0.2
      irot = 50
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 47
      chmoth = 'AIRH'
      x = 0.61068
      y = 0.554703
      z = 0.2
      irot = 51
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 48
      chmoth = 'AIRH'
      x = 0.555235
      y = 0.610196
      z = 0.2
      irot = 52
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 49
      chmoth = 'AIRH'
      x = 0.494771
      y = 0.660172
      z = 0.2
      irot = 53
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 50
      chmoth = 'AIRH'
      x = 0.429833
      y = 0.704179
      z = 0.2
      irot = 54
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 51
      chmoth = 'AIRH'
      x = 0.361009
      y = 0.74182
      z = 0.2
      irot = 55
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN1'
      nr = 52
      chmoth = 'AIRH'
      x = 0.288921
      y = 0.772755
      z = 0.2
      irot = 56
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BA12'
      chshap = 'TUBS'
      nmed = 13
      npar = 5
      par(1) = 0.25
      par(2) = 2.5
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.13) stop 'consistency check #1 failed'

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

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

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

      chname = 'PIN2'
      chshap = 'TUBE'
      nmed = 14
      npar = 3
      par(1) = 0
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.14) stop 'consistency check #1 failed'

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

      chname = 'PIN2'
      nr = 1
      chmoth = 'AIRH'
      x = -0.15
      y = 0.259808
      z = 0.2
      irot = 58
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 2
      chmoth = 'AIRH'
      x = -0.212132
      y = 0.212132
      z = 0.2
      irot = 59
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 3
      chmoth = 'AIRH'
      x = -0.259808
      y = 0.15
      z = 0.2
      irot = 60
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 4
      chmoth = 'AIRH'
      x = -0.170246
      y = 0.334127
      z = 0.2
      irot = 61
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 5
      chmoth = 'AIRH'
      x = -0.235995
      y = 0.29143
      z = 0.2
      irot = 62
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 6
      chmoth = 'AIRH'
      x = -0.29143
      y = 0.235995
      z = 0.2
      irot = 63
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 7
      chmoth = 'AIRH'
      x = -0.334127
      y = 0.170246
      z = 0.2
      irot = 64
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 8
      chmoth = 'AIRH'
      x = -0.190178
      y = 0.407839
      z = 0.2
      irot = 65
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 9
      chmoth = 'AIRH'
      x = -0.258109
      y = 0.368618
      z = 0.2
      irot = 66
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 10
      chmoth = 'AIRH'
      x = -0.318198
      y = 0.318198
      z = 0.2
      irot = 67
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 11
      chmoth = 'AIRH'
      x = -0.368618
      y = 0.258109
      z = 0.2
      irot = 68
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 12
      chmoth = 'AIRH'
      x = -0.407839
      y = 0.190178
      z = 0.2
      irot = 69
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 13
      chmoth = 'AIRH'
      x = -0.209931
      y = 0.4812
      z = 0.2
      irot = 70
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 14
      chmoth = 'AIRH'
      x = -0.279295
      y = 0.444544
      z = 0.2
      irot = 71
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 15
      chmoth = 'AIRH'
      x = -0.342421
      y = 0.397961
      z = 0.2
      irot = 72
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 16
      chmoth = 'AIRH'
      x = -0.397901
      y = 0.342491
      z = 0.2
      irot = 73
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 17
      chmoth = 'AIRH'
      x = -0.444495
      y = 0.279372
      z = 0.2
      irot = 74
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 18
      chmoth = 'AIRH'
      x = -0.481164
      y = 0.210015
      z = 0.2
      irot = 75
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 19
      chmoth = 'AIRH'
      x = -0.22961
      y = 0.554328
      z = 0.2
      irot = 76
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 20
      chmoth = 'AIRH'
      x = -0.3
      y = 0.519615
      z = 0.2
      irot = 77
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 21
      chmoth = 'AIRH'
      x = -0.365257
      y = 0.476012
      z = 0.2
      irot = 78
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 22
      chmoth = 'AIRH'
      x = -0.424264
      y = 0.424264
      z = 0.2
      irot = 79
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 23
      chmoth = 'AIRH'
      x = -0.476012
      y = 0.365257
      z = 0.2
      irot = 80
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 24
      chmoth = 'AIRH'
      x = -0.519615
      y = 0.3
      z = 0.2
      irot = 81
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 25
      chmoth = 'AIRH'
      x = -0.554328
      y = 0.22961
      z = 0.2
      irot = 82
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 26
      chmoth = 'AIRH'
      x = -0.249251
      y = 0.627295
      z = 0.2
      irot = 83
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 27
      chmoth = 'AIRH'
      x = -0.320424
      y = 0.594099
      z = 0.2
      irot = 84
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 28
      chmoth = 'AIRH'
      x = -0.387261
      y = 0.55286
      z = 0.2
      irot = 85
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 29
      chmoth = 'AIRH'
      x = -0.448855
      y = 0.504137
      z = 0.2
      irot = 86
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 30
      chmoth = 'AIRH'
      x = -0.504372
      y = 0.448591
      z = 0.2
      irot = 87
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 31
      chmoth = 'AIRH'
      x = -0.553063
      y = 0.386971
      z = 0.2
      irot = 88
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 32
      chmoth = 'AIRH'
      x = -0.594266
      y = 0.320113
      z = 0.2
      irot = 89
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 33
      chmoth = 'AIRH'
      x = -0.627426
      y = 0.248922
      z = 0.2
      irot = 90
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 34
      chmoth = 'AIRH'
      x = -0.268776
      y = 0.700185
      z = 0.2
      irot = 91
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 35
      chmoth = 'AIRH'
      x = -0.340493
      y = 0.668255
      z = 0.2
      irot = 92
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 36
      chmoth = 'AIRH'
      x = -0.408479
      y = 0.629003
      z = 0.2
      irot = 93
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 37
      chmoth = 'AIRH'
      x = -0.47199
      y = 0.582859
      z = 0.2
      irot = 94
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 38
      chmoth = 'AIRH'
      x = -0.53033
      y = 0.53033
      z = 0.2
      irot = 95
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 39
      chmoth = 'AIRH'
      x = -0.582859
      y = 0.47199
      z = 0.2
      irot = 96
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 40
      chmoth = 'AIRH'
      x = -0.629003
      y = 0.408479
      z = 0.2
      irot = 97
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 41
      chmoth = 'AIRH'
      x = -0.668255
      y = 0.340493
      z = 0.2
      irot = 98
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 42
      chmoth = 'AIRH'
      x = -0.700185
      y = 0.268776
      z = 0.2
      irot = 99
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 100
      theta1 = 90
      phi1 = 110.45
      theta2 = 90
      phi2 = -159.55
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN2'
      nr = 43
      chmoth = 'AIRH'
      x = -0.288247
      y = 0.773006
      z = 0.2
      irot = 100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 101
      theta1 = 90
      phi1 = 115.9
      theta2 = 90
      phi2 = -154.1
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN2'
      nr = 44
      chmoth = 'AIRH'
      x = -0.360361
      y = 0.742135
      z = 0.2
      irot = 101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 45
      chmoth = 'AIRH'
      x = -0.429218
      y = 0.704554
      z = 0.2
      irot = 102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 103
      theta1 = 90
      phi1 = 126.8
      theta2 = 90
      phi2 = -143.2
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN2'
      nr = 46
      chmoth = 'AIRH'
      x = -0.494194
      y = 0.660603
      z = 0.2
      irot = 103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 47
      chmoth = 'AIRH'
      x = -0.554703
      y = 0.61068
      z = 0.2
      irot = 104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 48
      chmoth = 'AIRH'
      x = -0.610196
      y = 0.555235
      z = 0.2
      irot = 105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 49
      chmoth = 'AIRH'
      x = -0.660172
      y = 0.494771
      z = 0.2
      irot = 106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 50
      chmoth = 'AIRH'
      x = -0.704179
      y = 0.429833
      z = 0.2
      irot = 107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 51
      chmoth = 'AIRH'
      x = -0.74182
      y = 0.361009
      z = 0.2
      irot = 108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN2'
      nr = 52
      chmoth = 'AIRH'
      x = -0.772755
      y = 0.288921
      z = 0.2
      irot = 109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BA13'
      chshap = 'TUBS'
      nmed = 15
      npar = 5
      par(1) = 0.25
      par(2) = 2.5
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.15) stop 'consistency check #1 failed'

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

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

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

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

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

      chname = 'PIN3'
      nr = 1
      chmoth = 'AIRH'
      x = -0.259808
      y = -0.15
      z = 0.2
      irot = 111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 2
      chmoth = 'AIRH'
      x = -0.212132
      y = -0.212132
      z = 0.2
      irot = 112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 3
      chmoth = 'AIRH'
      x = -0.15
      y = -0.259808
      z = 0.2
      irot = 113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 4
      chmoth = 'AIRH'
      x = -0.334127
      y = -0.170246
      z = 0.2
      irot = 114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 5
      chmoth = 'AIRH'
      x = -0.29143
      y = -0.235995
      z = 0.2
      irot = 115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 6
      chmoth = 'AIRH'
      x = -0.235995
      y = -0.29143
      z = 0.2
      irot = 116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 7
      chmoth = 'AIRH'
      x = -0.170246
      y = -0.334127
      z = 0.2
      irot = 117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 8
      chmoth = 'AIRH'
      x = -0.407839
      y = -0.190178
      z = 0.2
      irot = 118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 9
      chmoth = 'AIRH'
      x = -0.368618
      y = -0.258109
      z = 0.2
      irot = 119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 10
      chmoth = 'AIRH'
      x = -0.318198
      y = -0.318198
      z = 0.2
      irot = 120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 11
      chmoth = 'AIRH'
      x = -0.258109
      y = -0.368618
      z = 0.2
      irot = 121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 12
      chmoth = 'AIRH'
      x = -0.190178
      y = -0.407839
      z = 0.2
      irot = 122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 13
      chmoth = 'AIRH'
      x = -0.4812
      y = -0.209931
      z = 0.2
      irot = 123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 14
      chmoth = 'AIRH'
      x = -0.444544
      y = -0.279295
      z = 0.2
      irot = 124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 125
      theta1 = 90
      phi1 = -139.29
      theta2 = 90
      phi2 = -49.29
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN3'
      nr = 15
      chmoth = 'AIRH'
      x = -0.397961
      y = -0.342421
      z = 0.2
      irot = 125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 16
      chmoth = 'AIRH'
      x = -0.342491
      y = -0.397901
      z = 0.2
      irot = 126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 17
      chmoth = 'AIRH'
      x = -0.279372
      y = -0.444495
      z = 0.2
      irot = 127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 18
      chmoth = 'AIRH'
      x = -0.210015
      y = -0.481164
      z = 0.2
      irot = 128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 19
      chmoth = 'AIRH'
      x = -0.554328
      y = -0.22961
      z = 0.2
      irot = 129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 20
      chmoth = 'AIRH'
      x = -0.519615
      y = -0.3
      z = 0.2
      irot = 130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 21
      chmoth = 'AIRH'
      x = -0.476012
      y = -0.365257
      z = 0.2
      irot = 131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 22
      chmoth = 'AIRH'
      x = -0.424264
      y = -0.424264
      z = 0.2
      irot = 132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 23
      chmoth = 'AIRH'
      x = -0.365257
      y = -0.476012
      z = 0.2
      irot = 133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 24
      chmoth = 'AIRH'
      x = -0.3
      y = -0.519615
      z = 0.2
      irot = 134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 25
      chmoth = 'AIRH'
      x = -0.22961
      y = -0.554328
      z = 0.2
      irot = 135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 136
      theta1 = 90
      phi1 = -158.33
      theta2 = 90
      phi2 = -68.33
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN3'
      nr = 26
      chmoth = 'AIRH'
      x = -0.627295
      y = -0.249251
      z = 0.2
      irot = 136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 137
      theta1 = 90
      phi1 = -151.66
      theta2 = 90
      phi2 = -61.66
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN3'
      nr = 27
      chmoth = 'AIRH'
      x = -0.594099
      y = -0.320424
      z = 0.2
      irot = 137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 28
      chmoth = 'AIRH'
      x = -0.55286
      y = -0.387261
      z = 0.2
      irot = 138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 139
      theta1 = 90
      phi1 = -138.32
      theta2 = 90
      phi2 = -48.32
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN3'
      nr = 29
      chmoth = 'AIRH'
      x = -0.504137
      y = -0.448855
      z = 0.2
      irot = 139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 140
      theta1 = 90
      phi1 = -131.65
      theta2 = 90
      phi2 = -41.65
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN3'
      nr = 30
      chmoth = 'AIRH'
      x = -0.448591
      y = -0.504372
      z = 0.2
      irot = 140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 141
      theta1 = 90
      phi1 = -124.98
      theta2 = 90
      phi2 = -34.98
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN3'
      nr = 31
      chmoth = 'AIRH'
      x = -0.386971
      y = -0.553063
      z = 0.2
      irot = 141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 32
      chmoth = 'AIRH'
      x = -0.320113
      y = -0.594266
      z = 0.2
      irot = 142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 143
      theta1 = 90
      phi1 = -111.64
      theta2 = 90
      phi2 = -21.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN3'
      nr = 33
      chmoth = 'AIRH'
      x = -0.248922
      y = -0.627426
      z = 0.2
      irot = 143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 34
      chmoth = 'AIRH'
      x = -0.700185
      y = -0.268776
      z = 0.2
      irot = 144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 35
      chmoth = 'AIRH'
      x = -0.668255
      y = -0.340493
      z = 0.2
      irot = 145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 36
      chmoth = 'AIRH'
      x = -0.629003
      y = -0.408479
      z = 0.2
      irot = 146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 37
      chmoth = 'AIRH'
      x = -0.582859
      y = -0.47199
      z = 0.2
      irot = 147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 38
      chmoth = 'AIRH'
      x = -0.53033
      y = -0.53033
      z = 0.2
      irot = 148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 39
      chmoth = 'AIRH'
      x = -0.47199
      y = -0.582859
      z = 0.2
      irot = 149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 40
      chmoth = 'AIRH'
      x = -0.408479
      y = -0.629003
      z = 0.2
      irot = 150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 41
      chmoth = 'AIRH'
      x = -0.340493
      y = -0.668255
      z = 0.2
      irot = 151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 42
      chmoth = 'AIRH'
      x = -0.268776
      y = -0.700185
      z = 0.2
      irot = 152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 43
      chmoth = 'AIRH'
      x = -0.773006
      y = -0.288247
      z = 0.2
      irot = 153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 44
      chmoth = 'AIRH'
      x = -0.742135
      y = -0.360361
      z = 0.2
      irot = 154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 45
      chmoth = 'AIRH'
      x = -0.704554
      y = -0.429218
      z = 0.2
      irot = 155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 46
      chmoth = 'AIRH'
      x = -0.660603
      y = -0.494194
      z = 0.2
      irot = 156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 47
      chmoth = 'AIRH'
      x = -0.61068
      y = -0.554703
      z = 0.2
      irot = 157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 48
      chmoth = 'AIRH'
      x = -0.555235
      y = -0.610196
      z = 0.2
      irot = 158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 49
      chmoth = 'AIRH'
      x = -0.494771
      y = -0.660172
      z = 0.2
      irot = 159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 50
      chmoth = 'AIRH'
      x = -0.429833
      y = -0.704179
      z = 0.2
      irot = 160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 51
      chmoth = 'AIRH'
      x = -0.361009
      y = -0.74182
      z = 0.2
      irot = 161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN3'
      nr = 52
      chmoth = 'AIRH'
      x = -0.288921
      y = -0.772755
      z = 0.2
      irot = 162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BA14'
      chshap = 'TUBS'
      nmed = 17
      npar = 5
      par(1) = 0.25
      par(2) = 2.5
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.17) stop 'consistency check #1 failed'

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

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

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

      chname = 'PIN4'
      chshap = 'TUBE'
      nmed = 18
      npar = 3
      par(1) = 0
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.18) stop 'consistency check #1 failed'

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

      chname = 'PIN4'
      nr = 1
      chmoth = 'AIRH'
      x = 0.15
      y = -0.259808
      z = 0.2
      irot = 164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 2
      chmoth = 'AIRH'
      x = 0.212132
      y = -0.212132
      z = 0.2
      irot = 165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 3
      chmoth = 'AIRH'
      x = 0.259808
      y = -0.15
      z = 0.2
      irot = 166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 4
      chmoth = 'AIRH'
      x = 0.170246
      y = -0.334127
      z = 0.2
      irot = 167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 5
      chmoth = 'AIRH'
      x = 0.235995
      y = -0.29143
      z = 0.2
      irot = 168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 6
      chmoth = 'AIRH'
      x = 0.29143
      y = -0.235995
      z = 0.2
      irot = 169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 7
      chmoth = 'AIRH'
      x = 0.334127
      y = -0.170246
      z = 0.2
      irot = 170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 8
      chmoth = 'AIRH'
      x = 0.190178
      y = -0.407839
      z = 0.2
      irot = 171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 9
      chmoth = 'AIRH'
      x = 0.258109
      y = -0.368618
      z = 0.2
      irot = 172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 10
      chmoth = 'AIRH'
      x = 0.318198
      y = -0.318198
      z = 0.2
      irot = 173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 11
      chmoth = 'AIRH'
      x = 0.368618
      y = -0.258109
      z = 0.2
      irot = 174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 12
      chmoth = 'AIRH'
      x = 0.407839
      y = -0.190178
      z = 0.2
      irot = 175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 13
      chmoth = 'AIRH'
      x = 0.209931
      y = -0.4812
      z = 0.2
      irot = 176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 14
      chmoth = 'AIRH'
      x = 0.279295
      y = -0.444544
      z = 0.2
      irot = 177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 15
      chmoth = 'AIRH'
      x = 0.342421
      y = -0.397961
      z = 0.2
      irot = 178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 16
      chmoth = 'AIRH'
      x = 0.397901
      y = -0.342491
      z = 0.2
      irot = 179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 17
      chmoth = 'AIRH'
      x = 0.444495
      y = -0.279372
      z = 0.2
      irot = 180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 18
      chmoth = 'AIRH'
      x = 0.481164
      y = -0.210015
      z = 0.2
      irot = 181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 19
      chmoth = 'AIRH'
      x = 0.22961
      y = -0.554328
      z = 0.2
      irot = 182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 20
      chmoth = 'AIRH'
      x = 0.3
      y = -0.519615
      z = 0.2
      irot = 183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 21
      chmoth = 'AIRH'
      x = 0.365257
      y = -0.476012
      z = 0.2
      irot = 184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 22
      chmoth = 'AIRH'
      x = 0.424264
      y = -0.424264
      z = 0.2
      irot = 185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 23
      chmoth = 'AIRH'
      x = 0.476012
      y = -0.365257
      z = 0.2
      irot = 186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 24
      chmoth = 'AIRH'
      x = 0.519615
      y = -0.3
      z = 0.2
      irot = 187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 25
      chmoth = 'AIRH'
      x = 0.554328
      y = -0.22961
      z = 0.2
      irot = 188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 26
      chmoth = 'AIRH'
      x = 0.249251
      y = -0.627295
      z = 0.2
      irot = 189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 190
      theta1 = 90
      phi1 = -61.66
      theta2 = 90
      phi2 = 28.34
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN4'
      nr = 27
      chmoth = 'AIRH'
      x = 0.320424
      y = -0.594099
      z = 0.2
      irot = 190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 191
      theta1 = 90
      phi1 = -54.99
      theta2 = 90
      phi2 = 35.01
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN4'
      nr = 28
      chmoth = 'AIRH'
      x = 0.387261
      y = -0.55286
      z = 0.2
      irot = 191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 192
      theta1 = 90
      phi1 = -48.32
      theta2 = 90
      phi2 = 41.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN4'
      nr = 29
      chmoth = 'AIRH'
      x = 0.448855
      y = -0.504137
      z = 0.2
      irot = 192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 193
      theta1 = 90
      phi1 = -41.65
      theta2 = 90
      phi2 = 48.35
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN4'
      nr = 30
      chmoth = 'AIRH'
      x = 0.504372
      y = -0.448591
      z = 0.2
      irot = 193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 194
      theta1 = 90
      phi1 = -34.98
      theta2 = 90
      phi2 = 55.02
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN4'
      nr = 31
      chmoth = 'AIRH'
      x = 0.553063
      y = -0.386971
      z = 0.2
      irot = 194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 195
      theta1 = 90
      phi1 = -28.31
      theta2 = 90
      phi2 = 61.69
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN4'
      nr = 32
      chmoth = 'AIRH'
      x = 0.594266
      y = -0.320113
      z = 0.2
      irot = 195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 196
      theta1 = 90
      phi1 = -21.64
      theta2 = 90
      phi2 = 68.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN4'
      nr = 33
      chmoth = 'AIRH'
      x = 0.627426
      y = -0.248922
      z = 0.2
      irot = 196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 34
      chmoth = 'AIRH'
      x = 0.268776
      y = -0.700185
      z = 0.2
      irot = 197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 35
      chmoth = 'AIRH'
      x = 0.340493
      y = -0.668255
      z = 0.2
      irot = 198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 36
      chmoth = 'AIRH'
      x = 0.408479
      y = -0.629003
      z = 0.2
      irot = 199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 37
      chmoth = 'AIRH'
      x = 0.47199
      y = -0.582859
      z = 0.2
      irot = 200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 38
      chmoth = 'AIRH'
      x = 0.53033
      y = -0.53033
      z = 0.2
      irot = 201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 39
      chmoth = 'AIRH'
      x = 0.582859
      y = -0.47199
      z = 0.2
      irot = 202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 40
      chmoth = 'AIRH'
      x = 0.629003
      y = -0.408479
      z = 0.2
      irot = 203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 41
      chmoth = 'AIRH'
      x = 0.668255
      y = -0.340493
      z = 0.2
      irot = 204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 42
      chmoth = 'AIRH'
      x = 0.700185
      y = -0.268776
      z = 0.2
      irot = 205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 43
      chmoth = 'AIRH'
      x = 0.288247
      y = -0.773006
      z = 0.2
      irot = 206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 44
      chmoth = 'AIRH'
      x = 0.360361
      y = -0.742135
      z = 0.2
      irot = 207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 45
      chmoth = 'AIRH'
      x = 0.429218
      y = -0.704554
      z = 0.2
      irot = 208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 46
      chmoth = 'AIRH'
      x = 0.494194
      y = -0.660603
      z = 0.2
      irot = 209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 47
      chmoth = 'AIRH'
      x = 0.554703
      y = -0.61068
      z = 0.2
      irot = 210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 48
      chmoth = 'AIRH'
      x = 0.610196
      y = -0.555235
      z = 0.2
      irot = 211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 49
      chmoth = 'AIRH'
      x = 0.660172
      y = -0.494771
      z = 0.2
      irot = 212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 50
      chmoth = 'AIRH'
      x = 0.704179
      y = -0.429833
      z = 0.2
      irot = 213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 51
      chmoth = 'AIRH'
      x = 0.74182
      y = -0.361009
      z = 0.2
      irot = 214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN4'
      nr = 52
      chmoth = 'AIRH'
      x = 0.772755
      y = -0.288921
      z = 0.2
      irot = 215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BA21'
      chshap = 'TUBS'
      nmed = 19
      npar = 5
      par(1) = 3
      par(2) = 6
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.19) stop 'consistency check #1 failed'

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

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

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

      chname = 'PIN5'
      chshap = 'TUBE'
      nmed = 20
      npar = 3
      par(1) = 0
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.20) stop 'consistency check #1 failed'

      irot = 217
      theta1 = 90
      phi1 = 16.463
      theta2 = 90
      phi2 = 106.463
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 1
      chmoth = 'AIRH'
      x = 2.92496
      y = 0.864358
      z = 0.2
      irot = 217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 218
      theta1 = 90
      phi1 = 17.926
      theta2 = 90
      phi2 = 107.926
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 2
      chmoth = 'AIRH'
      x = 2.90194
      y = 0.938755
      z = 0.2
      irot = 218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 219
      theta1 = 90
      phi1 = 19.389
      theta2 = 90
      phi2 = 109.389
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 3
      chmoth = 'AIRH'
      x = 2.87702
      y = 1.01254
      z = 0.2
      irot = 219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 220
      theta1 = 90
      phi1 = 20.852
      theta2 = 90
      phi2 = 110.852
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 4
      chmoth = 'AIRH'
      x = 2.85023
      y = 1.08566
      z = 0.2
      irot = 220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 221
      theta1 = 90
      phi1 = 22.315
      theta2 = 90
      phi2 = 112.315
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 5
      chmoth = 'AIRH'
      x = 2.82159
      y = 1.15808
      z = 0.2
      irot = 221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 222
      theta1 = 90
      phi1 = 23.778
      theta2 = 90
      phi2 = 113.778
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 6
      chmoth = 'AIRH'
      x = 2.7911
      y = 1.22974
      z = 0.2
      irot = 222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 223
      theta1 = 90
      phi1 = 25.241
      theta2 = 90
      phi2 = 115.241
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 7
      chmoth = 'AIRH'
      x = 2.75879
      y = 1.3006
      z = 0.2
      irot = 223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 224
      theta1 = 90
      phi1 = 26.704
      theta2 = 90
      phi2 = 116.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 8
      chmoth = 'AIRH'
      x = 2.72469
      y = 1.37061
      z = 0.2
      irot = 224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 225
      theta1 = 90
      phi1 = 28.167
      theta2 = 90
      phi2 = 118.167
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 9
      chmoth = 'AIRH'
      x = 2.68881
      y = 1.43973
      z = 0.2
      irot = 225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 226
      theta1 = 90
      phi1 = 29.63
      theta2 = 90
      phi2 = 119.63
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 10
      chmoth = 'AIRH'
      x = 2.65117
      y = 1.50791
      z = 0.2
      irot = 226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 227
      theta1 = 90
      phi1 = 31.093
      theta2 = 90
      phi2 = 121.093
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 11
      chmoth = 'AIRH'
      x = 2.61181
      y = 1.57511
      z = 0.2
      irot = 227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 228
      theta1 = 90
      phi1 = 32.556
      theta2 = 90
      phi2 = 122.556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 12
      chmoth = 'AIRH'
      x = 2.57074
      y = 1.64128
      z = 0.2
      irot = 228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 229
      theta1 = 90
      phi1 = 34.019
      theta2 = 90
      phi2 = 124.019
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 13
      chmoth = 'AIRH'
      x = 2.528
      y = 1.70638
      z = 0.2
      irot = 229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 230
      theta1 = 90
      phi1 = 35.482
      theta2 = 90
      phi2 = 125.482
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 14
      chmoth = 'AIRH'
      x = 2.48361
      y = 1.77036
      z = 0.2
      irot = 230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 231
      theta1 = 90
      phi1 = 36.945
      theta2 = 90
      phi2 = 126.945
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 15
      chmoth = 'AIRH'
      x = 2.4376
      y = 1.8332
      z = 0.2
      irot = 231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 232
      theta1 = 90
      phi1 = 38.408
      theta2 = 90
      phi2 = 128.408
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 16
      chmoth = 'AIRH'
      x = 2.39
      y = 1.89483
      z = 0.2
      irot = 232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 233
      theta1 = 90
      phi1 = 39.871
      theta2 = 90
      phi2 = 129.871
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 17
      chmoth = 'AIRH'
      x = 2.34084
      y = 1.95524
      z = 0.2
      irot = 233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 234
      theta1 = 90
      phi1 = 41.334
      theta2 = 90
      phi2 = 131.334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 18
      chmoth = 'AIRH'
      x = 2.29016
      y = 2.01436
      z = 0.2
      irot = 234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 235
      theta1 = 90
      phi1 = 42.797
      theta2 = 90
      phi2 = 132.797
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 19
      chmoth = 'AIRH'
      x = 2.23798
      y = 2.07218
      z = 0.2
      irot = 235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 236
      theta1 = 90
      phi1 = 44.26
      theta2 = 90
      phi2 = 134.26
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 20
      chmoth = 'AIRH'
      x = 2.18435
      y = 2.12864
      z = 0.2
      irot = 236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 237
      theta1 = 90
      phi1 = 45.723
      theta2 = 90
      phi2 = 135.723
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 21
      chmoth = 'AIRH'
      x = 2.12929
      y = 2.18372
      z = 0.2
      irot = 237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 238
      theta1 = 90
      phi1 = 47.186
      theta2 = 90
      phi2 = 137.186
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 22
      chmoth = 'AIRH'
      x = 2.07284
      y = 2.23737
      z = 0.2
      irot = 238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 239
      theta1 = 90
      phi1 = 48.649
      theta2 = 90
      phi2 = 138.649
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 23
      chmoth = 'AIRH'
      x = 2.01504
      y = 2.28956
      z = 0.2
      irot = 239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 240
      theta1 = 90
      phi1 = 50.112
      theta2 = 90
      phi2 = 140.112
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 24
      chmoth = 'AIRH'
      x = 1.95593
      y = 2.34026
      z = 0.2
      irot = 240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 241
      theta1 = 90
      phi1 = 51.575
      theta2 = 90
      phi2 = 141.575
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 25
      chmoth = 'AIRH'
      x = 1.89554
      y = 2.38944
      z = 0.2
      irot = 241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 242
      theta1 = 90
      phi1 = 53.038
      theta2 = 90
      phi2 = 143.038
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 26
      chmoth = 'AIRH'
      x = 1.83392
      y = 2.43706
      z = 0.2
      irot = 242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 243
      theta1 = 90
      phi1 = 54.501
      theta2 = 90
      phi2 = 144.501
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 27
      chmoth = 'AIRH'
      x = 1.7711
      y = 2.48308
      z = 0.2
      irot = 243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 244
      theta1 = 90
      phi1 = 55.964
      theta2 = 90
      phi2 = 145.964
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 28
      chmoth = 'AIRH'
      x = 1.70713
      y = 2.52749
      z = 0.2
      irot = 244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 245
      theta1 = 90
      phi1 = 57.427
      theta2 = 90
      phi2 = 147.427
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 29
      chmoth = 'AIRH'
      x = 1.64204
      y = 2.57025
      z = 0.2
      irot = 245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 246
      theta1 = 90
      phi1 = 58.89
      theta2 = 90
      phi2 = 148.89
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 30
      chmoth = 'AIRH'
      x = 1.57588
      y = 2.61134
      z = 0.2
      irot = 246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 247
      theta1 = 90
      phi1 = 60.353
      theta2 = 90
      phi2 = 150.353
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 31
      chmoth = 'AIRH'
      x = 1.5087
      y = 2.65072
      z = 0.2
      irot = 247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 248
      theta1 = 90
      phi1 = 61.816
      theta2 = 90
      phi2 = 151.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 32
      chmoth = 'AIRH'
      x = 1.44053
      y = 2.68838
      z = 0.2
      irot = 248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 249
      theta1 = 90
      phi1 = 63.279
      theta2 = 90
      phi2 = 153.279
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 33
      chmoth = 'AIRH'
      x = 1.37142
      y = 2.72428
      z = 0.2
      irot = 249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 250
      theta1 = 90
      phi1 = 64.742
      theta2 = 90
      phi2 = 154.742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 34
      chmoth = 'AIRH'
      x = 1.30142
      y = 2.75841
      z = 0.2
      irot = 250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 251
      theta1 = 90
      phi1 = 66.205
      theta2 = 90
      phi2 = 156.205
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 35
      chmoth = 'AIRH'
      x = 1.23057
      y = 2.79073
      z = 0.2
      irot = 251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 252
      theta1 = 90
      phi1 = 67.668
      theta2 = 90
      phi2 = 157.668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 36
      chmoth = 'AIRH'
      x = 1.15892
      y = 2.82124
      z = 0.2
      irot = 252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 253
      theta1 = 90
      phi1 = 69.131
      theta2 = 90
      phi2 = 159.131
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 37
      chmoth = 'AIRH'
      x = 1.08651
      y = 2.84991
      z = 0.2
      irot = 253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 254
      theta1 = 90
      phi1 = 70.594
      theta2 = 90
      phi2 = 160.594
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 38
      chmoth = 'AIRH'
      x = 1.01339
      y = 2.87672
      z = 0.2
      irot = 254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 255
      theta1 = 90
      phi1 = 72.057
      theta2 = 90
      phi2 = 162.057
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 39
      chmoth = 'AIRH'
      x = 0.939616
      y = 2.90166
      z = 0.2
      irot = 255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 256
      theta1 = 90
      phi1 = 73.52
      theta2 = 90
      phi2 = 163.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 40
      chmoth = 'AIRH'
      x = 0.865226
      y = 2.9247
      z = 0.2
      irot = 256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 257
      theta1 = 90
      phi1 = 16.429
      theta2 = 90
      phi2 = 106.429
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 41
      chmoth = 'AIRH'
      x = 2.99741
      y = 0.883834
      z = 0.2
      irot = 257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 258
      theta1 = 90
      phi1 = 17.858
      theta2 = 90
      phi2 = 107.858
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 42
      chmoth = 'AIRH'
      x = 2.97444
      y = 0.958309
      z = 0.2
      irot = 258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 259
      theta1 = 90
      phi1 = 19.287
      theta2 = 90
      phi2 = 109.287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 43
      chmoth = 'AIRH'
      x = 2.94961
      y = 1.03219
      z = 0.2
      irot = 259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 260
      theta1 = 90
      phi1 = 20.716
      theta2 = 90
      phi2 = 110.716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 44
      chmoth = 'AIRH'
      x = 2.92295
      y = 1.10543
      z = 0.2
      irot = 260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 261
      theta1 = 90
      phi1 = 22.145
      theta2 = 90
      phi2 = 112.145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 45
      chmoth = 'AIRH'
      x = 2.89448
      y = 1.17797
      z = 0.2
      irot = 261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 262
      theta1 = 90
      phi1 = 23.574
      theta2 = 90
      phi2 = 113.574
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 46
      chmoth = 'AIRH'
      x = 2.8642
      y = 1.24979
      z = 0.2
      irot = 262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 263
      theta1 = 90
      phi1 = 25.003
      theta2 = 90
      phi2 = 115.003
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 47
      chmoth = 'AIRH'
      x = 2.83214
      y = 1.32083
      z = 0.2
      irot = 263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 264
      theta1 = 90
      phi1 = 26.432
      theta2 = 90
      phi2 = 116.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 48
      chmoth = 'AIRH'
      x = 2.79832
      y = 1.39105
      z = 0.2
      irot = 264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 265
      theta1 = 90
      phi1 = 27.861
      theta2 = 90
      phi2 = 117.861
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 49
      chmoth = 'AIRH'
      x = 2.76276
      y = 1.4604
      z = 0.2
      irot = 265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 266
      theta1 = 90
      phi1 = 29.29
      theta2 = 90
      phi2 = 119.29
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 50
      chmoth = 'AIRH'
      x = 2.72548
      y = 1.52884
      z = 0.2
      irot = 266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 267
      theta1 = 90
      phi1 = 30.719
      theta2 = 90
      phi2 = 120.719
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 51
      chmoth = 'AIRH'
      x = 2.68651
      y = 1.59634
      z = 0.2
      irot = 267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 268
      theta1 = 90
      phi1 = 32.148
      theta2 = 90
      phi2 = 122.148
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 52
      chmoth = 'AIRH'
      x = 2.64586
      y = 1.66284
      z = 0.2
      irot = 268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 269
      theta1 = 90
      phi1 = 33.577
      theta2 = 90
      phi2 = 123.577
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 53
      chmoth = 'AIRH'
      x = 2.60357
      y = 1.7283
      z = 0.2
      irot = 269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 270
      theta1 = 90
      phi1 = 35.006
      theta2 = 90
      phi2 = 125.006
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 54
      chmoth = 'AIRH'
      x = 2.55966
      y = 1.79269
      z = 0.2
      irot = 270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 271
      theta1 = 90
      phi1 = 36.435
      theta2 = 90
      phi2 = 126.435
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 55
      chmoth = 'AIRH'
      x = 2.51416
      y = 1.85597
      z = 0.2
      irot = 271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 272
      theta1 = 90
      phi1 = 37.864
      theta2 = 90
      phi2 = 127.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 56
      chmoth = 'AIRH'
      x = 2.46709
      y = 1.91809
      z = 0.2
      irot = 272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 273
      theta1 = 90
      phi1 = 39.293
      theta2 = 90
      phi2 = 129.293
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 57
      chmoth = 'AIRH'
      x = 2.41849
      y = 1.97902
      z = 0.2
      irot = 273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 274
      theta1 = 90
      phi1 = 40.722
      theta2 = 90
      phi2 = 130.722
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 58
      chmoth = 'AIRH'
      x = 2.36839
      y = 2.03872
      z = 0.2
      irot = 274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 275
      theta1 = 90
      phi1 = 42.151
      theta2 = 90
      phi2 = 132.151
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 59
      chmoth = 'AIRH'
      x = 2.31681
      y = 2.09715
      z = 0.2
      irot = 275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 276
      theta1 = 90
      phi1 = 43.58
      theta2 = 90
      phi2 = 133.58
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 60
      chmoth = 'AIRH'
      x = 2.26379
      y = 2.15427
      z = 0.2
      irot = 276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 277
      theta1 = 90
      phi1 = 45.009
      theta2 = 90
      phi2 = 135.009
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 61
      chmoth = 'AIRH'
      x = 2.20936
      y = 2.21006
      z = 0.2
      irot = 277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 278
      theta1 = 90
      phi1 = 46.438
      theta2 = 90
      phi2 = 136.438
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 62
      chmoth = 'AIRH'
      x = 2.15356
      y = 2.26447
      z = 0.2
      irot = 278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 279
      theta1 = 90
      phi1 = 47.867
      theta2 = 90
      phi2 = 137.867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 63
      chmoth = 'AIRH'
      x = 2.09642
      y = 2.31747
      z = 0.2
      irot = 279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 280
      theta1 = 90
      phi1 = 49.296
      theta2 = 90
      phi2 = 139.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 64
      chmoth = 'AIRH'
      x = 2.03797
      y = 2.36903
      z = 0.2
      irot = 280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 281
      theta1 = 90
      phi1 = 50.725
      theta2 = 90
      phi2 = 140.725
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 65
      chmoth = 'AIRH'
      x = 1.97826
      y = 2.41911
      z = 0.2
      irot = 281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 282
      theta1 = 90
      phi1 = 52.154
      theta2 = 90
      phi2 = 142.154
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 66
      chmoth = 'AIRH'
      x = 1.91732
      y = 2.4677
      z = 0.2
      irot = 282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 283
      theta1 = 90
      phi1 = 53.583
      theta2 = 90
      phi2 = 143.583
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 67
      chmoth = 'AIRH'
      x = 1.85518
      y = 2.51474
      z = 0.2
      irot = 283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 284
      theta1 = 90
      phi1 = 55.012
      theta2 = 90
      phi2 = 145.012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 68
      chmoth = 'AIRH'
      x = 1.79189
      y = 2.56023
      z = 0.2
      irot = 284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 285
      theta1 = 90
      phi1 = 56.441
      theta2 = 90
      phi2 = 146.441
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 69
      chmoth = 'AIRH'
      x = 1.72749
      y = 2.60412
      z = 0.2
      irot = 285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 286
      theta1 = 90
      phi1 = 57.87
      theta2 = 90
      phi2 = 147.87
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 70
      chmoth = 'AIRH'
      x = 1.66201
      y = 2.64639
      z = 0.2
      irot = 286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 287
      theta1 = 90
      phi1 = 59.299
      theta2 = 90
      phi2 = 149.299
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 71
      chmoth = 'AIRH'
      x = 1.59549
      y = 2.68701
      z = 0.2
      irot = 287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 288
      theta1 = 90
      phi1 = 60.728
      theta2 = 90
      phi2 = 150.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 72
      chmoth = 'AIRH'
      x = 1.52799
      y = 2.72596
      z = 0.2
      irot = 288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 289
      theta1 = 90
      phi1 = 62.157
      theta2 = 90
      phi2 = 152.157
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 73
      chmoth = 'AIRH'
      x = 1.45953
      y = 2.76322
      z = 0.2
      irot = 289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 290
      theta1 = 90
      phi1 = 63.586
      theta2 = 90
      phi2 = 153.586
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 74
      chmoth = 'AIRH'
      x = 1.39017
      y = 2.79876
      z = 0.2
      irot = 290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 291
      theta1 = 90
      phi1 = 65.015
      theta2 = 90
      phi2 = 155.015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 75
      chmoth = 'AIRH'
      x = 1.31994
      y = 2.83256
      z = 0.2
      irot = 291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 292
      theta1 = 90
      phi1 = 66.444
      theta2 = 90
      phi2 = 156.444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 76
      chmoth = 'AIRH'
      x = 1.24889
      y = 2.86459
      z = 0.2
      irot = 292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 293
      theta1 = 90
      phi1 = 67.873
      theta2 = 90
      phi2 = 157.873
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 77
      chmoth = 'AIRH'
      x = 1.17707
      y = 2.89485
      z = 0.2
      irot = 293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 294
      theta1 = 90
      phi1 = 69.302
      theta2 = 90
      phi2 = 159.302
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 78
      chmoth = 'AIRH'
      x = 1.10451
      y = 2.9233
      z = 0.2
      irot = 294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 295
      theta1 = 90
      phi1 = 70.731
      theta2 = 90
      phi2 = 160.731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 79
      chmoth = 'AIRH'
      x = 1.03126
      y = 2.94994
      z = 0.2
      irot = 295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 296
      theta1 = 90
      phi1 = 72.16
      theta2 = 90
      phi2 = 162.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 80
      chmoth = 'AIRH'
      x = 0.957375
      y = 2.97474
      z = 0.2
      irot = 296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 297
      theta1 = 90
      phi1 = 73.589
      theta2 = 90
      phi2 = 163.589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 81
      chmoth = 'AIRH'
      x = 0.882893
      y = 2.99769
      z = 0.2
      irot = 297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 298
      theta1 = 90
      phi1 = 16.395
      theta2 = 90
      phi2 = 106.395
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 82
      chmoth = 'AIRH'
      x = 3.06988
      y = 0.903225
      z = 0.2
      irot = 298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 299
      theta1 = 90
      phi1 = 17.79
      theta2 = 90
      phi2 = 107.79
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 83
      chmoth = 'AIRH'
      x = 3.04698
      y = 0.977693
      z = 0.2
      irot = 299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 300
      theta1 = 90
      phi1 = 19.185
      theta2 = 90
      phi2 = 109.185
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 84
      chmoth = 'AIRH'
      x = 3.02228
      y = 1.05158
      z = 0.2
      irot = 300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 301
      theta1 = 90
      phi1 = 20.58
      theta2 = 90
      phi2 = 110.58
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 85
      chmoth = 'AIRH'
      x = 2.99578
      y = 1.12485
      z = 0.2
      irot = 301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 302
      theta1 = 90
      phi1 = 21.975
      theta2 = 90
      phi2 = 111.975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 86
      chmoth = 'AIRH'
      x = 2.96751
      y = 1.19745
      z = 0.2
      irot = 302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 303
      theta1 = 90
      phi1 = 23.37
      theta2 = 90
      phi2 = 113.37
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 87
      chmoth = 'AIRH'
      x = 2.93748
      y = 1.26934
      z = 0.2
      irot = 303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 304
      theta1 = 90
      phi1 = 24.765
      theta2 = 90
      phi2 = 114.765
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 88
      chmoth = 'AIRH'
      x = 2.90571
      y = 1.34047
      z = 0.2
      irot = 304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 305
      theta1 = 90
      phi1 = 26.16
      theta2 = 90
      phi2 = 116.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 89
      chmoth = 'AIRH'
      x = 2.87221
      y = 1.41081
      z = 0.2
      irot = 305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 306
      theta1 = 90
      phi1 = 27.555
      theta2 = 90
      phi2 = 117.555
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 90
      chmoth = 'AIRH'
      x = 2.83701
      y = 1.48032
      z = 0.2
      irot = 306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 307
      theta1 = 90
      phi1 = 28.95
      theta2 = 90
      phi2 = 118.95
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 91
      chmoth = 'AIRH'
      x = 2.80014
      y = 1.54895
      z = 0.2
      irot = 307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 308
      theta1 = 90
      phi1 = 30.345
      theta2 = 90
      phi2 = 120.345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 92
      chmoth = 'AIRH'
      x = 2.7616
      y = 1.61666
      z = 0.2
      irot = 308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 309
      theta1 = 90
      phi1 = 31.74
      theta2 = 90
      phi2 = 121.74
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 93
      chmoth = 'AIRH'
      x = 2.72142
      y = 1.68341
      z = 0.2
      irot = 309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 310
      theta1 = 90
      phi1 = 33.135
      theta2 = 90
      phi2 = 123.135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 94
      chmoth = 'AIRH'
      x = 2.67963
      y = 1.74916
      z = 0.2
      irot = 310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 311
      theta1 = 90
      phi1 = 34.53
      theta2 = 90
      phi2 = 124.53
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 95
      chmoth = 'AIRH'
      x = 2.63625
      y = 1.81388
      z = 0.2
      irot = 311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 312
      theta1 = 90
      phi1 = 35.925
      theta2 = 90
      phi2 = 125.925
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 96
      chmoth = 'AIRH'
      x = 2.59131
      y = 1.87752
      z = 0.2
      irot = 312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 313
      theta1 = 90
      phi1 = 37.32
      theta2 = 90
      phi2 = 127.32
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 97
      chmoth = 'AIRH'
      x = 2.54484
      y = 1.94005
      z = 0.2
      irot = 313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 314
      theta1 = 90
      phi1 = 38.715
      theta2 = 90
      phi2 = 128.715
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 98
      chmoth = 'AIRH'
      x = 2.49685
      y = 2.00143
      z = 0.2
      irot = 314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 315
      theta1 = 90
      phi1 = 40.11
      theta2 = 90
      phi2 = 130.11
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 99
      chmoth = 'AIRH'
      x = 2.44739
      y = 2.06162
      z = 0.2
      irot = 315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 316
      theta1 = 90
      phi1 = 41.505
      theta2 = 90
      phi2 = 131.505
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 100
      chmoth = 'AIRH'
      x = 2.39647
      y = 2.12059
      z = 0.2
      irot = 316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 317
      theta1 = 90
      phi1 = 42.9
      theta2 = 90
      phi2 = 132.9
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 101
      chmoth = 'AIRH'
      x = 2.34414
      y = 2.17831
      z = 0.2
      irot = 317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 318
      theta1 = 90
      phi1 = 44.295
      theta2 = 90
      phi2 = 134.295
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 102
      chmoth = 'AIRH'
      x = 2.29041
      y = 2.23473
      z = 0.2
      irot = 318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 319
      theta1 = 90
      phi1 = 45.69
      theta2 = 90
      phi2 = 135.69
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 103
      chmoth = 'AIRH'
      x = 2.23533
      y = 2.28983
      z = 0.2
      irot = 319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 320
      theta1 = 90
      phi1 = 47.085
      theta2 = 90
      phi2 = 137.085
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 104
      chmoth = 'AIRH'
      x = 2.17892
      y = 2.34357
      z = 0.2
      irot = 320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 321
      theta1 = 90
      phi1 = 48.48
      theta2 = 90
      phi2 = 138.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 105
      chmoth = 'AIRH'
      x = 2.12122
      y = 2.39592
      z = 0.2
      irot = 321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 322
      theta1 = 90
      phi1 = 49.875
      theta2 = 90
      phi2 = 139.875
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 106
      chmoth = 'AIRH'
      x = 2.06226
      y = 2.44685
      z = 0.2
      irot = 322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 323
      theta1 = 90
      phi1 = 51.27
      theta2 = 90
      phi2 = 141.27
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 107
      chmoth = 'AIRH'
      x = 2.00208
      y = 2.49633
      z = 0.2
      irot = 323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 324
      theta1 = 90
      phi1 = 52.665
      theta2 = 90
      phi2 = 142.665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 108
      chmoth = 'AIRH'
      x = 1.94072
      y = 2.54433
      z = 0.2
      irot = 324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 325
      theta1 = 90
      phi1 = 54.06
      theta2 = 90
      phi2 = 144.06
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 109
      chmoth = 'AIRH'
      x = 1.8782
      y = 2.59082
      z = 0.2
      irot = 325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 326
      theta1 = 90
      phi1 = 55.455
      theta2 = 90
      phi2 = 145.455
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 110
      chmoth = 'AIRH'
      x = 1.81457
      y = 2.63578
      z = 0.2
      irot = 326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 327
      theta1 = 90
      phi1 = 56.85
      theta2 = 90
      phi2 = 146.85
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 111
      chmoth = 'AIRH'
      x = 1.74986
      y = 2.67917
      z = 0.2
      irot = 327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 328
      theta1 = 90
      phi1 = 58.245
      theta2 = 90
      phi2 = 148.245
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 112
      chmoth = 'AIRH'
      x = 1.68412
      y = 2.72098
      z = 0.2
      irot = 328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 329
      theta1 = 90
      phi1 = 59.64
      theta2 = 90
      phi2 = 149.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 113
      chmoth = 'AIRH'
      x = 1.61738
      y = 2.76117
      z = 0.2
      irot = 329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 330
      theta1 = 90
      phi1 = 61.035
      theta2 = 90
      phi2 = 151.035
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 114
      chmoth = 'AIRH'
      x = 1.54968
      y = 2.79973
      z = 0.2
      irot = 330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 331
      theta1 = 90
      phi1 = 62.43
      theta2 = 90
      phi2 = 152.43
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 115
      chmoth = 'AIRH'
      x = 1.48106
      y = 2.83663
      z = 0.2
      irot = 331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 332
      theta1 = 90
      phi1 = 63.825
      theta2 = 90
      phi2 = 153.825
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 116
      chmoth = 'AIRH'
      x = 1.41157
      y = 2.87184
      z = 0.2
      irot = 332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 333
      theta1 = 90
      phi1 = 65.22
      theta2 = 90
      phi2 = 155.22
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 117
      chmoth = 'AIRH'
      x = 1.34123
      y = 2.90536
      z = 0.2
      irot = 333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 334
      theta1 = 90
      phi1 = 66.615
      theta2 = 90
      phi2 = 156.615
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 118
      chmoth = 'AIRH'
      x = 1.2701
      y = 2.93715
      z = 0.2
      irot = 334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 335
      theta1 = 90
      phi1 = 68.01
      theta2 = 90
      phi2 = 158.01
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 119
      chmoth = 'AIRH'
      x = 1.19822
      y = 2.9672
      z = 0.2
      irot = 335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 336
      theta1 = 90
      phi1 = 69.405
      theta2 = 90
      phi2 = 159.405
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 120
      chmoth = 'AIRH'
      x = 1.12563
      y = 2.99549
      z = 0.2
      irot = 336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 337
      theta1 = 90
      phi1 = 70.8
      theta2 = 90
      phi2 = 160.8
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 121
      chmoth = 'AIRH'
      x = 1.05237
      y = 3.022
      z = 0.2
      irot = 337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 338
      theta1 = 90
      phi1 = 72.195
      theta2 = 90
      phi2 = 162.195
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 122
      chmoth = 'AIRH'
      x = 0.978491
      y = 3.04673
      z = 0.2
      irot = 338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 339
      theta1 = 90
      phi1 = 73.59
      theta2 = 90
      phi2 = 163.59
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 123
      chmoth = 'AIRH'
      x = 0.904028
      y = 3.06965
      z = 0.2
      irot = 339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 340
      theta1 = 90
      phi1 = 16.364
      theta2 = 90
      phi2 = 106.364
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 124
      chmoth = 'AIRH'
      x = 3.14233
      y = 0.922694
      z = 0.2
      irot = 340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 341
      theta1 = 90
      phi1 = 17.728
      theta2 = 90
      phi2 = 107.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 125
      chmoth = 'AIRH'
      x = 3.11948
      y = 0.997233
      z = 0.2
      irot = 341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 342
      theta1 = 90
      phi1 = 19.092
      theta2 = 90
      phi2 = 109.092
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 126
      chmoth = 'AIRH'
      x = 3.09486
      y = 1.07121
      z = 0.2
      irot = 342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 343
      theta1 = 90
      phi1 = 20.456
      theta2 = 90
      phi2 = 110.456
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 127
      chmoth = 'AIRH'
      x = 3.06848
      y = 1.14457
      z = 0.2
      irot = 343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 344
      theta1 = 90
      phi1 = 21.82
      theta2 = 90
      phi2 = 111.82
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 128
      chmoth = 'AIRH'
      x = 3.04037
      y = 1.21729
      z = 0.2
      irot = 344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 345
      theta1 = 90
      phi1 = 23.184
      theta2 = 90
      phi2 = 113.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 129
      chmoth = 'AIRH'
      x = 3.01053
      y = 1.28932
      z = 0.2
      irot = 345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 346
      theta1 = 90
      phi1 = 24.548
      theta2 = 90
      phi2 = 114.548
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 130
      chmoth = 'AIRH'
      x = 2.97898
      y = 1.36062
      z = 0.2
      irot = 346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 347
      theta1 = 90
      phi1 = 25.912
      theta2 = 90
      phi2 = 115.912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 131
      chmoth = 'AIRH'
      x = 2.94575
      y = 1.43114
      z = 0.2
      irot = 347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 348
      theta1 = 90
      phi1 = 27.276
      theta2 = 90
      phi2 = 117.276
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 132
      chmoth = 'AIRH'
      x = 2.91085
      y = 1.50086
      z = 0.2
      irot = 348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 349
      theta1 = 90
      phi1 = 28.64
      theta2 = 90
      phi2 = 118.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 133
      chmoth = 'AIRH'
      x = 2.8743
      y = 1.56972
      z = 0.2
      irot = 349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 350
      theta1 = 90
      phi1 = 30.004
      theta2 = 90
      phi2 = 120.004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 134
      chmoth = 'AIRH'
      x = 2.83612
      y = 1.6377
      z = 0.2
      irot = 350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 351
      theta1 = 90
      phi1 = 31.368
      theta2 = 90
      phi2 = 121.368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 135
      chmoth = 'AIRH'
      x = 2.79633
      y = 1.70475
      z = 0.2
      irot = 351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 352
      theta1 = 90
      phi1 = 32.732
      theta2 = 90
      phi2 = 122.732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 136
      chmoth = 'AIRH'
      x = 2.75496
      y = 1.77083
      z = 0.2
      irot = 352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 353
      theta1 = 90
      phi1 = 34.096
      theta2 = 90
      phi2 = 124.096
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 137
      chmoth = 'AIRH'
      x = 2.71203
      y = 1.8359
      z = 0.2
      irot = 353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 354
      theta1 = 90
      phi1 = 35.46
      theta2 = 90
      phi2 = 125.46
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 138
      chmoth = 'AIRH'
      x = 2.66756
      y = 1.89994
      z = 0.2
      irot = 354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 355
      theta1 = 90
      phi1 = 36.824
      theta2 = 90
      phi2 = 126.824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 139
      chmoth = 'AIRH'
      x = 2.62157
      y = 1.9629
      z = 0.2
      irot = 355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 356
      theta1 = 90
      phi1 = 38.188
      theta2 = 90
      phi2 = 128.188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 140
      chmoth = 'AIRH'
      x = 2.57411
      y = 2.02475
      z = 0.2
      irot = 356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 357
      theta1 = 90
      phi1 = 39.552
      theta2 = 90
      phi2 = 129.552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 141
      chmoth = 'AIRH'
      x = 2.52518
      y = 2.08545
      z = 0.2
      irot = 357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 358
      theta1 = 90
      phi1 = 40.916
      theta2 = 90
      phi2 = 130.916
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 142
      chmoth = 'AIRH'
      x = 2.47482
      y = 2.14497
      z = 0.2
      irot = 358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 359
      theta1 = 90
      phi1 = 42.28
      theta2 = 90
      phi2 = 132.28
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 143
      chmoth = 'AIRH'
      x = 2.42306
      y = 2.20327
      z = 0.2
      irot = 359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 360
      theta1 = 90
      phi1 = 43.644
      theta2 = 90
      phi2 = 133.644
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 144
      chmoth = 'AIRH'
      x = 2.36993
      y = 2.26032
      z = 0.2
      irot = 360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 361
      theta1 = 90
      phi1 = 45.008
      theta2 = 90
      phi2 = 135.008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 145
      chmoth = 'AIRH'
      x = 2.31545
      y = 2.3161
      z = 0.2
      irot = 361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 362
      theta1 = 90
      phi1 = 46.372
      theta2 = 90
      phi2 = 136.372
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 146
      chmoth = 'AIRH'
      x = 2.25966
      y = 2.37056
      z = 0.2
      irot = 362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 363
      theta1 = 90
      phi1 = 47.736
      theta2 = 90
      phi2 = 137.736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 147
      chmoth = 'AIRH'
      x = 2.20259
      y = 2.42368
      z = 0.2
      irot = 363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 364
      theta1 = 90
      phi1 = 49.1
      theta2 = 90
      phi2 = 139.1
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 148
      chmoth = 'AIRH'
      x = 2.14428
      y = 2.47542
      z = 0.2
      irot = 364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 365
      theta1 = 90
      phi1 = 50.464
      theta2 = 90
      phi2 = 140.464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 149
      chmoth = 'AIRH'
      x = 2.08474
      y = 2.52576
      z = 0.2
      irot = 365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 366
      theta1 = 90
      phi1 = 51.828
      theta2 = 90
      phi2 = 141.828
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 150
      chmoth = 'AIRH'
      x = 2.02403
      y = 2.57467
      z = 0.2
      irot = 366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 367
      theta1 = 90
      phi1 = 53.192
      theta2 = 90
      phi2 = 143.192
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 151
      chmoth = 'AIRH'
      x = 1.96217
      y = 2.62212
      z = 0.2
      irot = 367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 368
      theta1 = 90
      phi1 = 54.556
      theta2 = 90
      phi2 = 144.556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 152
      chmoth = 'AIRH'
      x = 1.8992
      y = 2.66809
      z = 0.2
      irot = 368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 369
      theta1 = 90
      phi1 = 55.92
      theta2 = 90
      phi2 = 145.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 153
      chmoth = 'AIRH'
      x = 1.83515
      y = 2.71254
      z = 0.2
      irot = 369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 370
      theta1 = 90
      phi1 = 57.284
      theta2 = 90
      phi2 = 147.284
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 154
      chmoth = 'AIRH'
      x = 1.77006
      y = 2.75545
      z = 0.2
      irot = 370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 371
      theta1 = 90
      phi1 = 58.648
      theta2 = 90
      phi2 = 148.648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 155
      chmoth = 'AIRH'
      x = 1.70396
      y = 2.79681
      z = 0.2
      irot = 371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 372
      theta1 = 90
      phi1 = 60.012
      theta2 = 90
      phi2 = 150.012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 156
      chmoth = 'AIRH'
      x = 1.63691
      y = 2.83658
      z = 0.2
      irot = 372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 373
      theta1 = 90
      phi1 = 61.376
      theta2 = 90
      phi2 = 151.376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 157
      chmoth = 'AIRH'
      x = 1.56892
      y = 2.87474
      z = 0.2
      irot = 373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 374
      theta1 = 90
      phi1 = 62.74
      theta2 = 90
      phi2 = 152.74
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 158
      chmoth = 'AIRH'
      x = 1.50005
      y = 2.91127
      z = 0.2
      irot = 374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 375
      theta1 = 90
      phi1 = 64.104
      theta2 = 90
      phi2 = 154.104
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 159
      chmoth = 'AIRH'
      x = 1.43032
      y = 2.94615
      z = 0.2
      irot = 375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 376
      theta1 = 90
      phi1 = 65.468
      theta2 = 90
      phi2 = 155.468
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 160
      chmoth = 'AIRH'
      x = 1.35978
      y = 2.97936
      z = 0.2
      irot = 376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 377
      theta1 = 90
      phi1 = 66.832
      theta2 = 90
      phi2 = 156.832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 161
      chmoth = 'AIRH'
      x = 1.28848
      y = 3.01089
      z = 0.2
      irot = 377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 378
      theta1 = 90
      phi1 = 68.196
      theta2 = 90
      phi2 = 158.196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 162
      chmoth = 'AIRH'
      x = 1.21644
      y = 3.04071
      z = 0.2
      irot = 378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 379
      theta1 = 90
      phi1 = 69.56
      theta2 = 90
      phi2 = 159.56
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 163
      chmoth = 'AIRH'
      x = 1.14372
      y = 3.0688
      z = 0.2
      irot = 379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 380
      theta1 = 90
      phi1 = 70.924
      theta2 = 90
      phi2 = 160.924
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 164
      chmoth = 'AIRH'
      x = 1.07034
      y = 3.09516
      z = 0.2
      irot = 380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 381
      theta1 = 90
      phi1 = 72.288
      theta2 = 90
      phi2 = 162.288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 165
      chmoth = 'AIRH'
      x = 0.996362
      y = 3.11976
      z = 0.2
      irot = 381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 382
      theta1 = 90
      phi1 = 73.652
      theta2 = 90
      phi2 = 163.652
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 166
      chmoth = 'AIRH'
      x = 0.921817
      y = 3.14259
      z = 0.2
      irot = 382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 383
      theta1 = 90
      phi1 = 16.333
      theta2 = 90
      phi2 = 106.333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 167
      chmoth = 'AIRH'
      x = 3.21481
      y = 0.942085
      z = 0.2
      irot = 383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 384
      theta1 = 90
      phi1 = 17.666
      theta2 = 90
      phi2 = 107.666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 168
      chmoth = 'AIRH'
      x = 3.19202
      y = 1.01662
      z = 0.2
      irot = 384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 385
      theta1 = 90
      phi1 = 18.999
      theta2 = 90
      phi2 = 108.999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 169
      chmoth = 'AIRH'
      x = 3.16751
      y = 1.0906
      z = 0.2
      irot = 385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 386
      theta1 = 90
      phi1 = 20.332
      theta2 = 90
      phi2 = 110.332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 170
      chmoth = 'AIRH'
      x = 3.14128
      y = 1.16399
      z = 0.2
      irot = 386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 387
      theta1 = 90
      phi1 = 21.665
      theta2 = 90
      phi2 = 111.665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 171
      chmoth = 'AIRH'
      x = 3.11335
      y = 1.23675
      z = 0.2
      irot = 387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 388
      theta1 = 90
      phi1 = 22.998
      theta2 = 90
      phi2 = 112.998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 172
      chmoth = 'AIRH'
      x = 3.08374
      y = 1.30884
      z = 0.2
      irot = 388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 389
      theta1 = 90
      phi1 = 24.331
      theta2 = 90
      phi2 = 114.331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 173
      chmoth = 'AIRH'
      x = 3.05245
      y = 1.38022
      z = 0.2
      irot = 389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 390
      theta1 = 90
      phi1 = 25.664
      theta2 = 90
      phi2 = 115.664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 174
      chmoth = 'AIRH'
      x = 3.01952
      y = 1.45086
      z = 0.2
      irot = 390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 391
      theta1 = 90
      phi1 = 26.997
      theta2 = 90
      phi2 = 116.997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 175
      chmoth = 'AIRH'
      x = 2.98495
      y = 1.52071
      z = 0.2
      irot = 391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 392
      theta1 = 90
      phi1 = 28.33
      theta2 = 90
      phi2 = 118.33
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 176
      chmoth = 'AIRH'
      x = 2.94877
      y = 1.58974
      z = 0.2
      irot = 392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 393
      theta1 = 90
      phi1 = 29.663
      theta2 = 90
      phi2 = 119.663
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 177
      chmoth = 'AIRH'
      x = 2.91099
      y = 1.65791
      z = 0.2
      irot = 393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 394
      theta1 = 90
      phi1 = 30.996
      theta2 = 90
      phi2 = 120.996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 178
      chmoth = 'AIRH'
      x = 2.87163
      y = 1.72518
      z = 0.2
      irot = 394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 395
      theta1 = 90
      phi1 = 32.329
      theta2 = 90
      phi2 = 122.329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 179
      chmoth = 'AIRH'
      x = 2.83072
      y = 1.79151
      z = 0.2
      irot = 395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 396
      theta1 = 90
      phi1 = 33.662
      theta2 = 90
      phi2 = 123.662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 180
      chmoth = 'AIRH'
      x = 2.78828
      y = 1.85688
      z = 0.2
      irot = 396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 397
      theta1 = 90
      phi1 = 34.995
      theta2 = 90
      phi2 = 124.995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 181
      chmoth = 'AIRH'
      x = 2.74433
      y = 1.92124
      z = 0.2
      irot = 397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 398
      theta1 = 90
      phi1 = 36.328
      theta2 = 90
      phi2 = 126.328
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 182
      chmoth = 'AIRH'
      x = 2.69889
      y = 1.98456
      z = 0.2
      irot = 398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 399
      theta1 = 90
      phi1 = 37.661
      theta2 = 90
      phi2 = 127.661
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 183
      chmoth = 'AIRH'
      x = 2.65199
      y = 2.04681
      z = 0.2
      irot = 399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 400
      theta1 = 90
      phi1 = 38.994
      theta2 = 90
      phi2 = 128.994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 184
      chmoth = 'AIRH'
      x = 2.60366
      y = 2.10795
      z = 0.2
      irot = 400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 401
      theta1 = 90
      phi1 = 40.327
      theta2 = 90
      phi2 = 130.327
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 185
      chmoth = 'AIRH'
      x = 2.55392
      y = 2.16795
      z = 0.2
      irot = 401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 402
      theta1 = 90
      phi1 = 41.66
      theta2 = 90
      phi2 = 131.66
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 186
      chmoth = 'AIRH'
      x = 2.50279
      y = 2.22677
      z = 0.2
      irot = 402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 403
      theta1 = 90
      phi1 = 42.993
      theta2 = 90
      phi2 = 132.993
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 187
      chmoth = 'AIRH'
      x = 2.45031
      y = 2.2844
      z = 0.2
      irot = 403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 404
      theta1 = 90
      phi1 = 44.326
      theta2 = 90
      phi2 = 134.326
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 188
      chmoth = 'AIRH'
      x = 2.39651
      y = 2.34078
      z = 0.2
      irot = 404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 405
      theta1 = 90
      phi1 = 45.659
      theta2 = 90
      phi2 = 135.659
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 189
      chmoth = 'AIRH'
      x = 2.34141
      y = 2.3959
      z = 0.2
      irot = 405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 406
      theta1 = 90
      phi1 = 46.992
      theta2 = 90
      phi2 = 136.992
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 190
      chmoth = 'AIRH'
      x = 2.28504
      y = 2.44972
      z = 0.2
      irot = 406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 407
      theta1 = 90
      phi1 = 48.325
      theta2 = 90
      phi2 = 138.325
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 191
      chmoth = 'AIRH'
      x = 2.22743
      y = 2.50221
      z = 0.2
      irot = 407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 408
      theta1 = 90
      phi1 = 49.658
      theta2 = 90
      phi2 = 139.658
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 192
      chmoth = 'AIRH'
      x = 2.16862
      y = 2.55335
      z = 0.2
      irot = 408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 409
      theta1 = 90
      phi1 = 50.991
      theta2 = 90
      phi2 = 140.991
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 193
      chmoth = 'AIRH'
      x = 2.10863
      y = 2.60311
      z = 0.2
      irot = 409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 410
      theta1 = 90
      phi1 = 52.324
      theta2 = 90
      phi2 = 142.324
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 194
      chmoth = 'AIRH'
      x = 2.04751
      y = 2.65146
      z = 0.2
      irot = 410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 411
      theta1 = 90
      phi1 = 53.657
      theta2 = 90
      phi2 = 143.657
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 195
      chmoth = 'AIRH'
      x = 1.98527
      y = 2.69837
      z = 0.2
      irot = 411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 412
      theta1 = 90
      phi1 = 54.99
      theta2 = 90
      phi2 = 144.99
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 196
      chmoth = 'AIRH'
      x = 1.92196
      y = 2.74382
      z = 0.2
      irot = 412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 413
      theta1 = 90
      phi1 = 56.323
      theta2 = 90
      phi2 = 146.323
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 197
      chmoth = 'AIRH'
      x = 1.85761
      y = 2.78779
      z = 0.2
      irot = 413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 414
      theta1 = 90
      phi1 = 57.656
      theta2 = 90
      phi2 = 147.656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 198
      chmoth = 'AIRH'
      x = 1.79225
      y = 2.83025
      z = 0.2
      irot = 414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 415
      theta1 = 90
      phi1 = 58.989
      theta2 = 90
      phi2 = 148.989
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 199
      chmoth = 'AIRH'
      x = 1.72593
      y = 2.87118
      z = 0.2
      irot = 415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 416
      theta1 = 90
      phi1 = 60.322
      theta2 = 90
      phi2 = 150.322
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 200
      chmoth = 'AIRH'
      x = 1.65867
      y = 2.91055
      z = 0.2
      irot = 416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 417
      theta1 = 90
      phi1 = 61.655
      theta2 = 90
      phi2 = 151.655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 201
      chmoth = 'AIRH'
      x = 1.59051
      y = 2.94835
      z = 0.2
      irot = 417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 418
      theta1 = 90
      phi1 = 62.988
      theta2 = 90
      phi2 = 152.988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 202
      chmoth = 'AIRH'
      x = 1.52149
      y = 2.98455
      z = 0.2
      irot = 418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 419
      theta1 = 90
      phi1 = 64.321
      theta2 = 90
      phi2 = 154.321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 203
      chmoth = 'AIRH'
      x = 1.45165
      y = 3.01914
      z = 0.2
      irot = 419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 420
      theta1 = 90
      phi1 = 65.654
      theta2 = 90
      phi2 = 155.654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 204
      chmoth = 'AIRH'
      x = 1.38102
      y = 3.05209
      z = 0.2
      irot = 420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 421
      theta1 = 90
      phi1 = 66.987
      theta2 = 90
      phi2 = 156.987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 205
      chmoth = 'AIRH'
      x = 1.30965
      y = 3.08339
      z = 0.2
      irot = 421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 422
      theta1 = 90
      phi1 = 68.32
      theta2 = 90
      phi2 = 158.32
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 206
      chmoth = 'AIRH'
      x = 1.23757
      y = 3.11303
      z = 0.2
      irot = 422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 423
      theta1 = 90
      phi1 = 69.653
      theta2 = 90
      phi2 = 159.653
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 207
      chmoth = 'AIRH'
      x = 1.16481
      y = 3.14097
      z = 0.2
      irot = 423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 424
      theta1 = 90
      phi1 = 70.986
      theta2 = 90
      phi2 = 160.986
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 208
      chmoth = 'AIRH'
      x = 1.09143
      y = 3.16722
      z = 0.2
      irot = 424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 425
      theta1 = 90
      phi1 = 72.319
      theta2 = 90
      phi2 = 162.319
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 209
      chmoth = 'AIRH'
      x = 1.01745
      y = 3.19175
      z = 0.2
      irot = 425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 426
      theta1 = 90
      phi1 = 73.652
      theta2 = 90
      phi2 = 163.652
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 210
      chmoth = 'AIRH'
      x = 0.942927
      y = 3.21456
      z = 0.2
      irot = 426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 427
      theta1 = 90
      phi1 = 16.304
      theta2 = 90
      phi2 = 106.304
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 211
      chmoth = 'AIRH'
      x = 3.28727
      y = 0.961513
      z = 0.2
      irot = 427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 428
      theta1 = 90
      phi1 = 17.608
      theta2 = 90
      phi2 = 107.608
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 212
      chmoth = 'AIRH'
      x = 3.26453
      y = 1.03607
      z = 0.2
      irot = 428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 429
      theta1 = 90
      phi1 = 18.912
      theta2 = 90
      phi2 = 108.912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 213
      chmoth = 'AIRH'
      x = 3.24011
      y = 1.1101
      z = 0.2
      irot = 429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 430
      theta1 = 90
      phi1 = 20.216
      theta2 = 90
      phi2 = 110.216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 214
      chmoth = 'AIRH'
      x = 3.21401
      y = 1.18354
      z = 0.2
      irot = 430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 431
      theta1 = 90
      phi1 = 21.52
      theta2 = 90
      phi2 = 111.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 215
      chmoth = 'AIRH'
      x = 3.18624
      y = 1.25638
      z = 0.2
      irot = 431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 432
      theta1 = 90
      phi1 = 22.824
      theta2 = 90
      phi2 = 112.824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 216
      chmoth = 'AIRH'
      x = 3.15683
      y = 1.32856
      z = 0.2
      irot = 432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 433
      theta1 = 90
      phi1 = 24.128
      theta2 = 90
      phi2 = 114.128
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 217
      chmoth = 'AIRH'
      x = 3.12577
      y = 1.40006
      z = 0.2
      irot = 433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 434
      theta1 = 90
      phi1 = 25.432
      theta2 = 90
      phi2 = 115.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 218
      chmoth = 'AIRH'
      x = 3.0931
      y = 1.47083
      z = 0.2
      irot = 434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 435
      theta1 = 90
      phi1 = 26.736
      theta2 = 90
      phi2 = 116.736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 219
      chmoth = 'AIRH'
      x = 3.05883
      y = 1.54084
      z = 0.2
      irot = 435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 436
      theta1 = 90
      phi1 = 28.04
      theta2 = 90
      phi2 = 118.04
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 220
      chmoth = 'AIRH'
      x = 3.02297
      y = 1.61005
      z = 0.2
      irot = 436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 437
      theta1 = 90
      phi1 = 29.344
      theta2 = 90
      phi2 = 119.344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 221
      chmoth = 'AIRH'
      x = 2.98555
      y = 1.67843
      z = 0.2
      irot = 437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 438
      theta1 = 90
      phi1 = 30.648
      theta2 = 90
      phi2 = 120.648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 222
      chmoth = 'AIRH'
      x = 2.94658
      y = 1.74594
      z = 0.2
      irot = 438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 439
      theta1 = 90
      phi1 = 31.952
      theta2 = 90
      phi2 = 121.952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 223
      chmoth = 'AIRH'
      x = 2.90608
      y = 1.81254
      z = 0.2
      irot = 439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 440
      theta1 = 90
      phi1 = 33.256
      theta2 = 90
      phi2 = 123.256
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 224
      chmoth = 'AIRH'
      x = 2.86408
      y = 1.8782
      z = 0.2
      irot = 440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 441
      theta1 = 90
      phi1 = 34.56
      theta2 = 90
      phi2 = 124.56
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 225
      chmoth = 'AIRH'
      x = 2.8206
      y = 1.9429
      z = 0.2
      irot = 441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 442
      theta1 = 90
      phi1 = 35.864
      theta2 = 90
      phi2 = 125.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 226
      chmoth = 'AIRH'
      x = 2.77565
      y = 2.00658
      z = 0.2
      irot = 442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 443
      theta1 = 90
      phi1 = 37.168
      theta2 = 90
      phi2 = 127.168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 227
      chmoth = 'AIRH'
      x = 2.72927
      y = 2.06923
      z = 0.2
      irot = 443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 444
      theta1 = 90
      phi1 = 38.472
      theta2 = 90
      phi2 = 128.472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 228
      chmoth = 'AIRH'
      x = 2.68147
      y = 2.1308
      z = 0.2
      irot = 444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 445
      theta1 = 90
      phi1 = 39.776
      theta2 = 90
      phi2 = 129.776
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 229
      chmoth = 'AIRH'
      x = 2.63229
      y = 2.19127
      z = 0.2
      irot = 445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 446
      theta1 = 90
      phi1 = 41.08
      theta2 = 90
      phi2 = 131.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 230
      chmoth = 'AIRH'
      x = 2.58174
      y = 2.25061
      z = 0.2
      irot = 446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 447
      theta1 = 90
      phi1 = 42.384
      theta2 = 90
      phi2 = 132.384
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 231
      chmoth = 'AIRH'
      x = 2.52985
      y = 2.30878
      z = 0.2
      irot = 447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 448
      theta1 = 90
      phi1 = 43.688
      theta2 = 90
      phi2 = 133.688
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 232
      chmoth = 'AIRH'
      x = 2.47666
      y = 2.36575
      z = 0.2
      irot = 448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 449
      theta1 = 90
      phi1 = 44.992
      theta2 = 90
      phi2 = 134.992
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 233
      chmoth = 'AIRH'
      x = 2.42218
      y = 2.4215
      z = 0.2
      irot = 449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 450
      theta1 = 90
      phi1 = 46.296
      theta2 = 90
      phi2 = 136.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 234
      chmoth = 'AIRH'
      x = 2.36645
      y = 2.476
      z = 0.2
      irot = 450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 451
      theta1 = 90
      phi1 = 47.6
      theta2 = 90
      phi2 = 137.6
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 235
      chmoth = 'AIRH'
      x = 2.30949
      y = 2.52921
      z = 0.2
      irot = 451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 452
      theta1 = 90
      phi1 = 48.904
      theta2 = 90
      phi2 = 138.904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 236
      chmoth = 'AIRH'
      x = 2.25133
      y = 2.58111
      z = 0.2
      irot = 452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 453
      theta1 = 90
      phi1 = 50.208
      theta2 = 90
      phi2 = 140.208
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 237
      chmoth = 'AIRH'
      x = 2.19201
      y = 2.63168
      z = 0.2
      irot = 453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 454
      theta1 = 90
      phi1 = 51.512
      theta2 = 90
      phi2 = 141.512
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 238
      chmoth = 'AIRH'
      x = 2.13155
      y = 2.68088
      z = 0.2
      irot = 454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 455
      theta1 = 90
      phi1 = 52.816
      theta2 = 90
      phi2 = 142.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 239
      chmoth = 'AIRH'
      x = 2.06999
      y = 2.72869
      z = 0.2
      irot = 455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 456
      theta1 = 90
      phi1 = 54.12
      theta2 = 90
      phi2 = 144.12
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 240
      chmoth = 'AIRH'
      x = 2.00736
      y = 2.77509
      z = 0.2
      irot = 456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 457
      theta1 = 90
      phi1 = 55.424
      theta2 = 90
      phi2 = 145.424
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 241
      chmoth = 'AIRH'
      x = 1.94368
      y = 2.82006
      z = 0.2
      irot = 457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 458
      theta1 = 90
      phi1 = 56.728
      theta2 = 90
      phi2 = 146.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 242
      chmoth = 'AIRH'
      x = 1.879
      y = 2.86356
      z = 0.2
      irot = 458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 459
      theta1 = 90
      phi1 = 58.032
      theta2 = 90
      phi2 = 148.032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 243
      chmoth = 'AIRH'
      x = 1.81335
      y = 2.90558
      z = 0.2
      irot = 459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 460
      theta1 = 90
      phi1 = 59.336
      theta2 = 90
      phi2 = 149.336
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 244
      chmoth = 'AIRH'
      x = 1.74676
      y = 2.94609
      z = 0.2
      irot = 460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 461
      theta1 = 90
      phi1 = 60.64
      theta2 = 90
      phi2 = 150.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 245
      chmoth = 'AIRH'
      x = 1.67926
      y = 2.98508
      z = 0.2
      irot = 461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 462
      theta1 = 90
      phi1 = 61.944
      theta2 = 90
      phi2 = 151.944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 246
      chmoth = 'AIRH'
      x = 1.6109
      y = 3.02252
      z = 0.2
      irot = 462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 463
      theta1 = 90
      phi1 = 63.248
      theta2 = 90
      phi2 = 153.248
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 247
      chmoth = 'AIRH'
      x = 1.54169
      y = 3.0584
      z = 0.2
      irot = 463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 464
      theta1 = 90
      phi1 = 64.552
      theta2 = 90
      phi2 = 154.552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 248
      chmoth = 'AIRH'
      x = 1.47169
      y = 3.09269
      z = 0.2
      irot = 464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 465
      theta1 = 90
      phi1 = 65.856
      theta2 = 90
      phi2 = 155.856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 249
      chmoth = 'AIRH'
      x = 1.40093
      y = 3.12538
      z = 0.2
      irot = 465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 466
      theta1 = 90
      phi1 = 67.16
      theta2 = 90
      phi2 = 157.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 250
      chmoth = 'AIRH'
      x = 1.32944
      y = 3.15645
      z = 0.2
      irot = 466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 467
      theta1 = 90
      phi1 = 68.464
      theta2 = 90
      phi2 = 158.464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 251
      chmoth = 'AIRH'
      x = 1.25727
      y = 3.18589
      z = 0.2
      irot = 467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 468
      theta1 = 90
      phi1 = 69.768
      theta2 = 90
      phi2 = 159.768
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 252
      chmoth = 'AIRH'
      x = 1.18444
      y = 3.21368
      z = 0.2
      irot = 468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 469
      theta1 = 90
      phi1 = 71.072
      theta2 = 90
      phi2 = 161.072
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 253
      chmoth = 'AIRH'
      x = 1.111
      y = 3.2398
      z = 0.2
      irot = 469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 470
      theta1 = 90
      phi1 = 72.376
      theta2 = 90
      phi2 = 162.376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 254
      chmoth = 'AIRH'
      x = 1.03698
      y = 3.26424
      z = 0.2
      irot = 470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 471
      theta1 = 90
      phi1 = 73.68
      theta2 = 90
      phi2 = 163.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 255
      chmoth = 'AIRH'
      x = 0.962431
      y = 3.287
      z = 0.2
      irot = 471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 472
      theta1 = 90
      phi1 = 16.277
      theta2 = 90
      phi2 = 106.277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 256
      chmoth = 'AIRH'
      x = 3.35971
      y = 0.980985
      z = 0.2
      irot = 472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 473
      theta1 = 90
      phi1 = 17.554
      theta2 = 90
      phi2 = 107.554
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 257
      chmoth = 'AIRH'
      x = 3.33702
      y = 1.05562
      z = 0.2
      irot = 473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 474
      theta1 = 90
      phi1 = 18.831
      theta2 = 90
      phi2 = 108.831
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 258
      chmoth = 'AIRH'
      x = 3.31266
      y = 1.12972
      z = 0.2
      irot = 474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 475
      theta1 = 90
      phi1 = 20.108
      theta2 = 90
      phi2 = 110.108
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 259
      chmoth = 'AIRH'
      x = 3.28666
      y = 1.20327
      z = 0.2
      irot = 475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 476
      theta1 = 90
      phi1 = 21.385
      theta2 = 90
      phi2 = 111.385
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 260
      chmoth = 'AIRH'
      x = 3.25903
      y = 1.27622
      z = 0.2
      irot = 476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 477
      theta1 = 90
      phi1 = 22.662
      theta2 = 90
      phi2 = 112.662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 261
      chmoth = 'AIRH'
      x = 3.22978
      y = 1.34853
      z = 0.2
      irot = 477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 478
      theta1 = 90
      phi1 = 23.939
      theta2 = 90
      phi2 = 113.939
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 262
      chmoth = 'AIRH'
      x = 3.19892
      y = 1.42017
      z = 0.2
      irot = 478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 479
      theta1 = 90
      phi1 = 25.216
      theta2 = 90
      phi2 = 115.216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 263
      chmoth = 'AIRH'
      x = 3.16648
      y = 1.49111
      z = 0.2
      irot = 479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 480
      theta1 = 90
      phi1 = 26.493
      theta2 = 90
      phi2 = 116.493
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 264
      chmoth = 'AIRH'
      x = 3.13246
      y = 1.56131
      z = 0.2
      irot = 480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 481
      theta1 = 90
      phi1 = 27.77
      theta2 = 90
      phi2 = 117.77
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 265
      chmoth = 'AIRH'
      x = 3.09689
      y = 1.63073
      z = 0.2
      irot = 481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 482
      theta1 = 90
      phi1 = 29.047
      theta2 = 90
      phi2 = 119.047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 266
      chmoth = 'AIRH'
      x = 3.05978
      y = 1.69934
      z = 0.2
      irot = 482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 483
      theta1 = 90
      phi1 = 30.324
      theta2 = 90
      phi2 = 120.324
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 267
      chmoth = 'AIRH'
      x = 3.02114
      y = 1.76711
      z = 0.2
      irot = 483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 484
      theta1 = 90
      phi1 = 31.601
      theta2 = 90
      phi2 = 121.601
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 268
      chmoth = 'AIRH'
      x = 2.98101
      y = 1.834
      z = 0.2
      irot = 484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 485
      theta1 = 90
      phi1 = 32.878
      theta2 = 90
      phi2 = 122.878
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 269
      chmoth = 'AIRH'
      x = 2.9394
      y = 1.89998
      z = 0.2
      irot = 485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 486
      theta1 = 90
      phi1 = 34.155
      theta2 = 90
      phi2 = 124.155
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 270
      chmoth = 'AIRH'
      x = 2.89633
      y = 1.96502
      z = 0.2
      irot = 486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 487
      theta1 = 90
      phi1 = 35.432
      theta2 = 90
      phi2 = 125.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 271
      chmoth = 'AIRH'
      x = 2.85181
      y = 2.02908
      z = 0.2
      irot = 487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 488
      theta1 = 90
      phi1 = 36.709
      theta2 = 90
      phi2 = 126.709
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 272
      chmoth = 'AIRH'
      x = 2.80589
      y = 2.09213
      z = 0.2
      irot = 488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 489
      theta1 = 90
      phi1 = 37.986
      theta2 = 90
      phi2 = 127.986
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 273
      chmoth = 'AIRH'
      x = 2.75856
      y = 2.15414
      z = 0.2
      irot = 489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 490
      theta1 = 90
      phi1 = 39.263
      theta2 = 90
      phi2 = 129.263
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 274
      chmoth = 'AIRH'
      x = 2.70987
      y = 2.21508
      z = 0.2
      irot = 490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 491
      theta1 = 90
      phi1 = 40.54
      theta2 = 90
      phi2 = 130.54
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 275
      chmoth = 'AIRH'
      x = 2.65983
      y = 2.27493
      z = 0.2
      irot = 491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 492
      theta1 = 90
      phi1 = 41.817
      theta2 = 90
      phi2 = 131.817
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 276
      chmoth = 'AIRH'
      x = 2.60847
      y = 2.33364
      z = 0.2
      irot = 492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 493
      theta1 = 90
      phi1 = 43.094
      theta2 = 90
      phi2 = 133.094
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 277
      chmoth = 'AIRH'
      x = 2.55582
      y = 2.39119
      z = 0.2
      irot = 493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 494
      theta1 = 90
      phi1 = 44.371
      theta2 = 90
      phi2 = 134.371
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 278
      chmoth = 'AIRH'
      x = 2.50189
      y = 2.44756
      z = 0.2
      irot = 494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 495
      theta1 = 90
      phi1 = 45.648
      theta2 = 90
      phi2 = 135.648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 279
      chmoth = 'AIRH'
      x = 2.44673
      y = 2.50271
      z = 0.2
      irot = 495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 496
      theta1 = 90
      phi1 = 46.925
      theta2 = 90
      phi2 = 136.925
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 280
      chmoth = 'AIRH'
      x = 2.39034
      y = 2.55661
      z = 0.2
      irot = 496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 497
      theta1 = 90
      phi1 = 48.202
      theta2 = 90
      phi2 = 138.202
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 281
      chmoth = 'AIRH'
      x = 2.33277
      y = 2.60925
      z = 0.2
      irot = 497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 498
      theta1 = 90
      phi1 = 49.479
      theta2 = 90
      phi2 = 139.479
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 282
      chmoth = 'AIRH'
      x = 2.27404
      y = 2.66059
      z = 0.2
      irot = 498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 499
      theta1 = 90
      phi1 = 50.756
      theta2 = 90
      phi2 = 140.756
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 283
      chmoth = 'AIRH'
      x = 2.21418
      y = 2.71061
      z = 0.2
      irot = 499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 500
      theta1 = 90
      phi1 = 52.033
      theta2 = 90
      phi2 = 142.033
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 284
      chmoth = 'AIRH'
      x = 2.15323
      y = 2.75928
      z = 0.2
      irot = 500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 501
      theta1 = 90
      phi1 = 53.31
      theta2 = 90
      phi2 = 143.31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 285
      chmoth = 'AIRH'
      x = 2.0912
      y = 2.80658
      z = 0.2
      irot = 501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 502
      theta1 = 90
      phi1 = 54.587
      theta2 = 90
      phi2 = 144.587
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 286
      chmoth = 'AIRH'
      x = 2.02813
      y = 2.85249
      z = 0.2
      irot = 502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 503
      theta1 = 90
      phi1 = 55.864
      theta2 = 90
      phi2 = 145.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 287
      chmoth = 'AIRH'
      x = 1.96406
      y = 2.89698
      z = 0.2
      irot = 503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 504
      theta1 = 90
      phi1 = 57.141
      theta2 = 90
      phi2 = 147.141
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 288
      chmoth = 'AIRH'
      x = 1.89901
      y = 2.94003
      z = 0.2
      irot = 504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 505
      theta1 = 90
      phi1 = 58.418
      theta2 = 90
      phi2 = 148.418
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 289
      chmoth = 'AIRH'
      x = 1.83301
      y = 2.98162
      z = 0.2
      irot = 505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 506
      theta1 = 90
      phi1 = 59.695
      theta2 = 90
      phi2 = 149.695
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 290
      chmoth = 'AIRH'
      x = 1.76611
      y = 3.02173
      z = 0.2
      irot = 506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 507
      theta1 = 90
      phi1 = 60.972
      theta2 = 90
      phi2 = 150.972
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 291
      chmoth = 'AIRH'
      x = 1.69833
      y = 3.06034
      z = 0.2
      irot = 507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 508
      theta1 = 90
      phi1 = 62.249
      theta2 = 90
      phi2 = 152.249
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 292
      chmoth = 'AIRH'
      x = 1.6297
      y = 3.09743
      z = 0.2
      irot = 508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 509
      theta1 = 90
      phi1 = 63.526
      theta2 = 90
      phi2 = 153.526
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 293
      chmoth = 'AIRH'
      x = 1.56027
      y = 3.13298
      z = 0.2
      irot = 509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 510
      theta1 = 90
      phi1 = 64.803
      theta2 = 90
      phi2 = 154.803
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 294
      chmoth = 'AIRH'
      x = 1.49006
      y = 3.16697
      z = 0.2
      irot = 510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 511
      theta1 = 90
      phi1 = 66.08
      theta2 = 90
      phi2 = 156.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 295
      chmoth = 'AIRH'
      x = 1.41911
      y = 3.19939
      z = 0.2
      irot = 511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 512
      theta1 = 90
      phi1 = 67.357
      theta2 = 90
      phi2 = 157.357
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 296
      chmoth = 'AIRH'
      x = 1.34746
      y = 3.23023
      z = 0.2
      irot = 512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 513
      theta1 = 90
      phi1 = 68.634
      theta2 = 90
      phi2 = 158.634
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 297
      chmoth = 'AIRH'
      x = 1.27513
      y = 3.25945
      z = 0.2
      irot = 513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 514
      theta1 = 90
      phi1 = 69.911
      theta2 = 90
      phi2 = 159.911
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 298
      chmoth = 'AIRH'
      x = 1.20218
      y = 3.28706
      z = 0.2
      irot = 514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 515
      theta1 = 90
      phi1 = 71.188
      theta2 = 90
      phi2 = 161.188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 299
      chmoth = 'AIRH'
      x = 1.12862
      y = 3.31304
      z = 0.2
      irot = 515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 516
      theta1 = 90
      phi1 = 72.465
      theta2 = 90
      phi2 = 162.465
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 300
      chmoth = 'AIRH'
      x = 1.05451
      y = 3.33737
      z = 0.2
      irot = 516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 517
      theta1 = 90
      phi1 = 73.742
      theta2 = 90
      phi2 = 163.742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 301
      chmoth = 'AIRH'
      x = 0.979871
      y = 3.36004
      z = 0.2
      irot = 517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 518
      theta1 = 90
      phi1 = 16.25
      theta2 = 90
      phi2 = 106.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 302
      chmoth = 'AIRH'
      x = 3.43218
      y = 1.00039
      z = 0.2
      irot = 518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 519
      theta1 = 90
      phi1 = 17.5
      theta2 = 90
      phi2 = 107.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 303
      chmoth = 'AIRH'
      x = 3.40954
      y = 1.07502
      z = 0.2
      irot = 519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 520
      theta1 = 90
      phi1 = 18.75
      theta2 = 90
      phi2 = 108.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 304
      chmoth = 'AIRH'
      x = 3.38528
      y = 1.14915
      z = 0.2
      irot = 520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 521
      theta1 = 90
      phi1 = 20
      theta2 = 90
      phi2 = 110
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 305
      chmoth = 'AIRH'
      x = 3.3594
      y = 1.22272
      z = 0.2
      irot = 521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 522
      theta1 = 90
      phi1 = 21.25
      theta2 = 90
      phi2 = 111.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 306
      chmoth = 'AIRH'
      x = 3.33193
      y = 1.29572
      z = 0.2
      irot = 522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 307
      chmoth = 'AIRH'
      x = 3.30287
      y = 1.36809
      z = 0.2
      irot = 523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 524
      theta1 = 90
      phi1 = 23.75
      theta2 = 90
      phi2 = 113.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 308
      chmoth = 'AIRH'
      x = 3.27224
      y = 1.43982
      z = 0.2
      irot = 524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 309
      chmoth = 'AIRH'
      x = 3.24005
      y = 1.51086
      z = 0.2
      irot = 525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 526
      theta1 = 90
      phi1 = 26.25
      theta2 = 90
      phi2 = 116.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 310
      chmoth = 'AIRH'
      x = 3.20632
      y = 1.58118
      z = 0.2
      irot = 526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 527
      theta1 = 90
      phi1 = 27.5
      theta2 = 90
      phi2 = 117.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 311
      chmoth = 'AIRH'
      x = 3.17106
      y = 1.65075
      z = 0.2
      irot = 527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 528
      theta1 = 90
      phi1 = 28.75
      theta2 = 90
      phi2 = 118.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 312
      chmoth = 'AIRH'
      x = 3.1343
      y = 1.71953
      z = 0.2
      irot = 528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 313
      chmoth = 'AIRH'
      x = 3.09604
      y = 1.7875
      z = 0.2
      irot = 529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 530
      theta1 = 90
      phi1 = 31.25
      theta2 = 90
      phi2 = 121.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 314
      chmoth = 'AIRH'
      x = 3.05631
      y = 1.85461
      z = 0.2
      irot = 530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 531
      theta1 = 90
      phi1 = 32.5
      theta2 = 90
      phi2 = 122.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 315
      chmoth = 'AIRH'
      x = 3.01512
      y = 1.92085
      z = 0.2
      irot = 531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 532
      theta1 = 90
      phi1 = 33.75
      theta2 = 90
      phi2 = 123.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 316
      chmoth = 'AIRH'
      x = 2.9725
      y = 1.98616
      z = 0.2
      irot = 532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 533
      theta1 = 90
      phi1 = 35
      theta2 = 90
      phi2 = 125
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 317
      chmoth = 'AIRH'
      x = 2.92847
      y = 2.05054
      z = 0.2
      irot = 533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 534
      theta1 = 90
      phi1 = 36.25
      theta2 = 90
      phi2 = 126.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 318
      chmoth = 'AIRH'
      x = 2.88304
      y = 2.11393
      z = 0.2
      irot = 534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 319
      chmoth = 'AIRH'
      x = 2.83624
      y = 2.17632
      z = 0.2
      irot = 535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 536
      theta1 = 90
      phi1 = 38.75
      theta2 = 90
      phi2 = 128.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 320
      chmoth = 'AIRH'
      x = 2.78809
      y = 2.23768
      z = 0.2
      irot = 536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 537
      theta1 = 90
      phi1 = 40
      theta2 = 90
      phi2 = 130
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 321
      chmoth = 'AIRH'
      x = 2.73861
      y = 2.29797
      z = 0.2
      irot = 537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 538
      theta1 = 90
      phi1 = 41.25
      theta2 = 90
      phi2 = 131.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 322
      chmoth = 'AIRH'
      x = 2.68783
      y = 2.35716
      z = 0.2
      irot = 538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 539
      theta1 = 90
      phi1 = 42.5
      theta2 = 90
      phi2 = 132.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 323
      chmoth = 'AIRH'
      x = 2.63577
      y = 2.41523
      z = 0.2
      irot = 539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 540
      theta1 = 90
      phi1 = 43.75
      theta2 = 90
      phi2 = 133.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 324
      chmoth = 'AIRH'
      x = 2.58245
      y = 2.47216
      z = 0.2
      irot = 540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 325
      chmoth = 'AIRH'
      x = 2.52791
      y = 2.52791
      z = 0.2
      irot = 541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 542
      theta1 = 90
      phi1 = 46.25
      theta2 = 90
      phi2 = 136.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 326
      chmoth = 'AIRH'
      x = 2.47216
      y = 2.58245
      z = 0.2
      irot = 542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 543
      theta1 = 90
      phi1 = 47.5
      theta2 = 90
      phi2 = 137.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 327
      chmoth = 'AIRH'
      x = 2.41523
      y = 2.63577
      z = 0.2
      irot = 543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 544
      theta1 = 90
      phi1 = 48.75
      theta2 = 90
      phi2 = 138.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 328
      chmoth = 'AIRH'
      x = 2.35716
      y = 2.68783
      z = 0.2
      irot = 544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 329
      chmoth = 'AIRH'
      x = 2.29797
      y = 2.73861
      z = 0.2
      irot = 545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 546
      theta1 = 90
      phi1 = 51.25
      theta2 = 90
      phi2 = 141.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 330
      chmoth = 'AIRH'
      x = 2.23768
      y = 2.78809
      z = 0.2
      irot = 546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 331
      chmoth = 'AIRH'
      x = 2.17632
      y = 2.83624
      z = 0.2
      irot = 547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 548
      theta1 = 90
      phi1 = 53.75
      theta2 = 90
      phi2 = 143.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 332
      chmoth = 'AIRH'
      x = 2.11393
      y = 2.88304
      z = 0.2
      irot = 548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 333
      chmoth = 'AIRH'
      x = 2.05054
      y = 2.92847
      z = 0.2
      irot = 549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 550
      theta1 = 90
      phi1 = 56.25
      theta2 = 90
      phi2 = 146.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 334
      chmoth = 'AIRH'
      x = 1.98616
      y = 2.9725
      z = 0.2
      irot = 550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 551
      theta1 = 90
      phi1 = 57.5
      theta2 = 90
      phi2 = 147.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 335
      chmoth = 'AIRH'
      x = 1.92085
      y = 3.01512
      z = 0.2
      irot = 551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 552
      theta1 = 90
      phi1 = 58.75
      theta2 = 90
      phi2 = 148.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 336
      chmoth = 'AIRH'
      x = 1.85461
      y = 3.05631
      z = 0.2
      irot = 552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 337
      chmoth = 'AIRH'
      x = 1.7875
      y = 3.09604
      z = 0.2
      irot = 553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 554
      theta1 = 90
      phi1 = 61.25
      theta2 = 90
      phi2 = 151.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 338
      chmoth = 'AIRH'
      x = 1.71953
      y = 3.1343
      z = 0.2
      irot = 554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 555
      theta1 = 90
      phi1 = 62.5
      theta2 = 90
      phi2 = 152.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 339
      chmoth = 'AIRH'
      x = 1.65075
      y = 3.17106
      z = 0.2
      irot = 555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 556
      theta1 = 90
      phi1 = 63.75
      theta2 = 90
      phi2 = 153.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 340
      chmoth = 'AIRH'
      x = 1.58118
      y = 3.20632
      z = 0.2
      irot = 556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 557
      theta1 = 90
      phi1 = 65
      theta2 = 90
      phi2 = 155
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 341
      chmoth = 'AIRH'
      x = 1.51086
      y = 3.24005
      z = 0.2
      irot = 557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 558
      theta1 = 90
      phi1 = 66.25
      theta2 = 90
      phi2 = 156.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 342
      chmoth = 'AIRH'
      x = 1.43982
      y = 3.27224
      z = 0.2
      irot = 558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN5'
      nr = 343
      chmoth = 'AIRH'
      x = 1.36809
      y = 3.30287
      z = 0.2
      irot = 559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 560
      theta1 = 90
      phi1 = 68.75
      theta2 = 90
      phi2 = 158.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 344
      chmoth = 'AIRH'
      x = 1.29572
      y = 3.33193
      z = 0.2
      irot = 560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 561
      theta1 = 90
      phi1 = 70
      theta2 = 90
      phi2 = 160
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 345
      chmoth = 'AIRH'
      x = 1.22272
      y = 3.3594
      z = 0.2
      irot = 561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 562
      theta1 = 90
      phi1 = 71.25
      theta2 = 90
      phi2 = 161.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 346
      chmoth = 'AIRH'
      x = 1.14915
      y = 3.38528
      z = 0.2
      irot = 562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 563
      theta1 = 90
      phi1 = 72.5
      theta2 = 90
      phi2 = 162.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 347
      chmoth = 'AIRH'
      x = 1.07502
      y = 3.40954
      z = 0.2
      irot = 563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 564
      theta1 = 90
      phi1 = 73.75
      theta2 = 90
      phi2 = 163.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 348
      chmoth = 'AIRH'
      x = 1.00039
      y = 3.43218
      z = 0.2
      irot = 564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 565
      theta1 = 90
      phi1 = 16.224
      theta2 = 90
      phi2 = 106.224
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 349
      chmoth = 'AIRH'
      x = 3.50465
      y = 1.01979
      z = 0.2
      irot = 565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 566
      theta1 = 90
      phi1 = 17.448
      theta2 = 90
      phi2 = 107.448
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 350
      chmoth = 'AIRH'
      x = 3.48206
      y = 1.09442
      z = 0.2
      irot = 566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 567
      theta1 = 90
      phi1 = 18.672
      theta2 = 90
      phi2 = 108.672
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 351
      chmoth = 'AIRH'
      x = 3.45789
      y = 1.16855
      z = 0.2
      irot = 567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 568
      theta1 = 90
      phi1 = 19.896
      theta2 = 90
      phi2 = 109.896
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 352
      chmoth = 'AIRH'
      x = 3.43214
      y = 1.24215
      z = 0.2
      irot = 568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 569
      theta1 = 90
      phi1 = 21.12
      theta2 = 90
      phi2 = 111.12
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 353
      chmoth = 'AIRH'
      x = 3.40482
      y = 1.31518
      z = 0.2
      irot = 569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 570
      theta1 = 90
      phi1 = 22.344
      theta2 = 90
      phi2 = 112.344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 354
      chmoth = 'AIRH'
      x = 3.37595
      y = 1.38761
      z = 0.2
      irot = 570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 571
      theta1 = 90
      phi1 = 23.568
      theta2 = 90
      phi2 = 113.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 355
      chmoth = 'AIRH'
      x = 3.34554
      y = 1.45941
      z = 0.2
      irot = 571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 572
      theta1 = 90
      phi1 = 24.792
      theta2 = 90
      phi2 = 114.792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 356
      chmoth = 'AIRH'
      x = 3.3136
      y = 1.53054
      z = 0.2
      irot = 572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 573
      theta1 = 90
      phi1 = 26.016
      theta2 = 90
      phi2 = 116.016
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 357
      chmoth = 'AIRH'
      x = 3.28015
      y = 1.60097
      z = 0.2
      irot = 573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 574
      theta1 = 90
      phi1 = 27.24
      theta2 = 90
      phi2 = 117.24
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 358
      chmoth = 'AIRH'
      x = 3.2452
      y = 1.67067
      z = 0.2
      irot = 574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 575
      theta1 = 90
      phi1 = 28.464
      theta2 = 90
      phi2 = 118.464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 359
      chmoth = 'AIRH'
      x = 3.20878
      y = 1.73961
      z = 0.2
      irot = 575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 576
      theta1 = 90
      phi1 = 29.688
      theta2 = 90
      phi2 = 119.688
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 360
      chmoth = 'AIRH'
      x = 3.17088
      y = 1.80776
      z = 0.2
      irot = 576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 577
      theta1 = 90
      phi1 = 30.912
      theta2 = 90
      phi2 = 120.912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 361
      chmoth = 'AIRH'
      x = 3.13154
      y = 1.87508
      z = 0.2
      irot = 577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 578
      theta1 = 90
      phi1 = 32.136
      theta2 = 90
      phi2 = 122.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 362
      chmoth = 'AIRH'
      x = 3.09078
      y = 1.94155
      z = 0.2
      irot = 578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 579
      theta1 = 90
      phi1 = 33.36
      theta2 = 90
      phi2 = 123.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 363
      chmoth = 'AIRH'
      x = 3.0486
      y = 2.00713
      z = 0.2
      irot = 579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 580
      theta1 = 90
      phi1 = 34.584
      theta2 = 90
      phi2 = 124.584
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 364
      chmoth = 'AIRH'
      x = 3.00503
      y = 2.07179
      z = 0.2
      irot = 580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 581
      theta1 = 90
      phi1 = 35.808
      theta2 = 90
      phi2 = 125.808
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 365
      chmoth = 'AIRH'
      x = 2.96008
      y = 2.13551
      z = 0.2
      irot = 581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 582
      theta1 = 90
      phi1 = 37.032
      theta2 = 90
      phi2 = 127.032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 366
      chmoth = 'AIRH'
      x = 2.91379
      y = 2.19825
      z = 0.2
      irot = 582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 583
      theta1 = 90
      phi1 = 38.256
      theta2 = 90
      phi2 = 128.256
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 367
      chmoth = 'AIRH'
      x = 2.86617
      y = 2.25999
      z = 0.2
      irot = 583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 584
      theta1 = 90
      phi1 = 39.48
      theta2 = 90
      phi2 = 129.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 368
      chmoth = 'AIRH'
      x = 2.81724
      y = 2.3207
      z = 0.2
      irot = 584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 585
      theta1 = 90
      phi1 = 40.704
      theta2 = 90
      phi2 = 130.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 369
      chmoth = 'AIRH'
      x = 2.76702
      y = 2.38035
      z = 0.2
      irot = 585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 586
      theta1 = 90
      phi1 = 41.928
      theta2 = 90
      phi2 = 131.928
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 370
      chmoth = 'AIRH'
      x = 2.71555
      y = 2.43892
      z = 0.2
      irot = 586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 587
      theta1 = 90
      phi1 = 43.152
      theta2 = 90
      phi2 = 133.152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 371
      chmoth = 'AIRH'
      x = 2.66283
      y = 2.49637
      z = 0.2
      irot = 587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 588
      theta1 = 90
      phi1 = 44.376
      theta2 = 90
      phi2 = 134.376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 372
      chmoth = 'AIRH'
      x = 2.60889
      y = 2.55268
      z = 0.2
      irot = 588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 589
      theta1 = 90
      phi1 = 45.6
      theta2 = 90
      phi2 = 135.6
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 373
      chmoth = 'AIRH'
      x = 2.55377
      y = 2.60783
      z = 0.2
      irot = 589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 590
      theta1 = 90
      phi1 = 46.824
      theta2 = 90
      phi2 = 136.824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 374
      chmoth = 'AIRH'
      x = 2.49748
      y = 2.66178
      z = 0.2
      irot = 590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 591
      theta1 = 90
      phi1 = 48.048
      theta2 = 90
      phi2 = 138.048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 375
      chmoth = 'AIRH'
      x = 2.44005
      y = 2.71452
      z = 0.2
      irot = 591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 592
      theta1 = 90
      phi1 = 49.272
      theta2 = 90
      phi2 = 139.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 376
      chmoth = 'AIRH'
      x = 2.38151
      y = 2.76603
      z = 0.2
      irot = 592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 593
      theta1 = 90
      phi1 = 50.496
      theta2 = 90
      phi2 = 140.496
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 377
      chmoth = 'AIRH'
      x = 2.32188
      y = 2.81627
      z = 0.2
      irot = 593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 594
      theta1 = 90
      phi1 = 51.72
      theta2 = 90
      phi2 = 141.72
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 378
      chmoth = 'AIRH'
      x = 2.26119
      y = 2.86522
      z = 0.2
      irot = 594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 595
      theta1 = 90
      phi1 = 52.944
      theta2 = 90
      phi2 = 142.944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 379
      chmoth = 'AIRH'
      x = 2.19947
      y = 2.91287
      z = 0.2
      irot = 595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 596
      theta1 = 90
      phi1 = 54.168
      theta2 = 90
      phi2 = 144.168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 380
      chmoth = 'AIRH'
      x = 2.13675
      y = 2.95919
      z = 0.2
      irot = 596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 597
      theta1 = 90
      phi1 = 55.392
      theta2 = 90
      phi2 = 145.392
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 381
      chmoth = 'AIRH'
      x = 2.07305
      y = 3.00416
      z = 0.2
      irot = 597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 598
      theta1 = 90
      phi1 = 56.616
      theta2 = 90
      phi2 = 146.616
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 382
      chmoth = 'AIRH'
      x = 2.0084
      y = 3.04776
      z = 0.2
      irot = 598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 599
      theta1 = 90
      phi1 = 57.84
      theta2 = 90
      phi2 = 147.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 383
      chmoth = 'AIRH'
      x = 1.94284
      y = 3.08996
      z = 0.2
      irot = 599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 600
      theta1 = 90
      phi1 = 59.064
      theta2 = 90
      phi2 = 149.064
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 384
      chmoth = 'AIRH'
      x = 1.87639
      y = 3.13076
      z = 0.2
      irot = 600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 601
      theta1 = 90
      phi1 = 60.288
      theta2 = 90
      phi2 = 150.288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 385
      chmoth = 'AIRH'
      x = 1.80909
      y = 3.17013
      z = 0.2
      irot = 601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 602
      theta1 = 90
      phi1 = 61.512
      theta2 = 90
      phi2 = 151.512
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 386
      chmoth = 'AIRH'
      x = 1.74096
      y = 3.20805
      z = 0.2
      irot = 602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 603
      theta1 = 90
      phi1 = 62.736
      theta2 = 90
      phi2 = 152.736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 387
      chmoth = 'AIRH'
      x = 1.67203
      y = 3.2445
      z = 0.2
      irot = 603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 604
      theta1 = 90
      phi1 = 63.96
      theta2 = 90
      phi2 = 153.96
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 388
      chmoth = 'AIRH'
      x = 1.60234
      y = 3.27948
      z = 0.2
      irot = 604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 605
      theta1 = 90
      phi1 = 65.184
      theta2 = 90
      phi2 = 155.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 389
      chmoth = 'AIRH'
      x = 1.53193
      y = 3.31296
      z = 0.2
      irot = 605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 606
      theta1 = 90
      phi1 = 66.408
      theta2 = 90
      phi2 = 156.408
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 390
      chmoth = 'AIRH'
      x = 1.46081
      y = 3.34493
      z = 0.2
      irot = 606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 607
      theta1 = 90
      phi1 = 67.632
      theta2 = 90
      phi2 = 157.632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 391
      chmoth = 'AIRH'
      x = 1.38902
      y = 3.37537
      z = 0.2
      irot = 607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 608
      theta1 = 90
      phi1 = 68.856
      theta2 = 90
      phi2 = 158.856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 392
      chmoth = 'AIRH'
      x = 1.3166
      y = 3.40427
      z = 0.2
      irot = 608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 609
      theta1 = 90
      phi1 = 70.08
      theta2 = 90
      phi2 = 160.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 393
      chmoth = 'AIRH'
      x = 1.24358
      y = 3.43162
      z = 0.2
      irot = 609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 610
      theta1 = 90
      phi1 = 71.304
      theta2 = 90
      phi2 = 161.304
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 394
      chmoth = 'AIRH'
      x = 1.17
      y = 3.4574
      z = 0.2
      irot = 610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 611
      theta1 = 90
      phi1 = 72.528
      theta2 = 90
      phi2 = 162.528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 395
      chmoth = 'AIRH'
      x = 1.09587
      y = 3.4816
      z = 0.2
      irot = 611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 612
      theta1 = 90
      phi1 = 73.752
      theta2 = 90
      phi2 = 163.752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN5'
      nr = 396
      chmoth = 'AIRH'
      x = 1.02125
      y = 3.50422
      z = 0.2
      irot = 612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BA22'
      chshap = 'TUBS'
      nmed = 21
      npar = 5
      par(1) = 3
      par(2) = 6
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.21) stop 'consistency check #1 failed'

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

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

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

      chname = 'PIN6'
      chshap = 'TUBE'
      nmed = 22
      npar = 3
      par(1) = 0
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.22) stop 'consistency check #1 failed'

      irot = 614
      theta1 = 90
      phi1 = 106.463
      theta2 = 90
      phi2 = -163.537
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 1
      chmoth = 'AIRH'
      x = -0.864358
      y = 2.92496
      z = 0.2
      irot = 614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 615
      theta1 = 90
      phi1 = 107.926
      theta2 = 90
      phi2 = -162.074
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 2
      chmoth = 'AIRH'
      x = -0.938755
      y = 2.90194
      z = 0.2
      irot = 615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 616
      theta1 = 90
      phi1 = 109.389
      theta2 = 90
      phi2 = -160.611
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 3
      chmoth = 'AIRH'
      x = -1.01254
      y = 2.87702
      z = 0.2
      irot = 616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 617
      theta1 = 90
      phi1 = 110.852
      theta2 = 90
      phi2 = -159.148
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 4
      chmoth = 'AIRH'
      x = -1.08566
      y = 2.85023
      z = 0.2
      irot = 617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 618
      theta1 = 90
      phi1 = 112.315
      theta2 = 90
      phi2 = -157.685
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 5
      chmoth = 'AIRH'
      x = -1.15808
      y = 2.82159
      z = 0.2
      irot = 618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 619
      theta1 = 90
      phi1 = 113.778
      theta2 = 90
      phi2 = -156.222
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 6
      chmoth = 'AIRH'
      x = -1.22974
      y = 2.7911
      z = 0.2
      irot = 619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 620
      theta1 = 90
      phi1 = 115.241
      theta2 = 90
      phi2 = -154.759
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 7
      chmoth = 'AIRH'
      x = -1.3006
      y = 2.75879
      z = 0.2
      irot = 620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 621
      theta1 = 90
      phi1 = 116.704
      theta2 = 90
      phi2 = -153.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 8
      chmoth = 'AIRH'
      x = -1.37061
      y = 2.72469
      z = 0.2
      irot = 621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 622
      theta1 = 90
      phi1 = 118.167
      theta2 = 90
      phi2 = -151.833
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 9
      chmoth = 'AIRH'
      x = -1.43973
      y = 2.68881
      z = 0.2
      irot = 622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 623
      theta1 = 90
      phi1 = 119.63
      theta2 = 90
      phi2 = -150.37
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 10
      chmoth = 'AIRH'
      x = -1.50791
      y = 2.65117
      z = 0.2
      irot = 623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 624
      theta1 = 90
      phi1 = 121.093
      theta2 = 90
      phi2 = -148.907
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 11
      chmoth = 'AIRH'
      x = -1.57511
      y = 2.61181
      z = 0.2
      irot = 624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 625
      theta1 = 90
      phi1 = 122.556
      theta2 = 90
      phi2 = -147.444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 12
      chmoth = 'AIRH'
      x = -1.64128
      y = 2.57074
      z = 0.2
      irot = 625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 626
      theta1 = 90
      phi1 = 124.019
      theta2 = 90
      phi2 = -145.981
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 13
      chmoth = 'AIRH'
      x = -1.70638
      y = 2.528
      z = 0.2
      irot = 626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 627
      theta1 = 90
      phi1 = 125.482
      theta2 = 90
      phi2 = -144.518
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 14
      chmoth = 'AIRH'
      x = -1.77036
      y = 2.48361
      z = 0.2
      irot = 627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 628
      theta1 = 90
      phi1 = 126.945
      theta2 = 90
      phi2 = -143.055
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 15
      chmoth = 'AIRH'
      x = -1.8332
      y = 2.4376
      z = 0.2
      irot = 628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 629
      theta1 = 90
      phi1 = 128.408
      theta2 = 90
      phi2 = -141.592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 16
      chmoth = 'AIRH'
      x = -1.89483
      y = 2.39
      z = 0.2
      irot = 629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 630
      theta1 = 90
      phi1 = 129.871
      theta2 = 90
      phi2 = -140.129
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 17
      chmoth = 'AIRH'
      x = -1.95524
      y = 2.34084
      z = 0.2
      irot = 630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 631
      theta1 = 90
      phi1 = 131.334
      theta2 = 90
      phi2 = -138.666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 18
      chmoth = 'AIRH'
      x = -2.01436
      y = 2.29016
      z = 0.2
      irot = 631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 632
      theta1 = 90
      phi1 = 132.797
      theta2 = 90
      phi2 = -137.203
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 19
      chmoth = 'AIRH'
      x = -2.07218
      y = 2.23798
      z = 0.2
      irot = 632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 633
      theta1 = 90
      phi1 = 134.26
      theta2 = 90
      phi2 = -135.74
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 20
      chmoth = 'AIRH'
      x = -2.12864
      y = 2.18435
      z = 0.2
      irot = 633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 634
      theta1 = 90
      phi1 = 135.723
      theta2 = 90
      phi2 = -134.277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 21
      chmoth = 'AIRH'
      x = -2.18372
      y = 2.12929
      z = 0.2
      irot = 634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 635
      theta1 = 90
      phi1 = 137.186
      theta2 = 90
      phi2 = -132.814
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 22
      chmoth = 'AIRH'
      x = -2.23737
      y = 2.07284
      z = 0.2
      irot = 635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 636
      theta1 = 90
      phi1 = 138.649
      theta2 = 90
      phi2 = -131.351
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 23
      chmoth = 'AIRH'
      x = -2.28956
      y = 2.01504
      z = 0.2
      irot = 636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 637
      theta1 = 90
      phi1 = 140.112
      theta2 = 90
      phi2 = -129.888
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 24
      chmoth = 'AIRH'
      x = -2.34026
      y = 1.95593
      z = 0.2
      irot = 637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 638
      theta1 = 90
      phi1 = 141.575
      theta2 = 90
      phi2 = -128.425
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 25
      chmoth = 'AIRH'
      x = -2.38944
      y = 1.89554
      z = 0.2
      irot = 638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 639
      theta1 = 90
      phi1 = 143.038
      theta2 = 90
      phi2 = -126.962
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 26
      chmoth = 'AIRH'
      x = -2.43706
      y = 1.83392
      z = 0.2
      irot = 639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 640
      theta1 = 90
      phi1 = 144.501
      theta2 = 90
      phi2 = -125.499
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 27
      chmoth = 'AIRH'
      x = -2.48308
      y = 1.7711
      z = 0.2
      irot = 640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 641
      theta1 = 90
      phi1 = 145.964
      theta2 = 90
      phi2 = -124.036
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 28
      chmoth = 'AIRH'
      x = -2.52749
      y = 1.70713
      z = 0.2
      irot = 641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 642
      theta1 = 90
      phi1 = 147.427
      theta2 = 90
      phi2 = -122.573
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 29
      chmoth = 'AIRH'
      x = -2.57025
      y = 1.64204
      z = 0.2
      irot = 642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 643
      theta1 = 90
      phi1 = 148.89
      theta2 = 90
      phi2 = -121.11
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 30
      chmoth = 'AIRH'
      x = -2.61134
      y = 1.57588
      z = 0.2
      irot = 643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 644
      theta1 = 90
      phi1 = 150.353
      theta2 = 90
      phi2 = -119.647
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 31
      chmoth = 'AIRH'
      x = -2.65072
      y = 1.5087
      z = 0.2
      irot = 644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 645
      theta1 = 90
      phi1 = 151.816
      theta2 = 90
      phi2 = -118.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 32
      chmoth = 'AIRH'
      x = -2.68838
      y = 1.44053
      z = 0.2
      irot = 645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 646
      theta1 = 90
      phi1 = 153.279
      theta2 = 90
      phi2 = -116.721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 33
      chmoth = 'AIRH'
      x = -2.72428
      y = 1.37142
      z = 0.2
      irot = 646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 647
      theta1 = 90
      phi1 = 154.742
      theta2 = 90
      phi2 = -115.258
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 34
      chmoth = 'AIRH'
      x = -2.75841
      y = 1.30142
      z = 0.2
      irot = 647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 648
      theta1 = 90
      phi1 = 156.205
      theta2 = 90
      phi2 = -113.795
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 35
      chmoth = 'AIRH'
      x = -2.79073
      y = 1.23057
      z = 0.2
      irot = 648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 649
      theta1 = 90
      phi1 = 157.668
      theta2 = 90
      phi2 = -112.332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 36
      chmoth = 'AIRH'
      x = -2.82124
      y = 1.15892
      z = 0.2
      irot = 649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 650
      theta1 = 90
      phi1 = 159.131
      theta2 = 90
      phi2 = -110.869
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 37
      chmoth = 'AIRH'
      x = -2.84991
      y = 1.08651
      z = 0.2
      irot = 650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 651
      theta1 = 90
      phi1 = 160.594
      theta2 = 90
      phi2 = -109.406
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 38
      chmoth = 'AIRH'
      x = -2.87672
      y = 1.01339
      z = 0.2
      irot = 651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 652
      theta1 = 90
      phi1 = 162.057
      theta2 = 90
      phi2 = -107.943
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 39
      chmoth = 'AIRH'
      x = -2.90166
      y = 0.939616
      z = 0.2
      irot = 652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 653
      theta1 = 90
      phi1 = 163.52
      theta2 = 90
      phi2 = -106.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 40
      chmoth = 'AIRH'
      x = -2.9247
      y = 0.865226
      z = 0.2
      irot = 653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 654
      theta1 = 90
      phi1 = 106.429
      theta2 = 90
      phi2 = -163.571
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 41
      chmoth = 'AIRH'
      x = -0.883834
      y = 2.99741
      z = 0.2
      irot = 654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 655
      theta1 = 90
      phi1 = 107.858
      theta2 = 90
      phi2 = -162.142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 42
      chmoth = 'AIRH'
      x = -0.958309
      y = 2.97444
      z = 0.2
      irot = 655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 656
      theta1 = 90
      phi1 = 109.287
      theta2 = 90
      phi2 = -160.713
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 43
      chmoth = 'AIRH'
      x = -1.03219
      y = 2.94961
      z = 0.2
      irot = 656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 657
      theta1 = 90
      phi1 = 110.716
      theta2 = 90
      phi2 = -159.284
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 44
      chmoth = 'AIRH'
      x = -1.10543
      y = 2.92295
      z = 0.2
      irot = 657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 658
      theta1 = 90
      phi1 = 112.145
      theta2 = 90
      phi2 = -157.855
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 45
      chmoth = 'AIRH'
      x = -1.17797
      y = 2.89448
      z = 0.2
      irot = 658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 659
      theta1 = 90
      phi1 = 113.574
      theta2 = 90
      phi2 = -156.426
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 46
      chmoth = 'AIRH'
      x = -1.24979
      y = 2.8642
      z = 0.2
      irot = 659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 660
      theta1 = 90
      phi1 = 115.003
      theta2 = 90
      phi2 = -154.997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 47
      chmoth = 'AIRH'
      x = -1.32083
      y = 2.83214
      z = 0.2
      irot = 660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 661
      theta1 = 90
      phi1 = 116.432
      theta2 = 90
      phi2 = -153.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 48
      chmoth = 'AIRH'
      x = -1.39105
      y = 2.79832
      z = 0.2
      irot = 661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 662
      theta1 = 90
      phi1 = 117.861
      theta2 = 90
      phi2 = -152.139
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 49
      chmoth = 'AIRH'
      x = -1.4604
      y = 2.76276
      z = 0.2
      irot = 662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 663
      theta1 = 90
      phi1 = 119.29
      theta2 = 90
      phi2 = -150.71
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 50
      chmoth = 'AIRH'
      x = -1.52884
      y = 2.72548
      z = 0.2
      irot = 663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 664
      theta1 = 90
      phi1 = 120.719
      theta2 = 90
      phi2 = -149.281
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 51
      chmoth = 'AIRH'
      x = -1.59634
      y = 2.68651
      z = 0.2
      irot = 664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 665
      theta1 = 90
      phi1 = 122.148
      theta2 = 90
      phi2 = -147.852
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 52
      chmoth = 'AIRH'
      x = -1.66284
      y = 2.64586
      z = 0.2
      irot = 665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 666
      theta1 = 90
      phi1 = 123.577
      theta2 = 90
      phi2 = -146.423
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 53
      chmoth = 'AIRH'
      x = -1.7283
      y = 2.60357
      z = 0.2
      irot = 666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 667
      theta1 = 90
      phi1 = 125.006
      theta2 = 90
      phi2 = -144.994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 54
      chmoth = 'AIRH'
      x = -1.79269
      y = 2.55966
      z = 0.2
      irot = 667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 668
      theta1 = 90
      phi1 = 126.435
      theta2 = 90
      phi2 = -143.565
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 55
      chmoth = 'AIRH'
      x = -1.85597
      y = 2.51416
      z = 0.2
      irot = 668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 669
      theta1 = 90
      phi1 = 127.864
      theta2 = 90
      phi2 = -142.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 56
      chmoth = 'AIRH'
      x = -1.91809
      y = 2.46709
      z = 0.2
      irot = 669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 670
      theta1 = 90
      phi1 = 129.293
      theta2 = 90
      phi2 = -140.707
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 57
      chmoth = 'AIRH'
      x = -1.97902
      y = 2.41849
      z = 0.2
      irot = 670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 671
      theta1 = 90
      phi1 = 130.722
      theta2 = 90
      phi2 = -139.278
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 58
      chmoth = 'AIRH'
      x = -2.03872
      y = 2.36839
      z = 0.2
      irot = 671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 672
      theta1 = 90
      phi1 = 132.151
      theta2 = 90
      phi2 = -137.849
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 59
      chmoth = 'AIRH'
      x = -2.09715
      y = 2.31681
      z = 0.2
      irot = 672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 673
      theta1 = 90
      phi1 = 133.58
      theta2 = 90
      phi2 = -136.42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 60
      chmoth = 'AIRH'
      x = -2.15427
      y = 2.26379
      z = 0.2
      irot = 673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 674
      theta1 = 90
      phi1 = 135.009
      theta2 = 90
      phi2 = -134.991
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 61
      chmoth = 'AIRH'
      x = -2.21006
      y = 2.20936
      z = 0.2
      irot = 674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 675
      theta1 = 90
      phi1 = 136.438
      theta2 = 90
      phi2 = -133.562
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 62
      chmoth = 'AIRH'
      x = -2.26447
      y = 2.15356
      z = 0.2
      irot = 675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 676
      theta1 = 90
      phi1 = 137.867
      theta2 = 90
      phi2 = -132.133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 63
      chmoth = 'AIRH'
      x = -2.31747
      y = 2.09642
      z = 0.2
      irot = 676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 677
      theta1 = 90
      phi1 = 139.296
      theta2 = 90
      phi2 = -130.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 64
      chmoth = 'AIRH'
      x = -2.36903
      y = 2.03797
      z = 0.2
      irot = 677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 678
      theta1 = 90
      phi1 = 140.725
      theta2 = 90
      phi2 = -129.275
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 65
      chmoth = 'AIRH'
      x = -2.41911
      y = 1.97826
      z = 0.2
      irot = 678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 679
      theta1 = 90
      phi1 = 142.154
      theta2 = 90
      phi2 = -127.846
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 66
      chmoth = 'AIRH'
      x = -2.4677
      y = 1.91732
      z = 0.2
      irot = 679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 680
      theta1 = 90
      phi1 = 143.583
      theta2 = 90
      phi2 = -126.417
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 67
      chmoth = 'AIRH'
      x = -2.51474
      y = 1.85518
      z = 0.2
      irot = 680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 681
      theta1 = 90
      phi1 = 145.012
      theta2 = 90
      phi2 = -124.988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 68
      chmoth = 'AIRH'
      x = -2.56023
      y = 1.79189
      z = 0.2
      irot = 681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 682
      theta1 = 90
      phi1 = 146.441
      theta2 = 90
      phi2 = -123.559
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 69
      chmoth = 'AIRH'
      x = -2.60412
      y = 1.72749
      z = 0.2
      irot = 682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 683
      theta1 = 90
      phi1 = 147.87
      theta2 = 90
      phi2 = -122.13
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 70
      chmoth = 'AIRH'
      x = -2.64639
      y = 1.66201
      z = 0.2
      irot = 683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 684
      theta1 = 90
      phi1 = 149.299
      theta2 = 90
      phi2 = -120.701
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 71
      chmoth = 'AIRH'
      x = -2.68701
      y = 1.59549
      z = 0.2
      irot = 684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 685
      theta1 = 90
      phi1 = 150.728
      theta2 = 90
      phi2 = -119.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 72
      chmoth = 'AIRH'
      x = -2.72596
      y = 1.52799
      z = 0.2
      irot = 685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 686
      theta1 = 90
      phi1 = 152.157
      theta2 = 90
      phi2 = -117.843
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 73
      chmoth = 'AIRH'
      x = -2.76322
      y = 1.45953
      z = 0.2
      irot = 686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 687
      theta1 = 90
      phi1 = 153.586
      theta2 = 90
      phi2 = -116.414
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 74
      chmoth = 'AIRH'
      x = -2.79876
      y = 1.39017
      z = 0.2
      irot = 687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 688
      theta1 = 90
      phi1 = 155.015
      theta2 = 90
      phi2 = -114.985
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 75
      chmoth = 'AIRH'
      x = -2.83256
      y = 1.31994
      z = 0.2
      irot = 688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 689
      theta1 = 90
      phi1 = 156.444
      theta2 = 90
      phi2 = -113.556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 76
      chmoth = 'AIRH'
      x = -2.86459
      y = 1.24889
      z = 0.2
      irot = 689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 690
      theta1 = 90
      phi1 = 157.873
      theta2 = 90
      phi2 = -112.127
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 77
      chmoth = 'AIRH'
      x = -2.89485
      y = 1.17707
      z = 0.2
      irot = 690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 691
      theta1 = 90
      phi1 = 159.302
      theta2 = 90
      phi2 = -110.698
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 78
      chmoth = 'AIRH'
      x = -2.9233
      y = 1.10451
      z = 0.2
      irot = 691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 692
      theta1 = 90
      phi1 = 160.731
      theta2 = 90
      phi2 = -109.269
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 79
      chmoth = 'AIRH'
      x = -2.94994
      y = 1.03126
      z = 0.2
      irot = 692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 693
      theta1 = 90
      phi1 = 162.16
      theta2 = 90
      phi2 = -107.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 80
      chmoth = 'AIRH'
      x = -2.97474
      y = 0.957375
      z = 0.2
      irot = 693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 694
      theta1 = 90
      phi1 = 163.589
      theta2 = 90
      phi2 = -106.411
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 81
      chmoth = 'AIRH'
      x = -2.99769
      y = 0.882893
      z = 0.2
      irot = 694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 695
      theta1 = 90
      phi1 = 106.395
      theta2 = 90
      phi2 = -163.605
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 82
      chmoth = 'AIRH'
      x = -0.903225
      y = 3.06988
      z = 0.2
      irot = 695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 696
      theta1 = 90
      phi1 = 107.79
      theta2 = 90
      phi2 = -162.21
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 83
      chmoth = 'AIRH'
      x = -0.977693
      y = 3.04698
      z = 0.2
      irot = 696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 697
      theta1 = 90
      phi1 = 109.185
      theta2 = 90
      phi2 = -160.815
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 84
      chmoth = 'AIRH'
      x = -1.05158
      y = 3.02228
      z = 0.2
      irot = 697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 698
      theta1 = 90
      phi1 = 110.58
      theta2 = 90
      phi2 = -159.42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 85
      chmoth = 'AIRH'
      x = -1.12485
      y = 2.99578
      z = 0.2
      irot = 698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 699
      theta1 = 90
      phi1 = 111.975
      theta2 = 90
      phi2 = -158.025
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 86
      chmoth = 'AIRH'
      x = -1.19745
      y = 2.96751
      z = 0.2
      irot = 699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 700
      theta1 = 90
      phi1 = 113.37
      theta2 = 90
      phi2 = -156.63
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 87
      chmoth = 'AIRH'
      x = -1.26934
      y = 2.93748
      z = 0.2
      irot = 700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 701
      theta1 = 90
      phi1 = 114.765
      theta2 = 90
      phi2 = -155.235
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 88
      chmoth = 'AIRH'
      x = -1.34047
      y = 2.90571
      z = 0.2
      irot = 701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 702
      theta1 = 90
      phi1 = 116.16
      theta2 = 90
      phi2 = -153.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 89
      chmoth = 'AIRH'
      x = -1.41081
      y = 2.87221
      z = 0.2
      irot = 702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 703
      theta1 = 90
      phi1 = 117.555
      theta2 = 90
      phi2 = -152.445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 90
      chmoth = 'AIRH'
      x = -1.48032
      y = 2.83701
      z = 0.2
      irot = 703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 704
      theta1 = 90
      phi1 = 118.95
      theta2 = 90
      phi2 = -151.05
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 91
      chmoth = 'AIRH'
      x = -1.54895
      y = 2.80014
      z = 0.2
      irot = 704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 705
      theta1 = 90
      phi1 = 120.345
      theta2 = 90
      phi2 = -149.655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 92
      chmoth = 'AIRH'
      x = -1.61666
      y = 2.7616
      z = 0.2
      irot = 705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 706
      theta1 = 90
      phi1 = 121.74
      theta2 = 90
      phi2 = -148.26
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 93
      chmoth = 'AIRH'
      x = -1.68341
      y = 2.72142
      z = 0.2
      irot = 706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 707
      theta1 = 90
      phi1 = 123.135
      theta2 = 90
      phi2 = -146.865
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 94
      chmoth = 'AIRH'
      x = -1.74916
      y = 2.67963
      z = 0.2
      irot = 707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 708
      theta1 = 90
      phi1 = 124.53
      theta2 = 90
      phi2 = -145.47
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 95
      chmoth = 'AIRH'
      x = -1.81388
      y = 2.63625
      z = 0.2
      irot = 708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 709
      theta1 = 90
      phi1 = 125.925
      theta2 = 90
      phi2 = -144.075
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 96
      chmoth = 'AIRH'
      x = -1.87752
      y = 2.59131
      z = 0.2
      irot = 709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 710
      theta1 = 90
      phi1 = 127.32
      theta2 = 90
      phi2 = -142.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 97
      chmoth = 'AIRH'
      x = -1.94005
      y = 2.54484
      z = 0.2
      irot = 710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 711
      theta1 = 90
      phi1 = 128.715
      theta2 = 90
      phi2 = -141.285
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 98
      chmoth = 'AIRH'
      x = -2.00143
      y = 2.49685
      z = 0.2
      irot = 711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 712
      theta1 = 90
      phi1 = 130.11
      theta2 = 90
      phi2 = -139.89
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 99
      chmoth = 'AIRH'
      x = -2.06162
      y = 2.44739
      z = 0.2
      irot = 712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 713
      theta1 = 90
      phi1 = 131.505
      theta2 = 90
      phi2 = -138.495
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 100
      chmoth = 'AIRH'
      x = -2.12059
      y = 2.39647
      z = 0.2
      irot = 713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 714
      theta1 = 90
      phi1 = 132.9
      theta2 = 90
      phi2 = -137.1
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 101
      chmoth = 'AIRH'
      x = -2.17831
      y = 2.34414
      z = 0.2
      irot = 714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 715
      theta1 = 90
      phi1 = 134.295
      theta2 = 90
      phi2 = -135.705
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 102
      chmoth = 'AIRH'
      x = -2.23473
      y = 2.29041
      z = 0.2
      irot = 715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 716
      theta1 = 90
      phi1 = 135.69
      theta2 = 90
      phi2 = -134.31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 103
      chmoth = 'AIRH'
      x = -2.28983
      y = 2.23533
      z = 0.2
      irot = 716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 717
      theta1 = 90
      phi1 = 137.085
      theta2 = 90
      phi2 = -132.915
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 104
      chmoth = 'AIRH'
      x = -2.34357
      y = 2.17892
      z = 0.2
      irot = 717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 718
      theta1 = 90
      phi1 = 138.48
      theta2 = 90
      phi2 = -131.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 105
      chmoth = 'AIRH'
      x = -2.39592
      y = 2.12122
      z = 0.2
      irot = 718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 719
      theta1 = 90
      phi1 = 139.875
      theta2 = 90
      phi2 = -130.125
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 106
      chmoth = 'AIRH'
      x = -2.44685
      y = 2.06226
      z = 0.2
      irot = 719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 720
      theta1 = 90
      phi1 = 141.27
      theta2 = 90
      phi2 = -128.73
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 107
      chmoth = 'AIRH'
      x = -2.49633
      y = 2.00208
      z = 0.2
      irot = 720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 721
      theta1 = 90
      phi1 = 142.665
      theta2 = 90
      phi2 = -127.335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 108
      chmoth = 'AIRH'
      x = -2.54433
      y = 1.94072
      z = 0.2
      irot = 721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 722
      theta1 = 90
      phi1 = 144.06
      theta2 = 90
      phi2 = -125.94
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 109
      chmoth = 'AIRH'
      x = -2.59082
      y = 1.8782
      z = 0.2
      irot = 722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 723
      theta1 = 90
      phi1 = 145.455
      theta2 = 90
      phi2 = -124.545
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 110
      chmoth = 'AIRH'
      x = -2.63578
      y = 1.81457
      z = 0.2
      irot = 723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 724
      theta1 = 90
      phi1 = 146.85
      theta2 = 90
      phi2 = -123.15
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 111
      chmoth = 'AIRH'
      x = -2.67917
      y = 1.74986
      z = 0.2
      irot = 724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 725
      theta1 = 90
      phi1 = 148.245
      theta2 = 90
      phi2 = -121.755
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 112
      chmoth = 'AIRH'
      x = -2.72098
      y = 1.68412
      z = 0.2
      irot = 725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 726
      theta1 = 90
      phi1 = 149.64
      theta2 = 90
      phi2 = -120.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 113
      chmoth = 'AIRH'
      x = -2.76117
      y = 1.61738
      z = 0.2
      irot = 726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 727
      theta1 = 90
      phi1 = 151.035
      theta2 = 90
      phi2 = -118.965
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 114
      chmoth = 'AIRH'
      x = -2.79973
      y = 1.54968
      z = 0.2
      irot = 727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 728
      theta1 = 90
      phi1 = 152.43
      theta2 = 90
      phi2 = -117.57
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 115
      chmoth = 'AIRH'
      x = -2.83663
      y = 1.48106
      z = 0.2
      irot = 728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 729
      theta1 = 90
      phi1 = 153.825
      theta2 = 90
      phi2 = -116.175
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 116
      chmoth = 'AIRH'
      x = -2.87184
      y = 1.41157
      z = 0.2
      irot = 729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 730
      theta1 = 90
      phi1 = 155.22
      theta2 = 90
      phi2 = -114.78
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 117
      chmoth = 'AIRH'
      x = -2.90536
      y = 1.34123
      z = 0.2
      irot = 730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 731
      theta1 = 90
      phi1 = 156.615
      theta2 = 90
      phi2 = -113.385
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 118
      chmoth = 'AIRH'
      x = -2.93715
      y = 1.2701
      z = 0.2
      irot = 731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 732
      theta1 = 90
      phi1 = 158.01
      theta2 = 90
      phi2 = -111.99
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 119
      chmoth = 'AIRH'
      x = -2.9672
      y = 1.19822
      z = 0.2
      irot = 732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 733
      theta1 = 90
      phi1 = 159.405
      theta2 = 90
      phi2 = -110.595
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 120
      chmoth = 'AIRH'
      x = -2.99549
      y = 1.12563
      z = 0.2
      irot = 733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 734
      theta1 = 90
      phi1 = 160.8
      theta2 = 90
      phi2 = -109.2
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 121
      chmoth = 'AIRH'
      x = -3.022
      y = 1.05237
      z = 0.2
      irot = 734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 735
      theta1 = 90
      phi1 = 162.195
      theta2 = 90
      phi2 = -107.805
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 122
      chmoth = 'AIRH'
      x = -3.04673
      y = 0.978491
      z = 0.2
      irot = 735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 736
      theta1 = 90
      phi1 = 163.59
      theta2 = 90
      phi2 = -106.41
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 123
      chmoth = 'AIRH'
      x = -3.06965
      y = 0.904028
      z = 0.2
      irot = 736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 737
      theta1 = 90
      phi1 = 106.364
      theta2 = 90
      phi2 = -163.636
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 124
      chmoth = 'AIRH'
      x = -0.922694
      y = 3.14233
      z = 0.2
      irot = 737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 738
      theta1 = 90
      phi1 = 107.728
      theta2 = 90
      phi2 = -162.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 125
      chmoth = 'AIRH'
      x = -0.997233
      y = 3.11948
      z = 0.2
      irot = 738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 739
      theta1 = 90
      phi1 = 109.092
      theta2 = 90
      phi2 = -160.908
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 126
      chmoth = 'AIRH'
      x = -1.07121
      y = 3.09486
      z = 0.2
      irot = 739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 740
      theta1 = 90
      phi1 = 110.456
      theta2 = 90
      phi2 = -159.544
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 127
      chmoth = 'AIRH'
      x = -1.14457
      y = 3.06848
      z = 0.2
      irot = 740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 741
      theta1 = 90
      phi1 = 111.82
      theta2 = 90
      phi2 = -158.18
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 128
      chmoth = 'AIRH'
      x = -1.21729
      y = 3.04037
      z = 0.2
      irot = 741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 742
      theta1 = 90
      phi1 = 113.184
      theta2 = 90
      phi2 = -156.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 129
      chmoth = 'AIRH'
      x = -1.28932
      y = 3.01053
      z = 0.2
      irot = 742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 743
      theta1 = 90
      phi1 = 114.548
      theta2 = 90
      phi2 = -155.452
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 130
      chmoth = 'AIRH'
      x = -1.36062
      y = 2.97898
      z = 0.2
      irot = 743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 744
      theta1 = 90
      phi1 = 115.912
      theta2 = 90
      phi2 = -154.088
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 131
      chmoth = 'AIRH'
      x = -1.43114
      y = 2.94575
      z = 0.2
      irot = 744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 745
      theta1 = 90
      phi1 = 117.276
      theta2 = 90
      phi2 = -152.724
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 132
      chmoth = 'AIRH'
      x = -1.50086
      y = 2.91085
      z = 0.2
      irot = 745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 746
      theta1 = 90
      phi1 = 118.64
      theta2 = 90
      phi2 = -151.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 133
      chmoth = 'AIRH'
      x = -1.56972
      y = 2.8743
      z = 0.2
      irot = 746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 747
      theta1 = 90
      phi1 = 120.004
      theta2 = 90
      phi2 = -149.996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 134
      chmoth = 'AIRH'
      x = -1.6377
      y = 2.83612
      z = 0.2
      irot = 747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 748
      theta1 = 90
      phi1 = 121.368
      theta2 = 90
      phi2 = -148.632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 135
      chmoth = 'AIRH'
      x = -1.70475
      y = 2.79633
      z = 0.2
      irot = 748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 749
      theta1 = 90
      phi1 = 122.732
      theta2 = 90
      phi2 = -147.268
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 136
      chmoth = 'AIRH'
      x = -1.77083
      y = 2.75496
      z = 0.2
      irot = 749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 750
      theta1 = 90
      phi1 = 124.096
      theta2 = 90
      phi2 = -145.904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 137
      chmoth = 'AIRH'
      x = -1.8359
      y = 2.71203
      z = 0.2
      irot = 750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 751
      theta1 = 90
      phi1 = 125.46
      theta2 = 90
      phi2 = -144.54
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 138
      chmoth = 'AIRH'
      x = -1.89994
      y = 2.66756
      z = 0.2
      irot = 751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 752
      theta1 = 90
      phi1 = 126.824
      theta2 = 90
      phi2 = -143.176
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 139
      chmoth = 'AIRH'
      x = -1.9629
      y = 2.62157
      z = 0.2
      irot = 752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 753
      theta1 = 90
      phi1 = 128.188
      theta2 = 90
      phi2 = -141.812
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 140
      chmoth = 'AIRH'
      x = -2.02475
      y = 2.57411
      z = 0.2
      irot = 753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 754
      theta1 = 90
      phi1 = 129.552
      theta2 = 90
      phi2 = -140.448
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 141
      chmoth = 'AIRH'
      x = -2.08545
      y = 2.52518
      z = 0.2
      irot = 754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 755
      theta1 = 90
      phi1 = 130.916
      theta2 = 90
      phi2 = -139.084
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 142
      chmoth = 'AIRH'
      x = -2.14497
      y = 2.47482
      z = 0.2
      irot = 755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 756
      theta1 = 90
      phi1 = 132.28
      theta2 = 90
      phi2 = -137.72
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 143
      chmoth = 'AIRH'
      x = -2.20327
      y = 2.42306
      z = 0.2
      irot = 756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 757
      theta1 = 90
      phi1 = 133.644
      theta2 = 90
      phi2 = -136.356
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 144
      chmoth = 'AIRH'
      x = -2.26032
      y = 2.36993
      z = 0.2
      irot = 757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 758
      theta1 = 90
      phi1 = 135.008
      theta2 = 90
      phi2 = -134.992
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 145
      chmoth = 'AIRH'
      x = -2.3161
      y = 2.31545
      z = 0.2
      irot = 758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 759
      theta1 = 90
      phi1 = 136.372
      theta2 = 90
      phi2 = -133.628
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 146
      chmoth = 'AIRH'
      x = -2.37056
      y = 2.25966
      z = 0.2
      irot = 759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 760
      theta1 = 90
      phi1 = 137.736
      theta2 = 90
      phi2 = -132.264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 147
      chmoth = 'AIRH'
      x = -2.42368
      y = 2.20259
      z = 0.2
      irot = 760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 761
      theta1 = 90
      phi1 = 139.1
      theta2 = 90
      phi2 = -130.9
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 148
      chmoth = 'AIRH'
      x = -2.47542
      y = 2.14428
      z = 0.2
      irot = 761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 762
      theta1 = 90
      phi1 = 140.464
      theta2 = 90
      phi2 = -129.536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 149
      chmoth = 'AIRH'
      x = -2.52576
      y = 2.08474
      z = 0.2
      irot = 762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 763
      theta1 = 90
      phi1 = 141.828
      theta2 = 90
      phi2 = -128.172
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 150
      chmoth = 'AIRH'
      x = -2.57467
      y = 2.02403
      z = 0.2
      irot = 763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 764
      theta1 = 90
      phi1 = 143.192
      theta2 = 90
      phi2 = -126.808
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 151
      chmoth = 'AIRH'
      x = -2.62212
      y = 1.96217
      z = 0.2
      irot = 764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 765
      theta1 = 90
      phi1 = 144.556
      theta2 = 90
      phi2 = -125.444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 152
      chmoth = 'AIRH'
      x = -2.66809
      y = 1.8992
      z = 0.2
      irot = 765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 766
      theta1 = 90
      phi1 = 145.92
      theta2 = 90
      phi2 = -124.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 153
      chmoth = 'AIRH'
      x = -2.71254
      y = 1.83515
      z = 0.2
      irot = 766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 767
      theta1 = 90
      phi1 = 147.284
      theta2 = 90
      phi2 = -122.716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 154
      chmoth = 'AIRH'
      x = -2.75545
      y = 1.77006
      z = 0.2
      irot = 767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 768
      theta1 = 90
      phi1 = 148.648
      theta2 = 90
      phi2 = -121.352
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 155
      chmoth = 'AIRH'
      x = -2.79681
      y = 1.70396
      z = 0.2
      irot = 768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 769
      theta1 = 90
      phi1 = 150.012
      theta2 = 90
      phi2 = -119.988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 156
      chmoth = 'AIRH'
      x = -2.83658
      y = 1.63691
      z = 0.2
      irot = 769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 770
      theta1 = 90
      phi1 = 151.376
      theta2 = 90
      phi2 = -118.624
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 157
      chmoth = 'AIRH'
      x = -2.87474
      y = 1.56892
      z = 0.2
      irot = 770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 771
      theta1 = 90
      phi1 = 152.74
      theta2 = 90
      phi2 = -117.26
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 158
      chmoth = 'AIRH'
      x = -2.91127
      y = 1.50005
      z = 0.2
      irot = 771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 772
      theta1 = 90
      phi1 = 154.104
      theta2 = 90
      phi2 = -115.896
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 159
      chmoth = 'AIRH'
      x = -2.94615
      y = 1.43032
      z = 0.2
      irot = 772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 773
      theta1 = 90
      phi1 = 155.468
      theta2 = 90
      phi2 = -114.532
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 160
      chmoth = 'AIRH'
      x = -2.97936
      y = 1.35978
      z = 0.2
      irot = 773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 774
      theta1 = 90
      phi1 = 156.832
      theta2 = 90
      phi2 = -113.168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 161
      chmoth = 'AIRH'
      x = -3.01089
      y = 1.28848
      z = 0.2
      irot = 774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 775
      theta1 = 90
      phi1 = 158.196
      theta2 = 90
      phi2 = -111.804
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 162
      chmoth = 'AIRH'
      x = -3.04071
      y = 1.21644
      z = 0.2
      irot = 775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 776
      theta1 = 90
      phi1 = 159.56
      theta2 = 90
      phi2 = -110.44
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 163
      chmoth = 'AIRH'
      x = -3.0688
      y = 1.14372
      z = 0.2
      irot = 776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 777
      theta1 = 90
      phi1 = 160.924
      theta2 = 90
      phi2 = -109.076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 164
      chmoth = 'AIRH'
      x = -3.09516
      y = 1.07034
      z = 0.2
      irot = 777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 778
      theta1 = 90
      phi1 = 162.288
      theta2 = 90
      phi2 = -107.712
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 165
      chmoth = 'AIRH'
      x = -3.11976
      y = 0.996362
      z = 0.2
      irot = 778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 779
      theta1 = 90
      phi1 = 163.652
      theta2 = 90
      phi2 = -106.348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 166
      chmoth = 'AIRH'
      x = -3.14259
      y = 0.921817
      z = 0.2
      irot = 779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 780
      theta1 = 90
      phi1 = 106.333
      theta2 = 90
      phi2 = -163.667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 167
      chmoth = 'AIRH'
      x = -0.942085
      y = 3.21481
      z = 0.2
      irot = 780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 781
      theta1 = 90
      phi1 = 107.666
      theta2 = 90
      phi2 = -162.334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 168
      chmoth = 'AIRH'
      x = -1.01662
      y = 3.19202
      z = 0.2
      irot = 781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 782
      theta1 = 90
      phi1 = 108.999
      theta2 = 90
      phi2 = -161.001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 169
      chmoth = 'AIRH'
      x = -1.0906
      y = 3.16751
      z = 0.2
      irot = 782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 783
      theta1 = 90
      phi1 = 110.332
      theta2 = 90
      phi2 = -159.668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 170
      chmoth = 'AIRH'
      x = -1.16399
      y = 3.14128
      z = 0.2
      irot = 783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 784
      theta1 = 90
      phi1 = 111.665
      theta2 = 90
      phi2 = -158.335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 171
      chmoth = 'AIRH'
      x = -1.23675
      y = 3.11335
      z = 0.2
      irot = 784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 785
      theta1 = 90
      phi1 = 112.998
      theta2 = 90
      phi2 = -157.002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 172
      chmoth = 'AIRH'
      x = -1.30884
      y = 3.08374
      z = 0.2
      irot = 785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 786
      theta1 = 90
      phi1 = 114.331
      theta2 = 90
      phi2 = -155.669
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 173
      chmoth = 'AIRH'
      x = -1.38022
      y = 3.05245
      z = 0.2
      irot = 786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 787
      theta1 = 90
      phi1 = 115.664
      theta2 = 90
      phi2 = -154.336
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 174
      chmoth = 'AIRH'
      x = -1.45086
      y = 3.01952
      z = 0.2
      irot = 787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 788
      theta1 = 90
      phi1 = 116.997
      theta2 = 90
      phi2 = -153.003
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 175
      chmoth = 'AIRH'
      x = -1.52071
      y = 2.98495
      z = 0.2
      irot = 788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 789
      theta1 = 90
      phi1 = 118.33
      theta2 = 90
      phi2 = -151.67
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 176
      chmoth = 'AIRH'
      x = -1.58974
      y = 2.94877
      z = 0.2
      irot = 789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 790
      theta1 = 90
      phi1 = 119.663
      theta2 = 90
      phi2 = -150.337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 177
      chmoth = 'AIRH'
      x = -1.65791
      y = 2.91099
      z = 0.2
      irot = 790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 791
      theta1 = 90
      phi1 = 120.996
      theta2 = 90
      phi2 = -149.004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 178
      chmoth = 'AIRH'
      x = -1.72518
      y = 2.87163
      z = 0.2
      irot = 791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 792
      theta1 = 90
      phi1 = 122.329
      theta2 = 90
      phi2 = -147.671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 179
      chmoth = 'AIRH'
      x = -1.79151
      y = 2.83072
      z = 0.2
      irot = 792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 793
      theta1 = 90
      phi1 = 123.662
      theta2 = 90
      phi2 = -146.338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 180
      chmoth = 'AIRH'
      x = -1.85688
      y = 2.78828
      z = 0.2
      irot = 793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 794
      theta1 = 90
      phi1 = 124.995
      theta2 = 90
      phi2 = -145.005
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 181
      chmoth = 'AIRH'
      x = -1.92124
      y = 2.74433
      z = 0.2
      irot = 794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 795
      theta1 = 90
      phi1 = 126.328
      theta2 = 90
      phi2 = -143.672
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 182
      chmoth = 'AIRH'
      x = -1.98456
      y = 2.69889
      z = 0.2
      irot = 795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 796
      theta1 = 90
      phi1 = 127.661
      theta2 = 90
      phi2 = -142.339
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 183
      chmoth = 'AIRH'
      x = -2.04681
      y = 2.65199
      z = 0.2
      irot = 796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 797
      theta1 = 90
      phi1 = 128.994
      theta2 = 90
      phi2 = -141.006
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 184
      chmoth = 'AIRH'
      x = -2.10795
      y = 2.60366
      z = 0.2
      irot = 797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 798
      theta1 = 90
      phi1 = 130.327
      theta2 = 90
      phi2 = -139.673
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 185
      chmoth = 'AIRH'
      x = -2.16795
      y = 2.55392
      z = 0.2
      irot = 798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 799
      theta1 = 90
      phi1 = 131.66
      theta2 = 90
      phi2 = -138.34
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 186
      chmoth = 'AIRH'
      x = -2.22677
      y = 2.50279
      z = 0.2
      irot = 799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 800
      theta1 = 90
      phi1 = 132.993
      theta2 = 90
      phi2 = -137.007
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 187
      chmoth = 'AIRH'
      x = -2.2844
      y = 2.45031
      z = 0.2
      irot = 800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 801
      theta1 = 90
      phi1 = 134.326
      theta2 = 90
      phi2 = -135.674
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 188
      chmoth = 'AIRH'
      x = -2.34078
      y = 2.39651
      z = 0.2
      irot = 801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 802
      theta1 = 90
      phi1 = 135.659
      theta2 = 90
      phi2 = -134.341
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 189
      chmoth = 'AIRH'
      x = -2.3959
      y = 2.34141
      z = 0.2
      irot = 802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 803
      theta1 = 90
      phi1 = 136.992
      theta2 = 90
      phi2 = -133.008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 190
      chmoth = 'AIRH'
      x = -2.44972
      y = 2.28504
      z = 0.2
      irot = 803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 804
      theta1 = 90
      phi1 = 138.325
      theta2 = 90
      phi2 = -131.675
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 191
      chmoth = 'AIRH'
      x = -2.50221
      y = 2.22743
      z = 0.2
      irot = 804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 805
      theta1 = 90
      phi1 = 139.658
      theta2 = 90
      phi2 = -130.342
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 192
      chmoth = 'AIRH'
      x = -2.55335
      y = 2.16862
      z = 0.2
      irot = 805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 806
      theta1 = 90
      phi1 = 140.991
      theta2 = 90
      phi2 = -129.009
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 193
      chmoth = 'AIRH'
      x = -2.60311
      y = 2.10863
      z = 0.2
      irot = 806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 807
      theta1 = 90
      phi1 = 142.324
      theta2 = 90
      phi2 = -127.676
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 194
      chmoth = 'AIRH'
      x = -2.65146
      y = 2.04751
      z = 0.2
      irot = 807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 808
      theta1 = 90
      phi1 = 143.657
      theta2 = 90
      phi2 = -126.343
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 195
      chmoth = 'AIRH'
      x = -2.69837
      y = 1.98527
      z = 0.2
      irot = 808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 809
      theta1 = 90
      phi1 = 144.99
      theta2 = 90
      phi2 = -125.01
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 196
      chmoth = 'AIRH'
      x = -2.74382
      y = 1.92196
      z = 0.2
      irot = 809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 810
      theta1 = 90
      phi1 = 146.323
      theta2 = 90
      phi2 = -123.677
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 197
      chmoth = 'AIRH'
      x = -2.78779
      y = 1.85761
      z = 0.2
      irot = 810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 811
      theta1 = 90
      phi1 = 147.656
      theta2 = 90
      phi2 = -122.344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 198
      chmoth = 'AIRH'
      x = -2.83025
      y = 1.79225
      z = 0.2
      irot = 811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 812
      theta1 = 90
      phi1 = 148.989
      theta2 = 90
      phi2 = -121.011
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 199
      chmoth = 'AIRH'
      x = -2.87118
      y = 1.72593
      z = 0.2
      irot = 812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 813
      theta1 = 90
      phi1 = 150.322
      theta2 = 90
      phi2 = -119.678
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 200
      chmoth = 'AIRH'
      x = -2.91055
      y = 1.65867
      z = 0.2
      irot = 813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 814
      theta1 = 90
      phi1 = 151.655
      theta2 = 90
      phi2 = -118.345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 201
      chmoth = 'AIRH'
      x = -2.94835
      y = 1.59051
      z = 0.2
      irot = 814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 815
      theta1 = 90
      phi1 = 152.988
      theta2 = 90
      phi2 = -117.012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 202
      chmoth = 'AIRH'
      x = -2.98455
      y = 1.52149
      z = 0.2
      irot = 815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 816
      theta1 = 90
      phi1 = 154.321
      theta2 = 90
      phi2 = -115.679
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 203
      chmoth = 'AIRH'
      x = -3.01914
      y = 1.45165
      z = 0.2
      irot = 816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 817
      theta1 = 90
      phi1 = 155.654
      theta2 = 90
      phi2 = -114.346
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 204
      chmoth = 'AIRH'
      x = -3.05209
      y = 1.38102
      z = 0.2
      irot = 817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 818
      theta1 = 90
      phi1 = 156.987
      theta2 = 90
      phi2 = -113.013
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 205
      chmoth = 'AIRH'
      x = -3.08339
      y = 1.30965
      z = 0.2
      irot = 818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 819
      theta1 = 90
      phi1 = 158.32
      theta2 = 90
      phi2 = -111.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 206
      chmoth = 'AIRH'
      x = -3.11303
      y = 1.23757
      z = 0.2
      irot = 819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 820
      theta1 = 90
      phi1 = 159.653
      theta2 = 90
      phi2 = -110.347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 207
      chmoth = 'AIRH'
      x = -3.14097
      y = 1.16481
      z = 0.2
      irot = 820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 821
      theta1 = 90
      phi1 = 160.986
      theta2 = 90
      phi2 = -109.014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 208
      chmoth = 'AIRH'
      x = -3.16722
      y = 1.09143
      z = 0.2
      irot = 821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 822
      theta1 = 90
      phi1 = 162.319
      theta2 = 90
      phi2 = -107.681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 209
      chmoth = 'AIRH'
      x = -3.19175
      y = 1.01745
      z = 0.2
      irot = 822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 823
      theta1 = 90
      phi1 = 163.652
      theta2 = 90
      phi2 = -106.348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 210
      chmoth = 'AIRH'
      x = -3.21456
      y = 0.942927
      z = 0.2
      irot = 823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 824
      theta1 = 90
      phi1 = 106.304
      theta2 = 90
      phi2 = -163.696
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 211
      chmoth = 'AIRH'
      x = -0.961513
      y = 3.28727
      z = 0.2
      irot = 824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 825
      theta1 = 90
      phi1 = 107.608
      theta2 = 90
      phi2 = -162.392
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 212
      chmoth = 'AIRH'
      x = -1.03607
      y = 3.26453
      z = 0.2
      irot = 825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 826
      theta1 = 90
      phi1 = 108.912
      theta2 = 90
      phi2 = -161.088
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 213
      chmoth = 'AIRH'
      x = -1.1101
      y = 3.24011
      z = 0.2
      irot = 826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 827
      theta1 = 90
      phi1 = 110.216
      theta2 = 90
      phi2 = -159.784
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 214
      chmoth = 'AIRH'
      x = -1.18354
      y = 3.21401
      z = 0.2
      irot = 827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 828
      theta1 = 90
      phi1 = 111.52
      theta2 = 90
      phi2 = -158.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 215
      chmoth = 'AIRH'
      x = -1.25638
      y = 3.18624
      z = 0.2
      irot = 828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 829
      theta1 = 90
      phi1 = 112.824
      theta2 = 90
      phi2 = -157.176
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 216
      chmoth = 'AIRH'
      x = -1.32856
      y = 3.15683
      z = 0.2
      irot = 829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 830
      theta1 = 90
      phi1 = 114.128
      theta2 = 90
      phi2 = -155.872
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 217
      chmoth = 'AIRH'
      x = -1.40006
      y = 3.12577
      z = 0.2
      irot = 830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 831
      theta1 = 90
      phi1 = 115.432
      theta2 = 90
      phi2 = -154.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 218
      chmoth = 'AIRH'
      x = -1.47083
      y = 3.0931
      z = 0.2
      irot = 831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 832
      theta1 = 90
      phi1 = 116.736
      theta2 = 90
      phi2 = -153.264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 219
      chmoth = 'AIRH'
      x = -1.54084
      y = 3.05883
      z = 0.2
      irot = 832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 833
      theta1 = 90
      phi1 = 118.04
      theta2 = 90
      phi2 = -151.96
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 220
      chmoth = 'AIRH'
      x = -1.61005
      y = 3.02297
      z = 0.2
      irot = 833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 834
      theta1 = 90
      phi1 = 119.344
      theta2 = 90
      phi2 = -150.656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 221
      chmoth = 'AIRH'
      x = -1.67843
      y = 2.98555
      z = 0.2
      irot = 834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 835
      theta1 = 90
      phi1 = 120.648
      theta2 = 90
      phi2 = -149.352
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 222
      chmoth = 'AIRH'
      x = -1.74594
      y = 2.94658
      z = 0.2
      irot = 835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 836
      theta1 = 90
      phi1 = 121.952
      theta2 = 90
      phi2 = -148.048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 223
      chmoth = 'AIRH'
      x = -1.81254
      y = 2.90608
      z = 0.2
      irot = 836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 837
      theta1 = 90
      phi1 = 123.256
      theta2 = 90
      phi2 = -146.744
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 224
      chmoth = 'AIRH'
      x = -1.8782
      y = 2.86408
      z = 0.2
      irot = 837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 838
      theta1 = 90
      phi1 = 124.56
      theta2 = 90
      phi2 = -145.44
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 225
      chmoth = 'AIRH'
      x = -1.9429
      y = 2.8206
      z = 0.2
      irot = 838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 839
      theta1 = 90
      phi1 = 125.864
      theta2 = 90
      phi2 = -144.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 226
      chmoth = 'AIRH'
      x = -2.00658
      y = 2.77565
      z = 0.2
      irot = 839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 840
      theta1 = 90
      phi1 = 127.168
      theta2 = 90
      phi2 = -142.832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 227
      chmoth = 'AIRH'
      x = -2.06923
      y = 2.72927
      z = 0.2
      irot = 840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 841
      theta1 = 90
      phi1 = 128.472
      theta2 = 90
      phi2 = -141.528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 228
      chmoth = 'AIRH'
      x = -2.1308
      y = 2.68147
      z = 0.2
      irot = 841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 842
      theta1 = 90
      phi1 = 129.776
      theta2 = 90
      phi2 = -140.224
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 229
      chmoth = 'AIRH'
      x = -2.19127
      y = 2.63229
      z = 0.2
      irot = 842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 843
      theta1 = 90
      phi1 = 131.08
      theta2 = 90
      phi2 = -138.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 230
      chmoth = 'AIRH'
      x = -2.25061
      y = 2.58174
      z = 0.2
      irot = 843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 844
      theta1 = 90
      phi1 = 132.384
      theta2 = 90
      phi2 = -137.616
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 231
      chmoth = 'AIRH'
      x = -2.30878
      y = 2.52985
      z = 0.2
      irot = 844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 845
      theta1 = 90
      phi1 = 133.688
      theta2 = 90
      phi2 = -136.312
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 232
      chmoth = 'AIRH'
      x = -2.36575
      y = 2.47666
      z = 0.2
      irot = 845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 846
      theta1 = 90
      phi1 = 134.992
      theta2 = 90
      phi2 = -135.008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 233
      chmoth = 'AIRH'
      x = -2.4215
      y = 2.42218
      z = 0.2
      irot = 846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 847
      theta1 = 90
      phi1 = 136.296
      theta2 = 90
      phi2 = -133.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 234
      chmoth = 'AIRH'
      x = -2.476
      y = 2.36645
      z = 0.2
      irot = 847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 848
      theta1 = 90
      phi1 = 137.6
      theta2 = 90
      phi2 = -132.4
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 235
      chmoth = 'AIRH'
      x = -2.52921
      y = 2.30949
      z = 0.2
      irot = 848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 849
      theta1 = 90
      phi1 = 138.904
      theta2 = 90
      phi2 = -131.096
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 236
      chmoth = 'AIRH'
      x = -2.58111
      y = 2.25133
      z = 0.2
      irot = 849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 850
      theta1 = 90
      phi1 = 140.208
      theta2 = 90
      phi2 = -129.792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 237
      chmoth = 'AIRH'
      x = -2.63168
      y = 2.19201
      z = 0.2
      irot = 850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 851
      theta1 = 90
      phi1 = 141.512
      theta2 = 90
      phi2 = -128.488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 238
      chmoth = 'AIRH'
      x = -2.68088
      y = 2.13155
      z = 0.2
      irot = 851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 852
      theta1 = 90
      phi1 = 142.816
      theta2 = 90
      phi2 = -127.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 239
      chmoth = 'AIRH'
      x = -2.72869
      y = 2.06999
      z = 0.2
      irot = 852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 853
      theta1 = 90
      phi1 = 144.12
      theta2 = 90
      phi2 = -125.88
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 240
      chmoth = 'AIRH'
      x = -2.77509
      y = 2.00736
      z = 0.2
      irot = 853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 854
      theta1 = 90
      phi1 = 145.424
      theta2 = 90
      phi2 = -124.576
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 241
      chmoth = 'AIRH'
      x = -2.82006
      y = 1.94368
      z = 0.2
      irot = 854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 855
      theta1 = 90
      phi1 = 146.728
      theta2 = 90
      phi2 = -123.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 242
      chmoth = 'AIRH'
      x = -2.86356
      y = 1.879
      z = 0.2
      irot = 855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 856
      theta1 = 90
      phi1 = 148.032
      theta2 = 90
      phi2 = -121.968
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 243
      chmoth = 'AIRH'
      x = -2.90558
      y = 1.81335
      z = 0.2
      irot = 856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 857
      theta1 = 90
      phi1 = 149.336
      theta2 = 90
      phi2 = -120.664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 244
      chmoth = 'AIRH'
      x = -2.94609
      y = 1.74676
      z = 0.2
      irot = 857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 858
      theta1 = 90
      phi1 = 150.64
      theta2 = 90
      phi2 = -119.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 245
      chmoth = 'AIRH'
      x = -2.98508
      y = 1.67926
      z = 0.2
      irot = 858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 859
      theta1 = 90
      phi1 = 151.944
      theta2 = 90
      phi2 = -118.056
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 246
      chmoth = 'AIRH'
      x = -3.02252
      y = 1.6109
      z = 0.2
      irot = 859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 860
      theta1 = 90
      phi1 = 153.248
      theta2 = 90
      phi2 = -116.752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 247
      chmoth = 'AIRH'
      x = -3.0584
      y = 1.54169
      z = 0.2
      irot = 860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 861
      theta1 = 90
      phi1 = 154.552
      theta2 = 90
      phi2 = -115.448
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 248
      chmoth = 'AIRH'
      x = -3.09269
      y = 1.47169
      z = 0.2
      irot = 861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 862
      theta1 = 90
      phi1 = 155.856
      theta2 = 90
      phi2 = -114.144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 249
      chmoth = 'AIRH'
      x = -3.12538
      y = 1.40093
      z = 0.2
      irot = 862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 863
      theta1 = 90
      phi1 = 157.16
      theta2 = 90
      phi2 = -112.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 250
      chmoth = 'AIRH'
      x = -3.15645
      y = 1.32944
      z = 0.2
      irot = 863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 864
      theta1 = 90
      phi1 = 158.464
      theta2 = 90
      phi2 = -111.536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 251
      chmoth = 'AIRH'
      x = -3.18589
      y = 1.25727
      z = 0.2
      irot = 864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 865
      theta1 = 90
      phi1 = 159.768
      theta2 = 90
      phi2 = -110.232
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 252
      chmoth = 'AIRH'
      x = -3.21368
      y = 1.18444
      z = 0.2
      irot = 865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 866
      theta1 = 90
      phi1 = 161.072
      theta2 = 90
      phi2 = -108.928
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 253
      chmoth = 'AIRH'
      x = -3.2398
      y = 1.111
      z = 0.2
      irot = 866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 867
      theta1 = 90
      phi1 = 162.376
      theta2 = 90
      phi2 = -107.624
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 254
      chmoth = 'AIRH'
      x = -3.26424
      y = 1.03698
      z = 0.2
      irot = 867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 868
      theta1 = 90
      phi1 = 163.68
      theta2 = 90
      phi2 = -106.32
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 255
      chmoth = 'AIRH'
      x = -3.287
      y = 0.962431
      z = 0.2
      irot = 868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 869
      theta1 = 90
      phi1 = 106.277
      theta2 = 90
      phi2 = -163.723
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 256
      chmoth = 'AIRH'
      x = -0.980985
      y = 3.35971
      z = 0.2
      irot = 869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 870
      theta1 = 90
      phi1 = 107.554
      theta2 = 90
      phi2 = -162.446
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 257
      chmoth = 'AIRH'
      x = -1.05562
      y = 3.33702
      z = 0.2
      irot = 870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 871
      theta1 = 90
      phi1 = 108.831
      theta2 = 90
      phi2 = -161.169
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 258
      chmoth = 'AIRH'
      x = -1.12972
      y = 3.31266
      z = 0.2
      irot = 871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 872
      theta1 = 90
      phi1 = 110.108
      theta2 = 90
      phi2 = -159.892
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 259
      chmoth = 'AIRH'
      x = -1.20327
      y = 3.28666
      z = 0.2
      irot = 872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 873
      theta1 = 90
      phi1 = 111.385
      theta2 = 90
      phi2 = -158.615
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 260
      chmoth = 'AIRH'
      x = -1.27622
      y = 3.25903
      z = 0.2
      irot = 873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 874
      theta1 = 90
      phi1 = 112.662
      theta2 = 90
      phi2 = -157.338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 261
      chmoth = 'AIRH'
      x = -1.34853
      y = 3.22978
      z = 0.2
      irot = 874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 875
      theta1 = 90
      phi1 = 113.939
      theta2 = 90
      phi2 = -156.061
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 262
      chmoth = 'AIRH'
      x = -1.42017
      y = 3.19892
      z = 0.2
      irot = 875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 876
      theta1 = 90
      phi1 = 115.216
      theta2 = 90
      phi2 = -154.784
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 263
      chmoth = 'AIRH'
      x = -1.49111
      y = 3.16648
      z = 0.2
      irot = 876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 877
      theta1 = 90
      phi1 = 116.493
      theta2 = 90
      phi2 = -153.507
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 264
      chmoth = 'AIRH'
      x = -1.56131
      y = 3.13246
      z = 0.2
      irot = 877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 878
      theta1 = 90
      phi1 = 117.77
      theta2 = 90
      phi2 = -152.23
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 265
      chmoth = 'AIRH'
      x = -1.63073
      y = 3.09689
      z = 0.2
      irot = 878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 879
      theta1 = 90
      phi1 = 119.047
      theta2 = 90
      phi2 = -150.953
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 266
      chmoth = 'AIRH'
      x = -1.69934
      y = 3.05978
      z = 0.2
      irot = 879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 880
      theta1 = 90
      phi1 = 120.324
      theta2 = 90
      phi2 = -149.676
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 267
      chmoth = 'AIRH'
      x = -1.76711
      y = 3.02114
      z = 0.2
      irot = 880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 881
      theta1 = 90
      phi1 = 121.601
      theta2 = 90
      phi2 = -148.399
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 268
      chmoth = 'AIRH'
      x = -1.834
      y = 2.98101
      z = 0.2
      irot = 881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 882
      theta1 = 90
      phi1 = 122.878
      theta2 = 90
      phi2 = -147.122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 269
      chmoth = 'AIRH'
      x = -1.89998
      y = 2.9394
      z = 0.2
      irot = 882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 883
      theta1 = 90
      phi1 = 124.155
      theta2 = 90
      phi2 = -145.845
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 270
      chmoth = 'AIRH'
      x = -1.96502
      y = 2.89633
      z = 0.2
      irot = 883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 884
      theta1 = 90
      phi1 = 125.432
      theta2 = 90
      phi2 = -144.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 271
      chmoth = 'AIRH'
      x = -2.02908
      y = 2.85181
      z = 0.2
      irot = 884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 885
      theta1 = 90
      phi1 = 126.709
      theta2 = 90
      phi2 = -143.291
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 272
      chmoth = 'AIRH'
      x = -2.09213
      y = 2.80589
      z = 0.2
      irot = 885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 886
      theta1 = 90
      phi1 = 127.986
      theta2 = 90
      phi2 = -142.014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 273
      chmoth = 'AIRH'
      x = -2.15414
      y = 2.75856
      z = 0.2
      irot = 886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 887
      theta1 = 90
      phi1 = 129.263
      theta2 = 90
      phi2 = -140.737
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 274
      chmoth = 'AIRH'
      x = -2.21508
      y = 2.70987
      z = 0.2
      irot = 887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 888
      theta1 = 90
      phi1 = 130.54
      theta2 = 90
      phi2 = -139.46
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 275
      chmoth = 'AIRH'
      x = -2.27493
      y = 2.65983
      z = 0.2
      irot = 888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 889
      theta1 = 90
      phi1 = 131.817
      theta2 = 90
      phi2 = -138.183
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 276
      chmoth = 'AIRH'
      x = -2.33364
      y = 2.60847
      z = 0.2
      irot = 889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 890
      theta1 = 90
      phi1 = 133.094
      theta2 = 90
      phi2 = -136.906
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 277
      chmoth = 'AIRH'
      x = -2.39119
      y = 2.55582
      z = 0.2
      irot = 890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 891
      theta1 = 90
      phi1 = 134.371
      theta2 = 90
      phi2 = -135.629
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 278
      chmoth = 'AIRH'
      x = -2.44756
      y = 2.50189
      z = 0.2
      irot = 891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 892
      theta1 = 90
      phi1 = 135.648
      theta2 = 90
      phi2 = -134.352
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 279
      chmoth = 'AIRH'
      x = -2.50271
      y = 2.44673
      z = 0.2
      irot = 892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 893
      theta1 = 90
      phi1 = 136.925
      theta2 = 90
      phi2 = -133.075
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 280
      chmoth = 'AIRH'
      x = -2.55661
      y = 2.39034
      z = 0.2
      irot = 893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 894
      theta1 = 90
      phi1 = 138.202
      theta2 = 90
      phi2 = -131.798
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 281
      chmoth = 'AIRH'
      x = -2.60925
      y = 2.33277
      z = 0.2
      irot = 894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 895
      theta1 = 90
      phi1 = 139.479
      theta2 = 90
      phi2 = -130.521
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 282
      chmoth = 'AIRH'
      x = -2.66059
      y = 2.27404
      z = 0.2
      irot = 895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 896
      theta1 = 90
      phi1 = 140.756
      theta2 = 90
      phi2 = -129.244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 283
      chmoth = 'AIRH'
      x = -2.71061
      y = 2.21418
      z = 0.2
      irot = 896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 897
      theta1 = 90
      phi1 = 142.033
      theta2 = 90
      phi2 = -127.967
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 284
      chmoth = 'AIRH'
      x = -2.75928
      y = 2.15323
      z = 0.2
      irot = 897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 898
      theta1 = 90
      phi1 = 143.31
      theta2 = 90
      phi2 = -126.69
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 285
      chmoth = 'AIRH'
      x = -2.80658
      y = 2.0912
      z = 0.2
      irot = 898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 899
      theta1 = 90
      phi1 = 144.587
      theta2 = 90
      phi2 = -125.413
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 286
      chmoth = 'AIRH'
      x = -2.85249
      y = 2.02813
      z = 0.2
      irot = 899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 900
      theta1 = 90
      phi1 = 145.864
      theta2 = 90
      phi2 = -124.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 287
      chmoth = 'AIRH'
      x = -2.89698
      y = 1.96406
      z = 0.2
      irot = 900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 901
      theta1 = 90
      phi1 = 147.141
      theta2 = 90
      phi2 = -122.859
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 288
      chmoth = 'AIRH'
      x = -2.94003
      y = 1.89901
      z = 0.2
      irot = 901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 902
      theta1 = 90
      phi1 = 148.418
      theta2 = 90
      phi2 = -121.582
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 289
      chmoth = 'AIRH'
      x = -2.98162
      y = 1.83301
      z = 0.2
      irot = 902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 903
      theta1 = 90
      phi1 = 149.695
      theta2 = 90
      phi2 = -120.305
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 290
      chmoth = 'AIRH'
      x = -3.02173
      y = 1.76611
      z = 0.2
      irot = 903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 904
      theta1 = 90
      phi1 = 150.972
      theta2 = 90
      phi2 = -119.028
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 291
      chmoth = 'AIRH'
      x = -3.06034
      y = 1.69833
      z = 0.2
      irot = 904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 905
      theta1 = 90
      phi1 = 152.249
      theta2 = 90
      phi2 = -117.751
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 292
      chmoth = 'AIRH'
      x = -3.09743
      y = 1.6297
      z = 0.2
      irot = 905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 906
      theta1 = 90
      phi1 = 153.526
      theta2 = 90
      phi2 = -116.474
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 293
      chmoth = 'AIRH'
      x = -3.13298
      y = 1.56027
      z = 0.2
      irot = 906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 907
      theta1 = 90
      phi1 = 154.803
      theta2 = 90
      phi2 = -115.197
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 294
      chmoth = 'AIRH'
      x = -3.16697
      y = 1.49006
      z = 0.2
      irot = 907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 908
      theta1 = 90
      phi1 = 156.08
      theta2 = 90
      phi2 = -113.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 295
      chmoth = 'AIRH'
      x = -3.19939
      y = 1.41911
      z = 0.2
      irot = 908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 909
      theta1 = 90
      phi1 = 157.357
      theta2 = 90
      phi2 = -112.643
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 296
      chmoth = 'AIRH'
      x = -3.23023
      y = 1.34746
      z = 0.2
      irot = 909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 910
      theta1 = 90
      phi1 = 158.634
      theta2 = 90
      phi2 = -111.366
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 297
      chmoth = 'AIRH'
      x = -3.25945
      y = 1.27513
      z = 0.2
      irot = 910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 911
      theta1 = 90
      phi1 = 159.911
      theta2 = 90
      phi2 = -110.089
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 298
      chmoth = 'AIRH'
      x = -3.28706
      y = 1.20218
      z = 0.2
      irot = 911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 912
      theta1 = 90
      phi1 = 161.188
      theta2 = 90
      phi2 = -108.812
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 299
      chmoth = 'AIRH'
      x = -3.31304
      y = 1.12862
      z = 0.2
      irot = 912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 913
      theta1 = 90
      phi1 = 162.465
      theta2 = 90
      phi2 = -107.535
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 300
      chmoth = 'AIRH'
      x = -3.33737
      y = 1.05451
      z = 0.2
      irot = 913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 914
      theta1 = 90
      phi1 = 163.742
      theta2 = 90
      phi2 = -106.258
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 301
      chmoth = 'AIRH'
      x = -3.36004
      y = 0.979871
      z = 0.2
      irot = 914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 915
      theta1 = 90
      phi1 = 106.25
      theta2 = 90
      phi2 = -163.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 302
      chmoth = 'AIRH'
      x = -1.00039
      y = 3.43218
      z = 0.2
      irot = 915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 916
      theta1 = 90
      phi1 = 107.5
      theta2 = 90
      phi2 = -162.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 303
      chmoth = 'AIRH'
      x = -1.07502
      y = 3.40954
      z = 0.2
      irot = 916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 917
      theta1 = 90
      phi1 = 108.75
      theta2 = 90
      phi2 = -161.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 304
      chmoth = 'AIRH'
      x = -1.14915
      y = 3.38528
      z = 0.2
      irot = 917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 305
      chmoth = 'AIRH'
      x = -1.22272
      y = 3.3594
      z = 0.2
      irot = 918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 919
      theta1 = 90
      phi1 = 111.25
      theta2 = 90
      phi2 = -158.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 306
      chmoth = 'AIRH'
      x = -1.29572
      y = 3.33193
      z = 0.2
      irot = 919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 307
      chmoth = 'AIRH'
      x = -1.36809
      y = 3.30287
      z = 0.2
      irot = 920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 921
      theta1 = 90
      phi1 = 113.75
      theta2 = 90
      phi2 = -156.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 308
      chmoth = 'AIRH'
      x = -1.43982
      y = 3.27224
      z = 0.2
      irot = 921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 309
      chmoth = 'AIRH'
      x = -1.51086
      y = 3.24005
      z = 0.2
      irot = 922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 923
      theta1 = 90
      phi1 = 116.25
      theta2 = 90
      phi2 = -153.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 310
      chmoth = 'AIRH'
      x = -1.58118
      y = 3.20632
      z = 0.2
      irot = 923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 924
      theta1 = 90
      phi1 = 117.5
      theta2 = 90
      phi2 = -152.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 311
      chmoth = 'AIRH'
      x = -1.65075
      y = 3.17106
      z = 0.2
      irot = 924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 925
      theta1 = 90
      phi1 = 118.75
      theta2 = 90
      phi2 = -151.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 312
      chmoth = 'AIRH'
      x = -1.71953
      y = 3.1343
      z = 0.2
      irot = 925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 313
      chmoth = 'AIRH'
      x = -1.7875
      y = 3.09604
      z = 0.2
      irot = 926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 927
      theta1 = 90
      phi1 = 121.25
      theta2 = 90
      phi2 = -148.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 314
      chmoth = 'AIRH'
      x = -1.85461
      y = 3.05631
      z = 0.2
      irot = 927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 928
      theta1 = 90
      phi1 = 122.5
      theta2 = 90
      phi2 = -147.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 315
      chmoth = 'AIRH'
      x = -1.92085
      y = 3.01512
      z = 0.2
      irot = 928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 929
      theta1 = 90
      phi1 = 123.75
      theta2 = 90
      phi2 = -146.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 316
      chmoth = 'AIRH'
      x = -1.98616
      y = 2.9725
      z = 0.2
      irot = 929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 930
      theta1 = 90
      phi1 = 125
      theta2 = 90
      phi2 = -145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 317
      chmoth = 'AIRH'
      x = -2.05054
      y = 2.92847
      z = 0.2
      irot = 930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 931
      theta1 = 90
      phi1 = 126.25
      theta2 = 90
      phi2 = -143.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 318
      chmoth = 'AIRH'
      x = -2.11393
      y = 2.88304
      z = 0.2
      irot = 931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 319
      chmoth = 'AIRH'
      x = -2.17632
      y = 2.83624
      z = 0.2
      irot = 932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 933
      theta1 = 90
      phi1 = 128.75
      theta2 = 90
      phi2 = -141.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 320
      chmoth = 'AIRH'
      x = -2.23768
      y = 2.78809
      z = 0.2
      irot = 933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 321
      chmoth = 'AIRH'
      x = -2.29797
      y = 2.73861
      z = 0.2
      irot = 934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 935
      theta1 = 90
      phi1 = 131.25
      theta2 = 90
      phi2 = -138.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 322
      chmoth = 'AIRH'
      x = -2.35716
      y = 2.68783
      z = 0.2
      irot = 935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 936
      theta1 = 90
      phi1 = 132.5
      theta2 = 90
      phi2 = -137.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 323
      chmoth = 'AIRH'
      x = -2.41523
      y = 2.63577
      z = 0.2
      irot = 936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 937
      theta1 = 90
      phi1 = 133.75
      theta2 = 90
      phi2 = -136.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 324
      chmoth = 'AIRH'
      x = -2.47216
      y = 2.58245
      z = 0.2
      irot = 937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 325
      chmoth = 'AIRH'
      x = -2.52791
      y = 2.52791
      z = 0.2
      irot = 938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 939
      theta1 = 90
      phi1 = 136.25
      theta2 = 90
      phi2 = -133.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 326
      chmoth = 'AIRH'
      x = -2.58245
      y = 2.47216
      z = 0.2
      irot = 939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 940
      theta1 = 90
      phi1 = 137.5
      theta2 = 90
      phi2 = -132.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 327
      chmoth = 'AIRH'
      x = -2.63577
      y = 2.41523
      z = 0.2
      irot = 940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 941
      theta1 = 90
      phi1 = 138.75
      theta2 = 90
      phi2 = -131.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 328
      chmoth = 'AIRH'
      x = -2.68783
      y = 2.35716
      z = 0.2
      irot = 941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 329
      chmoth = 'AIRH'
      x = -2.73861
      y = 2.29797
      z = 0.2
      irot = 942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 943
      theta1 = 90
      phi1 = 141.25
      theta2 = 90
      phi2 = -128.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 330
      chmoth = 'AIRH'
      x = -2.78809
      y = 2.23768
      z = 0.2
      irot = 943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 331
      chmoth = 'AIRH'
      x = -2.83624
      y = 2.17632
      z = 0.2
      irot = 944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 945
      theta1 = 90
      phi1 = 143.75
      theta2 = 90
      phi2 = -126.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 332
      chmoth = 'AIRH'
      x = -2.88304
      y = 2.11393
      z = 0.2
      irot = 945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 946
      theta1 = 90
      phi1 = 145
      theta2 = 90
      phi2 = -125
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 333
      chmoth = 'AIRH'
      x = -2.92847
      y = 2.05054
      z = 0.2
      irot = 946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 947
      theta1 = 90
      phi1 = 146.25
      theta2 = 90
      phi2 = -123.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 334
      chmoth = 'AIRH'
      x = -2.9725
      y = 1.98616
      z = 0.2
      irot = 947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 948
      theta1 = 90
      phi1 = 147.5
      theta2 = 90
      phi2 = -122.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 335
      chmoth = 'AIRH'
      x = -3.01512
      y = 1.92085
      z = 0.2
      irot = 948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 949
      theta1 = 90
      phi1 = 148.75
      theta2 = 90
      phi2 = -121.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 336
      chmoth = 'AIRH'
      x = -3.05631
      y = 1.85461
      z = 0.2
      irot = 949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 337
      chmoth = 'AIRH'
      x = -3.09604
      y = 1.7875
      z = 0.2
      irot = 950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 951
      theta1 = 90
      phi1 = 151.25
      theta2 = 90
      phi2 = -118.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 338
      chmoth = 'AIRH'
      x = -3.1343
      y = 1.71953
      z = 0.2
      irot = 951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 952
      theta1 = 90
      phi1 = 152.5
      theta2 = 90
      phi2 = -117.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 339
      chmoth = 'AIRH'
      x = -3.17106
      y = 1.65075
      z = 0.2
      irot = 952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 953
      theta1 = 90
      phi1 = 153.75
      theta2 = 90
      phi2 = -116.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 340
      chmoth = 'AIRH'
      x = -3.20632
      y = 1.58118
      z = 0.2
      irot = 953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 341
      chmoth = 'AIRH'
      x = -3.24005
      y = 1.51086
      z = 0.2
      irot = 954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 955
      theta1 = 90
      phi1 = 156.25
      theta2 = 90
      phi2 = -113.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 342
      chmoth = 'AIRH'
      x = -3.27224
      y = 1.43982
      z = 0.2
      irot = 955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 343
      chmoth = 'AIRH'
      x = -3.30287
      y = 1.36809
      z = 0.2
      irot = 956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 957
      theta1 = 90
      phi1 = 158.75
      theta2 = 90
      phi2 = -111.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 344
      chmoth = 'AIRH'
      x = -3.33193
      y = 1.29572
      z = 0.2
      irot = 957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN6'
      nr = 345
      chmoth = 'AIRH'
      x = -3.3594
      y = 1.22272
      z = 0.2
      irot = 958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 959
      theta1 = 90
      phi1 = 161.25
      theta2 = 90
      phi2 = -108.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 346
      chmoth = 'AIRH'
      x = -3.38528
      y = 1.14915
      z = 0.2
      irot = 959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 960
      theta1 = 90
      phi1 = 162.5
      theta2 = 90
      phi2 = -107.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 347
      chmoth = 'AIRH'
      x = -3.40954
      y = 1.07502
      z = 0.2
      irot = 960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 961
      theta1 = 90
      phi1 = 163.75
      theta2 = 90
      phi2 = -106.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 348
      chmoth = 'AIRH'
      x = -3.43218
      y = 1.00039
      z = 0.2
      irot = 961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 962
      theta1 = 90
      phi1 = 106.224
      theta2 = 90
      phi2 = -163.776
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 349
      chmoth = 'AIRH'
      x = -1.01979
      y = 3.50465
      z = 0.2
      irot = 962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 963
      theta1 = 90
      phi1 = 107.448
      theta2 = 90
      phi2 = -162.552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 350
      chmoth = 'AIRH'
      x = -1.09442
      y = 3.48206
      z = 0.2
      irot = 963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 964
      theta1 = 90
      phi1 = 108.672
      theta2 = 90
      phi2 = -161.328
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 351
      chmoth = 'AIRH'
      x = -1.16855
      y = 3.45789
      z = 0.2
      irot = 964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 965
      theta1 = 90
      phi1 = 109.896
      theta2 = 90
      phi2 = -160.104
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 352
      chmoth = 'AIRH'
      x = -1.24215
      y = 3.43214
      z = 0.2
      irot = 965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 966
      theta1 = 90
      phi1 = 111.12
      theta2 = 90
      phi2 = -158.88
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 353
      chmoth = 'AIRH'
      x = -1.31518
      y = 3.40482
      z = 0.2
      irot = 966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 967
      theta1 = 90
      phi1 = 112.344
      theta2 = 90
      phi2 = -157.656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 354
      chmoth = 'AIRH'
      x = -1.38761
      y = 3.37595
      z = 0.2
      irot = 967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 968
      theta1 = 90
      phi1 = 113.568
      theta2 = 90
      phi2 = -156.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 355
      chmoth = 'AIRH'
      x = -1.45941
      y = 3.34554
      z = 0.2
      irot = 968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 969
      theta1 = 90
      phi1 = 114.792
      theta2 = 90
      phi2 = -155.208
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 356
      chmoth = 'AIRH'
      x = -1.53054
      y = 3.3136
      z = 0.2
      irot = 969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 970
      theta1 = 90
      phi1 = 116.016
      theta2 = 90
      phi2 = -153.984
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 357
      chmoth = 'AIRH'
      x = -1.60097
      y = 3.28015
      z = 0.2
      irot = 970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 971
      theta1 = 90
      phi1 = 117.24
      theta2 = 90
      phi2 = -152.76
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 358
      chmoth = 'AIRH'
      x = -1.67067
      y = 3.2452
      z = 0.2
      irot = 971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 972
      theta1 = 90
      phi1 = 118.464
      theta2 = 90
      phi2 = -151.536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 359
      chmoth = 'AIRH'
      x = -1.73961
      y = 3.20878
      z = 0.2
      irot = 972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 973
      theta1 = 90
      phi1 = 119.688
      theta2 = 90
      phi2 = -150.312
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 360
      chmoth = 'AIRH'
      x = -1.80776
      y = 3.17088
      z = 0.2
      irot = 973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 974
      theta1 = 90
      phi1 = 120.912
      theta2 = 90
      phi2 = -149.088
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 361
      chmoth = 'AIRH'
      x = -1.87508
      y = 3.13154
      z = 0.2
      irot = 974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 975
      theta1 = 90
      phi1 = 122.136
      theta2 = 90
      phi2 = -147.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 362
      chmoth = 'AIRH'
      x = -1.94155
      y = 3.09078
      z = 0.2
      irot = 975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 976
      theta1 = 90
      phi1 = 123.36
      theta2 = 90
      phi2 = -146.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 363
      chmoth = 'AIRH'
      x = -2.00713
      y = 3.0486
      z = 0.2
      irot = 976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 977
      theta1 = 90
      phi1 = 124.584
      theta2 = 90
      phi2 = -145.416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 364
      chmoth = 'AIRH'
      x = -2.07179
      y = 3.00503
      z = 0.2
      irot = 977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 978
      theta1 = 90
      phi1 = 125.808
      theta2 = 90
      phi2 = -144.192
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 365
      chmoth = 'AIRH'
      x = -2.13551
      y = 2.96008
      z = 0.2
      irot = 978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 979
      theta1 = 90
      phi1 = 127.032
      theta2 = 90
      phi2 = -142.968
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 366
      chmoth = 'AIRH'
      x = -2.19825
      y = 2.91379
      z = 0.2
      irot = 979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 980
      theta1 = 90
      phi1 = 128.256
      theta2 = 90
      phi2 = -141.744
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 367
      chmoth = 'AIRH'
      x = -2.25999
      y = 2.86617
      z = 0.2
      irot = 980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 981
      theta1 = 90
      phi1 = 129.48
      theta2 = 90
      phi2 = -140.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 368
      chmoth = 'AIRH'
      x = -2.3207
      y = 2.81724
      z = 0.2
      irot = 981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 982
      theta1 = 90
      phi1 = 130.704
      theta2 = 90
      phi2 = -139.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 369
      chmoth = 'AIRH'
      x = -2.38035
      y = 2.76702
      z = 0.2
      irot = 982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 983
      theta1 = 90
      phi1 = 131.928
      theta2 = 90
      phi2 = -138.072
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 370
      chmoth = 'AIRH'
      x = -2.43892
      y = 2.71555
      z = 0.2
      irot = 983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 984
      theta1 = 90
      phi1 = 133.152
      theta2 = 90
      phi2 = -136.848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 371
      chmoth = 'AIRH'
      x = -2.49637
      y = 2.66283
      z = 0.2
      irot = 984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 985
      theta1 = 90
      phi1 = 134.376
      theta2 = 90
      phi2 = -135.624
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 372
      chmoth = 'AIRH'
      x = -2.55268
      y = 2.60889
      z = 0.2
      irot = 985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 986
      theta1 = 90
      phi1 = 135.6
      theta2 = 90
      phi2 = -134.4
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 373
      chmoth = 'AIRH'
      x = -2.60783
      y = 2.55377
      z = 0.2
      irot = 986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 987
      theta1 = 90
      phi1 = 136.824
      theta2 = 90
      phi2 = -133.176
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 374
      chmoth = 'AIRH'
      x = -2.66178
      y = 2.49748
      z = 0.2
      irot = 987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 988
      theta1 = 90
      phi1 = 138.048
      theta2 = 90
      phi2 = -131.952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 375
      chmoth = 'AIRH'
      x = -2.71452
      y = 2.44005
      z = 0.2
      irot = 988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 989
      theta1 = 90
      phi1 = 139.272
      theta2 = 90
      phi2 = -130.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 376
      chmoth = 'AIRH'
      x = -2.76603
      y = 2.38151
      z = 0.2
      irot = 989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 990
      theta1 = 90
      phi1 = 140.496
      theta2 = 90
      phi2 = -129.504
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 377
      chmoth = 'AIRH'
      x = -2.81627
      y = 2.32188
      z = 0.2
      irot = 990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 991
      theta1 = 90
      phi1 = 141.72
      theta2 = 90
      phi2 = -128.28
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 378
      chmoth = 'AIRH'
      x = -2.86522
      y = 2.26119
      z = 0.2
      irot = 991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 992
      theta1 = 90
      phi1 = 142.944
      theta2 = 90
      phi2 = -127.056
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 379
      chmoth = 'AIRH'
      x = -2.91287
      y = 2.19947
      z = 0.2
      irot = 992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 993
      theta1 = 90
      phi1 = 144.168
      theta2 = 90
      phi2 = -125.832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 380
      chmoth = 'AIRH'
      x = -2.95919
      y = 2.13675
      z = 0.2
      irot = 993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 994
      theta1 = 90
      phi1 = 145.392
      theta2 = 90
      phi2 = -124.608
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 381
      chmoth = 'AIRH'
      x = -3.00416
      y = 2.07305
      z = 0.2
      irot = 994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 995
      theta1 = 90
      phi1 = 146.616
      theta2 = 90
      phi2 = -123.384
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 382
      chmoth = 'AIRH'
      x = -3.04776
      y = 2.0084
      z = 0.2
      irot = 995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 996
      theta1 = 90
      phi1 = 147.84
      theta2 = 90
      phi2 = -122.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 383
      chmoth = 'AIRH'
      x = -3.08996
      y = 1.94284
      z = 0.2
      irot = 996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 997
      theta1 = 90
      phi1 = 149.064
      theta2 = 90
      phi2 = -120.936
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 384
      chmoth = 'AIRH'
      x = -3.13076
      y = 1.87639
      z = 0.2
      irot = 997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 998
      theta1 = 90
      phi1 = 150.288
      theta2 = 90
      phi2 = -119.712
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 385
      chmoth = 'AIRH'
      x = -3.17013
      y = 1.80909
      z = 0.2
      irot = 998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 999
      theta1 = 90
      phi1 = 151.512
      theta2 = 90
      phi2 = -118.488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 386
      chmoth = 'AIRH'
      x = -3.20805
      y = 1.74096
      z = 0.2
      irot = 999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1000
      theta1 = 90
      phi1 = 152.736
      theta2 = 90
      phi2 = -117.264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 387
      chmoth = 'AIRH'
      x = -3.2445
      y = 1.67203
      z = 0.2
      irot = 1000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1001
      theta1 = 90
      phi1 = 153.96
      theta2 = 90
      phi2 = -116.04
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 388
      chmoth = 'AIRH'
      x = -3.27948
      y = 1.60234
      z = 0.2
      irot = 1001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1002
      theta1 = 90
      phi1 = 155.184
      theta2 = 90
      phi2 = -114.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 389
      chmoth = 'AIRH'
      x = -3.31296
      y = 1.53193
      z = 0.2
      irot = 1002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1003
      theta1 = 90
      phi1 = 156.408
      theta2 = 90
      phi2 = -113.592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 390
      chmoth = 'AIRH'
      x = -3.34493
      y = 1.46081
      z = 0.2
      irot = 1003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1004
      theta1 = 90
      phi1 = 157.632
      theta2 = 90
      phi2 = -112.368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 391
      chmoth = 'AIRH'
      x = -3.37537
      y = 1.38902
      z = 0.2
      irot = 1004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1005
      theta1 = 90
      phi1 = 158.856
      theta2 = 90
      phi2 = -111.144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 392
      chmoth = 'AIRH'
      x = -3.40427
      y = 1.3166
      z = 0.2
      irot = 1005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1006
      theta1 = 90
      phi1 = 160.08
      theta2 = 90
      phi2 = -109.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 393
      chmoth = 'AIRH'
      x = -3.43162
      y = 1.24358
      z = 0.2
      irot = 1006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1007
      theta1 = 90
      phi1 = 161.304
      theta2 = 90
      phi2 = -108.696
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 394
      chmoth = 'AIRH'
      x = -3.4574
      y = 1.17
      z = 0.2
      irot = 1007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1008
      theta1 = 90
      phi1 = 162.528
      theta2 = 90
      phi2 = -107.472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 395
      chmoth = 'AIRH'
      x = -3.4816
      y = 1.09587
      z = 0.2
      irot = 1008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1009
      theta1 = 90
      phi1 = 163.752
      theta2 = 90
      phi2 = -106.248
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN6'
      nr = 396
      chmoth = 'AIRH'
      x = -3.50422
      y = 1.02125
      z = 0.2
      irot = 1009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BA23'
      chshap = 'TUBS'
      nmed = 23
      npar = 5
      par(1) = 3
      par(2) = 6
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.23) stop 'consistency check #1 failed'

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

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

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

      chname = 'PIN7'
      chshap = 'TUBE'
      nmed = 24
      npar = 3
      par(1) = 0
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.24) stop 'consistency check #1 failed'

      irot = 1011
      theta1 = 90
      phi1 = -163.537
      theta2 = 90
      phi2 = -73.537
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 1
      chmoth = 'AIRH'
      x = -2.92496
      y = -0.864358
      z = 0.2
      irot = 1011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1012
      theta1 = 90
      phi1 = -162.074
      theta2 = 90
      phi2 = -72.074
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 2
      chmoth = 'AIRH'
      x = -2.90194
      y = -0.938755
      z = 0.2
      irot = 1012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1013
      theta1 = 90
      phi1 = -160.611
      theta2 = 90
      phi2 = -70.611
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 3
      chmoth = 'AIRH'
      x = -2.87702
      y = -1.01254
      z = 0.2
      irot = 1013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1014
      theta1 = 90
      phi1 = -159.148
      theta2 = 90
      phi2 = -69.148
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 4
      chmoth = 'AIRH'
      x = -2.85023
      y = -1.08566
      z = 0.2
      irot = 1014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1015
      theta1 = 90
      phi1 = -157.685
      theta2 = 90
      phi2 = -67.685
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 5
      chmoth = 'AIRH'
      x = -2.82159
      y = -1.15808
      z = 0.2
      irot = 1015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1016
      theta1 = 90
      phi1 = -156.222
      theta2 = 90
      phi2 = -66.222
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 6
      chmoth = 'AIRH'
      x = -2.7911
      y = -1.22974
      z = 0.2
      irot = 1016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1017
      theta1 = 90
      phi1 = -154.759
      theta2 = 90
      phi2 = -64.759
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 7
      chmoth = 'AIRH'
      x = -2.75879
      y = -1.3006
      z = 0.2
      irot = 1017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1018
      theta1 = 90
      phi1 = -153.296
      theta2 = 90
      phi2 = -63.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 8
      chmoth = 'AIRH'
      x = -2.72469
      y = -1.37061
      z = 0.2
      irot = 1018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1019
      theta1 = 90
      phi1 = -151.833
      theta2 = 90
      phi2 = -61.833
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 9
      chmoth = 'AIRH'
      x = -2.68881
      y = -1.43973
      z = 0.2
      irot = 1019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1020
      theta1 = 90
      phi1 = -150.37
      theta2 = 90
      phi2 = -60.37
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 10
      chmoth = 'AIRH'
      x = -2.65117
      y = -1.50791
      z = 0.2
      irot = 1020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1021
      theta1 = 90
      phi1 = -148.907
      theta2 = 90
      phi2 = -58.907
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 11
      chmoth = 'AIRH'
      x = -2.61181
      y = -1.57511
      z = 0.2
      irot = 1021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1022
      theta1 = 90
      phi1 = -147.444
      theta2 = 90
      phi2 = -57.444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 12
      chmoth = 'AIRH'
      x = -2.57074
      y = -1.64128
      z = 0.2
      irot = 1022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1023
      theta1 = 90
      phi1 = -145.981
      theta2 = 90
      phi2 = -55.981
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 13
      chmoth = 'AIRH'
      x = -2.528
      y = -1.70638
      z = 0.2
      irot = 1023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1024
      theta1 = 90
      phi1 = -144.518
      theta2 = 90
      phi2 = -54.518
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 14
      chmoth = 'AIRH'
      x = -2.48361
      y = -1.77036
      z = 0.2
      irot = 1024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1025
      theta1 = 90
      phi1 = -143.055
      theta2 = 90
      phi2 = -53.055
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 15
      chmoth = 'AIRH'
      x = -2.4376
      y = -1.8332
      z = 0.2
      irot = 1025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1026
      theta1 = 90
      phi1 = -141.592
      theta2 = 90
      phi2 = -51.592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 16
      chmoth = 'AIRH'
      x = -2.39
      y = -1.89483
      z = 0.2
      irot = 1026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1027
      theta1 = 90
      phi1 = -140.129
      theta2 = 90
      phi2 = -50.129
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 17
      chmoth = 'AIRH'
      x = -2.34084
      y = -1.95524
      z = 0.2
      irot = 1027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1028
      theta1 = 90
      phi1 = -138.666
      theta2 = 90
      phi2 = -48.666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 18
      chmoth = 'AIRH'
      x = -2.29016
      y = -2.01436
      z = 0.2
      irot = 1028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1029
      theta1 = 90
      phi1 = -137.203
      theta2 = 90
      phi2 = -47.203
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 19
      chmoth = 'AIRH'
      x = -2.23798
      y = -2.07218
      z = 0.2
      irot = 1029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1030
      theta1 = 90
      phi1 = -135.74
      theta2 = 90
      phi2 = -45.74
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 20
      chmoth = 'AIRH'
      x = -2.18435
      y = -2.12864
      z = 0.2
      irot = 1030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1031
      theta1 = 90
      phi1 = -134.277
      theta2 = 90
      phi2 = -44.277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 21
      chmoth = 'AIRH'
      x = -2.12929
      y = -2.18372
      z = 0.2
      irot = 1031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1032
      theta1 = 90
      phi1 = -132.814
      theta2 = 90
      phi2 = -42.814
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 22
      chmoth = 'AIRH'
      x = -2.07284
      y = -2.23737
      z = 0.2
      irot = 1032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1033
      theta1 = 90
      phi1 = -131.351
      theta2 = 90
      phi2 = -41.351
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 23
      chmoth = 'AIRH'
      x = -2.01504
      y = -2.28956
      z = 0.2
      irot = 1033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1034
      theta1 = 90
      phi1 = -129.888
      theta2 = 90
      phi2 = -39.888
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 24
      chmoth = 'AIRH'
      x = -1.95593
      y = -2.34026
      z = 0.2
      irot = 1034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1035
      theta1 = 90
      phi1 = -128.425
      theta2 = 90
      phi2 = -38.425
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 25
      chmoth = 'AIRH'
      x = -1.89554
      y = -2.38944
      z = 0.2
      irot = 1035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1036
      theta1 = 90
      phi1 = -126.962
      theta2 = 90
      phi2 = -36.962
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 26
      chmoth = 'AIRH'
      x = -1.83392
      y = -2.43706
      z = 0.2
      irot = 1036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1037
      theta1 = 90
      phi1 = -125.499
      theta2 = 90
      phi2 = -35.499
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 27
      chmoth = 'AIRH'
      x = -1.7711
      y = -2.48308
      z = 0.2
      irot = 1037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1038
      theta1 = 90
      phi1 = -124.036
      theta2 = 90
      phi2 = -34.036
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 28
      chmoth = 'AIRH'
      x = -1.70713
      y = -2.52749
      z = 0.2
      irot = 1038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1039
      theta1 = 90
      phi1 = -122.573
      theta2 = 90
      phi2 = -32.573
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 29
      chmoth = 'AIRH'
      x = -1.64204
      y = -2.57025
      z = 0.2
      irot = 1039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1040
      theta1 = 90
      phi1 = -121.11
      theta2 = 90
      phi2 = -31.11
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 30
      chmoth = 'AIRH'
      x = -1.57588
      y = -2.61134
      z = 0.2
      irot = 1040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1041
      theta1 = 90
      phi1 = -119.647
      theta2 = 90
      phi2 = -29.647
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 31
      chmoth = 'AIRH'
      x = -1.5087
      y = -2.65072
      z = 0.2
      irot = 1041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1042
      theta1 = 90
      phi1 = -118.184
      theta2 = 90
      phi2 = -28.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 32
      chmoth = 'AIRH'
      x = -1.44053
      y = -2.68838
      z = 0.2
      irot = 1042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1043
      theta1 = 90
      phi1 = -116.721
      theta2 = 90
      phi2 = -26.721
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 33
      chmoth = 'AIRH'
      x = -1.37142
      y = -2.72428
      z = 0.2
      irot = 1043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1044
      theta1 = 90
      phi1 = -115.258
      theta2 = 90
      phi2 = -25.258
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 34
      chmoth = 'AIRH'
      x = -1.30142
      y = -2.75841
      z = 0.2
      irot = 1044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1045
      theta1 = 90
      phi1 = -113.795
      theta2 = 90
      phi2 = -23.795
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 35
      chmoth = 'AIRH'
      x = -1.23057
      y = -2.79073
      z = 0.2
      irot = 1045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1046
      theta1 = 90
      phi1 = -112.332
      theta2 = 90
      phi2 = -22.332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 36
      chmoth = 'AIRH'
      x = -1.15892
      y = -2.82124
      z = 0.2
      irot = 1046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1047
      theta1 = 90
      phi1 = -110.869
      theta2 = 90
      phi2 = -20.869
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 37
      chmoth = 'AIRH'
      x = -1.08651
      y = -2.84991
      z = 0.2
      irot = 1047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1048
      theta1 = 90
      phi1 = -109.406
      theta2 = 90
      phi2 = -19.406
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 38
      chmoth = 'AIRH'
      x = -1.01339
      y = -2.87672
      z = 0.2
      irot = 1048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1049
      theta1 = 90
      phi1 = -107.943
      theta2 = 90
      phi2 = -17.943
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 39
      chmoth = 'AIRH'
      x = -0.939616
      y = -2.90166
      z = 0.2
      irot = 1049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1050
      theta1 = 90
      phi1 = -106.48
      theta2 = 90
      phi2 = -16.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 40
      chmoth = 'AIRH'
      x = -0.865226
      y = -2.9247
      z = 0.2
      irot = 1050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1051
      theta1 = 90
      phi1 = -163.571
      theta2 = 90
      phi2 = -73.571
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 41
      chmoth = 'AIRH'
      x = -2.99741
      y = -0.883834
      z = 0.2
      irot = 1051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1052
      theta1 = 90
      phi1 = -162.142
      theta2 = 90
      phi2 = -72.142
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 42
      chmoth = 'AIRH'
      x = -2.97444
      y = -0.958309
      z = 0.2
      irot = 1052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1053
      theta1 = 90
      phi1 = -160.713
      theta2 = 90
      phi2 = -70.713
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 43
      chmoth = 'AIRH'
      x = -2.94961
      y = -1.03219
      z = 0.2
      irot = 1053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1054
      theta1 = 90
      phi1 = -159.284
      theta2 = 90
      phi2 = -69.284
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 44
      chmoth = 'AIRH'
      x = -2.92295
      y = -1.10543
      z = 0.2
      irot = 1054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1055
      theta1 = 90
      phi1 = -157.855
      theta2 = 90
      phi2 = -67.855
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 45
      chmoth = 'AIRH'
      x = -2.89448
      y = -1.17797
      z = 0.2
      irot = 1055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1056
      theta1 = 90
      phi1 = -156.426
      theta2 = 90
      phi2 = -66.426
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 46
      chmoth = 'AIRH'
      x = -2.8642
      y = -1.24979
      z = 0.2
      irot = 1056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1057
      theta1 = 90
      phi1 = -154.997
      theta2 = 90
      phi2 = -64.997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 47
      chmoth = 'AIRH'
      x = -2.83214
      y = -1.32083
      z = 0.2
      irot = 1057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1058
      theta1 = 90
      phi1 = -153.568
      theta2 = 90
      phi2 = -63.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 48
      chmoth = 'AIRH'
      x = -2.79832
      y = -1.39105
      z = 0.2
      irot = 1058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1059
      theta1 = 90
      phi1 = -152.139
      theta2 = 90
      phi2 = -62.139
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 49
      chmoth = 'AIRH'
      x = -2.76276
      y = -1.4604
      z = 0.2
      irot = 1059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1060
      theta1 = 90
      phi1 = -150.71
      theta2 = 90
      phi2 = -60.71
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 50
      chmoth = 'AIRH'
      x = -2.72548
      y = -1.52884
      z = 0.2
      irot = 1060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1061
      theta1 = 90
      phi1 = -149.281
      theta2 = 90
      phi2 = -59.281
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 51
      chmoth = 'AIRH'
      x = -2.68651
      y = -1.59634
      z = 0.2
      irot = 1061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1062
      theta1 = 90
      phi1 = -147.852
      theta2 = 90
      phi2 = -57.852
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 52
      chmoth = 'AIRH'
      x = -2.64586
      y = -1.66284
      z = 0.2
      irot = 1062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1063
      theta1 = 90
      phi1 = -146.423
      theta2 = 90
      phi2 = -56.423
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 53
      chmoth = 'AIRH'
      x = -2.60357
      y = -1.7283
      z = 0.2
      irot = 1063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1064
      theta1 = 90
      phi1 = -144.994
      theta2 = 90
      phi2 = -54.994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 54
      chmoth = 'AIRH'
      x = -2.55966
      y = -1.79269
      z = 0.2
      irot = 1064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1065
      theta1 = 90
      phi1 = -143.565
      theta2 = 90
      phi2 = -53.565
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 55
      chmoth = 'AIRH'
      x = -2.51416
      y = -1.85597
      z = 0.2
      irot = 1065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1066
      theta1 = 90
      phi1 = -142.136
      theta2 = 90
      phi2 = -52.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 56
      chmoth = 'AIRH'
      x = -2.46709
      y = -1.91809
      z = 0.2
      irot = 1066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1067
      theta1 = 90
      phi1 = -140.707
      theta2 = 90
      phi2 = -50.707
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 57
      chmoth = 'AIRH'
      x = -2.41849
      y = -1.97902
      z = 0.2
      irot = 1067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1068
      theta1 = 90
      phi1 = -139.278
      theta2 = 90
      phi2 = -49.278
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 58
      chmoth = 'AIRH'
      x = -2.36839
      y = -2.03872
      z = 0.2
      irot = 1068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1069
      theta1 = 90
      phi1 = -137.849
      theta2 = 90
      phi2 = -47.849
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 59
      chmoth = 'AIRH'
      x = -2.31681
      y = -2.09715
      z = 0.2
      irot = 1069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1070
      theta1 = 90
      phi1 = -136.42
      theta2 = 90
      phi2 = -46.42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 60
      chmoth = 'AIRH'
      x = -2.26379
      y = -2.15427
      z = 0.2
      irot = 1070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1071
      theta1 = 90
      phi1 = -134.991
      theta2 = 90
      phi2 = -44.991
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 61
      chmoth = 'AIRH'
      x = -2.20936
      y = -2.21006
      z = 0.2
      irot = 1071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1072
      theta1 = 90
      phi1 = -133.562
      theta2 = 90
      phi2 = -43.562
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 62
      chmoth = 'AIRH'
      x = -2.15356
      y = -2.26447
      z = 0.2
      irot = 1072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1073
      theta1 = 90
      phi1 = -132.133
      theta2 = 90
      phi2 = -42.133
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 63
      chmoth = 'AIRH'
      x = -2.09642
      y = -2.31747
      z = 0.2
      irot = 1073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1074
      theta1 = 90
      phi1 = -130.704
      theta2 = 90
      phi2 = -40.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 64
      chmoth = 'AIRH'
      x = -2.03797
      y = -2.36903
      z = 0.2
      irot = 1074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1075
      theta1 = 90
      phi1 = -129.275
      theta2 = 90
      phi2 = -39.275
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 65
      chmoth = 'AIRH'
      x = -1.97826
      y = -2.41911
      z = 0.2
      irot = 1075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1076
      theta1 = 90
      phi1 = -127.846
      theta2 = 90
      phi2 = -37.846
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 66
      chmoth = 'AIRH'
      x = -1.91732
      y = -2.4677
      z = 0.2
      irot = 1076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1077
      theta1 = 90
      phi1 = -126.417
      theta2 = 90
      phi2 = -36.417
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 67
      chmoth = 'AIRH'
      x = -1.85518
      y = -2.51474
      z = 0.2
      irot = 1077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1078
      theta1 = 90
      phi1 = -124.988
      theta2 = 90
      phi2 = -34.988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 68
      chmoth = 'AIRH'
      x = -1.79189
      y = -2.56023
      z = 0.2
      irot = 1078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1079
      theta1 = 90
      phi1 = -123.559
      theta2 = 90
      phi2 = -33.559
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 69
      chmoth = 'AIRH'
      x = -1.72749
      y = -2.60412
      z = 0.2
      irot = 1079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1080
      theta1 = 90
      phi1 = -122.13
      theta2 = 90
      phi2 = -32.13
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 70
      chmoth = 'AIRH'
      x = -1.66201
      y = -2.64639
      z = 0.2
      irot = 1080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1081
      theta1 = 90
      phi1 = -120.701
      theta2 = 90
      phi2 = -30.701
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 71
      chmoth = 'AIRH'
      x = -1.59549
      y = -2.68701
      z = 0.2
      irot = 1081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1082
      theta1 = 90
      phi1 = -119.272
      theta2 = 90
      phi2 = -29.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 72
      chmoth = 'AIRH'
      x = -1.52799
      y = -2.72596
      z = 0.2
      irot = 1082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1083
      theta1 = 90
      phi1 = -117.843
      theta2 = 90
      phi2 = -27.843
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 73
      chmoth = 'AIRH'
      x = -1.45953
      y = -2.76322
      z = 0.2
      irot = 1083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1084
      theta1 = 90
      phi1 = -116.414
      theta2 = 90
      phi2 = -26.414
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 74
      chmoth = 'AIRH'
      x = -1.39017
      y = -2.79876
      z = 0.2
      irot = 1084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1085
      theta1 = 90
      phi1 = -114.985
      theta2 = 90
      phi2 = -24.985
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 75
      chmoth = 'AIRH'
      x = -1.31994
      y = -2.83256
      z = 0.2
      irot = 1085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1086
      theta1 = 90
      phi1 = -113.556
      theta2 = 90
      phi2 = -23.556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 76
      chmoth = 'AIRH'
      x = -1.24889
      y = -2.86459
      z = 0.2
      irot = 1086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1087
      theta1 = 90
      phi1 = -112.127
      theta2 = 90
      phi2 = -22.127
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 77
      chmoth = 'AIRH'
      x = -1.17707
      y = -2.89485
      z = 0.2
      irot = 1087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1088
      theta1 = 90
      phi1 = -110.698
      theta2 = 90
      phi2 = -20.698
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 78
      chmoth = 'AIRH'
      x = -1.10451
      y = -2.9233
      z = 0.2
      irot = 1088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1089
      theta1 = 90
      phi1 = -109.269
      theta2 = 90
      phi2 = -19.269
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 79
      chmoth = 'AIRH'
      x = -1.03126
      y = -2.94994
      z = 0.2
      irot = 1089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1090
      theta1 = 90
      phi1 = -107.84
      theta2 = 90
      phi2 = -17.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 80
      chmoth = 'AIRH'
      x = -0.957375
      y = -2.97474
      z = 0.2
      irot = 1090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1091
      theta1 = 90
      phi1 = -106.411
      theta2 = 90
      phi2 = -16.411
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 81
      chmoth = 'AIRH'
      x = -0.882893
      y = -2.99769
      z = 0.2
      irot = 1091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1092
      theta1 = 90
      phi1 = -163.605
      theta2 = 90
      phi2 = -73.605
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 82
      chmoth = 'AIRH'
      x = -3.06988
      y = -0.903225
      z = 0.2
      irot = 1092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1093
      theta1 = 90
      phi1 = -162.21
      theta2 = 90
      phi2 = -72.21
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 83
      chmoth = 'AIRH'
      x = -3.04698
      y = -0.977693
      z = 0.2
      irot = 1093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1094
      theta1 = 90
      phi1 = -160.815
      theta2 = 90
      phi2 = -70.815
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 84
      chmoth = 'AIRH'
      x = -3.02228
      y = -1.05158
      z = 0.2
      irot = 1094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1095
      theta1 = 90
      phi1 = -159.42
      theta2 = 90
      phi2 = -69.42
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 85
      chmoth = 'AIRH'
      x = -2.99578
      y = -1.12485
      z = 0.2
      irot = 1095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1096
      theta1 = 90
      phi1 = -158.025
      theta2 = 90
      phi2 = -68.025
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 86
      chmoth = 'AIRH'
      x = -2.96751
      y = -1.19745
      z = 0.2
      irot = 1096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1097
      theta1 = 90
      phi1 = -156.63
      theta2 = 90
      phi2 = -66.63
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 87
      chmoth = 'AIRH'
      x = -2.93748
      y = -1.26934
      z = 0.2
      irot = 1097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1098
      theta1 = 90
      phi1 = -155.235
      theta2 = 90
      phi2 = -65.235
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 88
      chmoth = 'AIRH'
      x = -2.90571
      y = -1.34047
      z = 0.2
      irot = 1098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1099
      theta1 = 90
      phi1 = -153.84
      theta2 = 90
      phi2 = -63.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 89
      chmoth = 'AIRH'
      x = -2.87221
      y = -1.41081
      z = 0.2
      irot = 1099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1100
      theta1 = 90
      phi1 = -152.445
      theta2 = 90
      phi2 = -62.445
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 90
      chmoth = 'AIRH'
      x = -2.83701
      y = -1.48032
      z = 0.2
      irot = 1100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1101
      theta1 = 90
      phi1 = -151.05
      theta2 = 90
      phi2 = -61.05
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 91
      chmoth = 'AIRH'
      x = -2.80014
      y = -1.54895
      z = 0.2
      irot = 1101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1102
      theta1 = 90
      phi1 = -149.655
      theta2 = 90
      phi2 = -59.655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 92
      chmoth = 'AIRH'
      x = -2.7616
      y = -1.61666
      z = 0.2
      irot = 1102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1103
      theta1 = 90
      phi1 = -148.26
      theta2 = 90
      phi2 = -58.26
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 93
      chmoth = 'AIRH'
      x = -2.72142
      y = -1.68341
      z = 0.2
      irot = 1103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1104
      theta1 = 90
      phi1 = -146.865
      theta2 = 90
      phi2 = -56.865
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 94
      chmoth = 'AIRH'
      x = -2.67963
      y = -1.74916
      z = 0.2
      irot = 1104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1105
      theta1 = 90
      phi1 = -145.47
      theta2 = 90
      phi2 = -55.47
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 95
      chmoth = 'AIRH'
      x = -2.63625
      y = -1.81388
      z = 0.2
      irot = 1105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1106
      theta1 = 90
      phi1 = -144.075
      theta2 = 90
      phi2 = -54.075
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 96
      chmoth = 'AIRH'
      x = -2.59131
      y = -1.87752
      z = 0.2
      irot = 1106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1107
      theta1 = 90
      phi1 = -142.68
      theta2 = 90
      phi2 = -52.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 97
      chmoth = 'AIRH'
      x = -2.54484
      y = -1.94005
      z = 0.2
      irot = 1107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1108
      theta1 = 90
      phi1 = -141.285
      theta2 = 90
      phi2 = -51.285
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 98
      chmoth = 'AIRH'
      x = -2.49685
      y = -2.00143
      z = 0.2
      irot = 1108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1109
      theta1 = 90
      phi1 = -139.89
      theta2 = 90
      phi2 = -49.89
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 99
      chmoth = 'AIRH'
      x = -2.44739
      y = -2.06162
      z = 0.2
      irot = 1109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1110
      theta1 = 90
      phi1 = -138.495
      theta2 = 90
      phi2 = -48.495
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 100
      chmoth = 'AIRH'
      x = -2.39647
      y = -2.12059
      z = 0.2
      irot = 1110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1111
      theta1 = 90
      phi1 = -137.1
      theta2 = 90
      phi2 = -47.1
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 101
      chmoth = 'AIRH'
      x = -2.34414
      y = -2.17831
      z = 0.2
      irot = 1111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1112
      theta1 = 90
      phi1 = -135.705
      theta2 = 90
      phi2 = -45.705
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 102
      chmoth = 'AIRH'
      x = -2.29041
      y = -2.23473
      z = 0.2
      irot = 1112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1113
      theta1 = 90
      phi1 = -134.31
      theta2 = 90
      phi2 = -44.31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 103
      chmoth = 'AIRH'
      x = -2.23533
      y = -2.28983
      z = 0.2
      irot = 1113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1114
      theta1 = 90
      phi1 = -132.915
      theta2 = 90
      phi2 = -42.915
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 104
      chmoth = 'AIRH'
      x = -2.17892
      y = -2.34357
      z = 0.2
      irot = 1114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1115
      theta1 = 90
      phi1 = -131.52
      theta2 = 90
      phi2 = -41.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 105
      chmoth = 'AIRH'
      x = -2.12122
      y = -2.39592
      z = 0.2
      irot = 1115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1116
      theta1 = 90
      phi1 = -130.125
      theta2 = 90
      phi2 = -40.125
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 106
      chmoth = 'AIRH'
      x = -2.06226
      y = -2.44685
      z = 0.2
      irot = 1116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1117
      theta1 = 90
      phi1 = -128.73
      theta2 = 90
      phi2 = -38.73
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 107
      chmoth = 'AIRH'
      x = -2.00208
      y = -2.49633
      z = 0.2
      irot = 1117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1118
      theta1 = 90
      phi1 = -127.335
      theta2 = 90
      phi2 = -37.335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 108
      chmoth = 'AIRH'
      x = -1.94072
      y = -2.54433
      z = 0.2
      irot = 1118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1119
      theta1 = 90
      phi1 = -125.94
      theta2 = 90
      phi2 = -35.94
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 109
      chmoth = 'AIRH'
      x = -1.8782
      y = -2.59082
      z = 0.2
      irot = 1119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1120
      theta1 = 90
      phi1 = -124.545
      theta2 = 90
      phi2 = -34.545
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 110
      chmoth = 'AIRH'
      x = -1.81457
      y = -2.63578
      z = 0.2
      irot = 1120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1121
      theta1 = 90
      phi1 = -123.15
      theta2 = 90
      phi2 = -33.15
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 111
      chmoth = 'AIRH'
      x = -1.74986
      y = -2.67917
      z = 0.2
      irot = 1121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1122
      theta1 = 90
      phi1 = -121.755
      theta2 = 90
      phi2 = -31.755
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 112
      chmoth = 'AIRH'
      x = -1.68412
      y = -2.72098
      z = 0.2
      irot = 1122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1123
      theta1 = 90
      phi1 = -120.36
      theta2 = 90
      phi2 = -30.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 113
      chmoth = 'AIRH'
      x = -1.61738
      y = -2.76117
      z = 0.2
      irot = 1123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1124
      theta1 = 90
      phi1 = -118.965
      theta2 = 90
      phi2 = -28.965
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 114
      chmoth = 'AIRH'
      x = -1.54968
      y = -2.79973
      z = 0.2
      irot = 1124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1125
      theta1 = 90
      phi1 = -117.57
      theta2 = 90
      phi2 = -27.57
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 115
      chmoth = 'AIRH'
      x = -1.48106
      y = -2.83663
      z = 0.2
      irot = 1125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1126
      theta1 = 90
      phi1 = -116.175
      theta2 = 90
      phi2 = -26.175
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 116
      chmoth = 'AIRH'
      x = -1.41157
      y = -2.87184
      z = 0.2
      irot = 1126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1127
      theta1 = 90
      phi1 = -114.78
      theta2 = 90
      phi2 = -24.78
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 117
      chmoth = 'AIRH'
      x = -1.34123
      y = -2.90536
      z = 0.2
      irot = 1127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1128
      theta1 = 90
      phi1 = -113.385
      theta2 = 90
      phi2 = -23.385
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 118
      chmoth = 'AIRH'
      x = -1.2701
      y = -2.93715
      z = 0.2
      irot = 1128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1129
      theta1 = 90
      phi1 = -111.99
      theta2 = 90
      phi2 = -21.99
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 119
      chmoth = 'AIRH'
      x = -1.19822
      y = -2.9672
      z = 0.2
      irot = 1129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1130
      theta1 = 90
      phi1 = -110.595
      theta2 = 90
      phi2 = -20.595
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 120
      chmoth = 'AIRH'
      x = -1.12563
      y = -2.99549
      z = 0.2
      irot = 1130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1131
      theta1 = 90
      phi1 = -109.2
      theta2 = 90
      phi2 = -19.2
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 121
      chmoth = 'AIRH'
      x = -1.05237
      y = -3.022
      z = 0.2
      irot = 1131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1132
      theta1 = 90
      phi1 = -107.805
      theta2 = 90
      phi2 = -17.805
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 122
      chmoth = 'AIRH'
      x = -0.978491
      y = -3.04673
      z = 0.2
      irot = 1132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1133
      theta1 = 90
      phi1 = -106.41
      theta2 = 90
      phi2 = -16.41
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 123
      chmoth = 'AIRH'
      x = -0.904028
      y = -3.06965
      z = 0.2
      irot = 1133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1134
      theta1 = 90
      phi1 = -163.636
      theta2 = 90
      phi2 = -73.636
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 124
      chmoth = 'AIRH'
      x = -3.14233
      y = -0.922694
      z = 0.2
      irot = 1134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1135
      theta1 = 90
      phi1 = -162.272
      theta2 = 90
      phi2 = -72.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 125
      chmoth = 'AIRH'
      x = -3.11948
      y = -0.997233
      z = 0.2
      irot = 1135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1136
      theta1 = 90
      phi1 = -160.908
      theta2 = 90
      phi2 = -70.908
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 126
      chmoth = 'AIRH'
      x = -3.09486
      y = -1.07121
      z = 0.2
      irot = 1136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1137
      theta1 = 90
      phi1 = -159.544
      theta2 = 90
      phi2 = -69.544
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 127
      chmoth = 'AIRH'
      x = -3.06848
      y = -1.14457
      z = 0.2
      irot = 1137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1138
      theta1 = 90
      phi1 = -158.18
      theta2 = 90
      phi2 = -68.18
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 128
      chmoth = 'AIRH'
      x = -3.04037
      y = -1.21729
      z = 0.2
      irot = 1138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1139
      theta1 = 90
      phi1 = -156.816
      theta2 = 90
      phi2 = -66.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 129
      chmoth = 'AIRH'
      x = -3.01053
      y = -1.28932
      z = 0.2
      irot = 1139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1140
      theta1 = 90
      phi1 = -155.452
      theta2 = 90
      phi2 = -65.452
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 130
      chmoth = 'AIRH'
      x = -2.97898
      y = -1.36062
      z = 0.2
      irot = 1140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1141
      theta1 = 90
      phi1 = -154.088
      theta2 = 90
      phi2 = -64.088
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 131
      chmoth = 'AIRH'
      x = -2.94575
      y = -1.43114
      z = 0.2
      irot = 1141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1142
      theta1 = 90
      phi1 = -152.724
      theta2 = 90
      phi2 = -62.724
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 132
      chmoth = 'AIRH'
      x = -2.91085
      y = -1.50086
      z = 0.2
      irot = 1142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1143
      theta1 = 90
      phi1 = -151.36
      theta2 = 90
      phi2 = -61.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 133
      chmoth = 'AIRH'
      x = -2.8743
      y = -1.56972
      z = 0.2
      irot = 1143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1144
      theta1 = 90
      phi1 = -149.996
      theta2 = 90
      phi2 = -59.996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 134
      chmoth = 'AIRH'
      x = -2.83612
      y = -1.6377
      z = 0.2
      irot = 1144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1145
      theta1 = 90
      phi1 = -148.632
      theta2 = 90
      phi2 = -58.632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 135
      chmoth = 'AIRH'
      x = -2.79633
      y = -1.70475
      z = 0.2
      irot = 1145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1146
      theta1 = 90
      phi1 = -147.268
      theta2 = 90
      phi2 = -57.268
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 136
      chmoth = 'AIRH'
      x = -2.75496
      y = -1.77083
      z = 0.2
      irot = 1146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1147
      theta1 = 90
      phi1 = -145.904
      theta2 = 90
      phi2 = -55.904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 137
      chmoth = 'AIRH'
      x = -2.71203
      y = -1.8359
      z = 0.2
      irot = 1147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1148
      theta1 = 90
      phi1 = -144.54
      theta2 = 90
      phi2 = -54.54
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 138
      chmoth = 'AIRH'
      x = -2.66756
      y = -1.89994
      z = 0.2
      irot = 1148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1149
      theta1 = 90
      phi1 = -143.176
      theta2 = 90
      phi2 = -53.176
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 139
      chmoth = 'AIRH'
      x = -2.62157
      y = -1.9629
      z = 0.2
      irot = 1149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1150
      theta1 = 90
      phi1 = -141.812
      theta2 = 90
      phi2 = -51.812
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 140
      chmoth = 'AIRH'
      x = -2.57411
      y = -2.02475
      z = 0.2
      irot = 1150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1151
      theta1 = 90
      phi1 = -140.448
      theta2 = 90
      phi2 = -50.448
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 141
      chmoth = 'AIRH'
      x = -2.52518
      y = -2.08545
      z = 0.2
      irot = 1151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1152
      theta1 = 90
      phi1 = -139.084
      theta2 = 90
      phi2 = -49.084
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 142
      chmoth = 'AIRH'
      x = -2.47482
      y = -2.14497
      z = 0.2
      irot = 1152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1153
      theta1 = 90
      phi1 = -137.72
      theta2 = 90
      phi2 = -47.72
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 143
      chmoth = 'AIRH'
      x = -2.42306
      y = -2.20327
      z = 0.2
      irot = 1153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1154
      theta1 = 90
      phi1 = -136.356
      theta2 = 90
      phi2 = -46.356
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 144
      chmoth = 'AIRH'
      x = -2.36993
      y = -2.26032
      z = 0.2
      irot = 1154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1155
      theta1 = 90
      phi1 = -134.992
      theta2 = 90
      phi2 = -44.992
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 145
      chmoth = 'AIRH'
      x = -2.31545
      y = -2.3161
      z = 0.2
      irot = 1155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1156
      theta1 = 90
      phi1 = -133.628
      theta2 = 90
      phi2 = -43.628
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 146
      chmoth = 'AIRH'
      x = -2.25966
      y = -2.37056
      z = 0.2
      irot = 1156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1157
      theta1 = 90
      phi1 = -132.264
      theta2 = 90
      phi2 = -42.264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 147
      chmoth = 'AIRH'
      x = -2.20259
      y = -2.42368
      z = 0.2
      irot = 1157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1158
      theta1 = 90
      phi1 = -130.9
      theta2 = 90
      phi2 = -40.9
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 148
      chmoth = 'AIRH'
      x = -2.14428
      y = -2.47542
      z = 0.2
      irot = 1158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1159
      theta1 = 90
      phi1 = -129.536
      theta2 = 90
      phi2 = -39.536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 149
      chmoth = 'AIRH'
      x = -2.08474
      y = -2.52576
      z = 0.2
      irot = 1159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1160
      theta1 = 90
      phi1 = -128.172
      theta2 = 90
      phi2 = -38.172
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 150
      chmoth = 'AIRH'
      x = -2.02403
      y = -2.57467
      z = 0.2
      irot = 1160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1161
      theta1 = 90
      phi1 = -126.808
      theta2 = 90
      phi2 = -36.808
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 151
      chmoth = 'AIRH'
      x = -1.96217
      y = -2.62212
      z = 0.2
      irot = 1161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1162
      theta1 = 90
      phi1 = -125.444
      theta2 = 90
      phi2 = -35.444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 152
      chmoth = 'AIRH'
      x = -1.8992
      y = -2.66809
      z = 0.2
      irot = 1162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1163
      theta1 = 90
      phi1 = -124.08
      theta2 = 90
      phi2 = -34.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 153
      chmoth = 'AIRH'
      x = -1.83515
      y = -2.71254
      z = 0.2
      irot = 1163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1164
      theta1 = 90
      phi1 = -122.716
      theta2 = 90
      phi2 = -32.716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 154
      chmoth = 'AIRH'
      x = -1.77006
      y = -2.75545
      z = 0.2
      irot = 1164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1165
      theta1 = 90
      phi1 = -121.352
      theta2 = 90
      phi2 = -31.352
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 155
      chmoth = 'AIRH'
      x = -1.70396
      y = -2.79681
      z = 0.2
      irot = 1165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1166
      theta1 = 90
      phi1 = -119.988
      theta2 = 90
      phi2 = -29.988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 156
      chmoth = 'AIRH'
      x = -1.63691
      y = -2.83658
      z = 0.2
      irot = 1166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1167
      theta1 = 90
      phi1 = -118.624
      theta2 = 90
      phi2 = -28.624
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 157
      chmoth = 'AIRH'
      x = -1.56892
      y = -2.87474
      z = 0.2
      irot = 1167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1168
      theta1 = 90
      phi1 = -117.26
      theta2 = 90
      phi2 = -27.26
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 158
      chmoth = 'AIRH'
      x = -1.50005
      y = -2.91127
      z = 0.2
      irot = 1168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1169
      theta1 = 90
      phi1 = -115.896
      theta2 = 90
      phi2 = -25.896
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 159
      chmoth = 'AIRH'
      x = -1.43032
      y = -2.94615
      z = 0.2
      irot = 1169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1170
      theta1 = 90
      phi1 = -114.532
      theta2 = 90
      phi2 = -24.532
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 160
      chmoth = 'AIRH'
      x = -1.35978
      y = -2.97936
      z = 0.2
      irot = 1170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1171
      theta1 = 90
      phi1 = -113.168
      theta2 = 90
      phi2 = -23.168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 161
      chmoth = 'AIRH'
      x = -1.28848
      y = -3.01089
      z = 0.2
      irot = 1171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1172
      theta1 = 90
      phi1 = -111.804
      theta2 = 90
      phi2 = -21.804
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 162
      chmoth = 'AIRH'
      x = -1.21644
      y = -3.04071
      z = 0.2
      irot = 1172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1173
      theta1 = 90
      phi1 = -110.44
      theta2 = 90
      phi2 = -20.44
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 163
      chmoth = 'AIRH'
      x = -1.14372
      y = -3.0688
      z = 0.2
      irot = 1173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1174
      theta1 = 90
      phi1 = -109.076
      theta2 = 90
      phi2 = -19.076
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 164
      chmoth = 'AIRH'
      x = -1.07034
      y = -3.09516
      z = 0.2
      irot = 1174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1175
      theta1 = 90
      phi1 = -107.712
      theta2 = 90
      phi2 = -17.712
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 165
      chmoth = 'AIRH'
      x = -0.996362
      y = -3.11976
      z = 0.2
      irot = 1175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1176
      theta1 = 90
      phi1 = -106.348
      theta2 = 90
      phi2 = -16.348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 166
      chmoth = 'AIRH'
      x = -0.921817
      y = -3.14259
      z = 0.2
      irot = 1176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1177
      theta1 = 90
      phi1 = -163.667
      theta2 = 90
      phi2 = -73.667
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 167
      chmoth = 'AIRH'
      x = -3.21481
      y = -0.942085
      z = 0.2
      irot = 1177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1178
      theta1 = 90
      phi1 = -162.334
      theta2 = 90
      phi2 = -72.334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 168
      chmoth = 'AIRH'
      x = -3.19202
      y = -1.01662
      z = 0.2
      irot = 1178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1179
      theta1 = 90
      phi1 = -161.001
      theta2 = 90
      phi2 = -71.001
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 169
      chmoth = 'AIRH'
      x = -3.16751
      y = -1.0906
      z = 0.2
      irot = 1179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1180
      theta1 = 90
      phi1 = -159.668
      theta2 = 90
      phi2 = -69.668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 170
      chmoth = 'AIRH'
      x = -3.14128
      y = -1.16399
      z = 0.2
      irot = 1180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1181
      theta1 = 90
      phi1 = -158.335
      theta2 = 90
      phi2 = -68.335
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 171
      chmoth = 'AIRH'
      x = -3.11335
      y = -1.23675
      z = 0.2
      irot = 1181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1182
      theta1 = 90
      phi1 = -157.002
      theta2 = 90
      phi2 = -67.002
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 172
      chmoth = 'AIRH'
      x = -3.08374
      y = -1.30884
      z = 0.2
      irot = 1182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1183
      theta1 = 90
      phi1 = -155.669
      theta2 = 90
      phi2 = -65.669
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 173
      chmoth = 'AIRH'
      x = -3.05245
      y = -1.38022
      z = 0.2
      irot = 1183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1184
      theta1 = 90
      phi1 = -154.336
      theta2 = 90
      phi2 = -64.336
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 174
      chmoth = 'AIRH'
      x = -3.01952
      y = -1.45086
      z = 0.2
      irot = 1184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1185
      theta1 = 90
      phi1 = -153.003
      theta2 = 90
      phi2 = -63.003
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 175
      chmoth = 'AIRH'
      x = -2.98495
      y = -1.52071
      z = 0.2
      irot = 1185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1186
      theta1 = 90
      phi1 = -151.67
      theta2 = 90
      phi2 = -61.67
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 176
      chmoth = 'AIRH'
      x = -2.94877
      y = -1.58974
      z = 0.2
      irot = 1186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1187
      theta1 = 90
      phi1 = -150.337
      theta2 = 90
      phi2 = -60.337
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 177
      chmoth = 'AIRH'
      x = -2.91099
      y = -1.65791
      z = 0.2
      irot = 1187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1188
      theta1 = 90
      phi1 = -149.004
      theta2 = 90
      phi2 = -59.004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 178
      chmoth = 'AIRH'
      x = -2.87163
      y = -1.72518
      z = 0.2
      irot = 1188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1189
      theta1 = 90
      phi1 = -147.671
      theta2 = 90
      phi2 = -57.671
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 179
      chmoth = 'AIRH'
      x = -2.83072
      y = -1.79151
      z = 0.2
      irot = 1189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1190
      theta1 = 90
      phi1 = -146.338
      theta2 = 90
      phi2 = -56.338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 180
      chmoth = 'AIRH'
      x = -2.78828
      y = -1.85688
      z = 0.2
      irot = 1190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1191
      theta1 = 90
      phi1 = -145.005
      theta2 = 90
      phi2 = -55.005
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 181
      chmoth = 'AIRH'
      x = -2.74433
      y = -1.92124
      z = 0.2
      irot = 1191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1192
      theta1 = 90
      phi1 = -143.672
      theta2 = 90
      phi2 = -53.672
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 182
      chmoth = 'AIRH'
      x = -2.69889
      y = -1.98456
      z = 0.2
      irot = 1192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1193
      theta1 = 90
      phi1 = -142.339
      theta2 = 90
      phi2 = -52.339
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 183
      chmoth = 'AIRH'
      x = -2.65199
      y = -2.04681
      z = 0.2
      irot = 1193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1194
      theta1 = 90
      phi1 = -141.006
      theta2 = 90
      phi2 = -51.006
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 184
      chmoth = 'AIRH'
      x = -2.60366
      y = -2.10795
      z = 0.2
      irot = 1194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1195
      theta1 = 90
      phi1 = -139.673
      theta2 = 90
      phi2 = -49.673
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 185
      chmoth = 'AIRH'
      x = -2.55392
      y = -2.16795
      z = 0.2
      irot = 1195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1196
      theta1 = 90
      phi1 = -138.34
      theta2 = 90
      phi2 = -48.34
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 186
      chmoth = 'AIRH'
      x = -2.50279
      y = -2.22677
      z = 0.2
      irot = 1196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1197
      theta1 = 90
      phi1 = -137.007
      theta2 = 90
      phi2 = -47.007
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 187
      chmoth = 'AIRH'
      x = -2.45031
      y = -2.2844
      z = 0.2
      irot = 1197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1198
      theta1 = 90
      phi1 = -135.674
      theta2 = 90
      phi2 = -45.674
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 188
      chmoth = 'AIRH'
      x = -2.39651
      y = -2.34078
      z = 0.2
      irot = 1198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1199
      theta1 = 90
      phi1 = -134.341
      theta2 = 90
      phi2 = -44.341
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 189
      chmoth = 'AIRH'
      x = -2.34141
      y = -2.3959
      z = 0.2
      irot = 1199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1200
      theta1 = 90
      phi1 = -133.008
      theta2 = 90
      phi2 = -43.008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 190
      chmoth = 'AIRH'
      x = -2.28504
      y = -2.44972
      z = 0.2
      irot = 1200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1201
      theta1 = 90
      phi1 = -131.675
      theta2 = 90
      phi2 = -41.675
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 191
      chmoth = 'AIRH'
      x = -2.22743
      y = -2.50221
      z = 0.2
      irot = 1201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1202
      theta1 = 90
      phi1 = -130.342
      theta2 = 90
      phi2 = -40.342
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 192
      chmoth = 'AIRH'
      x = -2.16862
      y = -2.55335
      z = 0.2
      irot = 1202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1203
      theta1 = 90
      phi1 = -129.009
      theta2 = 90
      phi2 = -39.009
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 193
      chmoth = 'AIRH'
      x = -2.10863
      y = -2.60311
      z = 0.2
      irot = 1203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1204
      theta1 = 90
      phi1 = -127.676
      theta2 = 90
      phi2 = -37.676
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 194
      chmoth = 'AIRH'
      x = -2.04751
      y = -2.65146
      z = 0.2
      irot = 1204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1205
      theta1 = 90
      phi1 = -126.343
      theta2 = 90
      phi2 = -36.343
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 195
      chmoth = 'AIRH'
      x = -1.98527
      y = -2.69837
      z = 0.2
      irot = 1205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1206
      theta1 = 90
      phi1 = -125.01
      theta2 = 90
      phi2 = -35.01
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 196
      chmoth = 'AIRH'
      x = -1.92196
      y = -2.74382
      z = 0.2
      irot = 1206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1207
      theta1 = 90
      phi1 = -123.677
      theta2 = 90
      phi2 = -33.677
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 197
      chmoth = 'AIRH'
      x = -1.85761
      y = -2.78779
      z = 0.2
      irot = 1207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1208
      theta1 = 90
      phi1 = -122.344
      theta2 = 90
      phi2 = -32.344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 198
      chmoth = 'AIRH'
      x = -1.79225
      y = -2.83025
      z = 0.2
      irot = 1208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1209
      theta1 = 90
      phi1 = -121.011
      theta2 = 90
      phi2 = -31.011
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 199
      chmoth = 'AIRH'
      x = -1.72593
      y = -2.87118
      z = 0.2
      irot = 1209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1210
      theta1 = 90
      phi1 = -119.678
      theta2 = 90
      phi2 = -29.678
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 200
      chmoth = 'AIRH'
      x = -1.65867
      y = -2.91055
      z = 0.2
      irot = 1210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1211
      theta1 = 90
      phi1 = -118.345
      theta2 = 90
      phi2 = -28.345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 201
      chmoth = 'AIRH'
      x = -1.59051
      y = -2.94835
      z = 0.2
      irot = 1211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1212
      theta1 = 90
      phi1 = -117.012
      theta2 = 90
      phi2 = -27.012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 202
      chmoth = 'AIRH'
      x = -1.52149
      y = -2.98455
      z = 0.2
      irot = 1212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1213
      theta1 = 90
      phi1 = -115.679
      theta2 = 90
      phi2 = -25.679
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 203
      chmoth = 'AIRH'
      x = -1.45165
      y = -3.01914
      z = 0.2
      irot = 1213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1214
      theta1 = 90
      phi1 = -114.346
      theta2 = 90
      phi2 = -24.346
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 204
      chmoth = 'AIRH'
      x = -1.38102
      y = -3.05209
      z = 0.2
      irot = 1214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1215
      theta1 = 90
      phi1 = -113.013
      theta2 = 90
      phi2 = -23.013
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 205
      chmoth = 'AIRH'
      x = -1.30965
      y = -3.08339
      z = 0.2
      irot = 1215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1216
      theta1 = 90
      phi1 = -111.68
      theta2 = 90
      phi2 = -21.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 206
      chmoth = 'AIRH'
      x = -1.23757
      y = -3.11303
      z = 0.2
      irot = 1216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1217
      theta1 = 90
      phi1 = -110.347
      theta2 = 90
      phi2 = -20.347
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 207
      chmoth = 'AIRH'
      x = -1.16481
      y = -3.14097
      z = 0.2
      irot = 1217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1218
      theta1 = 90
      phi1 = -109.014
      theta2 = 90
      phi2 = -19.014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 208
      chmoth = 'AIRH'
      x = -1.09143
      y = -3.16722
      z = 0.2
      irot = 1218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1219
      theta1 = 90
      phi1 = -107.681
      theta2 = 90
      phi2 = -17.681
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 209
      chmoth = 'AIRH'
      x = -1.01745
      y = -3.19175
      z = 0.2
      irot = 1219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1220
      theta1 = 90
      phi1 = -106.348
      theta2 = 90
      phi2 = -16.348
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 210
      chmoth = 'AIRH'
      x = -0.942927
      y = -3.21456
      z = 0.2
      irot = 1220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1221
      theta1 = 90
      phi1 = -163.696
      theta2 = 90
      phi2 = -73.696
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 211
      chmoth = 'AIRH'
      x = -3.28727
      y = -0.961513
      z = 0.2
      irot = 1221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1222
      theta1 = 90
      phi1 = -162.392
      theta2 = 90
      phi2 = -72.392
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 212
      chmoth = 'AIRH'
      x = -3.26453
      y = -1.03607
      z = 0.2
      irot = 1222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1223
      theta1 = 90
      phi1 = -161.088
      theta2 = 90
      phi2 = -71.088
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 213
      chmoth = 'AIRH'
      x = -3.24011
      y = -1.1101
      z = 0.2
      irot = 1223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1224
      theta1 = 90
      phi1 = -159.784
      theta2 = 90
      phi2 = -69.784
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 214
      chmoth = 'AIRH'
      x = -3.21401
      y = -1.18354
      z = 0.2
      irot = 1224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1225
      theta1 = 90
      phi1 = -158.48
      theta2 = 90
      phi2 = -68.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 215
      chmoth = 'AIRH'
      x = -3.18624
      y = -1.25638
      z = 0.2
      irot = 1225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1226
      theta1 = 90
      phi1 = -157.176
      theta2 = 90
      phi2 = -67.176
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 216
      chmoth = 'AIRH'
      x = -3.15683
      y = -1.32856
      z = 0.2
      irot = 1226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1227
      theta1 = 90
      phi1 = -155.872
      theta2 = 90
      phi2 = -65.872
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 217
      chmoth = 'AIRH'
      x = -3.12577
      y = -1.40006
      z = 0.2
      irot = 1227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1228
      theta1 = 90
      phi1 = -154.568
      theta2 = 90
      phi2 = -64.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 218
      chmoth = 'AIRH'
      x = -3.0931
      y = -1.47083
      z = 0.2
      irot = 1228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1229
      theta1 = 90
      phi1 = -153.264
      theta2 = 90
      phi2 = -63.264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 219
      chmoth = 'AIRH'
      x = -3.05883
      y = -1.54084
      z = 0.2
      irot = 1229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1230
      theta1 = 90
      phi1 = -151.96
      theta2 = 90
      phi2 = -61.96
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 220
      chmoth = 'AIRH'
      x = -3.02297
      y = -1.61005
      z = 0.2
      irot = 1230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1231
      theta1 = 90
      phi1 = -150.656
      theta2 = 90
      phi2 = -60.656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 221
      chmoth = 'AIRH'
      x = -2.98555
      y = -1.67843
      z = 0.2
      irot = 1231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1232
      theta1 = 90
      phi1 = -149.352
      theta2 = 90
      phi2 = -59.352
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 222
      chmoth = 'AIRH'
      x = -2.94658
      y = -1.74594
      z = 0.2
      irot = 1232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1233
      theta1 = 90
      phi1 = -148.048
      theta2 = 90
      phi2 = -58.048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 223
      chmoth = 'AIRH'
      x = -2.90608
      y = -1.81254
      z = 0.2
      irot = 1233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1234
      theta1 = 90
      phi1 = -146.744
      theta2 = 90
      phi2 = -56.744
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 224
      chmoth = 'AIRH'
      x = -2.86408
      y = -1.8782
      z = 0.2
      irot = 1234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1235
      theta1 = 90
      phi1 = -145.44
      theta2 = 90
      phi2 = -55.44
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 225
      chmoth = 'AIRH'
      x = -2.8206
      y = -1.9429
      z = 0.2
      irot = 1235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1236
      theta1 = 90
      phi1 = -144.136
      theta2 = 90
      phi2 = -54.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 226
      chmoth = 'AIRH'
      x = -2.77565
      y = -2.00658
      z = 0.2
      irot = 1236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1237
      theta1 = 90
      phi1 = -142.832
      theta2 = 90
      phi2 = -52.832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 227
      chmoth = 'AIRH'
      x = -2.72927
      y = -2.06923
      z = 0.2
      irot = 1237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1238
      theta1 = 90
      phi1 = -141.528
      theta2 = 90
      phi2 = -51.528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 228
      chmoth = 'AIRH'
      x = -2.68147
      y = -2.1308
      z = 0.2
      irot = 1238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1239
      theta1 = 90
      phi1 = -140.224
      theta2 = 90
      phi2 = -50.224
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 229
      chmoth = 'AIRH'
      x = -2.63229
      y = -2.19127
      z = 0.2
      irot = 1239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1240
      theta1 = 90
      phi1 = -138.92
      theta2 = 90
      phi2 = -48.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 230
      chmoth = 'AIRH'
      x = -2.58174
      y = -2.25061
      z = 0.2
      irot = 1240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1241
      theta1 = 90
      phi1 = -137.616
      theta2 = 90
      phi2 = -47.616
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 231
      chmoth = 'AIRH'
      x = -2.52985
      y = -2.30878
      z = 0.2
      irot = 1241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1242
      theta1 = 90
      phi1 = -136.312
      theta2 = 90
      phi2 = -46.312
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 232
      chmoth = 'AIRH'
      x = -2.47666
      y = -2.36575
      z = 0.2
      irot = 1242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1243
      theta1 = 90
      phi1 = -135.008
      theta2 = 90
      phi2 = -45.008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 233
      chmoth = 'AIRH'
      x = -2.42218
      y = -2.4215
      z = 0.2
      irot = 1243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1244
      theta1 = 90
      phi1 = -133.704
      theta2 = 90
      phi2 = -43.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 234
      chmoth = 'AIRH'
      x = -2.36645
      y = -2.476
      z = 0.2
      irot = 1244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1245
      theta1 = 90
      phi1 = -132.4
      theta2 = 90
      phi2 = -42.4
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 235
      chmoth = 'AIRH'
      x = -2.30949
      y = -2.52921
      z = 0.2
      irot = 1245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1246
      theta1 = 90
      phi1 = -131.096
      theta2 = 90
      phi2 = -41.096
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 236
      chmoth = 'AIRH'
      x = -2.25133
      y = -2.58111
      z = 0.2
      irot = 1246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1247
      theta1 = 90
      phi1 = -129.792
      theta2 = 90
      phi2 = -39.792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 237
      chmoth = 'AIRH'
      x = -2.19201
      y = -2.63168
      z = 0.2
      irot = 1247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1248
      theta1 = 90
      phi1 = -128.488
      theta2 = 90
      phi2 = -38.488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 238
      chmoth = 'AIRH'
      x = -2.13155
      y = -2.68088
      z = 0.2
      irot = 1248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1249
      theta1 = 90
      phi1 = -127.184
      theta2 = 90
      phi2 = -37.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 239
      chmoth = 'AIRH'
      x = -2.06999
      y = -2.72869
      z = 0.2
      irot = 1249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1250
      theta1 = 90
      phi1 = -125.88
      theta2 = 90
      phi2 = -35.88
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 240
      chmoth = 'AIRH'
      x = -2.00736
      y = -2.77509
      z = 0.2
      irot = 1250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1251
      theta1 = 90
      phi1 = -124.576
      theta2 = 90
      phi2 = -34.576
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 241
      chmoth = 'AIRH'
      x = -1.94368
      y = -2.82006
      z = 0.2
      irot = 1251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1252
      theta1 = 90
      phi1 = -123.272
      theta2 = 90
      phi2 = -33.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 242
      chmoth = 'AIRH'
      x = -1.879
      y = -2.86356
      z = 0.2
      irot = 1252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1253
      theta1 = 90
      phi1 = -121.968
      theta2 = 90
      phi2 = -31.968
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 243
      chmoth = 'AIRH'
      x = -1.81335
      y = -2.90558
      z = 0.2
      irot = 1253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1254
      theta1 = 90
      phi1 = -120.664
      theta2 = 90
      phi2 = -30.664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 244
      chmoth = 'AIRH'
      x = -1.74676
      y = -2.94609
      z = 0.2
      irot = 1254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1255
      theta1 = 90
      phi1 = -119.36
      theta2 = 90
      phi2 = -29.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 245
      chmoth = 'AIRH'
      x = -1.67926
      y = -2.98508
      z = 0.2
      irot = 1255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1256
      theta1 = 90
      phi1 = -118.056
      theta2 = 90
      phi2 = -28.056
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 246
      chmoth = 'AIRH'
      x = -1.6109
      y = -3.02252
      z = 0.2
      irot = 1256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1257
      theta1 = 90
      phi1 = -116.752
      theta2 = 90
      phi2 = -26.752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 247
      chmoth = 'AIRH'
      x = -1.54169
      y = -3.0584
      z = 0.2
      irot = 1257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1258
      theta1 = 90
      phi1 = -115.448
      theta2 = 90
      phi2 = -25.448
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 248
      chmoth = 'AIRH'
      x = -1.47169
      y = -3.09269
      z = 0.2
      irot = 1258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1259
      theta1 = 90
      phi1 = -114.144
      theta2 = 90
      phi2 = -24.144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 249
      chmoth = 'AIRH'
      x = -1.40093
      y = -3.12538
      z = 0.2
      irot = 1259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1260
      theta1 = 90
      phi1 = -112.84
      theta2 = 90
      phi2 = -22.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 250
      chmoth = 'AIRH'
      x = -1.32944
      y = -3.15645
      z = 0.2
      irot = 1260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1261
      theta1 = 90
      phi1 = -111.536
      theta2 = 90
      phi2 = -21.536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 251
      chmoth = 'AIRH'
      x = -1.25727
      y = -3.18589
      z = 0.2
      irot = 1261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1262
      theta1 = 90
      phi1 = -110.232
      theta2 = 90
      phi2 = -20.232
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 252
      chmoth = 'AIRH'
      x = -1.18444
      y = -3.21368
      z = 0.2
      irot = 1262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1263
      theta1 = 90
      phi1 = -108.928
      theta2 = 90
      phi2 = -18.928
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 253
      chmoth = 'AIRH'
      x = -1.111
      y = -3.2398
      z = 0.2
      irot = 1263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1264
      theta1 = 90
      phi1 = -107.624
      theta2 = 90
      phi2 = -17.624
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 254
      chmoth = 'AIRH'
      x = -1.03698
      y = -3.26424
      z = 0.2
      irot = 1264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1265
      theta1 = 90
      phi1 = -106.32
      theta2 = 90
      phi2 = -16.32
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 255
      chmoth = 'AIRH'
      x = -0.962431
      y = -3.287
      z = 0.2
      irot = 1265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1266
      theta1 = 90
      phi1 = -163.723
      theta2 = 90
      phi2 = -73.723
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 256
      chmoth = 'AIRH'
      x = -3.35971
      y = -0.980985
      z = 0.2
      irot = 1266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1267
      theta1 = 90
      phi1 = -162.446
      theta2 = 90
      phi2 = -72.446
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 257
      chmoth = 'AIRH'
      x = -3.33702
      y = -1.05562
      z = 0.2
      irot = 1267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1268
      theta1 = 90
      phi1 = -161.169
      theta2 = 90
      phi2 = -71.169
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 258
      chmoth = 'AIRH'
      x = -3.31266
      y = -1.12972
      z = 0.2
      irot = 1268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1269
      theta1 = 90
      phi1 = -159.892
      theta2 = 90
      phi2 = -69.892
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 259
      chmoth = 'AIRH'
      x = -3.28666
      y = -1.20327
      z = 0.2
      irot = 1269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1270
      theta1 = 90
      phi1 = -158.615
      theta2 = 90
      phi2 = -68.615
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 260
      chmoth = 'AIRH'
      x = -3.25903
      y = -1.27622
      z = 0.2
      irot = 1270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1271
      theta1 = 90
      phi1 = -157.338
      theta2 = 90
      phi2 = -67.338
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 261
      chmoth = 'AIRH'
      x = -3.22978
      y = -1.34853
      z = 0.2
      irot = 1271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1272
      theta1 = 90
      phi1 = -156.061
      theta2 = 90
      phi2 = -66.061
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 262
      chmoth = 'AIRH'
      x = -3.19892
      y = -1.42017
      z = 0.2
      irot = 1272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1273
      theta1 = 90
      phi1 = -154.784
      theta2 = 90
      phi2 = -64.784
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 263
      chmoth = 'AIRH'
      x = -3.16648
      y = -1.49111
      z = 0.2
      irot = 1273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1274
      theta1 = 90
      phi1 = -153.507
      theta2 = 90
      phi2 = -63.507
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 264
      chmoth = 'AIRH'
      x = -3.13246
      y = -1.56131
      z = 0.2
      irot = 1274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1275
      theta1 = 90
      phi1 = -152.23
      theta2 = 90
      phi2 = -62.23
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 265
      chmoth = 'AIRH'
      x = -3.09689
      y = -1.63073
      z = 0.2
      irot = 1275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1276
      theta1 = 90
      phi1 = -150.953
      theta2 = 90
      phi2 = -60.953
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 266
      chmoth = 'AIRH'
      x = -3.05978
      y = -1.69934
      z = 0.2
      irot = 1276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1277
      theta1 = 90
      phi1 = -149.676
      theta2 = 90
      phi2 = -59.676
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 267
      chmoth = 'AIRH'
      x = -3.02114
      y = -1.76711
      z = 0.2
      irot = 1277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1278
      theta1 = 90
      phi1 = -148.399
      theta2 = 90
      phi2 = -58.399
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 268
      chmoth = 'AIRH'
      x = -2.98101
      y = -1.834
      z = 0.2
      irot = 1278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1279
      theta1 = 90
      phi1 = -147.122
      theta2 = 90
      phi2 = -57.122
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 269
      chmoth = 'AIRH'
      x = -2.9394
      y = -1.89998
      z = 0.2
      irot = 1279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1280
      theta1 = 90
      phi1 = -145.845
      theta2 = 90
      phi2 = -55.845
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 270
      chmoth = 'AIRH'
      x = -2.89633
      y = -1.96502
      z = 0.2
      irot = 1280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1281
      theta1 = 90
      phi1 = -144.568
      theta2 = 90
      phi2 = -54.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 271
      chmoth = 'AIRH'
      x = -2.85181
      y = -2.02908
      z = 0.2
      irot = 1281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1282
      theta1 = 90
      phi1 = -143.291
      theta2 = 90
      phi2 = -53.291
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 272
      chmoth = 'AIRH'
      x = -2.80589
      y = -2.09213
      z = 0.2
      irot = 1282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1283
      theta1 = 90
      phi1 = -142.014
      theta2 = 90
      phi2 = -52.014
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 273
      chmoth = 'AIRH'
      x = -2.75856
      y = -2.15414
      z = 0.2
      irot = 1283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1284
      theta1 = 90
      phi1 = -140.737
      theta2 = 90
      phi2 = -50.737
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 274
      chmoth = 'AIRH'
      x = -2.70987
      y = -2.21508
      z = 0.2
      irot = 1284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1285
      theta1 = 90
      phi1 = -139.46
      theta2 = 90
      phi2 = -49.46
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 275
      chmoth = 'AIRH'
      x = -2.65983
      y = -2.27493
      z = 0.2
      irot = 1285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1286
      theta1 = 90
      phi1 = -138.183
      theta2 = 90
      phi2 = -48.183
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 276
      chmoth = 'AIRH'
      x = -2.60847
      y = -2.33364
      z = 0.2
      irot = 1286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1287
      theta1 = 90
      phi1 = -136.906
      theta2 = 90
      phi2 = -46.906
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 277
      chmoth = 'AIRH'
      x = -2.55582
      y = -2.39119
      z = 0.2
      irot = 1287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1288
      theta1 = 90
      phi1 = -135.629
      theta2 = 90
      phi2 = -45.629
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 278
      chmoth = 'AIRH'
      x = -2.50189
      y = -2.44756
      z = 0.2
      irot = 1288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1289
      theta1 = 90
      phi1 = -134.352
      theta2 = 90
      phi2 = -44.352
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 279
      chmoth = 'AIRH'
      x = -2.44673
      y = -2.50271
      z = 0.2
      irot = 1289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1290
      theta1 = 90
      phi1 = -133.075
      theta2 = 90
      phi2 = -43.075
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 280
      chmoth = 'AIRH'
      x = -2.39034
      y = -2.55661
      z = 0.2
      irot = 1290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1291
      theta1 = 90
      phi1 = -131.798
      theta2 = 90
      phi2 = -41.798
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 281
      chmoth = 'AIRH'
      x = -2.33277
      y = -2.60925
      z = 0.2
      irot = 1291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1292
      theta1 = 90
      phi1 = -130.521
      theta2 = 90
      phi2 = -40.521
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 282
      chmoth = 'AIRH'
      x = -2.27404
      y = -2.66059
      z = 0.2
      irot = 1292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1293
      theta1 = 90
      phi1 = -129.244
      theta2 = 90
      phi2 = -39.244
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 283
      chmoth = 'AIRH'
      x = -2.21418
      y = -2.71061
      z = 0.2
      irot = 1293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1294
      theta1 = 90
      phi1 = -127.967
      theta2 = 90
      phi2 = -37.967
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 284
      chmoth = 'AIRH'
      x = -2.15323
      y = -2.75928
      z = 0.2
      irot = 1294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1295
      theta1 = 90
      phi1 = -126.69
      theta2 = 90
      phi2 = -36.69
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 285
      chmoth = 'AIRH'
      x = -2.0912
      y = -2.80658
      z = 0.2
      irot = 1295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1296
      theta1 = 90
      phi1 = -125.413
      theta2 = 90
      phi2 = -35.413
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 286
      chmoth = 'AIRH'
      x = -2.02813
      y = -2.85249
      z = 0.2
      irot = 1296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1297
      theta1 = 90
      phi1 = -124.136
      theta2 = 90
      phi2 = -34.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 287
      chmoth = 'AIRH'
      x = -1.96406
      y = -2.89698
      z = 0.2
      irot = 1297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1298
      theta1 = 90
      phi1 = -122.859
      theta2 = 90
      phi2 = -32.859
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 288
      chmoth = 'AIRH'
      x = -1.89901
      y = -2.94003
      z = 0.2
      irot = 1298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1299
      theta1 = 90
      phi1 = -121.582
      theta2 = 90
      phi2 = -31.582
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 289
      chmoth = 'AIRH'
      x = -1.83301
      y = -2.98162
      z = 0.2
      irot = 1299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1300
      theta1 = 90
      phi1 = -120.305
      theta2 = 90
      phi2 = -30.305
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 290
      chmoth = 'AIRH'
      x = -1.76611
      y = -3.02173
      z = 0.2
      irot = 1300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1301
      theta1 = 90
      phi1 = -119.028
      theta2 = 90
      phi2 = -29.028
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 291
      chmoth = 'AIRH'
      x = -1.69833
      y = -3.06034
      z = 0.2
      irot = 1301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1302
      theta1 = 90
      phi1 = -117.751
      theta2 = 90
      phi2 = -27.751
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 292
      chmoth = 'AIRH'
      x = -1.6297
      y = -3.09743
      z = 0.2
      irot = 1302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1303
      theta1 = 90
      phi1 = -116.474
      theta2 = 90
      phi2 = -26.474
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 293
      chmoth = 'AIRH'
      x = -1.56027
      y = -3.13298
      z = 0.2
      irot = 1303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1304
      theta1 = 90
      phi1 = -115.197
      theta2 = 90
      phi2 = -25.197
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 294
      chmoth = 'AIRH'
      x = -1.49006
      y = -3.16697
      z = 0.2
      irot = 1304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1305
      theta1 = 90
      phi1 = -113.92
      theta2 = 90
      phi2 = -23.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 295
      chmoth = 'AIRH'
      x = -1.41911
      y = -3.19939
      z = 0.2
      irot = 1305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1306
      theta1 = 90
      phi1 = -112.643
      theta2 = 90
      phi2 = -22.643
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 296
      chmoth = 'AIRH'
      x = -1.34746
      y = -3.23023
      z = 0.2
      irot = 1306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1307
      theta1 = 90
      phi1 = -111.366
      theta2 = 90
      phi2 = -21.366
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 297
      chmoth = 'AIRH'
      x = -1.27513
      y = -3.25945
      z = 0.2
      irot = 1307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1308
      theta1 = 90
      phi1 = -110.089
      theta2 = 90
      phi2 = -20.089
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 298
      chmoth = 'AIRH'
      x = -1.20218
      y = -3.28706
      z = 0.2
      irot = 1308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1309
      theta1 = 90
      phi1 = -108.812
      theta2 = 90
      phi2 = -18.812
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 299
      chmoth = 'AIRH'
      x = -1.12862
      y = -3.31304
      z = 0.2
      irot = 1309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1310
      theta1 = 90
      phi1 = -107.535
      theta2 = 90
      phi2 = -17.535
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 300
      chmoth = 'AIRH'
      x = -1.05451
      y = -3.33737
      z = 0.2
      irot = 1310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1311
      theta1 = 90
      phi1 = -106.258
      theta2 = 90
      phi2 = -16.258
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 301
      chmoth = 'AIRH'
      x = -0.979871
      y = -3.36004
      z = 0.2
      irot = 1311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1312
      theta1 = 90
      phi1 = -163.75
      theta2 = 90
      phi2 = -73.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 302
      chmoth = 'AIRH'
      x = -3.43218
      y = -1.00039
      z = 0.2
      irot = 1312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1313
      theta1 = 90
      phi1 = -162.5
      theta2 = 90
      phi2 = -72.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 303
      chmoth = 'AIRH'
      x = -3.40954
      y = -1.07502
      z = 0.2
      irot = 1313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1314
      theta1 = 90
      phi1 = -161.25
      theta2 = 90
      phi2 = -71.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 304
      chmoth = 'AIRH'
      x = -3.38528
      y = -1.14915
      z = 0.2
      irot = 1314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 305
      chmoth = 'AIRH'
      x = -3.3594
      y = -1.22272
      z = 0.2
      irot = 1315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1316
      theta1 = 90
      phi1 = -158.75
      theta2 = 90
      phi2 = -68.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 306
      chmoth = 'AIRH'
      x = -3.33193
      y = -1.29572
      z = 0.2
      irot = 1316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 307
      chmoth = 'AIRH'
      x = -3.30287
      y = -1.36809
      z = 0.2
      irot = 1317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1318
      theta1 = 90
      phi1 = -156.25
      theta2 = 90
      phi2 = -66.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 308
      chmoth = 'AIRH'
      x = -3.27224
      y = -1.43982
      z = 0.2
      irot = 1318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 309
      chmoth = 'AIRH'
      x = -3.24005
      y = -1.51086
      z = 0.2
      irot = 1319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1320
      theta1 = 90
      phi1 = -153.75
      theta2 = 90
      phi2 = -63.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 310
      chmoth = 'AIRH'
      x = -3.20632
      y = -1.58118
      z = 0.2
      irot = 1320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1321
      theta1 = 90
      phi1 = -152.5
      theta2 = 90
      phi2 = -62.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 311
      chmoth = 'AIRH'
      x = -3.17106
      y = -1.65075
      z = 0.2
      irot = 1321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1322
      theta1 = 90
      phi1 = -151.25
      theta2 = 90
      phi2 = -61.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 312
      chmoth = 'AIRH'
      x = -3.1343
      y = -1.71953
      z = 0.2
      irot = 1322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 313
      chmoth = 'AIRH'
      x = -3.09604
      y = -1.7875
      z = 0.2
      irot = 1323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1324
      theta1 = 90
      phi1 = -148.75
      theta2 = 90
      phi2 = -58.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 314
      chmoth = 'AIRH'
      x = -3.05631
      y = -1.85461
      z = 0.2
      irot = 1324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1325
      theta1 = 90
      phi1 = -147.5
      theta2 = 90
      phi2 = -57.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 315
      chmoth = 'AIRH'
      x = -3.01512
      y = -1.92085
      z = 0.2
      irot = 1325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1326
      theta1 = 90
      phi1 = -146.25
      theta2 = 90
      phi2 = -56.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 316
      chmoth = 'AIRH'
      x = -2.9725
      y = -1.98616
      z = 0.2
      irot = 1326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 317
      chmoth = 'AIRH'
      x = -2.92847
      y = -2.05054
      z = 0.2
      irot = 1327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1328
      theta1 = 90
      phi1 = -143.75
      theta2 = 90
      phi2 = -53.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 318
      chmoth = 'AIRH'
      x = -2.88304
      y = -2.11393
      z = 0.2
      irot = 1328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 319
      chmoth = 'AIRH'
      x = -2.83624
      y = -2.17632
      z = 0.2
      irot = 1329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1330
      theta1 = 90
      phi1 = -141.25
      theta2 = 90
      phi2 = -51.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 320
      chmoth = 'AIRH'
      x = -2.78809
      y = -2.23768
      z = 0.2
      irot = 1330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 321
      chmoth = 'AIRH'
      x = -2.73861
      y = -2.29797
      z = 0.2
      irot = 1331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1332
      theta1 = 90
      phi1 = -138.75
      theta2 = 90
      phi2 = -48.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 322
      chmoth = 'AIRH'
      x = -2.68783
      y = -2.35716
      z = 0.2
      irot = 1332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1333
      theta1 = 90
      phi1 = -137.5
      theta2 = 90
      phi2 = -47.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 323
      chmoth = 'AIRH'
      x = -2.63577
      y = -2.41523
      z = 0.2
      irot = 1333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1334
      theta1 = 90
      phi1 = -136.25
      theta2 = 90
      phi2 = -46.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 324
      chmoth = 'AIRH'
      x = -2.58245
      y = -2.47216
      z = 0.2
      irot = 1334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 325
      chmoth = 'AIRH'
      x = -2.52791
      y = -2.52791
      z = 0.2
      irot = 1335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1336
      theta1 = 90
      phi1 = -133.75
      theta2 = 90
      phi2 = -43.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 326
      chmoth = 'AIRH'
      x = -2.47216
      y = -2.58245
      z = 0.2
      irot = 1336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1337
      theta1 = 90
      phi1 = -132.5
      theta2 = 90
      phi2 = -42.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 327
      chmoth = 'AIRH'
      x = -2.41523
      y = -2.63577
      z = 0.2
      irot = 1337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1338
      theta1 = 90
      phi1 = -131.25
      theta2 = 90
      phi2 = -41.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 328
      chmoth = 'AIRH'
      x = -2.35716
      y = -2.68783
      z = 0.2
      irot = 1338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 329
      chmoth = 'AIRH'
      x = -2.29797
      y = -2.73861
      z = 0.2
      irot = 1339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1340
      theta1 = 90
      phi1 = -128.75
      theta2 = 90
      phi2 = -38.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 330
      chmoth = 'AIRH'
      x = -2.23768
      y = -2.78809
      z = 0.2
      irot = 1340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 331
      chmoth = 'AIRH'
      x = -2.17632
      y = -2.83624
      z = 0.2
      irot = 1341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1342
      theta1 = 90
      phi1 = -126.25
      theta2 = 90
      phi2 = -36.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 332
      chmoth = 'AIRH'
      x = -2.11393
      y = -2.88304
      z = 0.2
      irot = 1342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 333
      chmoth = 'AIRH'
      x = -2.05054
      y = -2.92847
      z = 0.2
      irot = 1343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1344
      theta1 = 90
      phi1 = -123.75
      theta2 = 90
      phi2 = -33.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 334
      chmoth = 'AIRH'
      x = -1.98616
      y = -2.9725
      z = 0.2
      irot = 1344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1345
      theta1 = 90
      phi1 = -122.5
      theta2 = 90
      phi2 = -32.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 335
      chmoth = 'AIRH'
      x = -1.92085
      y = -3.01512
      z = 0.2
      irot = 1345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1346
      theta1 = 90
      phi1 = -121.25
      theta2 = 90
      phi2 = -31.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 336
      chmoth = 'AIRH'
      x = -1.85461
      y = -3.05631
      z = 0.2
      irot = 1346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 337
      chmoth = 'AIRH'
      x = -1.7875
      y = -3.09604
      z = 0.2
      irot = 1347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1348
      theta1 = 90
      phi1 = -118.75
      theta2 = 90
      phi2 = -28.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 338
      chmoth = 'AIRH'
      x = -1.71953
      y = -3.1343
      z = 0.2
      irot = 1348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1349
      theta1 = 90
      phi1 = -117.5
      theta2 = 90
      phi2 = -27.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 339
      chmoth = 'AIRH'
      x = -1.65075
      y = -3.17106
      z = 0.2
      irot = 1349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1350
      theta1 = 90
      phi1 = -116.25
      theta2 = 90
      phi2 = -26.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 340
      chmoth = 'AIRH'
      x = -1.58118
      y = -3.20632
      z = 0.2
      irot = 1350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 341
      chmoth = 'AIRH'
      x = -1.51086
      y = -3.24005
      z = 0.2
      irot = 1351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1352
      theta1 = 90
      phi1 = -113.75
      theta2 = 90
      phi2 = -23.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 342
      chmoth = 'AIRH'
      x = -1.43982
      y = -3.27224
      z = 0.2
      irot = 1352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 343
      chmoth = 'AIRH'
      x = -1.36809
      y = -3.30287
      z = 0.2
      irot = 1353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1354
      theta1 = 90
      phi1 = -111.25
      theta2 = 90
      phi2 = -21.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 344
      chmoth = 'AIRH'
      x = -1.29572
      y = -3.33193
      z = 0.2
      irot = 1354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN7'
      nr = 345
      chmoth = 'AIRH'
      x = -1.22272
      y = -3.3594
      z = 0.2
      irot = 1355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1356
      theta1 = 90
      phi1 = -108.75
      theta2 = 90
      phi2 = -18.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 346
      chmoth = 'AIRH'
      x = -1.14915
      y = -3.38528
      z = 0.2
      irot = 1356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1357
      theta1 = 90
      phi1 = -107.5
      theta2 = 90
      phi2 = -17.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 347
      chmoth = 'AIRH'
      x = -1.07502
      y = -3.40954
      z = 0.2
      irot = 1357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1358
      theta1 = 90
      phi1 = -106.25
      theta2 = 90
      phi2 = -16.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 348
      chmoth = 'AIRH'
      x = -1.00039
      y = -3.43218
      z = 0.2
      irot = 1358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1359
      theta1 = 90
      phi1 = -163.776
      theta2 = 90
      phi2 = -73.776
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 349
      chmoth = 'AIRH'
      x = -3.50465
      y = -1.01979
      z = 0.2
      irot = 1359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1360
      theta1 = 90
      phi1 = -162.552
      theta2 = 90
      phi2 = -72.552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 350
      chmoth = 'AIRH'
      x = -3.48206
      y = -1.09442
      z = 0.2
      irot = 1360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1361
      theta1 = 90
      phi1 = -161.328
      theta2 = 90
      phi2 = -71.328
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 351
      chmoth = 'AIRH'
      x = -3.45789
      y = -1.16855
      z = 0.2
      irot = 1361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1362
      theta1 = 90
      phi1 = -160.104
      theta2 = 90
      phi2 = -70.104
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 352
      chmoth = 'AIRH'
      x = -3.43214
      y = -1.24215
      z = 0.2
      irot = 1362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1363
      theta1 = 90
      phi1 = -158.88
      theta2 = 90
      phi2 = -68.88
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 353
      chmoth = 'AIRH'
      x = -3.40482
      y = -1.31518
      z = 0.2
      irot = 1363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1364
      theta1 = 90
      phi1 = -157.656
      theta2 = 90
      phi2 = -67.656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 354
      chmoth = 'AIRH'
      x = -3.37595
      y = -1.38761
      z = 0.2
      irot = 1364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1365
      theta1 = 90
      phi1 = -156.432
      theta2 = 90
      phi2 = -66.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 355
      chmoth = 'AIRH'
      x = -3.34554
      y = -1.45941
      z = 0.2
      irot = 1365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1366
      theta1 = 90
      phi1 = -155.208
      theta2 = 90
      phi2 = -65.208
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 356
      chmoth = 'AIRH'
      x = -3.3136
      y = -1.53054
      z = 0.2
      irot = 1366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1367
      theta1 = 90
      phi1 = -153.984
      theta2 = 90
      phi2 = -63.984
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 357
      chmoth = 'AIRH'
      x = -3.28015
      y = -1.60097
      z = 0.2
      irot = 1367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1368
      theta1 = 90
      phi1 = -152.76
      theta2 = 90
      phi2 = -62.76
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 358
      chmoth = 'AIRH'
      x = -3.2452
      y = -1.67067
      z = 0.2
      irot = 1368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1369
      theta1 = 90
      phi1 = -151.536
      theta2 = 90
      phi2 = -61.536
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 359
      chmoth = 'AIRH'
      x = -3.20878
      y = -1.73961
      z = 0.2
      irot = 1369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1370
      theta1 = 90
      phi1 = -150.312
      theta2 = 90
      phi2 = -60.312
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 360
      chmoth = 'AIRH'
      x = -3.17088
      y = -1.80776
      z = 0.2
      irot = 1370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1371
      theta1 = 90
      phi1 = -149.088
      theta2 = 90
      phi2 = -59.088
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 361
      chmoth = 'AIRH'
      x = -3.13154
      y = -1.87508
      z = 0.2
      irot = 1371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1372
      theta1 = 90
      phi1 = -147.864
      theta2 = 90
      phi2 = -57.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 362
      chmoth = 'AIRH'
      x = -3.09078
      y = -1.94155
      z = 0.2
      irot = 1372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1373
      theta1 = 90
      phi1 = -146.64
      theta2 = 90
      phi2 = -56.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 363
      chmoth = 'AIRH'
      x = -3.0486
      y = -2.00713
      z = 0.2
      irot = 1373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1374
      theta1 = 90
      phi1 = -145.416
      theta2 = 90
      phi2 = -55.416
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 364
      chmoth = 'AIRH'
      x = -3.00503
      y = -2.07179
      z = 0.2
      irot = 1374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1375
      theta1 = 90
      phi1 = -144.192
      theta2 = 90
      phi2 = -54.192
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 365
      chmoth = 'AIRH'
      x = -2.96008
      y = -2.13551
      z = 0.2
      irot = 1375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1376
      theta1 = 90
      phi1 = -142.968
      theta2 = 90
      phi2 = -52.968
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 366
      chmoth = 'AIRH'
      x = -2.91379
      y = -2.19825
      z = 0.2
      irot = 1376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1377
      theta1 = 90
      phi1 = -141.744
      theta2 = 90
      phi2 = -51.744
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 367
      chmoth = 'AIRH'
      x = -2.86617
      y = -2.25999
      z = 0.2
      irot = 1377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1378
      theta1 = 90
      phi1 = -140.52
      theta2 = 90
      phi2 = -50.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 368
      chmoth = 'AIRH'
      x = -2.81724
      y = -2.3207
      z = 0.2
      irot = 1378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1379
      theta1 = 90
      phi1 = -139.296
      theta2 = 90
      phi2 = -49.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 369
      chmoth = 'AIRH'
      x = -2.76702
      y = -2.38035
      z = 0.2
      irot = 1379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1380
      theta1 = 90
      phi1 = -138.072
      theta2 = 90
      phi2 = -48.072
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 370
      chmoth = 'AIRH'
      x = -2.71555
      y = -2.43892
      z = 0.2
      irot = 1380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1381
      theta1 = 90
      phi1 = -136.848
      theta2 = 90
      phi2 = -46.848
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 371
      chmoth = 'AIRH'
      x = -2.66283
      y = -2.49637
      z = 0.2
      irot = 1381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1382
      theta1 = 90
      phi1 = -135.624
      theta2 = 90
      phi2 = -45.624
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 372
      chmoth = 'AIRH'
      x = -2.60889
      y = -2.55268
      z = 0.2
      irot = 1382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1383
      theta1 = 90
      phi1 = -134.4
      theta2 = 90
      phi2 = -44.4
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 373
      chmoth = 'AIRH'
      x = -2.55377
      y = -2.60783
      z = 0.2
      irot = 1383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1384
      theta1 = 90
      phi1 = -133.176
      theta2 = 90
      phi2 = -43.176
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 374
      chmoth = 'AIRH'
      x = -2.49748
      y = -2.66178
      z = 0.2
      irot = 1384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1385
      theta1 = 90
      phi1 = -131.952
      theta2 = 90
      phi2 = -41.952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 375
      chmoth = 'AIRH'
      x = -2.44005
      y = -2.71452
      z = 0.2
      irot = 1385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1386
      theta1 = 90
      phi1 = -130.728
      theta2 = 90
      phi2 = -40.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 376
      chmoth = 'AIRH'
      x = -2.38151
      y = -2.76603
      z = 0.2
      irot = 1386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1387
      theta1 = 90
      phi1 = -129.504
      theta2 = 90
      phi2 = -39.504
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 377
      chmoth = 'AIRH'
      x = -2.32188
      y = -2.81627
      z = 0.2
      irot = 1387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1388
      theta1 = 90
      phi1 = -128.28
      theta2 = 90
      phi2 = -38.28
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 378
      chmoth = 'AIRH'
      x = -2.26119
      y = -2.86522
      z = 0.2
      irot = 1388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1389
      theta1 = 90
      phi1 = -127.056
      theta2 = 90
      phi2 = -37.056
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 379
      chmoth = 'AIRH'
      x = -2.19947
      y = -2.91287
      z = 0.2
      irot = 1389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1390
      theta1 = 90
      phi1 = -125.832
      theta2 = 90
      phi2 = -35.832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 380
      chmoth = 'AIRH'
      x = -2.13675
      y = -2.95919
      z = 0.2
      irot = 1390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1391
      theta1 = 90
      phi1 = -124.608
      theta2 = 90
      phi2 = -34.608
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 381
      chmoth = 'AIRH'
      x = -2.07305
      y = -3.00416
      z = 0.2
      irot = 1391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1392
      theta1 = 90
      phi1 = -123.384
      theta2 = 90
      phi2 = -33.384
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 382
      chmoth = 'AIRH'
      x = -2.0084
      y = -3.04776
      z = 0.2
      irot = 1392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1393
      theta1 = 90
      phi1 = -122.16
      theta2 = 90
      phi2 = -32.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 383
      chmoth = 'AIRH'
      x = -1.94284
      y = -3.08996
      z = 0.2
      irot = 1393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1394
      theta1 = 90
      phi1 = -120.936
      theta2 = 90
      phi2 = -30.936
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 384
      chmoth = 'AIRH'
      x = -1.87639
      y = -3.13076
      z = 0.2
      irot = 1394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1395
      theta1 = 90
      phi1 = -119.712
      theta2 = 90
      phi2 = -29.712
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 385
      chmoth = 'AIRH'
      x = -1.80909
      y = -3.17013
      z = 0.2
      irot = 1395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1396
      theta1 = 90
      phi1 = -118.488
      theta2 = 90
      phi2 = -28.488
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 386
      chmoth = 'AIRH'
      x = -1.74096
      y = -3.20805
      z = 0.2
      irot = 1396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1397
      theta1 = 90
      phi1 = -117.264
      theta2 = 90
      phi2 = -27.264
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 387
      chmoth = 'AIRH'
      x = -1.67203
      y = -3.2445
      z = 0.2
      irot = 1397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1398
      theta1 = 90
      phi1 = -116.04
      theta2 = 90
      phi2 = -26.04
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 388
      chmoth = 'AIRH'
      x = -1.60234
      y = -3.27948
      z = 0.2
      irot = 1398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1399
      theta1 = 90
      phi1 = -114.816
      theta2 = 90
      phi2 = -24.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 389
      chmoth = 'AIRH'
      x = -1.53193
      y = -3.31296
      z = 0.2
      irot = 1399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1400
      theta1 = 90
      phi1 = -113.592
      theta2 = 90
      phi2 = -23.592
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 390
      chmoth = 'AIRH'
      x = -1.46081
      y = -3.34493
      z = 0.2
      irot = 1400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1401
      theta1 = 90
      phi1 = -112.368
      theta2 = 90
      phi2 = -22.368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 391
      chmoth = 'AIRH'
      x = -1.38902
      y = -3.37537
      z = 0.2
      irot = 1401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1402
      theta1 = 90
      phi1 = -111.144
      theta2 = 90
      phi2 = -21.144
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 392
      chmoth = 'AIRH'
      x = -1.3166
      y = -3.40427
      z = 0.2
      irot = 1402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1403
      theta1 = 90
      phi1 = -109.92
      theta2 = 90
      phi2 = -19.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 393
      chmoth = 'AIRH'
      x = -1.24358
      y = -3.43162
      z = 0.2
      irot = 1403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1404
      theta1 = 90
      phi1 = -108.696
      theta2 = 90
      phi2 = -18.696
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 394
      chmoth = 'AIRH'
      x = -1.17
      y = -3.4574
      z = 0.2
      irot = 1404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1405
      theta1 = 90
      phi1 = -107.472
      theta2 = 90
      phi2 = -17.472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 395
      chmoth = 'AIRH'
      x = -1.09587
      y = -3.4816
      z = 0.2
      irot = 1405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1406
      theta1 = 90
      phi1 = -106.248
      theta2 = 90
      phi2 = -16.248
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN7'
      nr = 396
      chmoth = 'AIRH'
      x = -1.02125
      y = -3.50422
      z = 0.2
      irot = 1406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'BA24'
      chshap = 'TUBS'
      nmed = 25
      npar = 5
      par(1) = 3
      par(2) = 6
      par(3) = 0.4
      par(4) = 0
      par(5) = 60
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.25) stop 'consistency check #1 failed'

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

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

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

      chname = 'PIN8'
      chshap = 'TUBE'
      nmed = 26
      npar = 3
      par(1) = 0
      par(2) = 0.02
      par(3) = 0.85
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.26) stop 'consistency check #1 failed'

      irot = 1408
      theta1 = 90
      phi1 = -73.537
      theta2 = 90
      phi2 = 16.463
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 1
      chmoth = 'AIRH'
      x = 0.864358
      y = -2.92496
      z = 0.2
      irot = 1408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1409
      theta1 = 90
      phi1 = -72.074
      theta2 = 90
      phi2 = 17.926
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 2
      chmoth = 'AIRH'
      x = 0.938755
      y = -2.90194
      z = 0.2
      irot = 1409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1410
      theta1 = 90
      phi1 = -70.611
      theta2 = 90
      phi2 = 19.389
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 3
      chmoth = 'AIRH'
      x = 1.01254
      y = -2.87702
      z = 0.2
      irot = 1410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1411
      theta1 = 90
      phi1 = -69.148
      theta2 = 90
      phi2 = 20.852
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 4
      chmoth = 'AIRH'
      x = 1.08566
      y = -2.85023
      z = 0.2
      irot = 1411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1412
      theta1 = 90
      phi1 = -67.685
      theta2 = 90
      phi2 = 22.315
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 5
      chmoth = 'AIRH'
      x = 1.15808
      y = -2.82159
      z = 0.2
      irot = 1412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1413
      theta1 = 90
      phi1 = -66.222
      theta2 = 90
      phi2 = 23.778
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 6
      chmoth = 'AIRH'
      x = 1.22974
      y = -2.7911
      z = 0.2
      irot = 1413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1414
      theta1 = 90
      phi1 = -64.759
      theta2 = 90
      phi2 = 25.241
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 7
      chmoth = 'AIRH'
      x = 1.3006
      y = -2.75879
      z = 0.2
      irot = 1414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1415
      theta1 = 90
      phi1 = -63.296
      theta2 = 90
      phi2 = 26.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 8
      chmoth = 'AIRH'
      x = 1.37061
      y = -2.72469
      z = 0.2
      irot = 1415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1416
      theta1 = 90
      phi1 = -61.833
      theta2 = 90
      phi2 = 28.167
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 9
      chmoth = 'AIRH'
      x = 1.43973
      y = -2.68881
      z = 0.2
      irot = 1416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1417
      theta1 = 90
      phi1 = -60.37
      theta2 = 90
      phi2 = 29.63
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 10
      chmoth = 'AIRH'
      x = 1.50791
      y = -2.65117
      z = 0.2
      irot = 1417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1418
      theta1 = 90
      phi1 = -58.907
      theta2 = 90
      phi2 = 31.093
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 11
      chmoth = 'AIRH'
      x = 1.57511
      y = -2.61181
      z = 0.2
      irot = 1418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1419
      theta1 = 90
      phi1 = -57.444
      theta2 = 90
      phi2 = 32.556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 12
      chmoth = 'AIRH'
      x = 1.64128
      y = -2.57074
      z = 0.2
      irot = 1419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1420
      theta1 = 90
      phi1 = -55.981
      theta2 = 90
      phi2 = 34.019
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 13
      chmoth = 'AIRH'
      x = 1.70638
      y = -2.528
      z = 0.2
      irot = 1420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1421
      theta1 = 90
      phi1 = -54.518
      theta2 = 90
      phi2 = 35.482
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 14
      chmoth = 'AIRH'
      x = 1.77036
      y = -2.48361
      z = 0.2
      irot = 1421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1422
      theta1 = 90
      phi1 = -53.055
      theta2 = 90
      phi2 = 36.945
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 15
      chmoth = 'AIRH'
      x = 1.8332
      y = -2.4376
      z = 0.2
      irot = 1422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1423
      theta1 = 90
      phi1 = -51.592
      theta2 = 90
      phi2 = 38.408
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 16
      chmoth = 'AIRH'
      x = 1.89483
      y = -2.39
      z = 0.2
      irot = 1423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1424
      theta1 = 90
      phi1 = -50.129
      theta2 = 90
      phi2 = 39.871
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 17
      chmoth = 'AIRH'
      x = 1.95524
      y = -2.34084
      z = 0.2
      irot = 1424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1425
      theta1 = 90
      phi1 = -48.666
      theta2 = 90
      phi2 = 41.334
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 18
      chmoth = 'AIRH'
      x = 2.01436
      y = -2.29016
      z = 0.2
      irot = 1425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1426
      theta1 = 90
      phi1 = -47.203
      theta2 = 90
      phi2 = 42.797
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 19
      chmoth = 'AIRH'
      x = 2.07218
      y = -2.23798
      z = 0.2
      irot = 1426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1427
      theta1 = 90
      phi1 = -45.74
      theta2 = 90
      phi2 = 44.26
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 20
      chmoth = 'AIRH'
      x = 2.12864
      y = -2.18435
      z = 0.2
      irot = 1427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1428
      theta1 = 90
      phi1 = -44.277
      theta2 = 90
      phi2 = 45.723
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 21
      chmoth = 'AIRH'
      x = 2.18372
      y = -2.12929
      z = 0.2
      irot = 1428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1429
      theta1 = 90
      phi1 = -42.814
      theta2 = 90
      phi2 = 47.186
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 22
      chmoth = 'AIRH'
      x = 2.23737
      y = -2.07284
      z = 0.2
      irot = 1429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1430
      theta1 = 90
      phi1 = -41.351
      theta2 = 90
      phi2 = 48.649
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 23
      chmoth = 'AIRH'
      x = 2.28956
      y = -2.01504
      z = 0.2
      irot = 1430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1431
      theta1 = 90
      phi1 = -39.888
      theta2 = 90
      phi2 = 50.112
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 24
      chmoth = 'AIRH'
      x = 2.34026
      y = -1.95593
      z = 0.2
      irot = 1431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1432
      theta1 = 90
      phi1 = -38.425
      theta2 = 90
      phi2 = 51.575
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 25
      chmoth = 'AIRH'
      x = 2.38944
      y = -1.89554
      z = 0.2
      irot = 1432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1433
      theta1 = 90
      phi1 = -36.962
      theta2 = 90
      phi2 = 53.038
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 26
      chmoth = 'AIRH'
      x = 2.43706
      y = -1.83392
      z = 0.2
      irot = 1433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1434
      theta1 = 90
      phi1 = -35.499
      theta2 = 90
      phi2 = 54.501
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 27
      chmoth = 'AIRH'
      x = 2.48308
      y = -1.7711
      z = 0.2
      irot = 1434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1435
      theta1 = 90
      phi1 = -34.036
      theta2 = 90
      phi2 = 55.964
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 28
      chmoth = 'AIRH'
      x = 2.52749
      y = -1.70713
      z = 0.2
      irot = 1435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1436
      theta1 = 90
      phi1 = -32.573
      theta2 = 90
      phi2 = 57.427
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 29
      chmoth = 'AIRH'
      x = 2.57025
      y = -1.64204
      z = 0.2
      irot = 1436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1437
      theta1 = 90
      phi1 = -31.11
      theta2 = 90
      phi2 = 58.89
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 30
      chmoth = 'AIRH'
      x = 2.61134
      y = -1.57588
      z = 0.2
      irot = 1437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1438
      theta1 = 90
      phi1 = -29.647
      theta2 = 90
      phi2 = 60.353
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 31
      chmoth = 'AIRH'
      x = 2.65072
      y = -1.5087
      z = 0.2
      irot = 1438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1439
      theta1 = 90
      phi1 = -28.184
      theta2 = 90
      phi2 = 61.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 32
      chmoth = 'AIRH'
      x = 2.68838
      y = -1.44053
      z = 0.2
      irot = 1439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1440
      theta1 = 90
      phi1 = -26.721
      theta2 = 90
      phi2 = 63.279
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 33
      chmoth = 'AIRH'
      x = 2.72428
      y = -1.37142
      z = 0.2
      irot = 1440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1441
      theta1 = 90
      phi1 = -25.258
      theta2 = 90
      phi2 = 64.742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 34
      chmoth = 'AIRH'
      x = 2.75841
      y = -1.30142
      z = 0.2
      irot = 1441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1442
      theta1 = 90
      phi1 = -23.795
      theta2 = 90
      phi2 = 66.205
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 35
      chmoth = 'AIRH'
      x = 2.79073
      y = -1.23057
      z = 0.2
      irot = 1442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1443
      theta1 = 90
      phi1 = -22.332
      theta2 = 90
      phi2 = 67.668
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 36
      chmoth = 'AIRH'
      x = 2.82124
      y = -1.15892
      z = 0.2
      irot = 1443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1444
      theta1 = 90
      phi1 = -20.869
      theta2 = 90
      phi2 = 69.131
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 37
      chmoth = 'AIRH'
      x = 2.84991
      y = -1.08651
      z = 0.2
      irot = 1444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1445
      theta1 = 90
      phi1 = -19.406
      theta2 = 90
      phi2 = 70.594
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 38
      chmoth = 'AIRH'
      x = 2.87672
      y = -1.01339
      z = 0.2
      irot = 1445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1446
      theta1 = 90
      phi1 = -17.943
      theta2 = 90
      phi2 = 72.057
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 39
      chmoth = 'AIRH'
      x = 2.90166
      y = -0.939616
      z = 0.2
      irot = 1446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1447
      theta1 = 90
      phi1 = -16.48
      theta2 = 90
      phi2 = 73.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 40
      chmoth = 'AIRH'
      x = 2.9247
      y = -0.865226
      z = 0.2
      irot = 1447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1448
      theta1 = 90
      phi1 = -73.571
      theta2 = 90
      phi2 = 16.429
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 41
      chmoth = 'AIRH'
      x = 0.883834
      y = -2.99741
      z = 0.2
      irot = 1448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1449
      theta1 = 90
      phi1 = -72.142
      theta2 = 90
      phi2 = 17.858
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 42
      chmoth = 'AIRH'
      x = 0.958309
      y = -2.97444
      z = 0.2
      irot = 1449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1450
      theta1 = 90
      phi1 = -70.713
      theta2 = 90
      phi2 = 19.287
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 43
      chmoth = 'AIRH'
      x = 1.03219
      y = -2.94961
      z = 0.2
      irot = 1450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1451
      theta1 = 90
      phi1 = -69.284
      theta2 = 90
      phi2 = 20.716
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 44
      chmoth = 'AIRH'
      x = 1.10543
      y = -2.92295
      z = 0.2
      irot = 1451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1452
      theta1 = 90
      phi1 = -67.855
      theta2 = 90
      phi2 = 22.145
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 45
      chmoth = 'AIRH'
      x = 1.17797
      y = -2.89448
      z = 0.2
      irot = 1452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1453
      theta1 = 90
      phi1 = -66.426
      theta2 = 90
      phi2 = 23.574
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 46
      chmoth = 'AIRH'
      x = 1.24979
      y = -2.8642
      z = 0.2
      irot = 1453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1454
      theta1 = 90
      phi1 = -64.997
      theta2 = 90
      phi2 = 25.003
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 47
      chmoth = 'AIRH'
      x = 1.32083
      y = -2.83214
      z = 0.2
      irot = 1454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1455
      theta1 = 90
      phi1 = -63.568
      theta2 = 90
      phi2 = 26.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 48
      chmoth = 'AIRH'
      x = 1.39105
      y = -2.79832
      z = 0.2
      irot = 1455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1456
      theta1 = 90
      phi1 = -62.139
      theta2 = 90
      phi2 = 27.861
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 49
      chmoth = 'AIRH'
      x = 1.4604
      y = -2.76276
      z = 0.2
      irot = 1456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1457
      theta1 = 90
      phi1 = -60.71
      theta2 = 90
      phi2 = 29.29
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 50
      chmoth = 'AIRH'
      x = 1.52884
      y = -2.72548
      z = 0.2
      irot = 1457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1458
      theta1 = 90
      phi1 = -59.281
      theta2 = 90
      phi2 = 30.719
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 51
      chmoth = 'AIRH'
      x = 1.59634
      y = -2.68651
      z = 0.2
      irot = 1458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1459
      theta1 = 90
      phi1 = -57.852
      theta2 = 90
      phi2 = 32.148
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 52
      chmoth = 'AIRH'
      x = 1.66284
      y = -2.64586
      z = 0.2
      irot = 1459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1460
      theta1 = 90
      phi1 = -56.423
      theta2 = 90
      phi2 = 33.577
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 53
      chmoth = 'AIRH'
      x = 1.7283
      y = -2.60357
      z = 0.2
      irot = 1460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1461
      theta1 = 90
      phi1 = -54.994
      theta2 = 90
      phi2 = 35.006
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 54
      chmoth = 'AIRH'
      x = 1.79269
      y = -2.55966
      z = 0.2
      irot = 1461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1462
      theta1 = 90
      phi1 = -53.565
      theta2 = 90
      phi2 = 36.435
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 55
      chmoth = 'AIRH'
      x = 1.85597
      y = -2.51416
      z = 0.2
      irot = 1462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1463
      theta1 = 90
      phi1 = -52.136
      theta2 = 90
      phi2 = 37.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 56
      chmoth = 'AIRH'
      x = 1.91809
      y = -2.46709
      z = 0.2
      irot = 1463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1464
      theta1 = 90
      phi1 = -50.707
      theta2 = 90
      phi2 = 39.293
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 57
      chmoth = 'AIRH'
      x = 1.97902
      y = -2.41849
      z = 0.2
      irot = 1464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1465
      theta1 = 90
      phi1 = -49.278
      theta2 = 90
      phi2 = 40.722
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 58
      chmoth = 'AIRH'
      x = 2.03872
      y = -2.36839
      z = 0.2
      irot = 1465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1466
      theta1 = 90
      phi1 = -47.849
      theta2 = 90
      phi2 = 42.151
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 59
      chmoth = 'AIRH'
      x = 2.09715
      y = -2.31681
      z = 0.2
      irot = 1466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1467
      theta1 = 90
      phi1 = -46.42
      theta2 = 90
      phi2 = 43.58
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 60
      chmoth = 'AIRH'
      x = 2.15427
      y = -2.26379
      z = 0.2
      irot = 1467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1468
      theta1 = 90
      phi1 = -44.991
      theta2 = 90
      phi2 = 45.009
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 61
      chmoth = 'AIRH'
      x = 2.21006
      y = -2.20936
      z = 0.2
      irot = 1468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1469
      theta1 = 90
      phi1 = -43.562
      theta2 = 90
      phi2 = 46.438
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 62
      chmoth = 'AIRH'
      x = 2.26447
      y = -2.15356
      z = 0.2
      irot = 1469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1470
      theta1 = 90
      phi1 = -42.133
      theta2 = 90
      phi2 = 47.867
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 63
      chmoth = 'AIRH'
      x = 2.31747
      y = -2.09642
      z = 0.2
      irot = 1470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1471
      theta1 = 90
      phi1 = -40.704
      theta2 = 90
      phi2 = 49.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 64
      chmoth = 'AIRH'
      x = 2.36903
      y = -2.03797
      z = 0.2
      irot = 1471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1472
      theta1 = 90
      phi1 = -39.275
      theta2 = 90
      phi2 = 50.725
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 65
      chmoth = 'AIRH'
      x = 2.41911
      y = -1.97826
      z = 0.2
      irot = 1472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1473
      theta1 = 90
      phi1 = -37.846
      theta2 = 90
      phi2 = 52.154
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 66
      chmoth = 'AIRH'
      x = 2.4677
      y = -1.91732
      z = 0.2
      irot = 1473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1474
      theta1 = 90
      phi1 = -36.417
      theta2 = 90
      phi2 = 53.583
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 67
      chmoth = 'AIRH'
      x = 2.51474
      y = -1.85518
      z = 0.2
      irot = 1474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1475
      theta1 = 90
      phi1 = -34.988
      theta2 = 90
      phi2 = 55.012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 68
      chmoth = 'AIRH'
      x = 2.56023
      y = -1.79189
      z = 0.2
      irot = 1475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1476
      theta1 = 90
      phi1 = -33.559
      theta2 = 90
      phi2 = 56.441
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 69
      chmoth = 'AIRH'
      x = 2.60412
      y = -1.72749
      z = 0.2
      irot = 1476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1477
      theta1 = 90
      phi1 = -32.13
      theta2 = 90
      phi2 = 57.87
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 70
      chmoth = 'AIRH'
      x = 2.64639
      y = -1.66201
      z = 0.2
      irot = 1477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1478
      theta1 = 90
      phi1 = -30.701
      theta2 = 90
      phi2 = 59.299
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 71
      chmoth = 'AIRH'
      x = 2.68701
      y = -1.59549
      z = 0.2
      irot = 1478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1479
      theta1 = 90
      phi1 = -29.272
      theta2 = 90
      phi2 = 60.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 72
      chmoth = 'AIRH'
      x = 2.72596
      y = -1.52799
      z = 0.2
      irot = 1479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1480
      theta1 = 90
      phi1 = -27.843
      theta2 = 90
      phi2 = 62.157
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 73
      chmoth = 'AIRH'
      x = 2.76322
      y = -1.45953
      z = 0.2
      irot = 1480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1481
      theta1 = 90
      phi1 = -26.414
      theta2 = 90
      phi2 = 63.586
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 74
      chmoth = 'AIRH'
      x = 2.79876
      y = -1.39017
      z = 0.2
      irot = 1481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1482
      theta1 = 90
      phi1 = -24.985
      theta2 = 90
      phi2 = 65.015
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 75
      chmoth = 'AIRH'
      x = 2.83256
      y = -1.31994
      z = 0.2
      irot = 1482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1483
      theta1 = 90
      phi1 = -23.556
      theta2 = 90
      phi2 = 66.444
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 76
      chmoth = 'AIRH'
      x = 2.86459
      y = -1.24889
      z = 0.2
      irot = 1483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1484
      theta1 = 90
      phi1 = -22.127
      theta2 = 90
      phi2 = 67.873
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 77
      chmoth = 'AIRH'
      x = 2.89485
      y = -1.17707
      z = 0.2
      irot = 1484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1485
      theta1 = 90
      phi1 = -20.698
      theta2 = 90
      phi2 = 69.302
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 78
      chmoth = 'AIRH'
      x = 2.9233
      y = -1.10451
      z = 0.2
      irot = 1485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1486
      theta1 = 90
      phi1 = -19.269
      theta2 = 90
      phi2 = 70.731
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 79
      chmoth = 'AIRH'
      x = 2.94994
      y = -1.03126
      z = 0.2
      irot = 1486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1487
      theta1 = 90
      phi1 = -17.84
      theta2 = 90
      phi2 = 72.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 80
      chmoth = 'AIRH'
      x = 2.97474
      y = -0.957375
      z = 0.2
      irot = 1487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1488
      theta1 = 90
      phi1 = -16.411
      theta2 = 90
      phi2 = 73.589
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 81
      chmoth = 'AIRH'
      x = 2.99769
      y = -0.882893
      z = 0.2
      irot = 1488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1489
      theta1 = 90
      phi1 = -73.605
      theta2 = 90
      phi2 = 16.395
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 82
      chmoth = 'AIRH'
      x = 0.903225
      y = -3.06988
      z = 0.2
      irot = 1489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1490
      theta1 = 90
      phi1 = -72.21
      theta2 = 90
      phi2 = 17.79
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 83
      chmoth = 'AIRH'
      x = 0.977693
      y = -3.04698
      z = 0.2
      irot = 1490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1491
      theta1 = 90
      phi1 = -70.815
      theta2 = 90
      phi2 = 19.185
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 84
      chmoth = 'AIRH'
      x = 1.05158
      y = -3.02228
      z = 0.2
      irot = 1491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1492
      theta1 = 90
      phi1 = -69.42
      theta2 = 90
      phi2 = 20.58
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 85
      chmoth = 'AIRH'
      x = 1.12485
      y = -2.99578
      z = 0.2
      irot = 1492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1493
      theta1 = 90
      phi1 = -68.025
      theta2 = 90
      phi2 = 21.975
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 86
      chmoth = 'AIRH'
      x = 1.19745
      y = -2.96751
      z = 0.2
      irot = 1493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1494
      theta1 = 90
      phi1 = -66.63
      theta2 = 90
      phi2 = 23.37
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 87
      chmoth = 'AIRH'
      x = 1.26934
      y = -2.93748
      z = 0.2
      irot = 1494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1495
      theta1 = 90
      phi1 = -65.235
      theta2 = 90
      phi2 = 24.765
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 88
      chmoth = 'AIRH'
      x = 1.34047
      y = -2.90571
      z = 0.2
      irot = 1495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1496
      theta1 = 90
      phi1 = -63.84
      theta2 = 90
      phi2 = 26.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 89
      chmoth = 'AIRH'
      x = 1.41081
      y = -2.87221
      z = 0.2
      irot = 1496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1497
      theta1 = 90
      phi1 = -62.445
      theta2 = 90
      phi2 = 27.555
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 90
      chmoth = 'AIRH'
      x = 1.48032
      y = -2.83701
      z = 0.2
      irot = 1497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1498
      theta1 = 90
      phi1 = -61.05
      theta2 = 90
      phi2 = 28.95
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 91
      chmoth = 'AIRH'
      x = 1.54895
      y = -2.80014
      z = 0.2
      irot = 1498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1499
      theta1 = 90
      phi1 = -59.655
      theta2 = 90
      phi2 = 30.345
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 92
      chmoth = 'AIRH'
      x = 1.61666
      y = -2.7616
      z = 0.2
      irot = 1499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1500
      theta1 = 90
      phi1 = -58.26
      theta2 = 90
      phi2 = 31.74
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 93
      chmoth = 'AIRH'
      x = 1.68341
      y = -2.72142
      z = 0.2
      irot = 1500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1501
      theta1 = 90
      phi1 = -56.865
      theta2 = 90
      phi2 = 33.135
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 94
      chmoth = 'AIRH'
      x = 1.74916
      y = -2.67963
      z = 0.2
      irot = 1501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1502
      theta1 = 90
      phi1 = -55.47
      theta2 = 90
      phi2 = 34.53
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 95
      chmoth = 'AIRH'
      x = 1.81388
      y = -2.63625
      z = 0.2
      irot = 1502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1503
      theta1 = 90
      phi1 = -54.075
      theta2 = 90
      phi2 = 35.925
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 96
      chmoth = 'AIRH'
      x = 1.87752
      y = -2.59131
      z = 0.2
      irot = 1503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1504
      theta1 = 90
      phi1 = -52.68
      theta2 = 90
      phi2 = 37.32
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 97
      chmoth = 'AIRH'
      x = 1.94005
      y = -2.54484
      z = 0.2
      irot = 1504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1505
      theta1 = 90
      phi1 = -51.285
      theta2 = 90
      phi2 = 38.715
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 98
      chmoth = 'AIRH'
      x = 2.00143
      y = -2.49685
      z = 0.2
      irot = 1505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1506
      theta1 = 90
      phi1 = -49.89
      theta2 = 90
      phi2 = 40.11
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 99
      chmoth = 'AIRH'
      x = 2.06162
      y = -2.44739
      z = 0.2
      irot = 1506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1507
      theta1 = 90
      phi1 = -48.495
      theta2 = 90
      phi2 = 41.505
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 100
      chmoth = 'AIRH'
      x = 2.12059
      y = -2.39647
      z = 0.2
      irot = 1507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1508
      theta1 = 90
      phi1 = -47.1
      theta2 = 90
      phi2 = 42.9
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 101
      chmoth = 'AIRH'
      x = 2.17831
      y = -2.34414
      z = 0.2
      irot = 1508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1509
      theta1 = 90
      phi1 = -45.705
      theta2 = 90
      phi2 = 44.295
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 102
      chmoth = 'AIRH'
      x = 2.23473
      y = -2.29041
      z = 0.2
      irot = 1509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1510
      theta1 = 90
      phi1 = -44.31
      theta2 = 90
      phi2 = 45.69
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 103
      chmoth = 'AIRH'
      x = 2.28983
      y = -2.23533
      z = 0.2
      irot = 1510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1511
      theta1 = 90
      phi1 = -42.915
      theta2 = 90
      phi2 = 47.085
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 104
      chmoth = 'AIRH'
      x = 2.34357
      y = -2.17892
      z = 0.2
      irot = 1511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1512
      theta1 = 90
      phi1 = -41.52
      theta2 = 90
      phi2 = 48.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 105
      chmoth = 'AIRH'
      x = 2.39592
      y = -2.12122
      z = 0.2
      irot = 1512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1513
      theta1 = 90
      phi1 = -40.125
      theta2 = 90
      phi2 = 49.875
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 106
      chmoth = 'AIRH'
      x = 2.44685
      y = -2.06226
      z = 0.2
      irot = 1513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1514
      theta1 = 90
      phi1 = -38.73
      theta2 = 90
      phi2 = 51.27
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 107
      chmoth = 'AIRH'
      x = 2.49633
      y = -2.00208
      z = 0.2
      irot = 1514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1515
      theta1 = 90
      phi1 = -37.335
      theta2 = 90
      phi2 = 52.665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 108
      chmoth = 'AIRH'
      x = 2.54433
      y = -1.94072
      z = 0.2
      irot = 1515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1516
      theta1 = 90
      phi1 = -35.94
      theta2 = 90
      phi2 = 54.06
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 109
      chmoth = 'AIRH'
      x = 2.59082
      y = -1.8782
      z = 0.2
      irot = 1516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1517
      theta1 = 90
      phi1 = -34.545
      theta2 = 90
      phi2 = 55.455
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 110
      chmoth = 'AIRH'
      x = 2.63578
      y = -1.81457
      z = 0.2
      irot = 1517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1518
      theta1 = 90
      phi1 = -33.15
      theta2 = 90
      phi2 = 56.85
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 111
      chmoth = 'AIRH'
      x = 2.67917
      y = -1.74986
      z = 0.2
      irot = 1518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1519
      theta1 = 90
      phi1 = -31.755
      theta2 = 90
      phi2 = 58.245
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 112
      chmoth = 'AIRH'
      x = 2.72098
      y = -1.68412
      z = 0.2
      irot = 1519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1520
      theta1 = 90
      phi1 = -30.36
      theta2 = 90
      phi2 = 59.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 113
      chmoth = 'AIRH'
      x = 2.76117
      y = -1.61738
      z = 0.2
      irot = 1520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1521
      theta1 = 90
      phi1 = -28.965
      theta2 = 90
      phi2 = 61.035
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 114
      chmoth = 'AIRH'
      x = 2.79973
      y = -1.54968
      z = 0.2
      irot = 1521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1522
      theta1 = 90
      phi1 = -27.57
      theta2 = 90
      phi2 = 62.43
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 115
      chmoth = 'AIRH'
      x = 2.83663
      y = -1.48106
      z = 0.2
      irot = 1522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1523
      theta1 = 90
      phi1 = -26.175
      theta2 = 90
      phi2 = 63.825
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 116
      chmoth = 'AIRH'
      x = 2.87184
      y = -1.41157
      z = 0.2
      irot = 1523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1524
      theta1 = 90
      phi1 = -24.78
      theta2 = 90
      phi2 = 65.22
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 117
      chmoth = 'AIRH'
      x = 2.90536
      y = -1.34123
      z = 0.2
      irot = 1524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1525
      theta1 = 90
      phi1 = -23.385
      theta2 = 90
      phi2 = 66.615
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 118
      chmoth = 'AIRH'
      x = 2.93715
      y = -1.2701
      z = 0.2
      irot = 1525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1526
      theta1 = 90
      phi1 = -21.99
      theta2 = 90
      phi2 = 68.01
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 119
      chmoth = 'AIRH'
      x = 2.9672
      y = -1.19822
      z = 0.2
      irot = 1526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1527
      theta1 = 90
      phi1 = -20.595
      theta2 = 90
      phi2 = 69.405
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 120
      chmoth = 'AIRH'
      x = 2.99549
      y = -1.12563
      z = 0.2
      irot = 1527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1528
      theta1 = 90
      phi1 = -19.2
      theta2 = 90
      phi2 = 70.8
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 121
      chmoth = 'AIRH'
      x = 3.022
      y = -1.05237
      z = 0.2
      irot = 1528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1529
      theta1 = 90
      phi1 = -17.805
      theta2 = 90
      phi2 = 72.195
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 122
      chmoth = 'AIRH'
      x = 3.04673
      y = -0.978491
      z = 0.2
      irot = 1529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1530
      theta1 = 90
      phi1 = -16.41
      theta2 = 90
      phi2 = 73.59
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 123
      chmoth = 'AIRH'
      x = 3.06965
      y = -0.904028
      z = 0.2
      irot = 1530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1531
      theta1 = 90
      phi1 = -73.636
      theta2 = 90
      phi2 = 16.364
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 124
      chmoth = 'AIRH'
      x = 0.922694
      y = -3.14233
      z = 0.2
      irot = 1531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1532
      theta1 = 90
      phi1 = -72.272
      theta2 = 90
      phi2 = 17.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 125
      chmoth = 'AIRH'
      x = 0.997233
      y = -3.11948
      z = 0.2
      irot = 1532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1533
      theta1 = 90
      phi1 = -70.908
      theta2 = 90
      phi2 = 19.092
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 126
      chmoth = 'AIRH'
      x = 1.07121
      y = -3.09486
      z = 0.2
      irot = 1533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1534
      theta1 = 90
      phi1 = -69.544
      theta2 = 90
      phi2 = 20.456
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 127
      chmoth = 'AIRH'
      x = 1.14457
      y = -3.06848
      z = 0.2
      irot = 1534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1535
      theta1 = 90
      phi1 = -68.18
      theta2 = 90
      phi2 = 21.82
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 128
      chmoth = 'AIRH'
      x = 1.21729
      y = -3.04037
      z = 0.2
      irot = 1535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1536
      theta1 = 90
      phi1 = -66.816
      theta2 = 90
      phi2 = 23.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 129
      chmoth = 'AIRH'
      x = 1.28932
      y = -3.01053
      z = 0.2
      irot = 1536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1537
      theta1 = 90
      phi1 = -65.452
      theta2 = 90
      phi2 = 24.548
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 130
      chmoth = 'AIRH'
      x = 1.36062
      y = -2.97898
      z = 0.2
      irot = 1537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1538
      theta1 = 90
      phi1 = -64.088
      theta2 = 90
      phi2 = 25.912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 131
      chmoth = 'AIRH'
      x = 1.43114
      y = -2.94575
      z = 0.2
      irot = 1538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1539
      theta1 = 90
      phi1 = -62.724
      theta2 = 90
      phi2 = 27.276
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 132
      chmoth = 'AIRH'
      x = 1.50086
      y = -2.91085
      z = 0.2
      irot = 1539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1540
      theta1 = 90
      phi1 = -61.36
      theta2 = 90
      phi2 = 28.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 133
      chmoth = 'AIRH'
      x = 1.56972
      y = -2.8743
      z = 0.2
      irot = 1540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1541
      theta1 = 90
      phi1 = -59.996
      theta2 = 90
      phi2 = 30.004
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 134
      chmoth = 'AIRH'
      x = 1.6377
      y = -2.83612
      z = 0.2
      irot = 1541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1542
      theta1 = 90
      phi1 = -58.632
      theta2 = 90
      phi2 = 31.368
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 135
      chmoth = 'AIRH'
      x = 1.70475
      y = -2.79633
      z = 0.2
      irot = 1542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1543
      theta1 = 90
      phi1 = -57.268
      theta2 = 90
      phi2 = 32.732
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 136
      chmoth = 'AIRH'
      x = 1.77083
      y = -2.75496
      z = 0.2
      irot = 1543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1544
      theta1 = 90
      phi1 = -55.904
      theta2 = 90
      phi2 = 34.096
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 137
      chmoth = 'AIRH'
      x = 1.8359
      y = -2.71203
      z = 0.2
      irot = 1544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1545
      theta1 = 90
      phi1 = -54.54
      theta2 = 90
      phi2 = 35.46
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 138
      chmoth = 'AIRH'
      x = 1.89994
      y = -2.66756
      z = 0.2
      irot = 1545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1546
      theta1 = 90
      phi1 = -53.176
      theta2 = 90
      phi2 = 36.824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 139
      chmoth = 'AIRH'
      x = 1.9629
      y = -2.62157
      z = 0.2
      irot = 1546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1547
      theta1 = 90
      phi1 = -51.812
      theta2 = 90
      phi2 = 38.188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 140
      chmoth = 'AIRH'
      x = 2.02475
      y = -2.57411
      z = 0.2
      irot = 1547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1548
      theta1 = 90
      phi1 = -50.448
      theta2 = 90
      phi2 = 39.552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 141
      chmoth = 'AIRH'
      x = 2.08545
      y = -2.52518
      z = 0.2
      irot = 1548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1549
      theta1 = 90
      phi1 = -49.084
      theta2 = 90
      phi2 = 40.916
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 142
      chmoth = 'AIRH'
      x = 2.14497
      y = -2.47482
      z = 0.2
      irot = 1549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1550
      theta1 = 90
      phi1 = -47.72
      theta2 = 90
      phi2 = 42.28
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 143
      chmoth = 'AIRH'
      x = 2.20327
      y = -2.42306
      z = 0.2
      irot = 1550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1551
      theta1 = 90
      phi1 = -46.356
      theta2 = 90
      phi2 = 43.644
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 144
      chmoth = 'AIRH'
      x = 2.26032
      y = -2.36993
      z = 0.2
      irot = 1551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1552
      theta1 = 90
      phi1 = -44.992
      theta2 = 90
      phi2 = 45.008
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 145
      chmoth = 'AIRH'
      x = 2.3161
      y = -2.31545
      z = 0.2
      irot = 1552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1553
      theta1 = 90
      phi1 = -43.628
      theta2 = 90
      phi2 = 46.372
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 146
      chmoth = 'AIRH'
      x = 2.37056
      y = -2.25966
      z = 0.2
      irot = 1553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1554
      theta1 = 90
      phi1 = -42.264
      theta2 = 90
      phi2 = 47.736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 147
      chmoth = 'AIRH'
      x = 2.42368
      y = -2.20259
      z = 0.2
      irot = 1554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1555
      theta1 = 90
      phi1 = -40.9
      theta2 = 90
      phi2 = 49.1
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 148
      chmoth = 'AIRH'
      x = 2.47542
      y = -2.14428
      z = 0.2
      irot = 1555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1556
      theta1 = 90
      phi1 = -39.536
      theta2 = 90
      phi2 = 50.464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 149
      chmoth = 'AIRH'
      x = 2.52576
      y = -2.08474
      z = 0.2
      irot = 1556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1557
      theta1 = 90
      phi1 = -38.172
      theta2 = 90
      phi2 = 51.828
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 150
      chmoth = 'AIRH'
      x = 2.57467
      y = -2.02403
      z = 0.2
      irot = 1557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1558
      theta1 = 90
      phi1 = -36.808
      theta2 = 90
      phi2 = 53.192
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 151
      chmoth = 'AIRH'
      x = 2.62212
      y = -1.96217
      z = 0.2
      irot = 1558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1559
      theta1 = 90
      phi1 = -35.444
      theta2 = 90
      phi2 = 54.556
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 152
      chmoth = 'AIRH'
      x = 2.66809
      y = -1.8992
      z = 0.2
      irot = 1559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1560
      theta1 = 90
      phi1 = -34.08
      theta2 = 90
      phi2 = 55.92
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 153
      chmoth = 'AIRH'
      x = 2.71254
      y = -1.83515
      z = 0.2
      irot = 1560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1561
      theta1 = 90
      phi1 = -32.716
      theta2 = 90
      phi2 = 57.284
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 154
      chmoth = 'AIRH'
      x = 2.75545
      y = -1.77006
      z = 0.2
      irot = 1561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1562
      theta1 = 90
      phi1 = -31.352
      theta2 = 90
      phi2 = 58.648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 155
      chmoth = 'AIRH'
      x = 2.79681
      y = -1.70396
      z = 0.2
      irot = 1562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1563
      theta1 = 90
      phi1 = -29.988
      theta2 = 90
      phi2 = 60.012
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 156
      chmoth = 'AIRH'
      x = 2.83658
      y = -1.63691
      z = 0.2
      irot = 1563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1564
      theta1 = 90
      phi1 = -28.624
      theta2 = 90
      phi2 = 61.376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 157
      chmoth = 'AIRH'
      x = 2.87474
      y = -1.56892
      z = 0.2
      irot = 1564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1565
      theta1 = 90
      phi1 = -27.26
      theta2 = 90
      phi2 = 62.74
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 158
      chmoth = 'AIRH'
      x = 2.91127
      y = -1.50005
      z = 0.2
      irot = 1565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1566
      theta1 = 90
      phi1 = -25.896
      theta2 = 90
      phi2 = 64.104
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 159
      chmoth = 'AIRH'
      x = 2.94615
      y = -1.43032
      z = 0.2
      irot = 1566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1567
      theta1 = 90
      phi1 = -24.532
      theta2 = 90
      phi2 = 65.468
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 160
      chmoth = 'AIRH'
      x = 2.97936
      y = -1.35978
      z = 0.2
      irot = 1567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1568
      theta1 = 90
      phi1 = -23.168
      theta2 = 90
      phi2 = 66.832
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 161
      chmoth = 'AIRH'
      x = 3.01089
      y = -1.28848
      z = 0.2
      irot = 1568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1569
      theta1 = 90
      phi1 = -21.804
      theta2 = 90
      phi2 = 68.196
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 162
      chmoth = 'AIRH'
      x = 3.04071
      y = -1.21644
      z = 0.2
      irot = 1569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1570
      theta1 = 90
      phi1 = -20.44
      theta2 = 90
      phi2 = 69.56
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 163
      chmoth = 'AIRH'
      x = 3.0688
      y = -1.14372
      z = 0.2
      irot = 1570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1571
      theta1 = 90
      phi1 = -19.076
      theta2 = 90
      phi2 = 70.924
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 164
      chmoth = 'AIRH'
      x = 3.09516
      y = -1.07034
      z = 0.2
      irot = 1571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1572
      theta1 = 90
      phi1 = -17.712
      theta2 = 90
      phi2 = 72.288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 165
      chmoth = 'AIRH'
      x = 3.11976
      y = -0.996362
      z = 0.2
      irot = 1572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1573
      theta1 = 90
      phi1 = -16.348
      theta2 = 90
      phi2 = 73.652
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 166
      chmoth = 'AIRH'
      x = 3.14259
      y = -0.921817
      z = 0.2
      irot = 1573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1574
      theta1 = 90
      phi1 = -73.667
      theta2 = 90
      phi2 = 16.333
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 167
      chmoth = 'AIRH'
      x = 0.942085
      y = -3.21481
      z = 0.2
      irot = 1574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1575
      theta1 = 90
      phi1 = -72.334
      theta2 = 90
      phi2 = 17.666
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 168
      chmoth = 'AIRH'
      x = 1.01662
      y = -3.19202
      z = 0.2
      irot = 1575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1576
      theta1 = 90
      phi1 = -71.001
      theta2 = 90
      phi2 = 18.999
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 169
      chmoth = 'AIRH'
      x = 1.0906
      y = -3.16751
      z = 0.2
      irot = 1576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1577
      theta1 = 90
      phi1 = -69.668
      theta2 = 90
      phi2 = 20.332
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 170
      chmoth = 'AIRH'
      x = 1.16399
      y = -3.14128
      z = 0.2
      irot = 1577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1578
      theta1 = 90
      phi1 = -68.335
      theta2 = 90
      phi2 = 21.665
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 171
      chmoth = 'AIRH'
      x = 1.23675
      y = -3.11335
      z = 0.2
      irot = 1578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1579
      theta1 = 90
      phi1 = -67.002
      theta2 = 90
      phi2 = 22.998
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 172
      chmoth = 'AIRH'
      x = 1.30884
      y = -3.08374
      z = 0.2
      irot = 1579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1580
      theta1 = 90
      phi1 = -65.669
      theta2 = 90
      phi2 = 24.331
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 173
      chmoth = 'AIRH'
      x = 1.38022
      y = -3.05245
      z = 0.2
      irot = 1580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1581
      theta1 = 90
      phi1 = -64.336
      theta2 = 90
      phi2 = 25.664
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 174
      chmoth = 'AIRH'
      x = 1.45086
      y = -3.01952
      z = 0.2
      irot = 1581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1582
      theta1 = 90
      phi1 = -63.003
      theta2 = 90
      phi2 = 26.997
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 175
      chmoth = 'AIRH'
      x = 1.52071
      y = -2.98495
      z = 0.2
      irot = 1582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1583
      theta1 = 90
      phi1 = -61.67
      theta2 = 90
      phi2 = 28.33
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 176
      chmoth = 'AIRH'
      x = 1.58974
      y = -2.94877
      z = 0.2
      irot = 1583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1584
      theta1 = 90
      phi1 = -60.337
      theta2 = 90
      phi2 = 29.663
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 177
      chmoth = 'AIRH'
      x = 1.65791
      y = -2.91099
      z = 0.2
      irot = 1584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1585
      theta1 = 90
      phi1 = -59.004
      theta2 = 90
      phi2 = 30.996
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 178
      chmoth = 'AIRH'
      x = 1.72518
      y = -2.87163
      z = 0.2
      irot = 1585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1586
      theta1 = 90
      phi1 = -57.671
      theta2 = 90
      phi2 = 32.329
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 179
      chmoth = 'AIRH'
      x = 1.79151
      y = -2.83072
      z = 0.2
      irot = 1586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1587
      theta1 = 90
      phi1 = -56.338
      theta2 = 90
      phi2 = 33.662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 180
      chmoth = 'AIRH'
      x = 1.85688
      y = -2.78828
      z = 0.2
      irot = 1587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1588
      theta1 = 90
      phi1 = -55.005
      theta2 = 90
      phi2 = 34.995
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 181
      chmoth = 'AIRH'
      x = 1.92124
      y = -2.74433
      z = 0.2
      irot = 1588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1589
      theta1 = 90
      phi1 = -53.672
      theta2 = 90
      phi2 = 36.328
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 182
      chmoth = 'AIRH'
      x = 1.98456
      y = -2.69889
      z = 0.2
      irot = 1589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1590
      theta1 = 90
      phi1 = -52.339
      theta2 = 90
      phi2 = 37.661
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 183
      chmoth = 'AIRH'
      x = 2.04681
      y = -2.65199
      z = 0.2
      irot = 1590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1591
      theta1 = 90
      phi1 = -51.006
      theta2 = 90
      phi2 = 38.994
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 184
      chmoth = 'AIRH'
      x = 2.10795
      y = -2.60366
      z = 0.2
      irot = 1591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1592
      theta1 = 90
      phi1 = -49.673
      theta2 = 90
      phi2 = 40.327
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 185
      chmoth = 'AIRH'
      x = 2.16795
      y = -2.55392
      z = 0.2
      irot = 1592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1593
      theta1 = 90
      phi1 = -48.34
      theta2 = 90
      phi2 = 41.66
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 186
      chmoth = 'AIRH'
      x = 2.22677
      y = -2.50279
      z = 0.2
      irot = 1593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1594
      theta1 = 90
      phi1 = -47.007
      theta2 = 90
      phi2 = 42.993
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 187
      chmoth = 'AIRH'
      x = 2.2844
      y = -2.45031
      z = 0.2
      irot = 1594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1595
      theta1 = 90
      phi1 = -45.674
      theta2 = 90
      phi2 = 44.326
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 188
      chmoth = 'AIRH'
      x = 2.34078
      y = -2.39651
      z = 0.2
      irot = 1595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1596
      theta1 = 90
      phi1 = -44.341
      theta2 = 90
      phi2 = 45.659
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 189
      chmoth = 'AIRH'
      x = 2.3959
      y = -2.34141
      z = 0.2
      irot = 1596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1597
      theta1 = 90
      phi1 = -43.008
      theta2 = 90
      phi2 = 46.992
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 190
      chmoth = 'AIRH'
      x = 2.44972
      y = -2.28504
      z = 0.2
      irot = 1597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1598
      theta1 = 90
      phi1 = -41.675
      theta2 = 90
      phi2 = 48.325
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 191
      chmoth = 'AIRH'
      x = 2.50221
      y = -2.22743
      z = 0.2
      irot = 1598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1599
      theta1 = 90
      phi1 = -40.342
      theta2 = 90
      phi2 = 49.658
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 192
      chmoth = 'AIRH'
      x = 2.55335
      y = -2.16862
      z = 0.2
      irot = 1599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1600
      theta1 = 90
      phi1 = -39.009
      theta2 = 90
      phi2 = 50.991
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 193
      chmoth = 'AIRH'
      x = 2.60311
      y = -2.10863
      z = 0.2
      irot = 1600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1601
      theta1 = 90
      phi1 = -37.676
      theta2 = 90
      phi2 = 52.324
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 194
      chmoth = 'AIRH'
      x = 2.65146
      y = -2.04751
      z = 0.2
      irot = 1601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1602
      theta1 = 90
      phi1 = -36.343
      theta2 = 90
      phi2 = 53.657
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 195
      chmoth = 'AIRH'
      x = 2.69837
      y = -1.98527
      z = 0.2
      irot = 1602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1603
      theta1 = 90
      phi1 = -35.01
      theta2 = 90
      phi2 = 54.99
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 196
      chmoth = 'AIRH'
      x = 2.74382
      y = -1.92196
      z = 0.2
      irot = 1603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1604
      theta1 = 90
      phi1 = -33.677
      theta2 = 90
      phi2 = 56.323
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 197
      chmoth = 'AIRH'
      x = 2.78779
      y = -1.85761
      z = 0.2
      irot = 1604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1605
      theta1 = 90
      phi1 = -32.344
      theta2 = 90
      phi2 = 57.656
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 198
      chmoth = 'AIRH'
      x = 2.83025
      y = -1.79225
      z = 0.2
      irot = 1605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1606
      theta1 = 90
      phi1 = -31.011
      theta2 = 90
      phi2 = 58.989
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 199
      chmoth = 'AIRH'
      x = 2.87118
      y = -1.72593
      z = 0.2
      irot = 1606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1607
      theta1 = 90
      phi1 = -29.678
      theta2 = 90
      phi2 = 60.322
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 200
      chmoth = 'AIRH'
      x = 2.91055
      y = -1.65867
      z = 0.2
      irot = 1607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1608
      theta1 = 90
      phi1 = -28.345
      theta2 = 90
      phi2 = 61.655
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 201
      chmoth = 'AIRH'
      x = 2.94835
      y = -1.59051
      z = 0.2
      irot = 1608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1609
      theta1 = 90
      phi1 = -27.012
      theta2 = 90
      phi2 = 62.988
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 202
      chmoth = 'AIRH'
      x = 2.98455
      y = -1.52149
      z = 0.2
      irot = 1609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1610
      theta1 = 90
      phi1 = -25.679
      theta2 = 90
      phi2 = 64.321
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 203
      chmoth = 'AIRH'
      x = 3.01914
      y = -1.45165
      z = 0.2
      irot = 1610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1611
      theta1 = 90
      phi1 = -24.346
      theta2 = 90
      phi2 = 65.654
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 204
      chmoth = 'AIRH'
      x = 3.05209
      y = -1.38102
      z = 0.2
      irot = 1611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1612
      theta1 = 90
      phi1 = -23.013
      theta2 = 90
      phi2 = 66.987
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 205
      chmoth = 'AIRH'
      x = 3.08339
      y = -1.30965
      z = 0.2
      irot = 1612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1613
      theta1 = 90
      phi1 = -21.68
      theta2 = 90
      phi2 = 68.32
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 206
      chmoth = 'AIRH'
      x = 3.11303
      y = -1.23757
      z = 0.2
      irot = 1613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1614
      theta1 = 90
      phi1 = -20.347
      theta2 = 90
      phi2 = 69.653
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 207
      chmoth = 'AIRH'
      x = 3.14097
      y = -1.16481
      z = 0.2
      irot = 1614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1615
      theta1 = 90
      phi1 = -19.014
      theta2 = 90
      phi2 = 70.986
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 208
      chmoth = 'AIRH'
      x = 3.16722
      y = -1.09143
      z = 0.2
      irot = 1615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1616
      theta1 = 90
      phi1 = -17.681
      theta2 = 90
      phi2 = 72.319
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 209
      chmoth = 'AIRH'
      x = 3.19175
      y = -1.01745
      z = 0.2
      irot = 1616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1617
      theta1 = 90
      phi1 = -16.348
      theta2 = 90
      phi2 = 73.652
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 210
      chmoth = 'AIRH'
      x = 3.21456
      y = -0.942927
      z = 0.2
      irot = 1617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1618
      theta1 = 90
      phi1 = -73.696
      theta2 = 90
      phi2 = 16.304
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 211
      chmoth = 'AIRH'
      x = 0.961513
      y = -3.28727
      z = 0.2
      irot = 1618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1619
      theta1 = 90
      phi1 = -72.392
      theta2 = 90
      phi2 = 17.608
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 212
      chmoth = 'AIRH'
      x = 1.03607
      y = -3.26453
      z = 0.2
      irot = 1619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1620
      theta1 = 90
      phi1 = -71.088
      theta2 = 90
      phi2 = 18.912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 213
      chmoth = 'AIRH'
      x = 1.1101
      y = -3.24011
      z = 0.2
      irot = 1620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1621
      theta1 = 90
      phi1 = -69.784
      theta2 = 90
      phi2 = 20.216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 214
      chmoth = 'AIRH'
      x = 1.18354
      y = -3.21401
      z = 0.2
      irot = 1621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1622
      theta1 = 90
      phi1 = -68.48
      theta2 = 90
      phi2 = 21.52
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 215
      chmoth = 'AIRH'
      x = 1.25638
      y = -3.18624
      z = 0.2
      irot = 1622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1623
      theta1 = 90
      phi1 = -67.176
      theta2 = 90
      phi2 = 22.824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 216
      chmoth = 'AIRH'
      x = 1.32856
      y = -3.15683
      z = 0.2
      irot = 1623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1624
      theta1 = 90
      phi1 = -65.872
      theta2 = 90
      phi2 = 24.128
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 217
      chmoth = 'AIRH'
      x = 1.40006
      y = -3.12577
      z = 0.2
      irot = 1624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1625
      theta1 = 90
      phi1 = -64.568
      theta2 = 90
      phi2 = 25.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 218
      chmoth = 'AIRH'
      x = 1.47083
      y = -3.0931
      z = 0.2
      irot = 1625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1626
      theta1 = 90
      phi1 = -63.264
      theta2 = 90
      phi2 = 26.736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 219
      chmoth = 'AIRH'
      x = 1.54084
      y = -3.05883
      z = 0.2
      irot = 1626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1627
      theta1 = 90
      phi1 = -61.96
      theta2 = 90
      phi2 = 28.04
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 220
      chmoth = 'AIRH'
      x = 1.61005
      y = -3.02297
      z = 0.2
      irot = 1627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1628
      theta1 = 90
      phi1 = -60.656
      theta2 = 90
      phi2 = 29.344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 221
      chmoth = 'AIRH'
      x = 1.67843
      y = -2.98555
      z = 0.2
      irot = 1628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1629
      theta1 = 90
      phi1 = -59.352
      theta2 = 90
      phi2 = 30.648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 222
      chmoth = 'AIRH'
      x = 1.74594
      y = -2.94658
      z = 0.2
      irot = 1629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1630
      theta1 = 90
      phi1 = -58.048
      theta2 = 90
      phi2 = 31.952
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 223
      chmoth = 'AIRH'
      x = 1.81254
      y = -2.90608
      z = 0.2
      irot = 1630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1631
      theta1 = 90
      phi1 = -56.744
      theta2 = 90
      phi2 = 33.256
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 224
      chmoth = 'AIRH'
      x = 1.8782
      y = -2.86408
      z = 0.2
      irot = 1631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1632
      theta1 = 90
      phi1 = -55.44
      theta2 = 90
      phi2 = 34.56
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 225
      chmoth = 'AIRH'
      x = 1.9429
      y = -2.8206
      z = 0.2
      irot = 1632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1633
      theta1 = 90
      phi1 = -54.136
      theta2 = 90
      phi2 = 35.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 226
      chmoth = 'AIRH'
      x = 2.00658
      y = -2.77565
      z = 0.2
      irot = 1633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1634
      theta1 = 90
      phi1 = -52.832
      theta2 = 90
      phi2 = 37.168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 227
      chmoth = 'AIRH'
      x = 2.06923
      y = -2.72927
      z = 0.2
      irot = 1634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1635
      theta1 = 90
      phi1 = -51.528
      theta2 = 90
      phi2 = 38.472
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 228
      chmoth = 'AIRH'
      x = 2.1308
      y = -2.68147
      z = 0.2
      irot = 1635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1636
      theta1 = 90
      phi1 = -50.224
      theta2 = 90
      phi2 = 39.776
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 229
      chmoth = 'AIRH'
      x = 2.19127
      y = -2.63229
      z = 0.2
      irot = 1636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1637
      theta1 = 90
      phi1 = -48.92
      theta2 = 90
      phi2 = 41.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 230
      chmoth = 'AIRH'
      x = 2.25061
      y = -2.58174
      z = 0.2
      irot = 1637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1638
      theta1 = 90
      phi1 = -47.616
      theta2 = 90
      phi2 = 42.384
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 231
      chmoth = 'AIRH'
      x = 2.30878
      y = -2.52985
      z = 0.2
      irot = 1638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1639
      theta1 = 90
      phi1 = -46.312
      theta2 = 90
      phi2 = 43.688
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 232
      chmoth = 'AIRH'
      x = 2.36575
      y = -2.47666
      z = 0.2
      irot = 1639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1640
      theta1 = 90
      phi1 = -45.008
      theta2 = 90
      phi2 = 44.992
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 233
      chmoth = 'AIRH'
      x = 2.4215
      y = -2.42218
      z = 0.2
      irot = 1640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1641
      theta1 = 90
      phi1 = -43.704
      theta2 = 90
      phi2 = 46.296
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 234
      chmoth = 'AIRH'
      x = 2.476
      y = -2.36645
      z = 0.2
      irot = 1641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1642
      theta1 = 90
      phi1 = -42.4
      theta2 = 90
      phi2 = 47.6
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 235
      chmoth = 'AIRH'
      x = 2.52921
      y = -2.30949
      z = 0.2
      irot = 1642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1643
      theta1 = 90
      phi1 = -41.096
      theta2 = 90
      phi2 = 48.904
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 236
      chmoth = 'AIRH'
      x = 2.58111
      y = -2.25133
      z = 0.2
      irot = 1643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1644
      theta1 = 90
      phi1 = -39.792
      theta2 = 90
      phi2 = 50.208
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 237
      chmoth = 'AIRH'
      x = 2.63168
      y = -2.19201
      z = 0.2
      irot = 1644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1645
      theta1 = 90
      phi1 = -38.488
      theta2 = 90
      phi2 = 51.512
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 238
      chmoth = 'AIRH'
      x = 2.68088
      y = -2.13155
      z = 0.2
      irot = 1645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1646
      theta1 = 90
      phi1 = -37.184
      theta2 = 90
      phi2 = 52.816
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 239
      chmoth = 'AIRH'
      x = 2.72869
      y = -2.06999
      z = 0.2
      irot = 1646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1647
      theta1 = 90
      phi1 = -35.88
      theta2 = 90
      phi2 = 54.12
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 240
      chmoth = 'AIRH'
      x = 2.77509
      y = -2.00736
      z = 0.2
      irot = 1647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1648
      theta1 = 90
      phi1 = -34.576
      theta2 = 90
      phi2 = 55.424
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 241
      chmoth = 'AIRH'
      x = 2.82006
      y = -1.94368
      z = 0.2
      irot = 1648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1649
      theta1 = 90
      phi1 = -33.272
      theta2 = 90
      phi2 = 56.728
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 242
      chmoth = 'AIRH'
      x = 2.86356
      y = -1.879
      z = 0.2
      irot = 1649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1650
      theta1 = 90
      phi1 = -31.968
      theta2 = 90
      phi2 = 58.032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 243
      chmoth = 'AIRH'
      x = 2.90558
      y = -1.81335
      z = 0.2
      irot = 1650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1651
      theta1 = 90
      phi1 = -30.664
      theta2 = 90
      phi2 = 59.336
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 244
      chmoth = 'AIRH'
      x = 2.94609
      y = -1.74676
      z = 0.2
      irot = 1651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1652
      theta1 = 90
      phi1 = -29.36
      theta2 = 90
      phi2 = 60.64
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 245
      chmoth = 'AIRH'
      x = 2.98508
      y = -1.67926
      z = 0.2
      irot = 1652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1653
      theta1 = 90
      phi1 = -28.056
      theta2 = 90
      phi2 = 61.944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 246
      chmoth = 'AIRH'
      x = 3.02252
      y = -1.6109
      z = 0.2
      irot = 1653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1654
      theta1 = 90
      phi1 = -26.752
      theta2 = 90
      phi2 = 63.248
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 247
      chmoth = 'AIRH'
      x = 3.0584
      y = -1.54169
      z = 0.2
      irot = 1654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1655
      theta1 = 90
      phi1 = -25.448
      theta2 = 90
      phi2 = 64.552
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 248
      chmoth = 'AIRH'
      x = 3.09269
      y = -1.47169
      z = 0.2
      irot = 1655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1656
      theta1 = 90
      phi1 = -24.144
      theta2 = 90
      phi2 = 65.856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 249
      chmoth = 'AIRH'
      x = 3.12538
      y = -1.40093
      z = 0.2
      irot = 1656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1657
      theta1 = 90
      phi1 = -22.84
      theta2 = 90
      phi2 = 67.16
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 250
      chmoth = 'AIRH'
      x = 3.15645
      y = -1.32944
      z = 0.2
      irot = 1657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1658
      theta1 = 90
      phi1 = -21.536
      theta2 = 90
      phi2 = 68.464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 251
      chmoth = 'AIRH'
      x = 3.18589
      y = -1.25727
      z = 0.2
      irot = 1658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1659
      theta1 = 90
      phi1 = -20.232
      theta2 = 90
      phi2 = 69.768
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 252
      chmoth = 'AIRH'
      x = 3.21368
      y = -1.18444
      z = 0.2
      irot = 1659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1660
      theta1 = 90
      phi1 = -18.928
      theta2 = 90
      phi2 = 71.072
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 253
      chmoth = 'AIRH'
      x = 3.2398
      y = -1.111
      z = 0.2
      irot = 1660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1661
      theta1 = 90
      phi1 = -17.624
      theta2 = 90
      phi2 = 72.376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 254
      chmoth = 'AIRH'
      x = 3.26424
      y = -1.03698
      z = 0.2
      irot = 1661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1662
      theta1 = 90
      phi1 = -16.32
      theta2 = 90
      phi2 = 73.68
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 255
      chmoth = 'AIRH'
      x = 3.287
      y = -0.962431
      z = 0.2
      irot = 1662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1663
      theta1 = 90
      phi1 = -73.723
      theta2 = 90
      phi2 = 16.277
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 256
      chmoth = 'AIRH'
      x = 0.980985
      y = -3.35971
      z = 0.2
      irot = 1663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1664
      theta1 = 90
      phi1 = -72.446
      theta2 = 90
      phi2 = 17.554
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 257
      chmoth = 'AIRH'
      x = 1.05562
      y = -3.33702
      z = 0.2
      irot = 1664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1665
      theta1 = 90
      phi1 = -71.169
      theta2 = 90
      phi2 = 18.831
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 258
      chmoth = 'AIRH'
      x = 1.12972
      y = -3.31266
      z = 0.2
      irot = 1665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1666
      theta1 = 90
      phi1 = -69.892
      theta2 = 90
      phi2 = 20.108
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 259
      chmoth = 'AIRH'
      x = 1.20327
      y = -3.28666
      z = 0.2
      irot = 1666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1667
      theta1 = 90
      phi1 = -68.615
      theta2 = 90
      phi2 = 21.385
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 260
      chmoth = 'AIRH'
      x = 1.27622
      y = -3.25903
      z = 0.2
      irot = 1667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1668
      theta1 = 90
      phi1 = -67.338
      theta2 = 90
      phi2 = 22.662
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 261
      chmoth = 'AIRH'
      x = 1.34853
      y = -3.22978
      z = 0.2
      irot = 1668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1669
      theta1 = 90
      phi1 = -66.061
      theta2 = 90
      phi2 = 23.939
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 262
      chmoth = 'AIRH'
      x = 1.42017
      y = -3.19892
      z = 0.2
      irot = 1669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1670
      theta1 = 90
      phi1 = -64.784
      theta2 = 90
      phi2 = 25.216
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 263
      chmoth = 'AIRH'
      x = 1.49111
      y = -3.16648
      z = 0.2
      irot = 1670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1671
      theta1 = 90
      phi1 = -63.507
      theta2 = 90
      phi2 = 26.493
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 264
      chmoth = 'AIRH'
      x = 1.56131
      y = -3.13246
      z = 0.2
      irot = 1671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1672
      theta1 = 90
      phi1 = -62.23
      theta2 = 90
      phi2 = 27.77
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 265
      chmoth = 'AIRH'
      x = 1.63073
      y = -3.09689
      z = 0.2
      irot = 1672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1673
      theta1 = 90
      phi1 = -60.953
      theta2 = 90
      phi2 = 29.047
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 266
      chmoth = 'AIRH'
      x = 1.69934
      y = -3.05978
      z = 0.2
      irot = 1673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1674
      theta1 = 90
      phi1 = -59.676
      theta2 = 90
      phi2 = 30.324
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 267
      chmoth = 'AIRH'
      x = 1.76711
      y = -3.02114
      z = 0.2
      irot = 1674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1675
      theta1 = 90
      phi1 = -58.399
      theta2 = 90
      phi2 = 31.601
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 268
      chmoth = 'AIRH'
      x = 1.834
      y = -2.98101
      z = 0.2
      irot = 1675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1676
      theta1 = 90
      phi1 = -57.122
      theta2 = 90
      phi2 = 32.878
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 269
      chmoth = 'AIRH'
      x = 1.89998
      y = -2.9394
      z = 0.2
      irot = 1676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1677
      theta1 = 90
      phi1 = -55.845
      theta2 = 90
      phi2 = 34.155
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 270
      chmoth = 'AIRH'
      x = 1.96502
      y = -2.89633
      z = 0.2
      irot = 1677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1678
      theta1 = 90
      phi1 = -54.568
      theta2 = 90
      phi2 = 35.432
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 271
      chmoth = 'AIRH'
      x = 2.02908
      y = -2.85181
      z = 0.2
      irot = 1678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1679
      theta1 = 90
      phi1 = -53.291
      theta2 = 90
      phi2 = 36.709
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 272
      chmoth = 'AIRH'
      x = 2.09213
      y = -2.80589
      z = 0.2
      irot = 1679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1680
      theta1 = 90
      phi1 = -52.014
      theta2 = 90
      phi2 = 37.986
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 273
      chmoth = 'AIRH'
      x = 2.15414
      y = -2.75856
      z = 0.2
      irot = 1680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1681
      theta1 = 90
      phi1 = -50.737
      theta2 = 90
      phi2 = 39.263
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 274
      chmoth = 'AIRH'
      x = 2.21508
      y = -2.70987
      z = 0.2
      irot = 1681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1682
      theta1 = 90
      phi1 = -49.46
      theta2 = 90
      phi2 = 40.54
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 275
      chmoth = 'AIRH'
      x = 2.27493
      y = -2.65983
      z = 0.2
      irot = 1682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1683
      theta1 = 90
      phi1 = -48.183
      theta2 = 90
      phi2 = 41.817
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 276
      chmoth = 'AIRH'
      x = 2.33364
      y = -2.60847
      z = 0.2
      irot = 1683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1684
      theta1 = 90
      phi1 = -46.906
      theta2 = 90
      phi2 = 43.094
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 277
      chmoth = 'AIRH'
      x = 2.39119
      y = -2.55582
      z = 0.2
      irot = 1684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1685
      theta1 = 90
      phi1 = -45.629
      theta2 = 90
      phi2 = 44.371
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 278
      chmoth = 'AIRH'
      x = 2.44756
      y = -2.50189
      z = 0.2
      irot = 1685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1686
      theta1 = 90
      phi1 = -44.352
      theta2 = 90
      phi2 = 45.648
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 279
      chmoth = 'AIRH'
      x = 2.50271
      y = -2.44673
      z = 0.2
      irot = 1686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1687
      theta1 = 90
      phi1 = -43.075
      theta2 = 90
      phi2 = 46.925
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 280
      chmoth = 'AIRH'
      x = 2.55661
      y = -2.39034
      z = 0.2
      irot = 1687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1688
      theta1 = 90
      phi1 = -41.798
      theta2 = 90
      phi2 = 48.202
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 281
      chmoth = 'AIRH'
      x = 2.60925
      y = -2.33277
      z = 0.2
      irot = 1688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1689
      theta1 = 90
      phi1 = -40.521
      theta2 = 90
      phi2 = 49.479
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 282
      chmoth = 'AIRH'
      x = 2.66059
      y = -2.27404
      z = 0.2
      irot = 1689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1690
      theta1 = 90
      phi1 = -39.244
      theta2 = 90
      phi2 = 50.756
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 283
      chmoth = 'AIRH'
      x = 2.71061
      y = -2.21418
      z = 0.2
      irot = 1690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1691
      theta1 = 90
      phi1 = -37.967
      theta2 = 90
      phi2 = 52.033
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 284
      chmoth = 'AIRH'
      x = 2.75928
      y = -2.15323
      z = 0.2
      irot = 1691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1692
      theta1 = 90
      phi1 = -36.69
      theta2 = 90
      phi2 = 53.31
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 285
      chmoth = 'AIRH'
      x = 2.80658
      y = -2.0912
      z = 0.2
      irot = 1692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1693
      theta1 = 90
      phi1 = -35.413
      theta2 = 90
      phi2 = 54.587
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 286
      chmoth = 'AIRH'
      x = 2.85249
      y = -2.02813
      z = 0.2
      irot = 1693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1694
      theta1 = 90
      phi1 = -34.136
      theta2 = 90
      phi2 = 55.864
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 287
      chmoth = 'AIRH'
      x = 2.89698
      y = -1.96406
      z = 0.2
      irot = 1694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1695
      theta1 = 90
      phi1 = -32.859
      theta2 = 90
      phi2 = 57.141
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 288
      chmoth = 'AIRH'
      x = 2.94003
      y = -1.89901
      z = 0.2
      irot = 1695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1696
      theta1 = 90
      phi1 = -31.582
      theta2 = 90
      phi2 = 58.418
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 289
      chmoth = 'AIRH'
      x = 2.98162
      y = -1.83301
      z = 0.2
      irot = 1696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1697
      theta1 = 90
      phi1 = -30.305
      theta2 = 90
      phi2 = 59.695
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 290
      chmoth = 'AIRH'
      x = 3.02173
      y = -1.76611
      z = 0.2
      irot = 1697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1698
      theta1 = 90
      phi1 = -29.028
      theta2 = 90
      phi2 = 60.972
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 291
      chmoth = 'AIRH'
      x = 3.06034
      y = -1.69833
      z = 0.2
      irot = 1698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1699
      theta1 = 90
      phi1 = -27.751
      theta2 = 90
      phi2 = 62.249
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 292
      chmoth = 'AIRH'
      x = 3.09743
      y = -1.6297
      z = 0.2
      irot = 1699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1700
      theta1 = 90
      phi1 = -26.474
      theta2 = 90
      phi2 = 63.526
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 293
      chmoth = 'AIRH'
      x = 3.13298
      y = -1.56027
      z = 0.2
      irot = 1700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1701
      theta1 = 90
      phi1 = -25.197
      theta2 = 90
      phi2 = 64.803
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 294
      chmoth = 'AIRH'
      x = 3.16697
      y = -1.49006
      z = 0.2
      irot = 1701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1702
      theta1 = 90
      phi1 = -23.92
      theta2 = 90
      phi2 = 66.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 295
      chmoth = 'AIRH'
      x = 3.19939
      y = -1.41911
      z = 0.2
      irot = 1702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1703
      theta1 = 90
      phi1 = -22.643
      theta2 = 90
      phi2 = 67.357
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 296
      chmoth = 'AIRH'
      x = 3.23023
      y = -1.34746
      z = 0.2
      irot = 1703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1704
      theta1 = 90
      phi1 = -21.366
      theta2 = 90
      phi2 = 68.634
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 297
      chmoth = 'AIRH'
      x = 3.25945
      y = -1.27513
      z = 0.2
      irot = 1704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1705
      theta1 = 90
      phi1 = -20.089
      theta2 = 90
      phi2 = 69.911
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 298
      chmoth = 'AIRH'
      x = 3.28706
      y = -1.20218
      z = 0.2
      irot = 1705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1706
      theta1 = 90
      phi1 = -18.812
      theta2 = 90
      phi2 = 71.188
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 299
      chmoth = 'AIRH'
      x = 3.31304
      y = -1.12862
      z = 0.2
      irot = 1706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1707
      theta1 = 90
      phi1 = -17.535
      theta2 = 90
      phi2 = 72.465
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 300
      chmoth = 'AIRH'
      x = 3.33737
      y = -1.05451
      z = 0.2
      irot = 1707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1708
      theta1 = 90
      phi1 = -16.258
      theta2 = 90
      phi2 = 73.742
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 301
      chmoth = 'AIRH'
      x = 3.36004
      y = -0.979871
      z = 0.2
      irot = 1708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1709
      theta1 = 90
      phi1 = -73.75
      theta2 = 90
      phi2 = 16.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 302
      chmoth = 'AIRH'
      x = 1.00039
      y = -3.43218
      z = 0.2
      irot = 1709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1710
      theta1 = 90
      phi1 = -72.5
      theta2 = 90
      phi2 = 17.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 303
      chmoth = 'AIRH'
      x = 1.07502
      y = -3.40954
      z = 0.2
      irot = 1710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1711
      theta1 = 90
      phi1 = -71.25
      theta2 = 90
      phi2 = 18.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 304
      chmoth = 'AIRH'
      x = 1.14915
      y = -3.38528
      z = 0.2
      irot = 1711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 305
      chmoth = 'AIRH'
      x = 1.22272
      y = -3.3594
      z = 0.2
      irot = 1712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1713
      theta1 = 90
      phi1 = -68.75
      theta2 = 90
      phi2 = 21.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 306
      chmoth = 'AIRH'
      x = 1.29572
      y = -3.33193
      z = 0.2
      irot = 1713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 307
      chmoth = 'AIRH'
      x = 1.36809
      y = -3.30287
      z = 0.2
      irot = 1714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1715
      theta1 = 90
      phi1 = -66.25
      theta2 = 90
      phi2 = 23.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 308
      chmoth = 'AIRH'
      x = 1.43982
      y = -3.27224
      z = 0.2
      irot = 1715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 309
      chmoth = 'AIRH'
      x = 1.51086
      y = -3.24005
      z = 0.2
      irot = 1716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1717
      theta1 = 90
      phi1 = -63.75
      theta2 = 90
      phi2 = 26.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 310
      chmoth = 'AIRH'
      x = 1.58118
      y = -3.20632
      z = 0.2
      irot = 1717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1718
      theta1 = 90
      phi1 = -62.5
      theta2 = 90
      phi2 = 27.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 311
      chmoth = 'AIRH'
      x = 1.65075
      y = -3.17106
      z = 0.2
      irot = 1718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1719
      theta1 = 90
      phi1 = -61.25
      theta2 = 90
      phi2 = 28.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 312
      chmoth = 'AIRH'
      x = 1.71953
      y = -3.1343
      z = 0.2
      irot = 1719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 313
      chmoth = 'AIRH'
      x = 1.7875
      y = -3.09604
      z = 0.2
      irot = 1720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1721
      theta1 = 90
      phi1 = -58.75
      theta2 = 90
      phi2 = 31.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 314
      chmoth = 'AIRH'
      x = 1.85461
      y = -3.05631
      z = 0.2
      irot = 1721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1722
      theta1 = 90
      phi1 = -57.5
      theta2 = 90
      phi2 = 32.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 315
      chmoth = 'AIRH'
      x = 1.92085
      y = -3.01512
      z = 0.2
      irot = 1722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1723
      theta1 = 90
      phi1 = -56.25
      theta2 = 90
      phi2 = 33.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 316
      chmoth = 'AIRH'
      x = 1.98616
      y = -2.9725
      z = 0.2
      irot = 1723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 317
      chmoth = 'AIRH'
      x = 2.05054
      y = -2.92847
      z = 0.2
      irot = 1724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1725
      theta1 = 90
      phi1 = -53.75
      theta2 = 90
      phi2 = 36.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 318
      chmoth = 'AIRH'
      x = 2.11393
      y = -2.88304
      z = 0.2
      irot = 1725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 319
      chmoth = 'AIRH'
      x = 2.17632
      y = -2.83624
      z = 0.2
      irot = 1726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1727
      theta1 = 90
      phi1 = -51.25
      theta2 = 90
      phi2 = 38.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 320
      chmoth = 'AIRH'
      x = 2.23768
      y = -2.78809
      z = 0.2
      irot = 1727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 321
      chmoth = 'AIRH'
      x = 2.29797
      y = -2.73861
      z = 0.2
      irot = 1728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1729
      theta1 = 90
      phi1 = -48.75
      theta2 = 90
      phi2 = 41.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 322
      chmoth = 'AIRH'
      x = 2.35716
      y = -2.68783
      z = 0.2
      irot = 1729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1730
      theta1 = 90
      phi1 = -47.5
      theta2 = 90
      phi2 = 42.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 323
      chmoth = 'AIRH'
      x = 2.41523
      y = -2.63577
      z = 0.2
      irot = 1730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1731
      theta1 = 90
      phi1 = -46.25
      theta2 = 90
      phi2 = 43.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 324
      chmoth = 'AIRH'
      x = 2.47216
      y = -2.58245
      z = 0.2
      irot = 1731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 325
      chmoth = 'AIRH'
      x = 2.52791
      y = -2.52791
      z = 0.2
      irot = 1732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1733
      theta1 = 90
      phi1 = -43.75
      theta2 = 90
      phi2 = 46.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 326
      chmoth = 'AIRH'
      x = 2.58245
      y = -2.47216
      z = 0.2
      irot = 1733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1734
      theta1 = 90
      phi1 = -42.5
      theta2 = 90
      phi2 = 47.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 327
      chmoth = 'AIRH'
      x = 2.63577
      y = -2.41523
      z = 0.2
      irot = 1734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1735
      theta1 = 90
      phi1 = -41.25
      theta2 = 90
      phi2 = 48.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 328
      chmoth = 'AIRH'
      x = 2.68783
      y = -2.35716
      z = 0.2
      irot = 1735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 329
      chmoth = 'AIRH'
      x = 2.73861
      y = -2.29797
      z = 0.2
      irot = 1736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1737
      theta1 = 90
      phi1 = -38.75
      theta2 = 90
      phi2 = 51.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 330
      chmoth = 'AIRH'
      x = 2.78809
      y = -2.23768
      z = 0.2
      irot = 1737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 331
      chmoth = 'AIRH'
      x = 2.83624
      y = -2.17632
      z = 0.2
      irot = 1738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1739
      theta1 = 90
      phi1 = -36.25
      theta2 = 90
      phi2 = 53.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 332
      chmoth = 'AIRH'
      x = 2.88304
      y = -2.11393
      z = 0.2
      irot = 1739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 333
      chmoth = 'AIRH'
      x = 2.92847
      y = -2.05054
      z = 0.2
      irot = 1740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1741
      theta1 = 90
      phi1 = -33.75
      theta2 = 90
      phi2 = 56.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 334
      chmoth = 'AIRH'
      x = 2.9725
      y = -1.98616
      z = 0.2
      irot = 1741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1742
      theta1 = 90
      phi1 = -32.5
      theta2 = 90
      phi2 = 57.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 335
      chmoth = 'AIRH'
      x = 3.01512
      y = -1.92085
      z = 0.2
      irot = 1742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1743
      theta1 = 90
      phi1 = -31.25
      theta2 = 90
      phi2 = 58.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 336
      chmoth = 'AIRH'
      x = 3.05631
      y = -1.85461
      z = 0.2
      irot = 1743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 337
      chmoth = 'AIRH'
      x = 3.09604
      y = -1.7875
      z = 0.2
      irot = 1744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1745
      theta1 = 90
      phi1 = -28.75
      theta2 = 90
      phi2 = 61.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 338
      chmoth = 'AIRH'
      x = 3.1343
      y = -1.71953
      z = 0.2
      irot = 1745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1746
      theta1 = 90
      phi1 = -27.5
      theta2 = 90
      phi2 = 62.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 339
      chmoth = 'AIRH'
      x = 3.17106
      y = -1.65075
      z = 0.2
      irot = 1746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1747
      theta1 = 90
      phi1 = -26.25
      theta2 = 90
      phi2 = 63.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 340
      chmoth = 'AIRH'
      x = 3.20632
      y = -1.58118
      z = 0.2
      irot = 1747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 341
      chmoth = 'AIRH'
      x = 3.24005
      y = -1.51086
      z = 0.2
      irot = 1748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1749
      theta1 = 90
      phi1 = -23.75
      theta2 = 90
      phi2 = 66.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 342
      chmoth = 'AIRH'
      x = 3.27224
      y = -1.43982
      z = 0.2
      irot = 1749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 343
      chmoth = 'AIRH'
      x = 3.30287
      y = -1.36809
      z = 0.2
      irot = 1750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1751
      theta1 = 90
      phi1 = -21.25
      theta2 = 90
      phi2 = 68.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 344
      chmoth = 'AIRH'
      x = 3.33193
      y = -1.29572
      z = 0.2
      irot = 1751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'PIN8'
      nr = 345
      chmoth = 'AIRH'
      x = 3.3594
      y = -1.22272
      z = 0.2
      irot = 1752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1753
      theta1 = 90
      phi1 = -18.75
      theta2 = 90
      phi2 = 71.25
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 346
      chmoth = 'AIRH'
      x = 3.38528
      y = -1.14915
      z = 0.2
      irot = 1753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1754
      theta1 = 90
      phi1 = -17.5
      theta2 = 90
      phi2 = 72.5
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 347
      chmoth = 'AIRH'
      x = 3.40954
      y = -1.07502
      z = 0.2
      irot = 1754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1755
      theta1 = 90
      phi1 = -16.25
      theta2 = 90
      phi2 = 73.75
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 348
      chmoth = 'AIRH'
      x = 3.43218
      y = -1.00039
      z = 0.2
      irot = 1755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1756
      theta1 = 90
      phi1 = -73.776
      theta2 = 90
      phi2 = 16.224
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 349
      chmoth = 'AIRH'
      x = 1.01979
      y = -3.50465
      z = 0.2
      irot = 1756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1757
      theta1 = 90
      phi1 = -72.552
      theta2 = 90
      phi2 = 17.448
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 350
      chmoth = 'AIRH'
      x = 1.09442
      y = -3.48206
      z = 0.2
      irot = 1757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1758
      theta1 = 90
      phi1 = -71.328
      theta2 = 90
      phi2 = 18.672
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 351
      chmoth = 'AIRH'
      x = 1.16855
      y = -3.45789
      z = 0.2
      irot = 1758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1759
      theta1 = 90
      phi1 = -70.104
      theta2 = 90
      phi2 = 19.896
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 352
      chmoth = 'AIRH'
      x = 1.24215
      y = -3.43214
      z = 0.2
      irot = 1759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1760
      theta1 = 90
      phi1 = -68.88
      theta2 = 90
      phi2 = 21.12
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 353
      chmoth = 'AIRH'
      x = 1.31518
      y = -3.40482
      z = 0.2
      irot = 1760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1761
      theta1 = 90
      phi1 = -67.656
      theta2 = 90
      phi2 = 22.344
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 354
      chmoth = 'AIRH'
      x = 1.38761
      y = -3.37595
      z = 0.2
      irot = 1761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1762
      theta1 = 90
      phi1 = -66.432
      theta2 = 90
      phi2 = 23.568
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 355
      chmoth = 'AIRH'
      x = 1.45941
      y = -3.34554
      z = 0.2
      irot = 1762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1763
      theta1 = 90
      phi1 = -65.208
      theta2 = 90
      phi2 = 24.792
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 356
      chmoth = 'AIRH'
      x = 1.53054
      y = -3.3136
      z = 0.2
      irot = 1763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1764
      theta1 = 90
      phi1 = -63.984
      theta2 = 90
      phi2 = 26.016
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 357
      chmoth = 'AIRH'
      x = 1.60097
      y = -3.28015
      z = 0.2
      irot = 1764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1765
      theta1 = 90
      phi1 = -62.76
      theta2 = 90
      phi2 = 27.24
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 358
      chmoth = 'AIRH'
      x = 1.67067
      y = -3.2452
      z = 0.2
      irot = 1765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1766
      theta1 = 90
      phi1 = -61.536
      theta2 = 90
      phi2 = 28.464
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 359
      chmoth = 'AIRH'
      x = 1.73961
      y = -3.20878
      z = 0.2
      irot = 1766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1767
      theta1 = 90
      phi1 = -60.312
      theta2 = 90
      phi2 = 29.688
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 360
      chmoth = 'AIRH'
      x = 1.80776
      y = -3.17088
      z = 0.2
      irot = 1767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1768
      theta1 = 90
      phi1 = -59.088
      theta2 = 90
      phi2 = 30.912
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 361
      chmoth = 'AIRH'
      x = 1.87508
      y = -3.13154
      z = 0.2
      irot = 1768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1769
      theta1 = 90
      phi1 = -57.864
      theta2 = 90
      phi2 = 32.136
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 362
      chmoth = 'AIRH'
      x = 1.94155
      y = -3.09078
      z = 0.2
      irot = 1769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1770
      theta1 = 90
      phi1 = -56.64
      theta2 = 90
      phi2 = 33.36
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 363
      chmoth = 'AIRH'
      x = 2.00713
      y = -3.0486
      z = 0.2
      irot = 1770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1771
      theta1 = 90
      phi1 = -55.416
      theta2 = 90
      phi2 = 34.584
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 364
      chmoth = 'AIRH'
      x = 2.07179
      y = -3.00503
      z = 0.2
      irot = 1771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1772
      theta1 = 90
      phi1 = -54.192
      theta2 = 90
      phi2 = 35.808
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 365
      chmoth = 'AIRH'
      x = 2.13551
      y = -2.96008
      z = 0.2
      irot = 1772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1773
      theta1 = 90
      phi1 = -52.968
      theta2 = 90
      phi2 = 37.032
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 366
      chmoth = 'AIRH'
      x = 2.19825
      y = -2.91379
      z = 0.2
      irot = 1773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1774
      theta1 = 90
      phi1 = -51.744
      theta2 = 90
      phi2 = 38.256
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 367
      chmoth = 'AIRH'
      x = 2.25999
      y = -2.86617
      z = 0.2
      irot = 1774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1775
      theta1 = 90
      phi1 = -50.52
      theta2 = 90
      phi2 = 39.48
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 368
      chmoth = 'AIRH'
      x = 2.3207
      y = -2.81724
      z = 0.2
      irot = 1775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1776
      theta1 = 90
      phi1 = -49.296
      theta2 = 90
      phi2 = 40.704
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 369
      chmoth = 'AIRH'
      x = 2.38035
      y = -2.76702
      z = 0.2
      irot = 1776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1777
      theta1 = 90
      phi1 = -48.072
      theta2 = 90
      phi2 = 41.928
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 370
      chmoth = 'AIRH'
      x = 2.43892
      y = -2.71555
      z = 0.2
      irot = 1777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1778
      theta1 = 90
      phi1 = -46.848
      theta2 = 90
      phi2 = 43.152
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 371
      chmoth = 'AIRH'
      x = 2.49637
      y = -2.66283
      z = 0.2
      irot = 1778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1779
      theta1 = 90
      phi1 = -45.624
      theta2 = 90
      phi2 = 44.376
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 372
      chmoth = 'AIRH'
      x = 2.55268
      y = -2.60889
      z = 0.2
      irot = 1779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1780
      theta1 = 90
      phi1 = -44.4
      theta2 = 90
      phi2 = 45.6
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 373
      chmoth = 'AIRH'
      x = 2.60783
      y = -2.55377
      z = 0.2
      irot = 1780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1781
      theta1 = 90
      phi1 = -43.176
      theta2 = 90
      phi2 = 46.824
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 374
      chmoth = 'AIRH'
      x = 2.66178
      y = -2.49748
      z = 0.2
      irot = 1781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1782
      theta1 = 90
      phi1 = -41.952
      theta2 = 90
      phi2 = 48.048
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 375
      chmoth = 'AIRH'
      x = 2.71452
      y = -2.44005
      z = 0.2
      irot = 1782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1783
      theta1 = 90
      phi1 = -40.728
      theta2 = 90
      phi2 = 49.272
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 376
      chmoth = 'AIRH'
      x = 2.76603
      y = -2.38151
      z = 0.2
      irot = 1783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1784
      theta1 = 90
      phi1 = -39.504
      theta2 = 90
      phi2 = 50.496
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 377
      chmoth = 'AIRH'
      x = 2.81627
      y = -2.32188
      z = 0.2
      irot = 1784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1785
      theta1 = 90
      phi1 = -38.28
      theta2 = 90
      phi2 = 51.72
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 378
      chmoth = 'AIRH'
      x = 2.86522
      y = -2.26119
      z = 0.2
      irot = 1785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1786
      theta1 = 90
      phi1 = -37.056
      theta2 = 90
      phi2 = 52.944
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 379
      chmoth = 'AIRH'
      x = 2.91287
      y = -2.19947
      z = 0.2
      irot = 1786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1787
      theta1 = 90
      phi1 = -35.832
      theta2 = 90
      phi2 = 54.168
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 380
      chmoth = 'AIRH'
      x = 2.95919
      y = -2.13675
      z = 0.2
      irot = 1787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1788
      theta1 = 90
      phi1 = -34.608
      theta2 = 90
      phi2 = 55.392
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 381
      chmoth = 'AIRH'
      x = 3.00416
      y = -2.07305
      z = 0.2
      irot = 1788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1789
      theta1 = 90
      phi1 = -33.384
      theta2 = 90
      phi2 = 56.616
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 382
      chmoth = 'AIRH'
      x = 3.04776
      y = -2.0084
      z = 0.2
      irot = 1789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1790
      theta1 = 90
      phi1 = -32.16
      theta2 = 90
      phi2 = 57.84
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 383
      chmoth = 'AIRH'
      x = 3.08996
      y = -1.94284
      z = 0.2
      irot = 1790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1791
      theta1 = 90
      phi1 = -30.936
      theta2 = 90
      phi2 = 59.064
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 384
      chmoth = 'AIRH'
      x = 3.13076
      y = -1.87639
      z = 0.2
      irot = 1791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1792
      theta1 = 90
      phi1 = -29.712
      theta2 = 90
      phi2 = 60.288
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 385
      chmoth = 'AIRH'
      x = 3.17013
      y = -1.80909
      z = 0.2
      irot = 1792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1793
      theta1 = 90
      phi1 = -28.488
      theta2 = 90
      phi2 = 61.512
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 386
      chmoth = 'AIRH'
      x = 3.20805
      y = -1.74096
      z = 0.2
      irot = 1793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1794
      theta1 = 90
      phi1 = -27.264
      theta2 = 90
      phi2 = 62.736
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 387
      chmoth = 'AIRH'
      x = 3.2445
      y = -1.67203
      z = 0.2
      irot = 1794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1795
      theta1 = 90
      phi1 = -26.04
      theta2 = 90
      phi2 = 63.96
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 388
      chmoth = 'AIRH'
      x = 3.27948
      y = -1.60234
      z = 0.2
      irot = 1795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1796
      theta1 = 90
      phi1 = -24.816
      theta2 = 90
      phi2 = 65.184
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 389
      chmoth = 'AIRH'
      x = 3.31296
      y = -1.53193
      z = 0.2
      irot = 1796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1797
      theta1 = 90
      phi1 = -23.592
      theta2 = 90
      phi2 = 66.408
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 390
      chmoth = 'AIRH'
      x = 3.34493
      y = -1.46081
      z = 0.2
      irot = 1797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1798
      theta1 = 90
      phi1 = -22.368
      theta2 = 90
      phi2 = 67.632
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 391
      chmoth = 'AIRH'
      x = 3.37537
      y = -1.38902
      z = 0.2
      irot = 1798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1799
      theta1 = 90
      phi1 = -21.144
      theta2 = 90
      phi2 = 68.856
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 392
      chmoth = 'AIRH'
      x = 3.40427
      y = -1.3166
      z = 0.2
      irot = 1799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1800
      theta1 = 90
      phi1 = -19.92
      theta2 = 90
      phi2 = 70.08
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 393
      chmoth = 'AIRH'
      x = 3.43162
      y = -1.24358
      z = 0.2
      irot = 1800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1801
      theta1 = 90
      phi1 = -18.696
      theta2 = 90
      phi2 = 71.304
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 394
      chmoth = 'AIRH'
      x = 3.4574
      y = -1.17
      z = 0.2
      irot = 1801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1802
      theta1 = 90
      phi1 = -17.472
      theta2 = 90
      phi2 = 72.528
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 395
      chmoth = 'AIRH'
      x = 3.4816
      y = -1.09587
      z = 0.2
      irot = 1802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1803
      theta1 = 90
      phi1 = -16.248
      theta2 = 90
      phi2 = 73.752
      theta3 = 0
      phi3 = 0
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'PIN8'
      nr = 396
      chmoth = 'AIRH'
      x = 3.50422
      y = -1.02125
      z = 0.2
      irot = 1803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 27
      natmed = 'HOUF Aluminum'
      nmat = 7
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 27
      npar = 3
      par(1) = 0.25
      par(2) = 7
      par(3) = 0.05
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.27) stop 'consistency check #1 failed'

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

      itmed = 28
      natmed = 'DET1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 28
      npar = 3
      par(1) = 0
      par(2) = 50
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.28) stop 'consistency check #1 failed'

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

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

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

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

      itmed = 30
      natmed = 'MAG1 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 30
      npar = 3
      par(1) = 10
      par(2) = 25
      par(3) = 15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.30) stop 'consistency check #1 failed'

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

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

      itmed = 31
      natmed = 'POL1 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 31
      npar = 3
      par(1) = 10
      par(2) = 25
      par(3) = 7
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.31) stop 'consistency check #1 failed'

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

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

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

      itmed = 32
      natmed = 'GAP1 Lead'
      nmat = 17
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 32
      npar = 3
      par(1) = 4.5
      par(2) = 25
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.32) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      itmed = 39
      natmed = 'POL2 Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 39
      npar = 3
      par(1) = 10
      par(2) = 25
      par(3) = 6.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.39) stop 'consistency check #1 failed'

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

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

      itmed = 40
      natmed = 'GAP2 Lead'
      nmat = 17
      isvol = 0
      ifield = 2
      fieldm = 2
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 40
      npar = 3
      par(1) = 3.75
      par(2) = 25
      par(3) = 2.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.40) stop 'consistency check #1 failed'

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      itmed = 51
      natmed = 'BLC2 Concrete'
      nmat = 6
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 51
      npar = 3
      par(1) = 200
      par(2) = 125
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.51) stop 'consistency check #1 failed'

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

      itmed = 52
      natmed = 'OBHO Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 52
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.52) stop 'consistency check #1 failed'

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

      itmed = 53
      natmed = 'IBHO Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 53
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 50
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.53) 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 = 54
      natmed = 'OCH3 Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

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

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

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

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

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

      itmed = 56
      natmed = 'WALL Lead'
      nmat = 17
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 56
      npar = 3
      par(1) = 235
      par(2) = 135
      par(3) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.56) stop 'consistency check #1 failed'

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

      itmed = 57
      natmed = 'OWHO Iron'
      nmat = 10
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 57
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.57) 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 = 58
      natmed = 'IWHO Vacuum'
      nmat = 11
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 58
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 7.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.58) 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 = 59
      natmed = 'DET2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 59
      npar = 3
      par(1) = 225
      par(2) = 135
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.59) stop 'consistency check #1 failed'

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

      itmed = 60
      natmed = 'DET3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 60
      npar = 3
      par(1) = 225
      par(2) = 1
      par(3) = 600
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.60) 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 = 61
      natmed = 'HALL Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 61
      npar = 3
      par(1) = 850
      par(2) = 750
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.61) 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 = 62
      natmed = 'TARG Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 62
      npar = 3
      par(1) = 0
      par(2) = 9.5
      par(3) = 91.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.62) stop 'consistency check #1 failed'

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

      imate = 21
      chnama = 'Beryllium'
      a = 9.0122
      z = 4
      dens = 1.848
      radl = 35.276
      absl = 40.6926
      nwbuf = 0
      call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf)

      itmed = 63
      natmed = 'CYLW Beryllium'
      nmat = 21
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 63
      npar = 3
      par(1) = 9.4
      par(2) = 9.5
      par(3) = 86.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.63) stop 'consistency check #1 failed'

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

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

      itmed = 64
      natmed = 'UWIT Kapton'
      nmat = 22
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 64
      npar = 3
      par(1) = 0
      par(2) = 9.5
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.64) stop 'consistency check #1 failed'

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

      itmed = 65
      natmed = 'DWIT Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 65
      npar = 3
      par(1) = 0
      par(2) = 9.5
      par(3) = 4.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.65) stop 'consistency check #1 failed'

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

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

      chname = 'DWIC'
      chshap = 'SPHE'
      nmed = 66
      npar = 6
      par(1) = 0
      par(2) = 9.5
      par(3) = 0
      par(4) = 90
      par(5) = 0
      par(6) = 360
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.66) stop 'consistency check #1 failed'

      chname = 'DWIC'
      nr = 1
      chmoth = 'DWIT'
      x = 0
      y = 0
      z = -4.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DWID'
      chshap = 'SPHE'
      nmed = 67
      npar = 6
      par(1) = 0
      par(2) = 9.4
      par(3) = 0
      par(4) = 90
      par(5) = 0
      par(6) = 360
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.67) stop 'consistency check #1 failed'

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

      itmed = 68
      natmed = 'TGTV Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 68
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 15
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.68) stop 'consistency check #1 failed'

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

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

      itmed = 69
      natmed = 'LIH2 LiqHydrogen'
      nmat = 23
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 69
      npar = 3
      par(1) = 0
      par(2) = 2.48
      par(3) = 14.99
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.69) 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 = 70
      natmed = 'LASS Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 70
      npar = 21
      par(1) = 0
      par(2) = 360
      par(3) = 6
      par(4) = -50.8
      par(5) = 10
      par(6) = 188
      par(7) = 100
      par(8) = 10
      par(9) = 188
      par(10) = 100
      par(11) = 0
      par(12) = 188
      par(13) = 406
      par(14) = 0
      par(15) = 188
      par(16) = 406
      par(17) = 62
      par(18) = 188
      par(19) = 443.8
      par(20) = 62
      par(21) = 188
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.70) 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 = 71
      natmed = 'IYUP Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 71
      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.71) 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 = 72
      natmed = 'IYOK Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 72
      npar = 3
      par(1) = 95
      par(2) = 187.96
      par(3) = 188.9
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.72) 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 = 73
      natmed = 'IYDN Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 73
      npar = 3
      par(1) = 92.71
      par(2) = 187.96
      par(3) = 33
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.73) 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 = 74
      natmed = 'CDC Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 74
      npar = 3
      par(1) = 15
      par(2) = 60
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.74) stop 'consistency check #1 failed'

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

      itmed = 75
      natmed = 'CDCI Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 75
      npar = 3
      par(1) = 15
      par(2) = 15.06
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.75) stop 'consistency check #1 failed'

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

      itmed = 76
      natmed = 'CDCO Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 76
      npar = 3
      par(1) = 59.8
      par(2) = 60
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.76) stop 'consistency check #1 failed'

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

      itmed = 77
      natmed = 'CDPU Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 77
      npar = 3
      par(1) = 15
      par(2) = 60
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.77) stop 'consistency check #1 failed'

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

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

      chname = 'DC1'
      chshap = 'TUBE'
      nmed = 78
      npar = 3
      par(1) = 15.2
      par(2) = 16.9
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.78) stop 'consistency check #1 failed'

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

      chname = 'SD01'
      chmoth = 'DC1'
      ndiv = 63
      iaxis = 2
      step = 5.71429
      c0 = -2.85714
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

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

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

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

      itmed = 80
      natmed = 'STRW Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 80
      npar = 3
      par(1) = 0.792
      par(2) = 0.8
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.81) stop 'consistency check #1 failed'

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

      itmed = 81
      natmed = 'WIRE Tungsten'
      nmat = 15
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 81
      npar = 3
      par(1) = 0
      par(2) = 0.003
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.82) stop 'consistency check #1 failed'

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

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

      chname = 'DC2'
      chshap = 'TUBE'
      nmed = 82
      npar = 3
      par(1) = 17
      par(2) = 18.7
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.83) stop 'consistency check #1 failed'

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

      chname = 'SD02'
      chmoth = 'DC2'
      ndiv = 70
      iaxis = 2
      step = 5.14286
      c0 = -2.57143
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

      chname = 'DC3'
      chshap = 'TUBE'
      nmed = 83
      npar = 3
      par(1) = 18.8
      par(2) = 20.4
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.85) stop 'consistency check #1 failed'

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

      chname = 'SD03'
      chmoth = 'DC3'
      ndiv = 77
      iaxis = 2
      step = 4.67532
      c0 = -2.33766
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

      chname = 'DC4'
      chshap = 'TUBE'
      nmed = 84
      npar = 3
      par(1) = 20.4
      par(2) = 22.2
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.87) stop 'consistency check #1 failed'

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

      chname = 'SD04'
      chmoth = 'DC4'
      ndiv = 84
      iaxis = 2
      step = 4.28571
      c0 = -2.14286
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 4
      chmoth = 'SD04'
      x = 21.395
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC5'
      chshap = 'TUBE'
      nmed = 85
      npar = 3
      par(1) = 22.2
      par(2) = 31.1
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.89) stop 'consistency check #1 failed'

      chname = 'DC5'
      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 = 86
      natmed = 'STLA chamberGas'
      nmat = 24
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

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

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

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

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

      chname = 'STLW'
      chshap = 'TUBE'
      nmed = 87
      npar = 3
      par(1) = 0.792
      par(2) = 0.8
      par(3) = 100.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.91) stop 'consistency check #1 failed'

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

      itmed = 88
      natmed = 'WILE Tungsten'
      nmat = 15
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 88
      npar = 3
      par(1) = 0
      par(2) = 0.003
      par(3) = 100.55
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.92) stop 'consistency check #1 failed'

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

      irot = 1808
      theta1 = 90
      phi1 = 3.95604
      theta2 = 96
      phi2 = 93.956
      theta3 = 6
      phi3 = 93.956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 2
      chmoth = 'DC5'
      x = 23.1228
      y = 1.59908
      z = 0
      irot = 1808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1809
      theta1 = 90
      phi1 = 7.91209
      theta2 = 96
      phi2 = 97.9121
      theta3 = 6
      phi3 = 97.9121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 3
      chmoth = 'DC5'
      x = 22.9574
      y = 3.19053
      z = 0
      irot = 1809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1810
      theta1 = 90
      phi1 = 11.8681
      theta2 = 96
      phi2 = 101.868
      theta3 = 6
      phi3 = 101.868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 4
      chmoth = 'DC5'
      x = 22.6825
      y = 4.76679
      z = 0
      irot = 1810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1811
      theta1 = 90
      phi1 = 15.8242
      theta2 = 96
      phi2 = 105.824
      theta3 = 6
      phi3 = 105.824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 5
      chmoth = 'DC5'
      x = 22.2996
      y = 6.32032
      z = 0
      irot = 1811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1812
      theta1 = 90
      phi1 = 19.7802
      theta2 = 96
      phi2 = 109.78
      theta3 = 6
      phi3 = 109.78
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 6
      chmoth = 'DC5'
      x = 21.8104
      y = 7.84374
      z = 0
      irot = 1812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1813
      theta1 = 90
      phi1 = 23.7363
      theta2 = 96
      phi2 = 113.736
      theta3 = 6
      phi3 = 113.736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 7
      chmoth = 'DC5'
      x = 21.2173
      y = 9.32978
      z = 0
      irot = 1813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1814
      theta1 = 90
      phi1 = 27.6923
      theta2 = 96
      phi2 = 117.692
      theta3 = 6
      phi3 = 117.692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 8
      chmoth = 'DC5'
      x = 20.5231
      y = 10.7714
      z = 0
      irot = 1814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1815
      theta1 = 90
      phi1 = 31.6484
      theta2 = 96
      phi2 = 121.648
      theta3 = 6
      phi3 = 121.648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 9
      chmoth = 'DC5'
      x = 19.7311
      y = 12.1616
      z = 0
      irot = 1815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1816
      theta1 = 90
      phi1 = 35.6044
      theta2 = 96
      phi2 = 125.604
      theta3 = 6
      phi3 = 125.604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 10
      chmoth = 'DC5'
      x = 18.845
      y = 13.4939
      z = 0
      irot = 1816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1817
      theta1 = 90
      phi1 = 39.5604
      theta2 = 96
      phi2 = 129.56
      theta3 = 6
      phi3 = 129.56
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 11
      chmoth = 'DC5'
      x = 17.8692
      y = 14.7619
      z = 0
      irot = 1817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1818
      theta1 = 90
      phi1 = 43.5165
      theta2 = 96
      phi2 = 133.516
      theta3 = 6
      phi3 = 133.516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 12
      chmoth = 'DC5'
      x = 16.8081
      y = 15.9595
      z = 0
      irot = 1818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1819
      theta1 = 90
      phi1 = 47.4725
      theta2 = 96
      phi2 = 137.473
      theta3 = 6
      phi3 = 137.473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 13
      chmoth = 'DC5'
      x = 15.667
      y = 17.0811
      z = 0
      irot = 1819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1820
      theta1 = 90
      phi1 = 51.4286
      theta2 = 96
      phi2 = 141.429
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 14
      chmoth = 'DC5'
      x = 14.4512
      y = 18.1213
      z = 0
      irot = 1820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1821
      theta1 = 90
      phi1 = 55.3846
      theta2 = 96
      phi2 = 145.385
      theta3 = 6
      phi3 = 145.385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 15
      chmoth = 'DC5'
      x = 13.1666
      y = 19.0751
      z = 0
      irot = 1821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1822
      theta1 = 90
      phi1 = 59.3407
      theta2 = 96
      phi2 = 149.341
      theta3 = 6
      phi3 = 149.341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 16
      chmoth = 'DC5'
      x = 11.8192
      y = 19.938
      z = 0
      irot = 1822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1823
      theta1 = 90
      phi1 = 63.2967
      theta2 = 96
      phi2 = 153.297
      theta3 = 6
      phi3 = 153.297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 17
      chmoth = 'DC5'
      x = 10.4155
      y = 20.706
      z = 0
      irot = 1823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1824
      theta1 = 90
      phi1 = 67.2527
      theta2 = 96
      phi2 = 157.253
      theta3 = 6
      phi3 = 157.253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 18
      chmoth = 'DC5'
      x = 8.96216
      y = 21.3752
      z = 0
      irot = 1824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1825
      theta1 = 90
      phi1 = 71.2088
      theta2 = 96
      phi2 = 161.209
      theta3 = 6
      phi3 = 161.209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 19
      chmoth = 'DC5'
      x = 7.46611
      y = 21.9426
      z = 0
      irot = 1825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1826
      theta1 = 90
      phi1 = 75.1648
      theta2 = 96
      phi2 = 165.165
      theta3 = 6
      phi3 = 165.165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 20
      chmoth = 'DC5'
      x = 5.93447
      y = 22.4054
      z = 0
      irot = 1826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1827
      theta1 = 90
      phi1 = 79.1209
      theta2 = 96
      phi2 = 169.121
      theta3 = 6
      phi3 = 169.121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 21
      chmoth = 'DC5'
      x = 4.37456
      y = 22.7614
      z = 0
      irot = 1827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1828
      theta1 = 90
      phi1 = 83.0769
      theta2 = 96
      phi2 = 173.077
      theta3 = 6
      phi3 = 173.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 22
      chmoth = 'DC5'
      x = 2.7938
      y = 23.009
      z = 0
      irot = 1828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1829
      theta1 = 90
      phi1 = 87.033
      theta2 = 96
      phi2 = 177.033
      theta3 = 6
      phi3 = 177.033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 23
      chmoth = 'DC5'
      x = 1.19972
      y = 23.1469
      z = 0
      irot = 1829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1830
      theta1 = 90
      phi1 = 90.989
      theta2 = 96
      phi2 = -179.011
      theta3 = 6
      phi3 = -179.011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 24
      chmoth = 'DC5'
      x = -0.400067
      y = 23.1745
      z = 0
      irot = 1830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1831
      theta1 = 90
      phi1 = 94.9451
      theta2 = 96
      phi2 = -175.055
      theta3 = 6
      phi3 = -175.055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 25
      chmoth = 'DC5'
      x = -1.99795
      y = 23.0917
      z = 0
      irot = 1831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1832
      theta1 = 90
      phi1 = 98.9011
      theta2 = 96
      phi2 = -171.099
      theta3 = 6
      phi3 = -171.099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 26
      chmoth = 'DC5'
      x = -3.58632
      y = 22.8989
      z = 0
      irot = 1832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1833
      theta1 = 90
      phi1 = 102.857
      theta2 = 96
      phi2 = -167.143
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 27
      chmoth = 'DC5'
      x = -5.15759
      y = 22.5969
      z = 0
      irot = 1833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1834
      theta1 = 90
      phi1 = 106.813
      theta2 = 96
      phi2 = -163.187
      theta3 = 6
      phi3 = -163.187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 28
      chmoth = 'DC5'
      x = -6.70429
      y = 22.1872
      z = 0
      irot = 1834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1835
      theta1 = 90
      phi1 = 110.769
      theta2 = 96
      phi2 = -159.231
      theta3 = 6
      phi3 = -159.231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 29
      chmoth = 'DC5'
      x = -8.21903
      y = 21.6718
      z = 0
      irot = 1835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1836
      theta1 = 90
      phi1 = 114.725
      theta2 = 96
      phi2 = -155.275
      theta3 = 6
      phi3 = -155.275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 30
      chmoth = 'DC5'
      x = -9.69461
      y = 21.0531
      z = 0
      irot = 1836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1837
      theta1 = 90
      phi1 = 118.681
      theta2 = 96
      phi2 = -151.319
      theta3 = 6
      phi3 = -151.319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 31
      chmoth = 'DC5'
      x = -11.124
      y = 20.3341
      z = 0
      irot = 1837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1838
      theta1 = 90
      phi1 = 122.637
      theta2 = 96
      phi2 = -147.363
      theta3 = 6
      phi3 = -147.363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 32
      chmoth = 'DC5'
      x = -12.5004
      y = 19.5182
      z = 0
      irot = 1838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1839
      theta1 = 90
      phi1 = 126.593
      theta2 = 96
      phi2 = -143.407
      theta3 = 6
      phi3 = -143.407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 33
      chmoth = 'DC5'
      x = -13.8172
      y = 18.6093
      z = 0
      irot = 1839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1840
      theta1 = 90
      phi1 = 130.549
      theta2 = 96
      phi2 = -139.451
      theta3 = 6
      phi3 = -139.451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 34
      chmoth = 'DC5'
      x = -15.0681
      y = 17.6117
      z = 0
      irot = 1840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1841
      theta1 = 90
      phi1 = 134.505
      theta2 = 96
      phi2 = -135.495
      theta3 = 6
      phi3 = -135.495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 35
      chmoth = 'DC5'
      x = -16.2473
      y = 16.5302
      z = 0
      irot = 1841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1842
      theta1 = 90
      phi1 = 138.462
      theta2 = 96
      phi2 = -131.538
      theta3 = 6
      phi3 = -131.538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 36
      chmoth = 'DC5'
      x = -17.349
      y = 15.3699
      z = 0
      irot = 1842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1843
      theta1 = 90
      phi1 = 142.418
      theta2 = 96
      phi2 = -127.582
      theta3 = 6
      phi3 = -127.582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 37
      chmoth = 'DC5'
      x = -18.368
      y = 14.1363
      z = 0
      irot = 1843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1844
      theta1 = 90
      phi1 = 146.374
      theta2 = 96
      phi2 = -123.626
      theta3 = 6
      phi3 = -123.626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 38
      chmoth = 'DC5'
      x = -19.2995
      y = 12.8354
      z = 0
      irot = 1844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1845
      theta1 = 90
      phi1 = 150.33
      theta2 = 96
      phi2 = -119.67
      theta3 = 6
      phi3 = -119.67
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 39
      chmoth = 'DC5'
      x = -20.1391
      y = 11.4733
      z = 0
      irot = 1845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1846
      theta1 = 90
      phi1 = 154.286
      theta2 = 96
      phi2 = -115.714
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 40
      chmoth = 'DC5'
      x = -20.8827
      y = 10.0566
      z = 0
      irot = 1846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1847
      theta1 = 90
      phi1 = 158.242
      theta2 = 96
      phi2 = -111.758
      theta3 = 6
      phi3 = -111.758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 41
      chmoth = 'DC5'
      x = -21.5267
      y = 8.59188
      z = 0
      irot = 1847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1848
      theta1 = 90
      phi1 = 162.198
      theta2 = 96
      phi2 = -107.802
      theta3 = 6
      phi3 = -107.802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 42
      chmoth = 'DC5'
      x = -22.0682
      y = 7.08625
      z = 0
      irot = 1848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1849
      theta1 = 90
      phi1 = 166.154
      theta2 = 96
      phi2 = -103.846
      theta3 = 6
      phi3 = -103.846
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 43
      chmoth = 'DC5'
      x = -22.5045
      y = 5.54686
      z = 0
      irot = 1849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1850
      theta1 = 90
      phi1 = 170.11
      theta2 = 96
      phi2 = -99.8901
      theta3 = 6
      phi3 = -99.8901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 44
      chmoth = 'DC5'
      x = -22.8336
      y = 3.98103
      z = 0
      irot = 1850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1851
      theta1 = 90
      phi1 = 174.066
      theta2 = 96
      phi2 = -95.9341
      theta3 = 6
      phi3 = -95.9341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 45
      chmoth = 'DC5'
      x = -23.0538
      y = 2.39623
      z = 0
      irot = 1851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1852
      theta1 = 90
      phi1 = 178.022
      theta2 = 96
      phi2 = -91.978
      theta3 = 6
      phi3 = -91.978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 46
      chmoth = 'DC5'
      x = -23.1642
      y = 0.800015
      z = 0
      irot = 1852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1853
      theta1 = 90
      phi1 = -178.022
      theta2 = 96
      phi2 = -88.022
      theta3 = 6
      phi3 = -88.022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 47
      chmoth = 'DC5'
      x = -23.1642
      y = -0.800015
      z = 0
      irot = 1853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1854
      theta1 = 90
      phi1 = -174.066
      theta2 = 96
      phi2 = -84.0659
      theta3 = 6
      phi3 = -84.0659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 48
      chmoth = 'DC5'
      x = -23.0538
      y = -2.39623
      z = 0
      irot = 1854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1855
      theta1 = 90
      phi1 = -170.11
      theta2 = 96
      phi2 = -80.1099
      theta3 = 6
      phi3 = -80.1099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 49
      chmoth = 'DC5'
      x = -22.8336
      y = -3.98103
      z = 0
      irot = 1855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1856
      theta1 = 90
      phi1 = -166.154
      theta2 = 96
      phi2 = -76.1538
      theta3 = 6
      phi3 = -76.1538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 50
      chmoth = 'DC5'
      x = -22.5045
      y = -5.54686
      z = 0
      irot = 1856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1857
      theta1 = 90
      phi1 = -162.198
      theta2 = 96
      phi2 = -72.1978
      theta3 = 6
      phi3 = -72.1978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 51
      chmoth = 'DC5'
      x = -22.0682
      y = -7.08625
      z = 0
      irot = 1857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1858
      theta1 = 90
      phi1 = -158.242
      theta2 = 96
      phi2 = -68.2418
      theta3 = 6
      phi3 = -68.2418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 52
      chmoth = 'DC5'
      x = -21.5267
      y = -8.59188
      z = 0
      irot = 1858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1859
      theta1 = 90
      phi1 = -154.286
      theta2 = 96
      phi2 = -64.2857
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 53
      chmoth = 'DC5'
      x = -20.8827
      y = -10.0566
      z = 0
      irot = 1859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1860
      theta1 = 90
      phi1 = -150.33
      theta2 = 96
      phi2 = -60.3297
      theta3 = 6
      phi3 = -60.3297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 54
      chmoth = 'DC5'
      x = -20.1391
      y = -11.4733
      z = 0
      irot = 1860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1861
      theta1 = 90
      phi1 = -146.374
      theta2 = 96
      phi2 = -56.3736
      theta3 = 6
      phi3 = -56.3736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 55
      chmoth = 'DC5'
      x = -19.2995
      y = -12.8354
      z = 0
      irot = 1861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1862
      theta1 = 90
      phi1 = -142.418
      theta2 = 96
      phi2 = -52.4176
      theta3 = 6
      phi3 = -52.4176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 56
      chmoth = 'DC5'
      x = -18.368
      y = -14.1363
      z = 0
      irot = 1862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1863
      theta1 = 90
      phi1 = -138.462
      theta2 = 96
      phi2 = -48.4615
      theta3 = 6
      phi3 = -48.4615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 57
      chmoth = 'DC5'
      x = -17.349
      y = -15.3699
      z = 0
      irot = 1863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1864
      theta1 = 90
      phi1 = -134.505
      theta2 = 96
      phi2 = -44.5055
      theta3 = 6
      phi3 = -44.5055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 58
      chmoth = 'DC5'
      x = -16.2473
      y = -16.5302
      z = 0
      irot = 1864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1865
      theta1 = 90
      phi1 = -130.549
      theta2 = 96
      phi2 = -40.5495
      theta3 = 6
      phi3 = -40.5495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 59
      chmoth = 'DC5'
      x = -15.0681
      y = -17.6117
      z = 0
      irot = 1865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1866
      theta1 = 90
      phi1 = -126.593
      theta2 = 96
      phi2 = -36.5934
      theta3 = 6
      phi3 = -36.5934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 60
      chmoth = 'DC5'
      x = -13.8172
      y = -18.6093
      z = 0
      irot = 1866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1867
      theta1 = 90
      phi1 = -122.637
      theta2 = 96
      phi2 = -32.6374
      theta3 = 6
      phi3 = -32.6374
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 61
      chmoth = 'DC5'
      x = -12.5004
      y = -19.5182
      z = 0
      irot = 1867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1868
      theta1 = 90
      phi1 = -118.681
      theta2 = 96
      phi2 = -28.6813
      theta3 = 6
      phi3 = -28.6813
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 62
      chmoth = 'DC5'
      x = -11.124
      y = -20.3341
      z = 0
      irot = 1868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1869
      theta1 = 90
      phi1 = -114.725
      theta2 = 96
      phi2 = -24.7253
      theta3 = 6
      phi3 = -24.7253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 63
      chmoth = 'DC5'
      x = -9.69461
      y = -21.0531
      z = 0
      irot = 1869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1870
      theta1 = 90
      phi1 = -110.769
      theta2 = 96
      phi2 = -20.7692
      theta3 = 6
      phi3 = -20.7692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 64
      chmoth = 'DC5'
      x = -8.21903
      y = -21.6718
      z = 0
      irot = 1870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1871
      theta1 = 90
      phi1 = -106.813
      theta2 = 96
      phi2 = -16.8132
      theta3 = 6
      phi3 = -16.8132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 65
      chmoth = 'DC5'
      x = -6.70429
      y = -22.1872
      z = 0
      irot = 1871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1872
      theta1 = 90
      phi1 = -102.857
      theta2 = 96
      phi2 = -12.8571
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 66
      chmoth = 'DC5'
      x = -5.15759
      y = -22.5969
      z = 0
      irot = 1872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1873
      theta1 = 90
      phi1 = -98.9011
      theta2 = 96
      phi2 = -8.9011
      theta3 = 6
      phi3 = -8.9011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 67
      chmoth = 'DC5'
      x = -3.58632
      y = -22.8989
      z = 0
      irot = 1873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1874
      theta1 = 90
      phi1 = -94.9451
      theta2 = 96
      phi2 = -4.94505
      theta3 = 6
      phi3 = -4.94505
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 68
      chmoth = 'DC5'
      x = -1.99795
      y = -23.0917
      z = 0
      irot = 1874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1875
      theta1 = 90
      phi1 = -90.989
      theta2 = 96
      phi2 = -0.989011
      theta3 = 6
      phi3 = -0.989011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 69
      chmoth = 'DC5'
      x = -0.400067
      y = -23.1745
      z = 0
      irot = 1875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1876
      theta1 = 90
      phi1 = -87.033
      theta2 = 96
      phi2 = 2.96703
      theta3 = 6
      phi3 = 2.96703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 70
      chmoth = 'DC5'
      x = 1.19972
      y = -23.1469
      z = 0
      irot = 1876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1877
      theta1 = 90
      phi1 = -83.0769
      theta2 = 96
      phi2 = 6.92308
      theta3 = 6
      phi3 = 6.92308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 71
      chmoth = 'DC5'
      x = 2.7938
      y = -23.009
      z = 0
      irot = 1877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1878
      theta1 = 90
      phi1 = -79.1209
      theta2 = 96
      phi2 = 10.8791
      theta3 = 6
      phi3 = 10.8791
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 72
      chmoth = 'DC5'
      x = 4.37456
      y = -22.7614
      z = 0
      irot = 1878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1879
      theta1 = 90
      phi1 = -75.1648
      theta2 = 96
      phi2 = 14.8352
      theta3 = 6
      phi3 = 14.8352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 73
      chmoth = 'DC5'
      x = 5.93447
      y = -22.4054
      z = 0
      irot = 1879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1880
      theta1 = 90
      phi1 = -71.2088
      theta2 = 96
      phi2 = 18.7912
      theta3 = 6
      phi3 = 18.7912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 74
      chmoth = 'DC5'
      x = 7.46611
      y = -21.9426
      z = 0
      irot = 1880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1881
      theta1 = 90
      phi1 = -67.2527
      theta2 = 96
      phi2 = 22.7473
      theta3 = 6
      phi3 = 22.7473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 75
      chmoth = 'DC5'
      x = 8.96216
      y = -21.3752
      z = 0
      irot = 1881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1882
      theta1 = 90
      phi1 = -63.2967
      theta2 = 96
      phi2 = 26.7033
      theta3 = 6
      phi3 = 26.7033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 76
      chmoth = 'DC5'
      x = 10.4155
      y = -20.706
      z = 0
      irot = 1882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1883
      theta1 = 90
      phi1 = -59.3407
      theta2 = 96
      phi2 = 30.6593
      theta3 = 6
      phi3 = 30.6593
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 77
      chmoth = 'DC5'
      x = 11.8192
      y = -19.938
      z = 0
      irot = 1883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1884
      theta1 = 90
      phi1 = -55.3846
      theta2 = 96
      phi2 = 34.6154
      theta3 = 6
      phi3 = 34.6154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 78
      chmoth = 'DC5'
      x = 13.1666
      y = -19.0751
      z = 0
      irot = 1884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1885
      theta1 = 90
      phi1 = -51.4286
      theta2 = 96
      phi2 = 38.5714
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 79
      chmoth = 'DC5'
      x = 14.4512
      y = -18.1213
      z = 0
      irot = 1885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1886
      theta1 = 90
      phi1 = -47.4725
      theta2 = 96
      phi2 = 42.5275
      theta3 = 6
      phi3 = 42.5275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 80
      chmoth = 'DC5'
      x = 15.667
      y = -17.0811
      z = 0
      irot = 1886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1887
      theta1 = 90
      phi1 = -43.5165
      theta2 = 96
      phi2 = 46.4835
      theta3 = 6
      phi3 = 46.4835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 81
      chmoth = 'DC5'
      x = 16.8081
      y = -15.9595
      z = 0
      irot = 1887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1888
      theta1 = 90
      phi1 = -39.5604
      theta2 = 96
      phi2 = 50.4396
      theta3 = 6
      phi3 = 50.4396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 82
      chmoth = 'DC5'
      x = 17.8692
      y = -14.7619
      z = 0
      irot = 1888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1889
      theta1 = 90
      phi1 = -35.6044
      theta2 = 96
      phi2 = 54.3956
      theta3 = 6
      phi3 = 54.3956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 83
      chmoth = 'DC5'
      x = 18.845
      y = -13.4939
      z = 0
      irot = 1889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1890
      theta1 = 90
      phi1 = -31.6484
      theta2 = 96
      phi2 = 58.3516
      theta3 = 6
      phi3 = 58.3516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 84
      chmoth = 'DC5'
      x = 19.7311
      y = -12.1616
      z = 0
      irot = 1890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1891
      theta1 = 90
      phi1 = -27.6923
      theta2 = 96
      phi2 = 62.3077
      theta3 = 6
      phi3 = 62.3077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 85
      chmoth = 'DC5'
      x = 20.5231
      y = -10.7714
      z = 0
      irot = 1891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1892
      theta1 = 90
      phi1 = -23.7363
      theta2 = 96
      phi2 = 66.2637
      theta3 = 6
      phi3 = 66.2637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 86
      chmoth = 'DC5'
      x = 21.2173
      y = -9.32978
      z = 0
      irot = 1892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1893
      theta1 = 90
      phi1 = -19.7802
      theta2 = 96
      phi2 = 70.2198
      theta3 = 6
      phi3 = 70.2198
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 87
      chmoth = 'DC5'
      x = 21.8104
      y = -7.84374
      z = 0
      irot = 1893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1894
      theta1 = 90
      phi1 = -15.8242
      theta2 = 96
      phi2 = 74.1758
      theta3 = 6
      phi3 = 74.1758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 88
      chmoth = 'DC5'
      x = 22.2996
      y = -6.32032
      z = 0
      irot = 1894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1895
      theta1 = 90
      phi1 = -11.8681
      theta2 = 96
      phi2 = 78.1319
      theta3 = 6
      phi3 = 78.1319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 89
      chmoth = 'DC5'
      x = 22.6825
      y = -4.76679
      z = 0
      irot = 1895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1896
      theta1 = 90
      phi1 = -7.91209
      theta2 = 96
      phi2 = 82.0879
      theta3 = 6
      phi3 = 82.0879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 90
      chmoth = 'DC5'
      x = 22.9574
      y = -3.19053
      z = 0
      irot = 1896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1897
      theta1 = 90
      phi1 = -3.95604
      theta2 = 96
      phi2 = 86.044
      theta3 = 6
      phi3 = 86.044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 91
      chmoth = 'DC5'
      x = 23.1228
      y = -1.59908
      z = 0
      irot = 1897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 92
      chmoth = 'DC5'
      x = 24.96
      y = 0
      z = 0
      irot = 1898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1899
      theta1 = 90
      phi1 = 3.67347
      theta2 = 96
      phi2 = 93.6735
      theta3 = 6
      phi3 = 93.6735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 93
      chmoth = 'DC5'
      x = 24.9087
      y = 1.59919
      z = 0
      irot = 1899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1900
      theta1 = 90
      phi1 = 7.34694
      theta2 = 96
      phi2 = 97.3469
      theta3 = 6
      phi3 = 97.3469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 94
      chmoth = 'DC5'
      x = 24.7551
      y = 3.19181
      z = 0
      irot = 1900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1901
      theta1 = 90
      phi1 = 11.0204
      theta2 = 96
      phi2 = 101.02
      theta3 = 6
      phi3 = 101.02
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 95
      chmoth = 'DC5'
      x = 24.4997
      y = 4.77132
      z = 0
      irot = 1901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1902
      theta1 = 90
      phi1 = 14.6939
      theta2 = 96
      phi2 = 104.694
      theta3 = 6
      phi3 = 104.694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 96
      chmoth = 'DC5'
      x = 24.1437
      y = 6.33122
      z = 0
      irot = 1902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1903
      theta1 = 90
      phi1 = 18.3673
      theta2 = 96
      phi2 = 108.367
      theta3 = 6
      phi3 = 108.367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 97
      chmoth = 'DC5'
      x = 23.6884
      y = 7.8651
      z = 0
      irot = 1903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1904
      theta1 = 90
      phi1 = 22.0408
      theta2 = 96
      phi2 = 112.041
      theta3 = 6
      phi3 = 112.041
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 98
      chmoth = 'DC5'
      x = 23.1358
      y = 9.36666
      z = 0
      irot = 1904
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1905
      theta1 = 90
      phi1 = 25.7143
      theta2 = 96
      phi2 = 115.714
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 99
      chmoth = 'DC5'
      x = 22.4882
      y = 10.8297
      z = 0
      irot = 1905
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1906
      theta1 = 90
      phi1 = 29.3878
      theta2 = 96
      phi2 = 119.388
      theta3 = 6
      phi3 = 119.388
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 100
      chmoth = 'DC5'
      x = 21.7481
      y = 12.2483
      z = 0
      irot = 1906
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1907
      theta1 = 90
      phi1 = 33.0612
      theta2 = 96
      phi2 = 123.061
      theta3 = 6
      phi3 = 123.061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 101
      chmoth = 'DC5'
      x = 20.9187
      y = 13.6166
      z = 0
      irot = 1907
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1908
      theta1 = 90
      phi1 = 36.7347
      theta2 = 96
      phi2 = 126.735
      theta3 = 6
      phi3 = 126.735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 102
      chmoth = 'DC5'
      x = 20.0033
      y = 14.9288
      z = 0
      irot = 1908
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1909
      theta1 = 90
      phi1 = 40.4082
      theta2 = 96
      phi2 = 130.408
      theta3 = 6
      phi3 = 130.408
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 103
      chmoth = 'DC5'
      x = 19.0057
      y = 16.1798
      z = 0
      irot = 1909
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1910
      theta1 = 90
      phi1 = 44.0816
      theta2 = 96
      phi2 = 134.082
      theta3 = 6
      phi3 = 134.082
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 104
      chmoth = 'DC5'
      x = 17.93
      y = 17.3642
      z = 0
      irot = 1910
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1911
      theta1 = 90
      phi1 = 47.7551
      theta2 = 96
      phi2 = 137.755
      theta3 = 6
      phi3 = 137.755
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 105
      chmoth = 'DC5'
      x = 16.7806
      y = 18.4773
      z = 0
      irot = 1911
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1912
      theta1 = 90
      phi1 = 51.4286
      theta2 = 96
      phi2 = 141.429
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 106
      chmoth = 'DC5'
      x = 15.5623
      y = 19.5145
      z = 0
      irot = 1912
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1913
      theta1 = 90
      phi1 = 55.102
      theta2 = 96
      phi2 = 145.102
      theta3 = 6
      phi3 = 145.102
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 107
      chmoth = 'DC5'
      x = 14.28
      y = 20.4715
      z = 0
      irot = 1913
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1914
      theta1 = 90
      phi1 = 58.7755
      theta2 = 96
      phi2 = 148.776
      theta3 = 6
      phi3 = 148.776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 108
      chmoth = 'DC5'
      x = 12.9391
      y = 21.3444
      z = 0
      irot = 1914
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1915
      theta1 = 90
      phi1 = 62.449
      theta2 = 96
      phi2 = 152.449
      theta3 = 6
      phi3 = 152.449
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 109
      chmoth = 'DC5'
      x = 11.545
      y = 22.1295
      z = 0
      irot = 1915
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1916
      theta1 = 90
      phi1 = 66.1224
      theta2 = 96
      phi2 = 156.122
      theta3 = 6
      phi3 = 156.122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 110
      chmoth = 'DC5'
      x = 10.1034
      y = 22.8237
      z = 0
      irot = 1916
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1917
      theta1 = 90
      phi1 = 69.7959
      theta2 = 96
      phi2 = 159.796
      theta3 = 6
      phi3 = 159.796
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 111
      chmoth = 'DC5'
      x = 8.62031
      y = 23.4242
      z = 0
      irot = 1917
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1918
      theta1 = 90
      phi1 = 73.4694
      theta2 = 96
      phi2 = 163.469
      theta3 = 6
      phi3 = 163.469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 112
      chmoth = 'DC5'
      x = 7.10181
      y = 23.9283
      z = 0
      irot = 1918
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1919
      theta1 = 90
      phi1 = 77.1429
      theta2 = 96
      phi2 = 167.143
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 113
      chmoth = 'DC5'
      x = 5.55412
      y = 24.3342
      z = 0
      irot = 1919
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1920
      theta1 = 90
      phi1 = 80.8163
      theta2 = 96
      phi2 = 170.816
      theta3 = 6
      phi3 = 170.816
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 114
      chmoth = 'DC5'
      x = 3.98361
      y = 24.6401
      z = 0
      irot = 1920
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1921
      theta1 = 90
      phi1 = 84.4898
      theta2 = 96
      phi2 = 174.49
      theta3 = 6
      phi3 = 174.49
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 115
      chmoth = 'DC5'
      x = 2.39673
      y = 24.8447
      z = 0
      irot = 1921
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1922
      theta1 = 90
      phi1 = 88.1633
      theta2 = 96
      phi2 = 178.163
      theta3 = 6
      phi3 = 178.163
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 116
      chmoth = 'DC5'
      x = 0.800007
      y = 24.9472
      z = 0
      irot = 1922
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1923
      theta1 = 90
      phi1 = 91.8367
      theta2 = 96
      phi2 = -178.163
      theta3 = 6
      phi3 = -178.163
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 117
      chmoth = 'DC5'
      x = -0.800007
      y = 24.9472
      z = 0
      irot = 1923
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1924
      theta1 = 90
      phi1 = 95.5102
      theta2 = 96
      phi2 = -174.49
      theta3 = 6
      phi3 = -174.49
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 118
      chmoth = 'DC5'
      x = -2.39673
      y = 24.8447
      z = 0
      irot = 1924
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1925
      theta1 = 90
      phi1 = 99.1837
      theta2 = 96
      phi2 = -170.816
      theta3 = 6
      phi3 = -170.816
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 119
      chmoth = 'DC5'
      x = -3.98361
      y = 24.6401
      z = 0
      irot = 1925
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1926
      theta1 = 90
      phi1 = 102.857
      theta2 = 96
      phi2 = -167.143
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 120
      chmoth = 'DC5'
      x = -5.55412
      y = 24.3342
      z = 0
      irot = 1926
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1927
      theta1 = 90
      phi1 = 106.531
      theta2 = 96
      phi2 = -163.469
      theta3 = 6
      phi3 = -163.469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 121
      chmoth = 'DC5'
      x = -7.10181
      y = 23.9283
      z = 0
      irot = 1927
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1928
      theta1 = 90
      phi1 = 110.204
      theta2 = 96
      phi2 = -159.796
      theta3 = 6
      phi3 = -159.796
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 122
      chmoth = 'DC5'
      x = -8.62031
      y = 23.4242
      z = 0
      irot = 1928
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1929
      theta1 = 90
      phi1 = 113.878
      theta2 = 96
      phi2 = -156.122
      theta3 = 6
      phi3 = -156.122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 123
      chmoth = 'DC5'
      x = -10.1034
      y = 22.8237
      z = 0
      irot = 1929
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1930
      theta1 = 90
      phi1 = 117.551
      theta2 = 96
      phi2 = -152.449
      theta3 = 6
      phi3 = -152.449
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 124
      chmoth = 'DC5'
      x = -11.545
      y = 22.1295
      z = 0
      irot = 1930
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1931
      theta1 = 90
      phi1 = 121.224
      theta2 = 96
      phi2 = -148.776
      theta3 = 6
      phi3 = -148.776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 125
      chmoth = 'DC5'
      x = -12.9391
      y = 21.3444
      z = 0
      irot = 1931
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1932
      theta1 = 90
      phi1 = 124.898
      theta2 = 96
      phi2 = -145.102
      theta3 = 6
      phi3 = -145.102
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 126
      chmoth = 'DC5'
      x = -14.28
      y = 20.4715
      z = 0
      irot = 1932
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1933
      theta1 = 90
      phi1 = 128.571
      theta2 = 96
      phi2 = -141.429
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 127
      chmoth = 'DC5'
      x = -15.5623
      y = 19.5145
      z = 0
      irot = 1933
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1934
      theta1 = 90
      phi1 = 132.245
      theta2 = 96
      phi2 = -137.755
      theta3 = 6
      phi3 = -137.755
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 128
      chmoth = 'DC5'
      x = -16.7806
      y = 18.4773
      z = 0
      irot = 1934
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1935
      theta1 = 90
      phi1 = 135.918
      theta2 = 96
      phi2 = -134.082
      theta3 = 6
      phi3 = -134.082
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 129
      chmoth = 'DC5'
      x = -17.93
      y = 17.3642
      z = 0
      irot = 1935
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1936
      theta1 = 90
      phi1 = 139.592
      theta2 = 96
      phi2 = -130.408
      theta3 = 6
      phi3 = -130.408
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 130
      chmoth = 'DC5'
      x = -19.0057
      y = 16.1798
      z = 0
      irot = 1936
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1937
      theta1 = 90
      phi1 = 143.265
      theta2 = 96
      phi2 = -126.735
      theta3 = 6
      phi3 = -126.735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 131
      chmoth = 'DC5'
      x = -20.0033
      y = 14.9288
      z = 0
      irot = 1937
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1938
      theta1 = 90
      phi1 = 146.939
      theta2 = 96
      phi2 = -123.061
      theta3 = 6
      phi3 = -123.061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 132
      chmoth = 'DC5'
      x = -20.9187
      y = 13.6166
      z = 0
      irot = 1938
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1939
      theta1 = 90
      phi1 = 150.612
      theta2 = 96
      phi2 = -119.388
      theta3 = 6
      phi3 = -119.388
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 133
      chmoth = 'DC5'
      x = -21.7481
      y = 12.2483
      z = 0
      irot = 1939
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1940
      theta1 = 90
      phi1 = 154.286
      theta2 = 96
      phi2 = -115.714
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 134
      chmoth = 'DC5'
      x = -22.4882
      y = 10.8297
      z = 0
      irot = 1940
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1941
      theta1 = 90
      phi1 = 157.959
      theta2 = 96
      phi2 = -112.041
      theta3 = 6
      phi3 = -112.041
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 135
      chmoth = 'DC5'
      x = -23.1358
      y = 9.36666
      z = 0
      irot = 1941
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1942
      theta1 = 90
      phi1 = 161.633
      theta2 = 96
      phi2 = -108.367
      theta3 = 6
      phi3 = -108.367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 136
      chmoth = 'DC5'
      x = -23.6884
      y = 7.8651
      z = 0
      irot = 1942
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1943
      theta1 = 90
      phi1 = 165.306
      theta2 = 96
      phi2 = -104.694
      theta3 = 6
      phi3 = -104.694
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 137
      chmoth = 'DC5'
      x = -24.1437
      y = 6.33122
      z = 0
      irot = 1943
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1944
      theta1 = 90
      phi1 = 168.98
      theta2 = 96
      phi2 = -101.02
      theta3 = 6
      phi3 = -101.02
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 138
      chmoth = 'DC5'
      x = -24.4997
      y = 4.77132
      z = 0
      irot = 1944
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1945
      theta1 = 90
      phi1 = 172.653
      theta2 = 96
      phi2 = -97.3469
      theta3 = 6
      phi3 = -97.3469
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 139
      chmoth = 'DC5'
      x = -24.7551
      y = 3.19181
      z = 0
      irot = 1945
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1946
      theta1 = 90
      phi1 = 176.327
      theta2 = 96
      phi2 = -93.6735
      theta3 = 6
      phi3 = -93.6735
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 140
      chmoth = 'DC5'
      x = -24.9087
      y = 1.59919
      z = 0
      irot = 1946
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 141
      chmoth = 'DC5'
      x = -24.96
      y = 3.05662e-15
      z = 0
      irot = 1947
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1948
      theta1 = 90
      phi1 = -176.327
      theta2 = 96
      phi2 = -86.3265
      theta3 = 6
      phi3 = -86.3265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 142
      chmoth = 'DC5'
      x = -24.9087
      y = -1.59919
      z = 0
      irot = 1948
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1949
      theta1 = 90
      phi1 = -172.653
      theta2 = 96
      phi2 = -82.6531
      theta3 = 6
      phi3 = -82.6531
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 143
      chmoth = 'DC5'
      x = -24.7551
      y = -3.19181
      z = 0
      irot = 1949
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1950
      theta1 = 90
      phi1 = -168.98
      theta2 = 96
      phi2 = -78.9796
      theta3 = 6
      phi3 = -78.9796
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 144
      chmoth = 'DC5'
      x = -24.4997
      y = -4.77132
      z = 0
      irot = 1950
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1951
      theta1 = 90
      phi1 = -165.306
      theta2 = 96
      phi2 = -75.3061
      theta3 = 6
      phi3 = -75.3061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 145
      chmoth = 'DC5'
      x = -24.1437
      y = -6.33122
      z = 0
      irot = 1951
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1952
      theta1 = 90
      phi1 = -161.633
      theta2 = 96
      phi2 = -71.6327
      theta3 = 6
      phi3 = -71.6327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 146
      chmoth = 'DC5'
      x = -23.6884
      y = -7.8651
      z = 0
      irot = 1952
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1953
      theta1 = 90
      phi1 = -157.959
      theta2 = 96
      phi2 = -67.9592
      theta3 = 6
      phi3 = -67.9592
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 147
      chmoth = 'DC5'
      x = -23.1358
      y = -9.36666
      z = 0
      irot = 1953
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1954
      theta1 = 90
      phi1 = -154.286
      theta2 = 96
      phi2 = -64.2857
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 148
      chmoth = 'DC5'
      x = -22.4882
      y = -10.8297
      z = 0
      irot = 1954
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1955
      theta1 = 90
      phi1 = -150.612
      theta2 = 96
      phi2 = -60.6122
      theta3 = 6
      phi3 = -60.6122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 149
      chmoth = 'DC5'
      x = -21.7481
      y = -12.2483
      z = 0
      irot = 1955
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1956
      theta1 = 90
      phi1 = -146.939
      theta2 = 96
      phi2 = -56.9388
      theta3 = 6
      phi3 = -56.9388
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 150
      chmoth = 'DC5'
      x = -20.9187
      y = -13.6166
      z = 0
      irot = 1956
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1957
      theta1 = 90
      phi1 = -143.265
      theta2 = 96
      phi2 = -53.2653
      theta3 = 6
      phi3 = -53.2653
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 151
      chmoth = 'DC5'
      x = -20.0033
      y = -14.9288
      z = 0
      irot = 1957
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1958
      theta1 = 90
      phi1 = -139.592
      theta2 = 96
      phi2 = -49.5918
      theta3 = 6
      phi3 = -49.5918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 152
      chmoth = 'DC5'
      x = -19.0057
      y = -16.1798
      z = 0
      irot = 1958
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1959
      theta1 = 90
      phi1 = -135.918
      theta2 = 96
      phi2 = -45.9184
      theta3 = 6
      phi3 = -45.9184
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 153
      chmoth = 'DC5'
      x = -17.93
      y = -17.3642
      z = 0
      irot = 1959
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1960
      theta1 = 90
      phi1 = -132.245
      theta2 = 96
      phi2 = -42.2449
      theta3 = 6
      phi3 = -42.2449
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 154
      chmoth = 'DC5'
      x = -16.7806
      y = -18.4773
      z = 0
      irot = 1960
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1961
      theta1 = 90
      phi1 = -128.571
      theta2 = 96
      phi2 = -38.5714
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 155
      chmoth = 'DC5'
      x = -15.5623
      y = -19.5145
      z = 0
      irot = 1961
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1962
      theta1 = 90
      phi1 = -124.898
      theta2 = 96
      phi2 = -34.898
      theta3 = 6
      phi3 = -34.898
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 156
      chmoth = 'DC5'
      x = -14.28
      y = -20.4715
      z = 0
      irot = 1962
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1963
      theta1 = 90
      phi1 = -121.224
      theta2 = 96
      phi2 = -31.2245
      theta3 = 6
      phi3 = -31.2245
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 157
      chmoth = 'DC5'
      x = -12.9391
      y = -21.3444
      z = 0
      irot = 1963
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1964
      theta1 = 90
      phi1 = -117.551
      theta2 = 96
      phi2 = -27.551
      theta3 = 6
      phi3 = -27.551
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 158
      chmoth = 'DC5'
      x = -11.545
      y = -22.1295
      z = 0
      irot = 1964
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1965
      theta1 = 90
      phi1 = -113.878
      theta2 = 96
      phi2 = -23.8776
      theta3 = 6
      phi3 = -23.8776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 159
      chmoth = 'DC5'
      x = -10.1034
      y = -22.8237
      z = 0
      irot = 1965
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1966
      theta1 = 90
      phi1 = -110.204
      theta2 = 96
      phi2 = -20.2041
      theta3 = 6
      phi3 = -20.2041
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 160
      chmoth = 'DC5'
      x = -8.62031
      y = -23.4242
      z = 0
      irot = 1966
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1967
      theta1 = 90
      phi1 = -106.531
      theta2 = 96
      phi2 = -16.5306
      theta3 = 6
      phi3 = -16.5306
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 161
      chmoth = 'DC5'
      x = -7.10181
      y = -23.9283
      z = 0
      irot = 1967
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1968
      theta1 = 90
      phi1 = -102.857
      theta2 = 96
      phi2 = -12.8571
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 162
      chmoth = 'DC5'
      x = -5.55412
      y = -24.3342
      z = 0
      irot = 1968
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1969
      theta1 = 90
      phi1 = -99.1837
      theta2 = 96
      phi2 = -9.18367
      theta3 = 6
      phi3 = -9.18367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 163
      chmoth = 'DC5'
      x = -3.98361
      y = -24.6401
      z = 0
      irot = 1969
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1970
      theta1 = 90
      phi1 = -95.5102
      theta2 = 96
      phi2 = -5.5102
      theta3 = 6
      phi3 = -5.5102
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 164
      chmoth = 'DC5'
      x = -2.39673
      y = -24.8447
      z = 0
      irot = 1970
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1971
      theta1 = 90
      phi1 = -91.8367
      theta2 = 96
      phi2 = -1.83673
      theta3 = 6
      phi3 = -1.83673
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 165
      chmoth = 'DC5'
      x = -0.800007
      y = -24.9472
      z = 0
      irot = 1971
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1972
      theta1 = 90
      phi1 = -88.1633
      theta2 = 96
      phi2 = 1.83673
      theta3 = 6
      phi3 = 1.83673
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 166
      chmoth = 'DC5'
      x = 0.800007
      y = -24.9472
      z = 0
      irot = 1972
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1973
      theta1 = 90
      phi1 = -84.4898
      theta2 = 96
      phi2 = 5.5102
      theta3 = 6
      phi3 = 5.5102
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 167
      chmoth = 'DC5'
      x = 2.39673
      y = -24.8447
      z = 0
      irot = 1973
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1974
      theta1 = 90
      phi1 = -80.8163
      theta2 = 96
      phi2 = 9.18367
      theta3 = 6
      phi3 = 9.18367
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 168
      chmoth = 'DC5'
      x = 3.98361
      y = -24.6401
      z = 0
      irot = 1974
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1975
      theta1 = 90
      phi1 = -77.1429
      theta2 = 96
      phi2 = 12.8571
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 169
      chmoth = 'DC5'
      x = 5.55412
      y = -24.3342
      z = 0
      irot = 1975
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1976
      theta1 = 90
      phi1 = -73.4694
      theta2 = 96
      phi2 = 16.5306
      theta3 = 6
      phi3 = 16.5306
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 170
      chmoth = 'DC5'
      x = 7.10181
      y = -23.9283
      z = 0
      irot = 1976
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1977
      theta1 = 90
      phi1 = -69.7959
      theta2 = 96
      phi2 = 20.2041
      theta3 = 6
      phi3 = 20.2041
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 171
      chmoth = 'DC5'
      x = 8.62031
      y = -23.4242
      z = 0
      irot = 1977
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1978
      theta1 = 90
      phi1 = -66.1224
      theta2 = 96
      phi2 = 23.8776
      theta3 = 6
      phi3 = 23.8776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 172
      chmoth = 'DC5'
      x = 10.1034
      y = -22.8237
      z = 0
      irot = 1978
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1979
      theta1 = 90
      phi1 = -62.449
      theta2 = 96
      phi2 = 27.551
      theta3 = 6
      phi3 = 27.551
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 173
      chmoth = 'DC5'
      x = 11.545
      y = -22.1295
      z = 0
      irot = 1979
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1980
      theta1 = 90
      phi1 = -58.7755
      theta2 = 96
      phi2 = 31.2245
      theta3 = 6
      phi3 = 31.2245
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 174
      chmoth = 'DC5'
      x = 12.9391
      y = -21.3444
      z = 0
      irot = 1980
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1981
      theta1 = 90
      phi1 = -55.102
      theta2 = 96
      phi2 = 34.898
      theta3 = 6
      phi3 = 34.898
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 175
      chmoth = 'DC5'
      x = 14.28
      y = -20.4715
      z = 0
      irot = 1981
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1982
      theta1 = 90
      phi1 = -51.4286
      theta2 = 96
      phi2 = 38.5714
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 176
      chmoth = 'DC5'
      x = 15.5623
      y = -19.5145
      z = 0
      irot = 1982
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1983
      theta1 = 90
      phi1 = -47.7551
      theta2 = 96
      phi2 = 42.2449
      theta3 = 6
      phi3 = 42.2449
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 177
      chmoth = 'DC5'
      x = 16.7806
      y = -18.4773
      z = 0
      irot = 1983
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1984
      theta1 = 90
      phi1 = -44.0816
      theta2 = 96
      phi2 = 45.9184
      theta3 = 6
      phi3 = 45.9184
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 178
      chmoth = 'DC5'
      x = 17.93
      y = -17.3642
      z = 0
      irot = 1984
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1985
      theta1 = 90
      phi1 = -40.4082
      theta2 = 96
      phi2 = 49.5918
      theta3 = 6
      phi3 = 49.5918
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 179
      chmoth = 'DC5'
      x = 19.0057
      y = -16.1798
      z = 0
      irot = 1985
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1986
      theta1 = 90
      phi1 = -36.7347
      theta2 = 96
      phi2 = 53.2653
      theta3 = 6
      phi3 = 53.2653
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 180
      chmoth = 'DC5'
      x = 20.0033
      y = -14.9288
      z = 0
      irot = 1986
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1987
      theta1 = 90
      phi1 = -33.0612
      theta2 = 96
      phi2 = 56.9388
      theta3 = 6
      phi3 = 56.9388
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 181
      chmoth = 'DC5'
      x = 20.9187
      y = -13.6166
      z = 0
      irot = 1987
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1988
      theta1 = 90
      phi1 = -29.3878
      theta2 = 96
      phi2 = 60.6122
      theta3 = 6
      phi3 = 60.6122
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 182
      chmoth = 'DC5'
      x = 21.7481
      y = -12.2483
      z = 0
      irot = 1988
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1989
      theta1 = 90
      phi1 = -25.7143
      theta2 = 96
      phi2 = 64.2857
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 183
      chmoth = 'DC5'
      x = 22.4882
      y = -10.8297
      z = 0
      irot = 1989
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1990
      theta1 = 90
      phi1 = -22.0408
      theta2 = 96
      phi2 = 67.9592
      theta3 = 6
      phi3 = 67.9592
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 184
      chmoth = 'DC5'
      x = 23.1358
      y = -9.36666
      z = 0
      irot = 1990
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1991
      theta1 = 90
      phi1 = -18.3673
      theta2 = 96
      phi2 = 71.6327
      theta3 = 6
      phi3 = 71.6327
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 185
      chmoth = 'DC5'
      x = 23.6884
      y = -7.8651
      z = 0
      irot = 1991
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1992
      theta1 = 90
      phi1 = -14.6939
      theta2 = 96
      phi2 = 75.3061
      theta3 = 6
      phi3 = 75.3061
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 186
      chmoth = 'DC5'
      x = 24.1437
      y = -6.33122
      z = 0
      irot = 1992
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1993
      theta1 = 90
      phi1 = -11.0204
      theta2 = 96
      phi2 = 78.9796
      theta3 = 6
      phi3 = 78.9796
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 187
      chmoth = 'DC5'
      x = 24.4997
      y = -4.77132
      z = 0
      irot = 1993
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1994
      theta1 = 90
      phi1 = -7.34694
      theta2 = 96
      phi2 = 82.6531
      theta3 = 6
      phi3 = 82.6531
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 188
      chmoth = 'DC5'
      x = 24.7551
      y = -3.19181
      z = 0
      irot = 1994
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1995
      theta1 = 90
      phi1 = -3.67347
      theta2 = 96
      phi2 = 86.3265
      theta3 = 6
      phi3 = 86.3265
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 189
      chmoth = 'DC5'
      x = 24.9087
      y = -1.59919
      z = 0
      irot = 1995
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 190
      chmoth = 'DC5'
      x = 26.742
      y = 0
      z = 0
      irot = 1996
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1997
      theta1 = 90
      phi1 = 3.42857
      theta2 = 84
      phi2 = 93.4286
      theta3 = 6
      phi3 = -86.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 191
      chmoth = 'DC5'
      x = 26.6941
      y = 1.59928
      z = 0
      irot = 1997
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1998
      theta1 = 90
      phi1 = 6.85714
      theta2 = 84
      phi2 = 96.8571
      theta3 = 6
      phi3 = -83.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 192
      chmoth = 'DC5'
      x = 26.5507
      y = 3.19284
      z = 0
      irot = 1998
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 1999
      theta1 = 90
      phi1 = 10.2857
      theta2 = 84
      phi2 = 100.286
      theta3 = 6
      phi3 = -79.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 193
      chmoth = 'DC5'
      x = 26.3122
      y = 4.77497
      z = 0
      irot = 1999
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2000
      theta1 = 90
      phi1 = 13.7143
      theta2 = 84
      phi2 = 103.714
      theta3 = 6
      phi3 = -76.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 194
      chmoth = 'DC5'
      x = 25.9796
      y = 6.34
      z = 0
      irot = 2000
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2001
      theta1 = 90
      phi1 = 17.1429
      theta2 = 84
      phi2 = 107.143
      theta3 = 6
      phi3 = -72.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 195
      chmoth = 'DC5'
      x = 25.5539
      y = 7.88234
      z = 0
      irot = 2001
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2002
      theta1 = 90
      phi1 = 20.5714
      theta2 = 84
      phi2 = 110.571
      theta3 = 6
      phi3 = -69.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 196
      chmoth = 'DC5'
      x = 25.0368
      y = 9.39647
      z = 0
      irot = 2002
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2003
      theta1 = 90
      phi1 = 24
      theta2 = 84
      phi2 = 114
      theta3 = 6
      phi3 = -66
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 197
      chmoth = 'DC5'
      x = 24.43
      y = 10.877
      z = 0
      irot = 2003
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2004
      theta1 = 90
      phi1 = 27.4286
      theta2 = 84
      phi2 = 117.429
      theta3 = 6
      phi3 = -62.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 198
      chmoth = 'DC5'
      x = 23.7358
      y = 12.3185
      z = 0
      irot = 2004
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2005
      theta1 = 90
      phi1 = 30.8571
      theta2 = 84
      phi2 = 120.857
      theta3 = 6
      phi3 = -59.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 199
      chmoth = 'DC5'
      x = 22.9566
      y = 13.716
      z = 0
      irot = 2005
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2006
      theta1 = 90
      phi1 = 34.2857
      theta2 = 84
      phi2 = 124.286
      theta3 = 6
      phi3 = -55.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 200
      chmoth = 'DC5'
      x = 22.0953
      y = 15.0643
      z = 0
      irot = 2006
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2007
      theta1 = 90
      phi1 = 37.7143
      theta2 = 84
      phi2 = 127.714
      theta3 = 6
      phi3 = -52.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 201
      chmoth = 'DC5'
      x = 21.1548
      y = 16.3587
      z = 0
      irot = 2007
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2008
      theta1 = 90
      phi1 = 41.1429
      theta2 = 84
      phi2 = 131.143
      theta3 = 6
      phi3 = -48.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 202
      chmoth = 'DC5'
      x = 20.1386
      y = 17.5946
      z = 0
      irot = 2008
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2009
      theta1 = 90
      phi1 = 44.5714
      theta2 = 84
      phi2 = 134.571
      theta3 = 6
      phi3 = -45.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 203
      chmoth = 'DC5'
      x = 19.0504
      y = 18.7675
      z = 0
      irot = 2009
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2010
      theta1 = 90
      phi1 = 48
      theta2 = 84
      phi2 = 138
      theta3 = 6
      phi3 = -42
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 204
      chmoth = 'DC5'
      x = 17.8939
      y = 19.8732
      z = 0
      irot = 2010
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2011
      theta1 = 90
      phi1 = 51.4286
      theta2 = 84
      phi2 = 141.429
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 205
      chmoth = 'DC5'
      x = 16.6734
      y = 20.9077
      z = 0
      irot = 2011
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2012
      theta1 = 90
      phi1 = 54.8571
      theta2 = 84
      phi2 = 144.857
      theta3 = 6
      phi3 = -35.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 206
      chmoth = 'DC5'
      x = 15.3932
      y = 21.8675
      z = 0
      irot = 2012
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2013
      theta1 = 90
      phi1 = 58.2857
      theta2 = 84
      phi2 = 148.286
      theta3 = 6
      phi3 = -31.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 207
      chmoth = 'DC5'
      x = 14.0578
      y = 22.7489
      z = 0
      irot = 2013
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2014
      theta1 = 90
      phi1 = 61.7143
      theta2 = 84
      phi2 = 151.714
      theta3 = 6
      phi3 = -28.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 208
      chmoth = 'DC5'
      x = 12.6722
      y = 23.5489
      z = 0
      irot = 2014
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2015
      theta1 = 90
      phi1 = 65.1429
      theta2 = 84
      phi2 = 155.143
      theta3 = 6
      phi3 = -24.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 209
      chmoth = 'DC5'
      x = 11.2412
      y = 24.2646
      z = 0
      irot = 2015
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2016
      theta1 = 90
      phi1 = 68.5714
      theta2 = 84
      phi2 = 158.571
      theta3 = 6
      phi3 = -21.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 210
      chmoth = 'DC5'
      x = 9.76995
      y = 24.8934
      z = 0
      irot = 2016
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2017
      theta1 = 90
      phi1 = 72
      theta2 = 84
      phi2 = 162
      theta3 = 6
      phi3 = -18
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 211
      chmoth = 'DC5'
      x = 8.26373
      y = 25.4332
      z = 0
      irot = 2017
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2018
      theta1 = 90
      phi1 = 75.4286
      theta2 = 84
      phi2 = 165.429
      theta3 = 6
      phi3 = -14.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 212
      chmoth = 'DC5'
      x = 6.72793
      y = 25.8818
      z = 0
      irot = 2018
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2019
      theta1 = 90
      phi1 = 78.8571
      theta2 = 84
      phi2 = 168.857
      theta3 = 6
      phi3 = -11.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 213
      chmoth = 'DC5'
      x = 5.16805
      y = 26.2379
      z = 0
      irot = 2019
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2020
      theta1 = 90
      phi1 = 82.2857
      theta2 = 84
      phi2 = 172.286
      theta3 = 6
      phi3 = -7.71429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 214
      chmoth = 'DC5'
      x = 3.58967
      y = 26.5
      z = 0
      irot = 2020
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2021
      theta1 = 90
      phi1 = 85.7143
      theta2 = 84
      phi2 = 175.714
      theta3 = 6
      phi3 = -4.28571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 215
      chmoth = 'DC5'
      x = 1.99843
      y = 26.6672
      z = 0
      irot = 2021
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2022
      theta1 = 90
      phi1 = 89.1429
      theta2 = 84
      phi2 = 179.143
      theta3 = 6
      phi3 = -0.857143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 216
      chmoth = 'DC5'
      x = 0.400044
      y = 26.739
      z = 0
      irot = 2022
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2023
      theta1 = 90
      phi1 = 92.5714
      theta2 = 84
      phi2 = -177.429
      theta3 = 6
      phi3 = 2.57143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 217
      chmoth = 'DC5'
      x = -1.19978
      y = 26.7151
      z = 0
      irot = 2023
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2024
      theta1 = 90
      phi1 = 96
      theta2 = 84
      phi2 = -174
      theta3 = 6
      phi3 = 6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 218
      chmoth = 'DC5'
      x = -2.7953
      y = 26.5955
      z = 0
      irot = 2024
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2025
      theta1 = 90
      phi1 = 99.4286
      theta2 = 84
      phi2 = -170.571
      theta3 = 6
      phi3 = 9.42857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 219
      chmoth = 'DC5'
      x = -4.38082
      y = 26.3807
      z = 0
      irot = 2025
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2026
      theta1 = 90
      phi1 = 102.857
      theta2 = 84
      phi2 = -167.143
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 220
      chmoth = 'DC5'
      x = -5.95065
      y = 26.0715
      z = 0
      irot = 2026
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2027
      theta1 = 90
      phi1 = 106.286
      theta2 = 84
      phi2 = -163.714
      theta3 = 6
      phi3 = 16.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 221
      chmoth = 'DC5'
      x = -7.49919
      y = 25.669
      z = 0
      irot = 2027
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2028
      theta1 = 90
      phi1 = 109.714
      theta2 = 84
      phi2 = -160.286
      theta3 = 6
      phi3 = 19.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 222
      chmoth = 'DC5'
      x = -9.02088
      y = 25.1746
      z = 0
      irot = 2028
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2029
      theta1 = 90
      phi1 = 113.143
      theta2 = 84
      phi2 = -156.857
      theta3 = 6
      phi3 = 23.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 223
      chmoth = 'DC5'
      x = -10.5103
      y = 24.59
      z = 0
      irot = 2029
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2030
      theta1 = 90
      phi1 = 116.571
      theta2 = 84
      phi2 = -153.429
      theta3 = 6
      phi3 = 26.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 224
      chmoth = 'DC5'
      x = -11.962
      y = 23.9174
      z = 0
      irot = 2030
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2031
      theta1 = 90
      phi1 = 120
      theta2 = 84
      phi2 = -150
      theta3 = 6
      phi3 = 30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 225
      chmoth = 'DC5'
      x = -13.371
      y = 23.1593
      z = 0
      irot = 2031
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2032
      theta1 = 90
      phi1 = 123.429
      theta2 = 84
      phi2 = -146.571
      theta3 = 6
      phi3 = 33.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 226
      chmoth = 'DC5'
      x = -14.7321
      y = 22.3182
      z = 0
      irot = 2032
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2033
      theta1 = 90
      phi1 = 126.857
      theta2 = 84
      phi2 = -143.143
      theta3 = 6
      phi3 = 36.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 227
      chmoth = 'DC5'
      x = -16.0404
      y = 21.3972
      z = 0
      irot = 2033
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2034
      theta1 = 90
      phi1 = 130.286
      theta2 = 84
      phi2 = -139.714
      theta3 = 6
      phi3 = 40.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 228
      chmoth = 'DC5'
      x = -17.2914
      y = 20.3996
      z = 0
      irot = 2034
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2035
      theta1 = 90
      phi1 = 133.714
      theta2 = 84
      phi2 = -136.286
      theta3 = 6
      phi3 = 43.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 229
      chmoth = 'DC5'
      x = -18.4804
      y = 19.329
      z = 0
      irot = 2035
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2036
      theta1 = 90
      phi1 = 137.143
      theta2 = 84
      phi2 = -132.857
      theta3 = 6
      phi3 = 47.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 230
      chmoth = 'DC5'
      x = -19.6033
      y = 18.1892
      z = 0
      irot = 2036
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2037
      theta1 = 90
      phi1 = 140.571
      theta2 = 84
      phi2 = -129.429
      theta3 = 6
      phi3 = 50.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 231
      chmoth = 'DC5'
      x = -20.656
      y = 16.9843
      z = 0
      irot = 2037
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2038
      theta1 = 90
      phi1 = 144
      theta2 = 84
      phi2 = -126
      theta3 = 6
      phi3 = 54
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 232
      chmoth = 'DC5'
      x = -21.6347
      y = 15.7186
      z = 0
      irot = 2038
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2039
      theta1 = 90
      phi1 = 147.429
      theta2 = 84
      phi2 = -122.571
      theta3 = 6
      phi3 = 57.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 233
      chmoth = 'DC5'
      x = -22.536
      y = 14.3966
      z = 0
      irot = 2039
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2040
      theta1 = 90
      phi1 = 150.857
      theta2 = 84
      phi2 = -119.143
      theta3 = 6
      phi3 = 60.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 234
      chmoth = 'DC5'
      x = -23.3567
      y = 13.0231
      z = 0
      irot = 2040
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2041
      theta1 = 90
      phi1 = 154.286
      theta2 = 84
      phi2 = -115.714
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 235
      chmoth = 'DC5'
      x = -24.0937
      y = 11.6029
      z = 0
      irot = 2041
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2042
      theta1 = 90
      phi1 = 157.714
      theta2 = 84
      phi2 = -112.286
      theta3 = 6
      phi3 = 67.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 236
      chmoth = 'DC5'
      x = -24.7445
      y = 10.1412
      z = 0
      irot = 2042
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2043
      theta1 = 90
      phi1 = 161.143
      theta2 = 84
      phi2 = -108.857
      theta3 = 6
      phi3 = 71.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 237
      chmoth = 'DC5'
      x = -25.3067
      y = 8.64327
      z = 0
      irot = 2043
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2044
      theta1 = 90
      phi1 = 164.571
      theta2 = 84
      phi2 = -105.429
      theta3 = 6
      phi3 = 74.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 238
      chmoth = 'DC5'
      x = -25.7783
      y = 7.11436
      z = 0
      irot = 2044
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2045
      theta1 = 90
      phi1 = 168
      theta2 = 84
      phi2 = -102
      theta3 = 6
      phi3 = 78
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 239
      chmoth = 'DC5'
      x = -26.1576
      y = 5.55997
      z = 0
      irot = 2045
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2046
      theta1 = 90
      phi1 = 171.429
      theta2 = 84
      phi2 = -98.5714
      theta3 = 6
      phi3 = 81.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 240
      chmoth = 'DC5'
      x = -26.4433
      y = 3.98569
      z = 0
      irot = 2046
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2047
      theta1 = 90
      phi1 = 174.857
      theta2 = 84
      phi2 = -95.1429
      theta3 = 6
      phi3 = 84.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 241
      chmoth = 'DC5'
      x = -26.6343
      y = 2.39713
      z = 0
      irot = 2047
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2048
      theta1 = 90
      phi1 = 178.286
      theta2 = 84
      phi2 = -91.7143
      theta3 = 6
      phi3 = 88.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 242
      chmoth = 'DC5'
      x = -26.73
      y = 0.799999
      z = 0
      irot = 2048
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2049
      theta1 = 90
      phi1 = -178.286
      theta2 = 84
      phi2 = -88.2857
      theta3 = 6
      phi3 = 91.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 243
      chmoth = 'DC5'
      x = -26.73
      y = -0.799999
      z = 0
      irot = 2049
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2050
      theta1 = 90
      phi1 = -174.857
      theta2 = 84
      phi2 = -84.8571
      theta3 = 6
      phi3 = 95.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 244
      chmoth = 'DC5'
      x = -26.6343
      y = -2.39713
      z = 0
      irot = 2050
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2051
      theta1 = 90
      phi1 = -171.429
      theta2 = 84
      phi2 = -81.4286
      theta3 = 6
      phi3 = 98.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 245
      chmoth = 'DC5'
      x = -26.4433
      y = -3.98569
      z = 0
      irot = 2051
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2052
      theta1 = 90
      phi1 = -168
      theta2 = 84
      phi2 = -78
      theta3 = 6
      phi3 = 102
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 246
      chmoth = 'DC5'
      x = -26.1576
      y = -5.55997
      z = 0
      irot = 2052
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2053
      theta1 = 90
      phi1 = -164.571
      theta2 = 84
      phi2 = -74.5714
      theta3 = 6
      phi3 = 105.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 247
      chmoth = 'DC5'
      x = -25.7783
      y = -7.11436
      z = 0
      irot = 2053
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2054
      theta1 = 90
      phi1 = -161.143
      theta2 = 84
      phi2 = -71.1429
      theta3 = 6
      phi3 = 108.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 248
      chmoth = 'DC5'
      x = -25.3067
      y = -8.64327
      z = 0
      irot = 2054
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2055
      theta1 = 90
      phi1 = -157.714
      theta2 = 84
      phi2 = -67.7143
      theta3 = 6
      phi3 = 112.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 249
      chmoth = 'DC5'
      x = -24.7445
      y = -10.1412
      z = 0
      irot = 2055
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2056
      theta1 = 90
      phi1 = -154.286
      theta2 = 84
      phi2 = -64.2857
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 250
      chmoth = 'DC5'
      x = -24.0937
      y = -11.6029
      z = 0
      irot = 2056
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2057
      theta1 = 90
      phi1 = -150.857
      theta2 = 84
      phi2 = -60.8571
      theta3 = 6
      phi3 = 119.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 251
      chmoth = 'DC5'
      x = -23.3567
      y = -13.0231
      z = 0
      irot = 2057
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2058
      theta1 = 90
      phi1 = -147.429
      theta2 = 84
      phi2 = -57.4286
      theta3 = 6
      phi3 = 122.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 252
      chmoth = 'DC5'
      x = -22.536
      y = -14.3966
      z = 0
      irot = 2058
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2059
      theta1 = 90
      phi1 = -144
      theta2 = 84
      phi2 = -54
      theta3 = 6
      phi3 = 126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 253
      chmoth = 'DC5'
      x = -21.6347
      y = -15.7186
      z = 0
      irot = 2059
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2060
      theta1 = 90
      phi1 = -140.571
      theta2 = 84
      phi2 = -50.5714
      theta3 = 6
      phi3 = 129.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 254
      chmoth = 'DC5'
      x = -20.656
      y = -16.9843
      z = 0
      irot = 2060
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2061
      theta1 = 90
      phi1 = -137.143
      theta2 = 84
      phi2 = -47.1429
      theta3 = 6
      phi3 = 132.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 255
      chmoth = 'DC5'
      x = -19.6033
      y = -18.1892
      z = 0
      irot = 2061
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2062
      theta1 = 90
      phi1 = -133.714
      theta2 = 84
      phi2 = -43.7143
      theta3 = 6
      phi3 = 136.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 256
      chmoth = 'DC5'
      x = -18.4804
      y = -19.329
      z = 0
      irot = 2062
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2063
      theta1 = 90
      phi1 = -130.286
      theta2 = 84
      phi2 = -40.2857
      theta3 = 6
      phi3 = 139.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 257
      chmoth = 'DC5'
      x = -17.2914
      y = -20.3996
      z = 0
      irot = 2063
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2064
      theta1 = 90
      phi1 = -126.857
      theta2 = 84
      phi2 = -36.8571
      theta3 = 6
      phi3 = 143.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 258
      chmoth = 'DC5'
      x = -16.0404
      y = -21.3972
      z = 0
      irot = 2064
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2065
      theta1 = 90
      phi1 = -123.429
      theta2 = 84
      phi2 = -33.4286
      theta3 = 6
      phi3 = 146.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 259
      chmoth = 'DC5'
      x = -14.7321
      y = -22.3182
      z = 0
      irot = 2065
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2066
      theta1 = 90
      phi1 = -120
      theta2 = 84
      phi2 = -30
      theta3 = 6
      phi3 = 150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 260
      chmoth = 'DC5'
      x = -13.371
      y = -23.1593
      z = 0
      irot = 2066
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2067
      theta1 = 90
      phi1 = -116.571
      theta2 = 84
      phi2 = -26.5714
      theta3 = 6
      phi3 = 153.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 261
      chmoth = 'DC5'
      x = -11.962
      y = -23.9174
      z = 0
      irot = 2067
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2068
      theta1 = 90
      phi1 = -113.143
      theta2 = 84
      phi2 = -23.1429
      theta3 = 6
      phi3 = 156.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 262
      chmoth = 'DC5'
      x = -10.5103
      y = -24.59
      z = 0
      irot = 2068
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2069
      theta1 = 90
      phi1 = -109.714
      theta2 = 84
      phi2 = -19.7143
      theta3 = 6
      phi3 = 160.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 263
      chmoth = 'DC5'
      x = -9.02088
      y = -25.1746
      z = 0
      irot = 2069
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2070
      theta1 = 90
      phi1 = -106.286
      theta2 = 84
      phi2 = -16.2857
      theta3 = 6
      phi3 = 163.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 264
      chmoth = 'DC5'
      x = -7.49919
      y = -25.669
      z = 0
      irot = 2070
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2071
      theta1 = 90
      phi1 = -102.857
      theta2 = 84
      phi2 = -12.8571
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 265
      chmoth = 'DC5'
      x = -5.95065
      y = -26.0715
      z = 0
      irot = 2071
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2072
      theta1 = 90
      phi1 = -99.4286
      theta2 = 84
      phi2 = -9.42857
      theta3 = 6
      phi3 = 170.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 266
      chmoth = 'DC5'
      x = -4.38082
      y = -26.3807
      z = 0
      irot = 2072
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2073
      theta1 = 90
      phi1 = -96
      theta2 = 84
      phi2 = -6
      theta3 = 6
      phi3 = 174
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 267
      chmoth = 'DC5'
      x = -2.7953
      y = -26.5955
      z = 0
      irot = 2073
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2074
      theta1 = 90
      phi1 = -92.5714
      theta2 = 84
      phi2 = -2.57143
      theta3 = 6
      phi3 = 177.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 268
      chmoth = 'DC5'
      x = -1.19978
      y = -26.7151
      z = 0
      irot = 2074
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2075
      theta1 = 90
      phi1 = -89.1429
      theta2 = 84
      phi2 = 0.857143
      theta3 = 6
      phi3 = -179.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 269
      chmoth = 'DC5'
      x = 0.400044
      y = -26.739
      z = 0
      irot = 2075
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2076
      theta1 = 90
      phi1 = -85.7143
      theta2 = 84
      phi2 = 4.28571
      theta3 = 6
      phi3 = -175.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 270
      chmoth = 'DC5'
      x = 1.99843
      y = -26.6672
      z = 0
      irot = 2076
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2077
      theta1 = 90
      phi1 = -82.2857
      theta2 = 84
      phi2 = 7.71429
      theta3 = 6
      phi3 = -172.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 271
      chmoth = 'DC5'
      x = 3.58967
      y = -26.5
      z = 0
      irot = 2077
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2078
      theta1 = 90
      phi1 = -78.8571
      theta2 = 84
      phi2 = 11.1429
      theta3 = 6
      phi3 = -168.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 272
      chmoth = 'DC5'
      x = 5.16805
      y = -26.2379
      z = 0
      irot = 2078
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2079
      theta1 = 90
      phi1 = -75.4286
      theta2 = 84
      phi2 = 14.5714
      theta3 = 6
      phi3 = -165.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 273
      chmoth = 'DC5'
      x = 6.72793
      y = -25.8818
      z = 0
      irot = 2079
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2080
      theta1 = 90
      phi1 = -72
      theta2 = 84
      phi2 = 18
      theta3 = 6
      phi3 = -162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 274
      chmoth = 'DC5'
      x = 8.26373
      y = -25.4332
      z = 0
      irot = 2080
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2081
      theta1 = 90
      phi1 = -68.5714
      theta2 = 84
      phi2 = 21.4286
      theta3 = 6
      phi3 = -158.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 275
      chmoth = 'DC5'
      x = 9.76995
      y = -24.8934
      z = 0
      irot = 2081
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2082
      theta1 = 90
      phi1 = -65.1429
      theta2 = 84
      phi2 = 24.8571
      theta3 = 6
      phi3 = -155.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 276
      chmoth = 'DC5'
      x = 11.2412
      y = -24.2646
      z = 0
      irot = 2082
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2083
      theta1 = 90
      phi1 = -61.7143
      theta2 = 84
      phi2 = 28.2857
      theta3 = 6
      phi3 = -151.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 277
      chmoth = 'DC5'
      x = 12.6722
      y = -23.5489
      z = 0
      irot = 2083
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2084
      theta1 = 90
      phi1 = -58.2857
      theta2 = 84
      phi2 = 31.7143
      theta3 = 6
      phi3 = -148.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 278
      chmoth = 'DC5'
      x = 14.0578
      y = -22.7489
      z = 0
      irot = 2084
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2085
      theta1 = 90
      phi1 = -54.8571
      theta2 = 84
      phi2 = 35.1429
      theta3 = 6
      phi3 = -144.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 279
      chmoth = 'DC5'
      x = 15.3932
      y = -21.8675
      z = 0
      irot = 2085
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2086
      theta1 = 90
      phi1 = -51.4286
      theta2 = 84
      phi2 = 38.5714
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 280
      chmoth = 'DC5'
      x = 16.6734
      y = -20.9077
      z = 0
      irot = 2086
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2087
      theta1 = 90
      phi1 = -48
      theta2 = 84
      phi2 = 42
      theta3 = 6
      phi3 = -138
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 281
      chmoth = 'DC5'
      x = 17.8939
      y = -19.8732
      z = 0
      irot = 2087
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2088
      theta1 = 90
      phi1 = -44.5714
      theta2 = 84
      phi2 = 45.4286
      theta3 = 6
      phi3 = -134.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 282
      chmoth = 'DC5'
      x = 19.0504
      y = -18.7675
      z = 0
      irot = 2088
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2089
      theta1 = 90
      phi1 = -41.1429
      theta2 = 84
      phi2 = 48.8571
      theta3 = 6
      phi3 = -131.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 283
      chmoth = 'DC5'
      x = 20.1386
      y = -17.5946
      z = 0
      irot = 2089
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2090
      theta1 = 90
      phi1 = -37.7143
      theta2 = 84
      phi2 = 52.2857
      theta3 = 6
      phi3 = -127.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 284
      chmoth = 'DC5'
      x = 21.1548
      y = -16.3587
      z = 0
      irot = 2090
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2091
      theta1 = 90
      phi1 = -34.2857
      theta2 = 84
      phi2 = 55.7143
      theta3 = 6
      phi3 = -124.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 285
      chmoth = 'DC5'
      x = 22.0953
      y = -15.0643
      z = 0
      irot = 2091
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2092
      theta1 = 90
      phi1 = -30.8571
      theta2 = 84
      phi2 = 59.1429
      theta3 = 6
      phi3 = -120.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 286
      chmoth = 'DC5'
      x = 22.9566
      y = -13.716
      z = 0
      irot = 2092
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2093
      theta1 = 90
      phi1 = -27.4286
      theta2 = 84
      phi2 = 62.5714
      theta3 = 6
      phi3 = -117.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 287
      chmoth = 'DC5'
      x = 23.7358
      y = -12.3185
      z = 0
      irot = 2093
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2094
      theta1 = 90
      phi1 = -24
      theta2 = 84
      phi2 = 66
      theta3 = 6
      phi3 = -114
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 288
      chmoth = 'DC5'
      x = 24.43
      y = -10.877
      z = 0
      irot = 2094
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2095
      theta1 = 90
      phi1 = -20.5714
      theta2 = 84
      phi2 = 69.4286
      theta3 = 6
      phi3 = -110.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 289
      chmoth = 'DC5'
      x = 25.0368
      y = -9.39647
      z = 0
      irot = 2095
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2096
      theta1 = 90
      phi1 = -17.1429
      theta2 = 84
      phi2 = 72.8571
      theta3 = 6
      phi3 = -107.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 290
      chmoth = 'DC5'
      x = 25.5539
      y = -7.88234
      z = 0
      irot = 2096
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2097
      theta1 = 90
      phi1 = -13.7143
      theta2 = 84
      phi2 = 76.2857
      theta3 = 6
      phi3 = -103.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 291
      chmoth = 'DC5'
      x = 25.9796
      y = -6.34
      z = 0
      irot = 2097
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2098
      theta1 = 90
      phi1 = -10.2857
      theta2 = 84
      phi2 = 79.7143
      theta3 = 6
      phi3 = -100.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 292
      chmoth = 'DC5'
      x = 26.3122
      y = -4.77497
      z = 0
      irot = 2098
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2099
      theta1 = 90
      phi1 = -6.85714
      theta2 = 84
      phi2 = 83.1429
      theta3 = 6
      phi3 = -96.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 293
      chmoth = 'DC5'
      x = 26.5507
      y = -3.19284
      z = 0
      irot = 2099
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2100
      theta1 = 90
      phi1 = -3.42857
      theta2 = 84
      phi2 = 86.5714
      theta3 = 6
      phi3 = -93.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 294
      chmoth = 'DC5'
      x = 26.6941
      y = -1.59928
      z = 0
      irot = 2100
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 295
      chmoth = 'DC5'
      x = 28.524
      y = 0
      z = 0
      irot = 2101
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2102
      theta1 = 90
      phi1 = 3.21429
      theta2 = 84
      phi2 = 93.2143
      theta3 = 6
      phi3 = -86.7857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 296
      chmoth = 'DC5'
      x = 28.4791
      y = 1.59935
      z = 0
      irot = 2102
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2103
      theta1 = 90
      phi1 = 6.42857
      theta2 = 84
      phi2 = 96.4286
      theta3 = 6
      phi3 = -83.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 297
      chmoth = 'DC5'
      x = 28.3446
      y = 3.19367
      z = 0
      irot = 2103
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2104
      theta1 = 90
      phi1 = 9.64286
      theta2 = 84
      phi2 = 99.6429
      theta3 = 6
      phi3 = -80.3571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 298
      chmoth = 'DC5'
      x = 28.121
      y = 4.77795
      z = 0
      irot = 2104
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2105
      theta1 = 90
      phi1 = 12.8571
      theta2 = 84
      phi2 = 102.857
      theta3 = 6
      phi3 = -77.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 299
      chmoth = 'DC5'
      x = 27.8088
      y = 6.34719
      z = 0
      irot = 2105
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2106
      theta1 = 90
      phi1 = 16.0714
      theta2 = 84
      phi2 = 106.071
      theta3 = 6
      phi3 = -73.9286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 300
      chmoth = 'DC5'
      x = 27.4092
      y = 7.89646
      z = 0
      irot = 2106
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2107
      theta1 = 90
      phi1 = 19.2857
      theta2 = 84
      phi2 = 109.286
      theta3 = 6
      phi3 = -70.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 301
      chmoth = 'DC5'
      x = 26.9233
      y = 9.42088
      z = 0
      irot = 2107
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 302
      chmoth = 'DC5'
      x = 26.3527
      y = 10.9157
      z = 0
      irot = 2108
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2109
      theta1 = 90
      phi1 = 25.7143
      theta2 = 84
      phi2 = 115.714
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 303
      chmoth = 'DC5'
      x = 25.6992
      y = 12.3761
      z = 0
      irot = 2109
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2110
      theta1 = 90
      phi1 = 28.9286
      theta2 = 84
      phi2 = 118.929
      theta3 = 6
      phi3 = -61.0714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 304
      chmoth = 'DC5'
      x = 24.9649
      y = 13.7976
      z = 0
      irot = 2110
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2111
      theta1 = 90
      phi1 = 32.1429
      theta2 = 84
      phi2 = 122.143
      theta3 = 6
      phi3 = -57.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 305
      chmoth = 'DC5'
      x = 24.152
      y = 15.1757
      z = 0
      irot = 2111
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2112
      theta1 = 90
      phi1 = 35.3571
      theta2 = 84
      phi2 = 125.357
      theta3 = 6
      phi3 = -54.6429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 306
      chmoth = 'DC5'
      x = 23.2631
      y = 16.506
      z = 0
      irot = 2112
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2113
      theta1 = 90
      phi1 = 38.5714
      theta2 = 84
      phi2 = 128.571
      theta3 = 6
      phi3 = -51.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 307
      chmoth = 'DC5'
      x = 22.301
      y = 17.7844
      z = 0
      irot = 2113
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2114
      theta1 = 90
      phi1 = 41.7857
      theta2 = 84
      phi2 = 131.786
      theta3 = 6
      phi3 = -48.2143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 308
      chmoth = 'DC5'
      x = 21.2687
      y = 19.0069
      z = 0
      irot = 2114
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 309
      chmoth = 'DC5'
      x = 20.1695
      y = 20.1695
      z = 0
      irot = 2115
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2116
      theta1 = 90
      phi1 = 48.2143
      theta2 = 84
      phi2 = 138.214
      theta3 = 6
      phi3 = -41.7857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 310
      chmoth = 'DC5'
      x = 19.0069
      y = 21.2687
      z = 0
      irot = 2116
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2117
      theta1 = 90
      phi1 = 51.4286
      theta2 = 84
      phi2 = 141.429
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 311
      chmoth = 'DC5'
      x = 17.7844
      y = 22.301
      z = 0
      irot = 2117
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2118
      theta1 = 90
      phi1 = 54.6429
      theta2 = 84
      phi2 = 144.643
      theta3 = 6
      phi3 = -35.3571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 312
      chmoth = 'DC5'
      x = 16.506
      y = 23.2631
      z = 0
      irot = 2118
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2119
      theta1 = 90
      phi1 = 57.8571
      theta2 = 84
      phi2 = 147.857
      theta3 = 6
      phi3 = -32.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 313
      chmoth = 'DC5'
      x = 15.1757
      y = 24.152
      z = 0
      irot = 2119
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2120
      theta1 = 90
      phi1 = 61.0714
      theta2 = 84
      phi2 = 151.071
      theta3 = 6
      phi3 = -28.9286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 314
      chmoth = 'DC5'
      x = 13.7976
      y = 24.9649
      z = 0
      irot = 2120
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2121
      theta1 = 90
      phi1 = 64.2857
      theta2 = 84
      phi2 = 154.286
      theta3 = 6
      phi3 = -25.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 315
      chmoth = 'DC5'
      x = 12.3761
      y = 25.6992
      z = 0
      irot = 2121
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 316
      chmoth = 'DC5'
      x = 10.9157
      y = 26.3527
      z = 0
      irot = 2122
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2123
      theta1 = 90
      phi1 = 70.7143
      theta2 = 84
      phi2 = 160.714
      theta3 = 6
      phi3 = -19.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 317
      chmoth = 'DC5'
      x = 9.42088
      y = 26.9233
      z = 0
      irot = 2123
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2124
      theta1 = 90
      phi1 = 73.9286
      theta2 = 84
      phi2 = 163.929
      theta3 = 6
      phi3 = -16.0714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 318
      chmoth = 'DC5'
      x = 7.89646
      y = 27.4092
      z = 0
      irot = 2124
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2125
      theta1 = 90
      phi1 = 77.1429
      theta2 = 84
      phi2 = 167.143
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 319
      chmoth = 'DC5'
      x = 6.34719
      y = 27.8088
      z = 0
      irot = 2125
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2126
      theta1 = 90
      phi1 = 80.3571
      theta2 = 84
      phi2 = 170.357
      theta3 = 6
      phi3 = -9.64286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 320
      chmoth = 'DC5'
      x = 4.77795
      y = 28.121
      z = 0
      irot = 2126
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2127
      theta1 = 90
      phi1 = 83.5714
      theta2 = 84
      phi2 = 173.571
      theta3 = 6
      phi3 = -6.42857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 321
      chmoth = 'DC5'
      x = 3.19367
      y = 28.3446
      z = 0
      irot = 2127
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2128
      theta1 = 90
      phi1 = 86.7857
      theta2 = 84
      phi2 = 176.786
      theta3 = 6
      phi3 = -3.21429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 322
      chmoth = 'DC5'
      x = 1.59935
      y = 28.4791
      z = 0
      irot = 2128
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2129
      theta1 = 90
      phi1 = 90
      theta2 = 84
      phi2 = 180
      theta3 = 6
      phi3 = -3.50824e-15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 323
      chmoth = 'DC5'
      x = 1.74653e-15
      y = 28.524
      z = 0
      irot = 2129
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2130
      theta1 = 90
      phi1 = 93.2143
      theta2 = 84
      phi2 = -176.786
      theta3 = 6
      phi3 = 3.21429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 324
      chmoth = 'DC5'
      x = -1.59935
      y = 28.4791
      z = 0
      irot = 2130
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2131
      theta1 = 90
      phi1 = 96.4286
      theta2 = 84
      phi2 = -173.571
      theta3 = 6
      phi3 = 6.42857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 325
      chmoth = 'DC5'
      x = -3.19367
      y = 28.3446
      z = 0
      irot = 2131
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2132
      theta1 = 90
      phi1 = 99.6429
      theta2 = 84
      phi2 = -170.357
      theta3 = 6
      phi3 = 9.64286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 326
      chmoth = 'DC5'
      x = -4.77795
      y = 28.121
      z = 0
      irot = 2132
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2133
      theta1 = 90
      phi1 = 102.857
      theta2 = 84
      phi2 = -167.143
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 327
      chmoth = 'DC5'
      x = -6.34719
      y = 27.8088
      z = 0
      irot = 2133
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2134
      theta1 = 90
      phi1 = 106.071
      theta2 = 84
      phi2 = -163.929
      theta3 = 6
      phi3 = 16.0714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 328
      chmoth = 'DC5'
      x = -7.89646
      y = 27.4092
      z = 0
      irot = 2134
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2135
      theta1 = 90
      phi1 = 109.286
      theta2 = 84
      phi2 = -160.714
      theta3 = 6
      phi3 = 19.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 329
      chmoth = 'DC5'
      x = -9.42088
      y = 26.9233
      z = 0
      irot = 2135
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 330
      chmoth = 'DC5'
      x = -10.9157
      y = 26.3527
      z = 0
      irot = 2136
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2137
      theta1 = 90
      phi1 = 115.714
      theta2 = 84
      phi2 = -154.286
      theta3 = 6
      phi3 = 25.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 331
      chmoth = 'DC5'
      x = -12.3761
      y = 25.6992
      z = 0
      irot = 2137
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2138
      theta1 = 90
      phi1 = 118.929
      theta2 = 84
      phi2 = -151.071
      theta3 = 6
      phi3 = 28.9286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 332
      chmoth = 'DC5'
      x = -13.7976
      y = 24.9649
      z = 0
      irot = 2138
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2139
      theta1 = 90
      phi1 = 122.143
      theta2 = 84
      phi2 = -147.857
      theta3 = 6
      phi3 = 32.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 333
      chmoth = 'DC5'
      x = -15.1757
      y = 24.152
      z = 0
      irot = 2139
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2140
      theta1 = 90
      phi1 = 125.357
      theta2 = 84
      phi2 = -144.643
      theta3 = 6
      phi3 = 35.3571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 334
      chmoth = 'DC5'
      x = -16.506
      y = 23.2631
      z = 0
      irot = 2140
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2141
      theta1 = 90
      phi1 = 128.571
      theta2 = 84
      phi2 = -141.429
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 335
      chmoth = 'DC5'
      x = -17.7844
      y = 22.301
      z = 0
      irot = 2141
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2142
      theta1 = 90
      phi1 = 131.786
      theta2 = 84
      phi2 = -138.214
      theta3 = 6
      phi3 = 41.7857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 336
      chmoth = 'DC5'
      x = -19.0069
      y = 21.2687
      z = 0
      irot = 2142
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 337
      chmoth = 'DC5'
      x = -20.1695
      y = 20.1695
      z = 0
      irot = 2143
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2144
      theta1 = 90
      phi1 = 138.214
      theta2 = 84
      phi2 = -131.786
      theta3 = 6
      phi3 = 48.2143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 338
      chmoth = 'DC5'
      x = -21.2687
      y = 19.0069
      z = 0
      irot = 2144
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2145
      theta1 = 90
      phi1 = 141.429
      theta2 = 84
      phi2 = -128.571
      theta3 = 6
      phi3 = 51.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 339
      chmoth = 'DC5'
      x = -22.301
      y = 17.7844
      z = 0
      irot = 2145
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2146
      theta1 = 90
      phi1 = 144.643
      theta2 = 84
      phi2 = -125.357
      theta3 = 6
      phi3 = 54.6429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 340
      chmoth = 'DC5'
      x = -23.2631
      y = 16.506
      z = 0
      irot = 2146
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2147
      theta1 = 90
      phi1 = 147.857
      theta2 = 84
      phi2 = -122.143
      theta3 = 6
      phi3 = 57.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 341
      chmoth = 'DC5'
      x = -24.152
      y = 15.1757
      z = 0
      irot = 2147
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2148
      theta1 = 90
      phi1 = 151.071
      theta2 = 84
      phi2 = -118.929
      theta3 = 6
      phi3 = 61.0714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 342
      chmoth = 'DC5'
      x = -24.9649
      y = 13.7976
      z = 0
      irot = 2148
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2149
      theta1 = 90
      phi1 = 154.286
      theta2 = 84
      phi2 = -115.714
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 343
      chmoth = 'DC5'
      x = -25.6992
      y = 12.3761
      z = 0
      irot = 2149
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 344
      chmoth = 'DC5'
      x = -26.3527
      y = 10.9157
      z = 0
      irot = 2150
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2151
      theta1 = 90
      phi1 = 160.714
      theta2 = 84
      phi2 = -109.286
      theta3 = 6
      phi3 = 70.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 345
      chmoth = 'DC5'
      x = -26.9233
      y = 9.42088
      z = 0
      irot = 2151
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2152
      theta1 = 90
      phi1 = 163.929
      theta2 = 84
      phi2 = -106.071
      theta3 = 6
      phi3 = 73.9286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 346
      chmoth = 'DC5'
      x = -27.4092
      y = 7.89646
      z = 0
      irot = 2152
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2153
      theta1 = 90
      phi1 = 167.143
      theta2 = 84
      phi2 = -102.857
      theta3 = 6
      phi3 = 77.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 347
      chmoth = 'DC5'
      x = -27.8088
      y = 6.34719
      z = 0
      irot = 2153
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2154
      theta1 = 90
      phi1 = 170.357
      theta2 = 84
      phi2 = -99.6429
      theta3 = 6
      phi3 = 80.3571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 348
      chmoth = 'DC5'
      x = -28.121
      y = 4.77795
      z = 0
      irot = 2154
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2155
      theta1 = 90
      phi1 = 173.571
      theta2 = 84
      phi2 = -96.4286
      theta3 = 6
      phi3 = 83.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 349
      chmoth = 'DC5'
      x = -28.3446
      y = 3.19367
      z = 0
      irot = 2155
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2156
      theta1 = 90
      phi1 = 176.786
      theta2 = 84
      phi2 = -93.2143
      theta3 = 6
      phi3 = 86.7857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 350
      chmoth = 'DC5'
      x = -28.4791
      y = 1.59935
      z = 0
      irot = 2156
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 351
      chmoth = 'DC5'
      x = -28.524
      y = 3.49307e-15
      z = 0
      irot = 2157
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2158
      theta1 = 90
      phi1 = -176.786
      theta2 = 84
      phi2 = -86.7857
      theta3 = 6
      phi3 = 93.2143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 352
      chmoth = 'DC5'
      x = -28.4791
      y = -1.59935
      z = 0
      irot = 2158
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2159
      theta1 = 90
      phi1 = -173.571
      theta2 = 84
      phi2 = -83.5714
      theta3 = 6
      phi3 = 96.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 353
      chmoth = 'DC5'
      x = -28.3446
      y = -3.19367
      z = 0
      irot = 2159
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2160
      theta1 = 90
      phi1 = -170.357
      theta2 = 84
      phi2 = -80.3571
      theta3 = 6
      phi3 = 99.6429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 354
      chmoth = 'DC5'
      x = -28.121
      y = -4.77795
      z = 0
      irot = 2160
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2161
      theta1 = 90
      phi1 = -167.143
      theta2 = 84
      phi2 = -77.1429
      theta3 = 6
      phi3 = 102.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 355
      chmoth = 'DC5'
      x = -27.8088
      y = -6.34719
      z = 0
      irot = 2161
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2162
      theta1 = 90
      phi1 = -163.929
      theta2 = 84
      phi2 = -73.9286
      theta3 = 6
      phi3 = 106.071
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 356
      chmoth = 'DC5'
      x = -27.4092
      y = -7.89646
      z = 0
      irot = 2162
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2163
      theta1 = 90
      phi1 = -160.714
      theta2 = 84
      phi2 = -70.7143
      theta3 = 6
      phi3 = 109.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 357
      chmoth = 'DC5'
      x = -26.9233
      y = -9.42088
      z = 0
      irot = 2163
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 358
      chmoth = 'DC5'
      x = -26.3527
      y = -10.9157
      z = 0
      irot = 2164
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2165
      theta1 = 90
      phi1 = -154.286
      theta2 = 84
      phi2 = -64.2857
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 359
      chmoth = 'DC5'
      x = -25.6992
      y = -12.3761
      z = 0
      irot = 2165
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2166
      theta1 = 90
      phi1 = -151.071
      theta2 = 84
      phi2 = -61.0714
      theta3 = 6
      phi3 = 118.929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 360
      chmoth = 'DC5'
      x = -24.9649
      y = -13.7976
      z = 0
      irot = 2166
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2167
      theta1 = 90
      phi1 = -147.857
      theta2 = 84
      phi2 = -57.8571
      theta3 = 6
      phi3 = 122.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 361
      chmoth = 'DC5'
      x = -24.152
      y = -15.1757
      z = 0
      irot = 2167
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2168
      theta1 = 90
      phi1 = -144.643
      theta2 = 84
      phi2 = -54.6429
      theta3 = 6
      phi3 = 125.357
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 362
      chmoth = 'DC5'
      x = -23.2631
      y = -16.506
      z = 0
      irot = 2168
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2169
      theta1 = 90
      phi1 = -141.429
      theta2 = 84
      phi2 = -51.4286
      theta3 = 6
      phi3 = 128.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 363
      chmoth = 'DC5'
      x = -22.301
      y = -17.7844
      z = 0
      irot = 2169
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2170
      theta1 = 90
      phi1 = -138.214
      theta2 = 84
      phi2 = -48.2143
      theta3 = 6
      phi3 = 131.786
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 364
      chmoth = 'DC5'
      x = -21.2687
      y = -19.0069
      z = 0
      irot = 2170
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 365
      chmoth = 'DC5'
      x = -20.1695
      y = -20.1695
      z = 0
      irot = 2171
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2172
      theta1 = 90
      phi1 = -131.786
      theta2 = 84
      phi2 = -41.7857
      theta3 = 6
      phi3 = 138.214
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 366
      chmoth = 'DC5'
      x = -19.0069
      y = -21.2687
      z = 0
      irot = 2172
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2173
      theta1 = 90
      phi1 = -128.571
      theta2 = 84
      phi2 = -38.5714
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 367
      chmoth = 'DC5'
      x = -17.7844
      y = -22.301
      z = 0
      irot = 2173
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2174
      theta1 = 90
      phi1 = -125.357
      theta2 = 84
      phi2 = -35.3571
      theta3 = 6
      phi3 = 144.643
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 368
      chmoth = 'DC5'
      x = -16.506
      y = -23.2631
      z = 0
      irot = 2174
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2175
      theta1 = 90
      phi1 = -122.143
      theta2 = 84
      phi2 = -32.1429
      theta3 = 6
      phi3 = 147.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 369
      chmoth = 'DC5'
      x = -15.1757
      y = -24.152
      z = 0
      irot = 2175
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2176
      theta1 = 90
      phi1 = -118.929
      theta2 = 84
      phi2 = -28.9286
      theta3 = 6
      phi3 = 151.071
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 370
      chmoth = 'DC5'
      x = -13.7976
      y = -24.9649
      z = 0
      irot = 2176
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2177
      theta1 = 90
      phi1 = -115.714
      theta2 = 84
      phi2 = -25.7143
      theta3 = 6
      phi3 = 154.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 371
      chmoth = 'DC5'
      x = -12.3761
      y = -25.6992
      z = 0
      irot = 2177
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 372
      chmoth = 'DC5'
      x = -10.9157
      y = -26.3527
      z = 0
      irot = 2178
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2179
      theta1 = 90
      phi1 = -109.286
      theta2 = 84
      phi2 = -19.2857
      theta3 = 6
      phi3 = 160.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 373
      chmoth = 'DC5'
      x = -9.42088
      y = -26.9233
      z = 0
      irot = 2179
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2180
      theta1 = 90
      phi1 = -106.071
      theta2 = 84
      phi2 = -16.0714
      theta3 = 6
      phi3 = 163.929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 374
      chmoth = 'DC5'
      x = -7.89646
      y = -27.4092
      z = 0
      irot = 2180
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2181
      theta1 = 90
      phi1 = -102.857
      theta2 = 84
      phi2 = -12.8571
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 375
      chmoth = 'DC5'
      x = -6.34719
      y = -27.8088
      z = 0
      irot = 2181
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2182
      theta1 = 90
      phi1 = -99.6429
      theta2 = 84
      phi2 = -9.64286
      theta3 = 6
      phi3 = 170.357
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 376
      chmoth = 'DC5'
      x = -4.77795
      y = -28.121
      z = 0
      irot = 2182
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2183
      theta1 = 90
      phi1 = -96.4286
      theta2 = 84
      phi2 = -6.42857
      theta3 = 6
      phi3 = 173.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 377
      chmoth = 'DC5'
      x = -3.19367
      y = -28.3446
      z = 0
      irot = 2183
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2184
      theta1 = 90
      phi1 = -93.2143
      theta2 = 84
      phi2 = -3.21429
      theta3 = 6
      phi3 = 176.786
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 378
      chmoth = 'DC5'
      x = -1.59935
      y = -28.4791
      z = 0
      irot = 2184
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2185
      theta1 = 90
      phi1 = -90
      theta2 = 84
      phi2 = -3.15858e-13
      theta3 = 6
      phi3 = 180
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 379
      chmoth = 'DC5'
      x = -5.2396e-15
      y = -28.524
      z = 0
      irot = 2185
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2186
      theta1 = 90
      phi1 = -86.7857
      theta2 = 84
      phi2 = 3.21429
      theta3 = 6
      phi3 = -176.786
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 380
      chmoth = 'DC5'
      x = 1.59935
      y = -28.4791
      z = 0
      irot = 2186
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2187
      theta1 = 90
      phi1 = -83.5714
      theta2 = 84
      phi2 = 6.42857
      theta3 = 6
      phi3 = -173.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 381
      chmoth = 'DC5'
      x = 3.19367
      y = -28.3446
      z = 0
      irot = 2187
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2188
      theta1 = 90
      phi1 = -80.3571
      theta2 = 84
      phi2 = 9.64286
      theta3 = 6
      phi3 = -170.357
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 382
      chmoth = 'DC5'
      x = 4.77795
      y = -28.121
      z = 0
      irot = 2188
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2189
      theta1 = 90
      phi1 = -77.1429
      theta2 = 84
      phi2 = 12.8571
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 383
      chmoth = 'DC5'
      x = 6.34719
      y = -27.8088
      z = 0
      irot = 2189
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2190
      theta1 = 90
      phi1 = -73.9286
      theta2 = 84
      phi2 = 16.0714
      theta3 = 6
      phi3 = -163.929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 384
      chmoth = 'DC5'
      x = 7.89646
      y = -27.4092
      z = 0
      irot = 2190
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2191
      theta1 = 90
      phi1 = -70.7143
      theta2 = 84
      phi2 = 19.2857
      theta3 = 6
      phi3 = -160.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 385
      chmoth = 'DC5'
      x = 9.42088
      y = -26.9233
      z = 0
      irot = 2191
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 386
      chmoth = 'DC5'
      x = 10.9157
      y = -26.3527
      z = 0
      irot = 2192
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2193
      theta1 = 90
      phi1 = -64.2857
      theta2 = 84
      phi2 = 25.7143
      theta3 = 6
      phi3 = -154.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 387
      chmoth = 'DC5'
      x = 12.3761
      y = -25.6992
      z = 0
      irot = 2193
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2194
      theta1 = 90
      phi1 = -61.0714
      theta2 = 84
      phi2 = 28.9286
      theta3 = 6
      phi3 = -151.071
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 388
      chmoth = 'DC5'
      x = 13.7976
      y = -24.9649
      z = 0
      irot = 2194
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2195
      theta1 = 90
      phi1 = -57.8571
      theta2 = 84
      phi2 = 32.1429
      theta3 = 6
      phi3 = -147.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 389
      chmoth = 'DC5'
      x = 15.1757
      y = -24.152
      z = 0
      irot = 2195
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2196
      theta1 = 90
      phi1 = -54.6429
      theta2 = 84
      phi2 = 35.3571
      theta3 = 6
      phi3 = -144.643
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 390
      chmoth = 'DC5'
      x = 16.506
      y = -23.2631
      z = 0
      irot = 2196
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2197
      theta1 = 90
      phi1 = -51.4286
      theta2 = 84
      phi2 = 38.5714
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 391
      chmoth = 'DC5'
      x = 17.7844
      y = -22.301
      z = 0
      irot = 2197
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2198
      theta1 = 90
      phi1 = -48.2143
      theta2 = 84
      phi2 = 41.7857
      theta3 = 6
      phi3 = -138.214
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 392
      chmoth = 'DC5'
      x = 19.0069
      y = -21.2687
      z = 0
      irot = 2198
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 393
      chmoth = 'DC5'
      x = 20.1695
      y = -20.1695
      z = 0
      irot = 2199
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2200
      theta1 = 90
      phi1 = -41.7857
      theta2 = 84
      phi2 = 48.2143
      theta3 = 6
      phi3 = -131.786
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 394
      chmoth = 'DC5'
      x = 21.2687
      y = -19.0069
      z = 0
      irot = 2200
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2201
      theta1 = 90
      phi1 = -38.5714
      theta2 = 84
      phi2 = 51.4286
      theta3 = 6
      phi3 = -128.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 395
      chmoth = 'DC5'
      x = 22.301
      y = -17.7844
      z = 0
      irot = 2201
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2202
      theta1 = 90
      phi1 = -35.3571
      theta2 = 84
      phi2 = 54.6429
      theta3 = 6
      phi3 = -125.357
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 396
      chmoth = 'DC5'
      x = 23.2631
      y = -16.506
      z = 0
      irot = 2202
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2203
      theta1 = 90
      phi1 = -32.1429
      theta2 = 84
      phi2 = 57.8571
      theta3 = 6
      phi3 = -122.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 397
      chmoth = 'DC5'
      x = 24.152
      y = -15.1757
      z = 0
      irot = 2203
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2204
      theta1 = 90
      phi1 = -28.9286
      theta2 = 84
      phi2 = 61.0714
      theta3 = 6
      phi3 = -118.929
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 398
      chmoth = 'DC5'
      x = 24.9649
      y = -13.7976
      z = 0
      irot = 2204
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2205
      theta1 = 90
      phi1 = -25.7143
      theta2 = 84
      phi2 = 64.2857
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 399
      chmoth = 'DC5'
      x = 25.6992
      y = -12.3761
      z = 0
      irot = 2205
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 400
      chmoth = 'DC5'
      x = 26.3527
      y = -10.9157
      z = 0
      irot = 2206
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2207
      theta1 = 90
      phi1 = -19.2857
      theta2 = 84
      phi2 = 70.7143
      theta3 = 6
      phi3 = -109.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 401
      chmoth = 'DC5'
      x = 26.9233
      y = -9.42088
      z = 0
      irot = 2207
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2208
      theta1 = 90
      phi1 = -16.0714
      theta2 = 84
      phi2 = 73.9286
      theta3 = 6
      phi3 = -106.071
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 402
      chmoth = 'DC5'
      x = 27.4092
      y = -7.89646
      z = 0
      irot = 2208
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2209
      theta1 = 90
      phi1 = -12.8571
      theta2 = 84
      phi2 = 77.1429
      theta3 = 6
      phi3 = -102.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 403
      chmoth = 'DC5'
      x = 27.8088
      y = -6.34719
      z = 0
      irot = 2209
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2210
      theta1 = 90
      phi1 = -9.64286
      theta2 = 84
      phi2 = 80.3571
      theta3 = 6
      phi3 = -99.6429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 404
      chmoth = 'DC5'
      x = 28.121
      y = -4.77795
      z = 0
      irot = 2210
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2211
      theta1 = 90
      phi1 = -6.42857
      theta2 = 84
      phi2 = 83.5714
      theta3 = 6
      phi3 = -96.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 405
      chmoth = 'DC5'
      x = 28.3446
      y = -3.19367
      z = 0
      irot = 2211
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2212
      theta1 = 90
      phi1 = -3.21429
      theta2 = 84
      phi2 = 86.7857
      theta3 = 6
      phi3 = -93.2143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 406
      chmoth = 'DC5'
      x = 28.4791
      y = -1.59935
      z = 0
      irot = 2212
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC9'
      chshap = 'TUBE'
      nmed = 89
      npar = 3
      par(1) = 31.1
      par(2) = 33
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.93) stop 'consistency check #1 failed'

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

      chname = 'SD05'
      chmoth = 'DC9'
      ndiv = 126
      iaxis = 2
      step = 2.85714
      c0 = -1.42857
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 5
      chmoth = 'SD05'
      x = 32.089
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC10'
      chshap = 'TUBE'
      nmed = 90
      npar = 3
      par(1) = 33
      par(2) = 34.8
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.95) stop 'consistency check #1 failed'

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

      chname = 'SD06'
      chmoth = 'DC10'
      ndiv = 133
      iaxis = 2
      step = 2.70677
      c0 = -1.35338
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 6
      chmoth = 'SD06'
      x = 33.871
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC11'
      chshap = 'TUBE'
      nmed = 91
      npar = 3
      par(1) = 34.8
      par(2) = 36.6
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.97) stop 'consistency check #1 failed'

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

      chname = 'SD07'
      chmoth = 'DC11'
      ndiv = 140
      iaxis = 2
      step = 2.57143
      c0 = -1.28571
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 7
      chmoth = 'SD07'
      x = 35.654
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC12'
      chshap = 'TUBE'
      nmed = 92
      npar = 3
      par(1) = 36.6
      par(2) = 38.4
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.99) stop 'consistency check #1 failed'

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

      chname = 'SD08'
      chmoth = 'DC12'
      ndiv = 147
      iaxis = 2
      step = 2.44898
      c0 = -1.22449
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 8
      chmoth = 'SD08'
      x = 37.435
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC13'
      chshap = 'TUBE'
      nmed = 93
      npar = 3
      par(1) = 38.4
      par(2) = 40.2
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.101) stop 'consistency check #1 failed'

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

      chname = 'SD09'
      chmoth = 'DC13'
      ndiv = 154
      iaxis = 2
      step = 2.33766
      c0 = -1.16883
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 9
      chmoth = 'SD09'
      x = 39.218
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC14'
      chshap = 'TUBE'
      nmed = 94
      npar = 3
      par(1) = 40.2
      par(2) = 48.3
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.103) stop 'consistency check #1 failed'

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

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

      chname = 'STLA'
      nr = 407
      chmoth = 'DC14'
      x = 41.001
      y = 0
      z = 0
      irot = 2213
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2214
      theta1 = 90
      phi1 = 2.23602
      theta2 = 96
      phi2 = 92.236
      theta3 = 6
      phi3 = 92.236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 408
      chmoth = 'DC14'
      x = 40.9698
      y = 1.5997
      z = 0
      irot = 2214
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2215
      theta1 = 90
      phi1 = 4.47205
      theta2 = 96
      phi2 = 94.472
      theta3 = 6
      phi3 = 94.472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 409
      chmoth = 'DC14'
      x = 40.8762
      y = 3.19696
      z = 0
      irot = 2215
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2216
      theta1 = 90
      phi1 = 6.70807
      theta2 = 96
      phi2 = 96.7081
      theta3 = 6
      phi3 = 96.7081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 410
      chmoth = 'DC14'
      x = 40.7203
      y = 4.78936
      z = 0
      irot = 2216
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2217
      theta1 = 90
      phi1 = 8.9441
      theta2 = 96
      phi2 = 98.9441
      theta3 = 6
      phi3 = 98.9441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 411
      chmoth = 'DC14'
      x = 40.5024
      y = 6.37446
      z = 0
      irot = 2217
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2218
      theta1 = 90
      phi1 = 11.1801
      theta2 = 96
      phi2 = 101.18
      theta3 = 6
      phi3 = 101.18
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 412
      chmoth = 'DC14'
      x = 40.2229
      y = 7.94985
      z = 0
      irot = 2218
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2219
      theta1 = 90
      phi1 = 13.4161
      theta2 = 96
      phi2 = 103.416
      theta3 = 6
      phi3 = 103.416
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 413
      chmoth = 'DC14'
      x = 39.8821
      y = 9.51314
      z = 0
      irot = 2219
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2220
      theta1 = 90
      phi1 = 15.6522
      theta2 = 96
      phi2 = 105.652
      theta3 = 6
      phi3 = 105.652
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 414
      chmoth = 'DC14'
      x = 39.4806
      y = 11.0619
      z = 0
      irot = 2220
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2221
      theta1 = 90
      phi1 = 17.8882
      theta2 = 96
      phi2 = 107.888
      theta3 = 6
      phi3 = 107.888
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 415
      chmoth = 'DC14'
      x = 39.0189
      y = 12.5939
      z = 0
      irot = 2221
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2222
      theta1 = 90
      phi1 = 20.1242
      theta2 = 96
      phi2 = 110.124
      theta3 = 6
      phi3 = 110.124
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 416
      chmoth = 'DC14'
      x = 38.4978
      y = 14.1067
      z = 0
      irot = 2222
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2223
      theta1 = 90
      phi1 = 22.3602
      theta2 = 96
      phi2 = 112.36
      theta3 = 6
      phi3 = 112.36
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 417
      chmoth = 'DC14'
      x = 37.9181
      y = 15.598
      z = 0
      irot = 2223
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2224
      theta1 = 90
      phi1 = 24.5963
      theta2 = 96
      phi2 = 114.596
      theta3 = 6
      phi3 = 114.596
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 418
      chmoth = 'DC14'
      x = 37.2807
      y = 17.0655
      z = 0
      irot = 2224
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2225
      theta1 = 90
      phi1 = 26.8323
      theta2 = 96
      phi2 = 116.832
      theta3 = 6
      phi3 = 116.832
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 419
      chmoth = 'DC14'
      x = 36.5865
      y = 18.5071
      z = 0
      irot = 2225
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2226
      theta1 = 90
      phi1 = 29.0683
      theta2 = 96
      phi2 = 119.068
      theta3 = 6
      phi3 = 119.068
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 420
      chmoth = 'DC14'
      x = 35.8366
      y = 19.9204
      z = 0
      irot = 2226
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2227
      theta1 = 90
      phi1 = 31.3043
      theta2 = 96
      phi2 = 121.304
      theta3 = 6
      phi3 = 121.304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 421
      chmoth = 'DC14'
      x = 35.0321
      y = 21.3035
      z = 0
      irot = 2227
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2228
      theta1 = 90
      phi1 = 33.5404
      theta2 = 96
      phi2 = 123.54
      theta3 = 6
      phi3 = 123.54
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 422
      chmoth = 'DC14'
      x = 34.1742
      y = 22.6541
      z = 0
      irot = 2228
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2229
      theta1 = 90
      phi1 = 35.7764
      theta2 = 96
      phi2 = 125.776
      theta3 = 6
      phi3 = 125.776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 423
      chmoth = 'DC14'
      x = 33.2643
      y = 23.9701
      z = 0
      irot = 2229
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2230
      theta1 = 90
      phi1 = 38.0124
      theta2 = 96
      phi2 = 128.012
      theta3 = 6
      phi3 = 128.012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 424
      chmoth = 'DC14'
      x = 32.3038
      y = 25.2497
      z = 0
      irot = 2230
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2231
      theta1 = 90
      phi1 = 40.2484
      theta2 = 96
      phi2 = 130.248
      theta3 = 6
      phi3 = 130.248
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 425
      chmoth = 'DC14'
      x = 31.294
      y = 26.4909
      z = 0
      irot = 2231
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2232
      theta1 = 90
      phi1 = 42.4845
      theta2 = 96
      phi2 = 132.484
      theta3 = 6
      phi3 = 132.484
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 426
      chmoth = 'DC14'
      x = 30.2366
      y = 27.6917
      z = 0
      irot = 2232
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2233
      theta1 = 90
      phi1 = 44.7205
      theta2 = 96
      phi2 = 134.72
      theta3 = 6
      phi3 = 134.72
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 427
      chmoth = 'DC14'
      x = 29.1332
      y = 28.8503
      z = 0
      irot = 2233
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2234
      theta1 = 90
      phi1 = 46.9565
      theta2 = 96
      phi2 = 136.957
      theta3 = 6
      phi3 = 136.957
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 428
      chmoth = 'DC14'
      x = 27.9854
      y = 29.965
      z = 0
      irot = 2234
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2235
      theta1 = 90
      phi1 = 49.1925
      theta2 = 96
      phi2 = 139.193
      theta3 = 6
      phi3 = 139.193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 429
      chmoth = 'DC14'
      x = 26.7949
      y = 31.0341
      z = 0
      irot = 2235
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2236
      theta1 = 90
      phi1 = 51.4286
      theta2 = 96
      phi2 = 141.429
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 430
      chmoth = 'DC14'
      x = 25.5637
      y = 32.0559
      z = 0
      irot = 2236
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2237
      theta1 = 90
      phi1 = 53.6646
      theta2 = 96
      phi2 = 143.665
      theta3 = 6
      phi3 = 143.665
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 431
      chmoth = 'DC14'
      x = 24.2935
      y = 33.0289
      z = 0
      irot = 2237
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2238
      theta1 = 90
      phi1 = 55.9006
      theta2 = 96
      phi2 = 145.901
      theta3 = 6
      phi3 = 145.901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 432
      chmoth = 'DC14'
      x = 22.9864
      y = 33.9516
      z = 0
      irot = 2238
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2239
      theta1 = 90
      phi1 = 58.1366
      theta2 = 96
      phi2 = 148.137
      theta3 = 6
      phi3 = 148.137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 433
      chmoth = 'DC14'
      x = 21.6442
      y = 34.8225
      z = 0
      irot = 2239
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2240
      theta1 = 90
      phi1 = 60.3727
      theta2 = 96
      phi2 = 150.373
      theta3 = 6
      phi3 = 150.373
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 434
      chmoth = 'DC14'
      x = 20.2691
      y = 35.6405
      z = 0
      irot = 2240
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2241
      theta1 = 90
      phi1 = 62.6087
      theta2 = 96
      phi2 = 152.609
      theta3 = 6
      phi3 = 152.609
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 435
      chmoth = 'DC14'
      x = 18.8631
      y = 36.4042
      z = 0
      irot = 2241
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2242
      theta1 = 90
      phi1 = 64.8447
      theta2 = 96
      phi2 = 154.845
      theta3 = 6
      phi3 = 154.845
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 436
      chmoth = 'DC14'
      x = 17.4284
      y = 37.1124
      z = 0
      irot = 2242
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2243
      theta1 = 90
      phi1 = 67.0807
      theta2 = 96
      phi2 = 157.081
      theta3 = 6
      phi3 = 157.081
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 437
      chmoth = 'DC14'
      x = 15.9672
      y = 37.7642
      z = 0
      irot = 2243
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2244
      theta1 = 90
      phi1 = 69.3168
      theta2 = 96
      phi2 = 159.317
      theta3 = 6
      phi3 = 159.317
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 438
      chmoth = 'DC14'
      x = 14.4816
      y = 38.3584
      z = 0
      irot = 2244
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2245
      theta1 = 90
      phi1 = 71.5528
      theta2 = 96
      phi2 = 161.553
      theta3 = 6
      phi3 = 161.553
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 439
      chmoth = 'DC14'
      x = 12.974
      y = 38.8942
      z = 0
      irot = 2245
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2246
      theta1 = 90
      phi1 = 73.7888
      theta2 = 96
      phi2 = 163.789
      theta3 = 6
      phi3 = 163.789
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 440
      chmoth = 'DC14'
      x = 11.4466
      y = 39.3708
      z = 0
      irot = 2246
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2247
      theta1 = 90
      phi1 = 76.0248
      theta2 = 96
      phi2 = 166.025
      theta3 = 6
      phi3 = 166.025
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 441
      chmoth = 'DC14'
      x = 9.90179
      y = 39.7874
      z = 0
      irot = 2247
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2248
      theta1 = 90
      phi1 = 78.2609
      theta2 = 96
      phi2 = 168.261
      theta3 = 6
      phi3 = 168.261
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 442
      chmoth = 'DC14'
      x = 8.3419
      y = 40.1434
      z = 0
      irot = 2248
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2249
      theta1 = 90
      phi1 = 80.4969
      theta2 = 96
      phi2 = 170.497
      theta3 = 6
      phi3 = 170.497
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 443
      chmoth = 'DC14'
      x = 6.76931
      y = 40.4383
      z = 0
      irot = 2249
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2250
      theta1 = 90
      phi1 = 82.7329
      theta2 = 96
      phi2 = 172.733
      theta3 = 6
      phi3 = 172.733
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 444
      chmoth = 'DC14'
      x = 5.18641
      y = 40.6717
      z = 0
      irot = 2250
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2251
      theta1 = 90
      phi1 = 84.9689
      theta2 = 96
      phi2 = 174.969
      theta3 = 6
      phi3 = 174.969
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 445
      chmoth = 'DC14'
      x = 3.59561
      y = 40.843
      z = 0
      irot = 2251
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2252
      theta1 = 90
      phi1 = 87.205
      theta2 = 96
      phi2 = 177.205
      theta3 = 6
      phi3 = 177.205
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 446
      chmoth = 'DC14'
      x = 1.99934
      y = 40.9522
      z = 0
      irot = 2252
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2253
      theta1 = 90
      phi1 = 89.441
      theta2 = 96
      phi2 = 179.441
      theta3 = 6
      phi3 = 179.441
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 447
      chmoth = 'DC14'
      x = 0.40002
      y = 40.999
      z = 0
      irot = 2253
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2254
      theta1 = 90
      phi1 = 91.677
      theta2 = 96
      phi2 = -178.323
      theta3 = 6
      phi3 = -178.323
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 448
      chmoth = 'DC14'
      x = -1.19991
      y = 40.9834
      z = 0
      irot = 2254
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2255
      theta1 = 90
      phi1 = 93.913
      theta2 = 96
      phi2 = -176.087
      theta3 = 6
      phi3 = -176.087
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 449
      chmoth = 'DC14'
      x = -2.79801
      y = 40.9054
      z = 0
      irot = 2255
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2256
      theta1 = 90
      phi1 = 96.1491
      theta2 = 96
      phi2 = -173.851
      theta3 = 6
      phi3 = -173.851
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 450
      chmoth = 'DC14'
      x = -4.39185
      y = 40.7651
      z = 0
      irot = 2256
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2257
      theta1 = 90
      phi1 = 98.3851
      theta2 = 96
      phi2 = -171.615
      theta3 = 6
      phi3 = -171.615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 451
      chmoth = 'DC14'
      x = -5.979
      y = 40.5627
      z = 0
      irot = 2257
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2258
      theta1 = 90
      phi1 = 100.621
      theta2 = 96
      phi2 = -169.379
      theta3 = 6
      phi3 = -169.379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 452
      chmoth = 'DC14'
      x = -7.55704
      y = 40.2985
      z = 0
      irot = 2258
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2259
      theta1 = 90
      phi1 = 102.857
      theta2 = 96
      phi2 = -167.143
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 453
      chmoth = 'DC14'
      x = -9.12358
      y = 39.973
      z = 0
      irot = 2259
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2260
      theta1 = 90
      phi1 = 105.093
      theta2 = 96
      phi2 = -164.907
      theta3 = 6
      phi3 = -164.907
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 454
      chmoth = 'DC14'
      x = -10.6762
      y = 39.5866
      z = 0
      irot = 2260
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2261
      theta1 = 90
      phi1 = 107.329
      theta2 = 96
      phi2 = -162.671
      theta3 = 6
      phi3 = -162.671
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 455
      chmoth = 'DC14'
      x = -12.2126
      y = 39.1399
      z = 0
      irot = 2261
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2262
      theta1 = 90
      phi1 = 109.565
      theta2 = 96
      phi2 = -160.435
      theta3 = 6
      phi3 = -160.435
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 456
      chmoth = 'DC14'
      x = -13.7304
      y = 38.6336
      z = 0
      irot = 2262
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2263
      theta1 = 90
      phi1 = 111.801
      theta2 = 96
      phi2 = -158.199
      theta3 = 6
      phi3 = -158.199
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 457
      chmoth = 'DC14'
      x = -15.2273
      y = 38.0685
      z = 0
      irot = 2263
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2264
      theta1 = 90
      phi1 = 114.037
      theta2 = 96
      phi2 = -155.963
      theta3 = 6
      phi3 = -155.963
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 458
      chmoth = 'DC14'
      x = -16.701
      y = 37.4454
      z = 0
      irot = 2264
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2265
      theta1 = 90
      phi1 = 116.273
      theta2 = 96
      phi2 = -153.727
      theta3 = 6
      phi3 = -153.727
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 459
      chmoth = 'DC14'
      x = -18.1492
      y = 36.7653
      z = 0
      irot = 2265
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2266
      theta1 = 90
      phi1 = 118.509
      theta2 = 96
      phi2 = -151.491
      theta3 = 6
      phi3 = -151.491
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 460
      chmoth = 'DC14'
      x = -19.5698
      y = 36.0292
      z = 0
      irot = 2266
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2267
      theta1 = 90
      phi1 = 120.745
      theta2 = 96
      phi2 = -149.255
      theta3 = 6
      phi3 = -149.255
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 461
      chmoth = 'DC14'
      x = -20.9607
      y = 35.2382
      z = 0
      irot = 2267
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2268
      theta1 = 90
      phi1 = 122.981
      theta2 = 96
      phi2 = -147.019
      theta3 = 6
      phi3 = -147.019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 462
      chmoth = 'DC14'
      x = -22.3196
      y = 34.3936
      z = 0
      irot = 2268
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2269
      theta1 = 90
      phi1 = 125.217
      theta2 = 96
      phi2 = -144.783
      theta3 = 6
      phi3 = -144.783
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 463
      chmoth = 'DC14'
      x = -23.6445
      y = 33.4966
      z = 0
      irot = 2269
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2270
      theta1 = 90
      phi1 = 127.453
      theta2 = 96
      phi2 = -142.547
      theta3 = 6
      phi3 = -142.547
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 464
      chmoth = 'DC14'
      x = -24.9334
      y = 32.5486
      z = 0
      irot = 2270
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2271
      theta1 = 90
      phi1 = 129.689
      theta2 = 96
      phi2 = -140.311
      theta3 = 6
      phi3 = -140.311
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 465
      chmoth = 'DC14'
      x = -26.1843
      y = 31.551
      z = 0
      irot = 2271
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2272
      theta1 = 90
      phi1 = 131.925
      theta2 = 96
      phi2 = -138.075
      theta3 = 6
      phi3 = -138.075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 466
      chmoth = 'DC14'
      x = -27.3954
      y = 30.5053
      z = 0
      irot = 2272
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2273
      theta1 = 90
      phi1 = 134.161
      theta2 = 96
      phi2 = -135.839
      theta3 = 6
      phi3 = -135.839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 467
      chmoth = 'DC14'
      x = -28.5647
      y = 29.4133
      z = 0
      irot = 2273
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2274
      theta1 = 90
      phi1 = 136.398
      theta2 = 96
      phi2 = -133.602
      theta3 = 6
      phi3 = -133.602
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 468
      chmoth = 'DC14'
      x = -29.6905
      y = 28.2764
      z = 0
      irot = 2274
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2275
      theta1 = 90
      phi1 = 138.634
      theta2 = 96
      phi2 = -131.366
      theta3 = 6
      phi3 = -131.366
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 469
      chmoth = 'DC14'
      x = -30.7712
      y = 27.0964
      z = 0
      irot = 2275
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2276
      theta1 = 90
      phi1 = 140.87
      theta2 = 96
      phi2 = -129.13
      theta3 = 6
      phi3 = -129.13
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 470
      chmoth = 'DC14'
      x = -31.8049
      y = 25.8752
      z = 0
      irot = 2276
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2277
      theta1 = 90
      phi1 = 143.106
      theta2 = 96
      phi2 = -126.894
      theta3 = 6
      phi3 = -126.894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 471
      chmoth = 'DC14'
      x = -32.7903
      y = 24.6146
      z = 0
      irot = 2277
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2278
      theta1 = 90
      phi1 = 145.342
      theta2 = 96
      phi2 = -124.658
      theta3 = 6
      phi3 = -124.658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 472
      chmoth = 'DC14'
      x = -33.7257
      y = 23.3165
      z = 0
      irot = 2278
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2279
      theta1 = 90
      phi1 = 147.578
      theta2 = 96
      phi2 = -122.422
      theta3 = 6
      phi3 = -122.422
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 473
      chmoth = 'DC14'
      x = -34.6097
      y = 21.9829
      z = 0
      irot = 2279
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2280
      theta1 = 90
      phi1 = 149.814
      theta2 = 96
      phi2 = -120.186
      theta3 = 6
      phi3 = -120.186
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 474
      chmoth = 'DC14'
      x = -35.441
      y = 20.6159
      z = 0
      irot = 2280
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2281
      theta1 = 90
      phi1 = 152.05
      theta2 = 96
      phi2 = -117.95
      theta3 = 6
      phi3 = -117.95
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 475
      chmoth = 'DC14'
      x = -36.2184
      y = 19.2174
      z = 0
      irot = 2281
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2282
      theta1 = 90
      phi1 = 154.286
      theta2 = 96
      phi2 = -115.714
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 476
      chmoth = 'DC14'
      x = -36.9406
      y = 17.7897
      z = 0
      irot = 2282
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2283
      theta1 = 90
      phi1 = 156.522
      theta2 = 96
      phi2 = -113.478
      theta3 = 6
      phi3 = -113.478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 477
      chmoth = 'DC14'
      x = -37.6066
      y = 16.3348
      z = 0
      irot = 2283
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2284
      theta1 = 90
      phi1 = 158.758
      theta2 = 96
      phi2 = -111.242
      theta3 = 6
      phi3 = -111.242
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 478
      chmoth = 'DC14'
      x = -38.2153
      y = 14.8551
      z = 0
      irot = 2284
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2285
      theta1 = 90
      phi1 = 160.994
      theta2 = 96
      phi2 = -109.006
      theta3 = 6
      phi3 = -109.006
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 479
      chmoth = 'DC14'
      x = -38.7658
      y = 13.3528
      z = 0
      irot = 2285
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2286
      theta1 = 90
      phi1 = 163.23
      theta2 = 96
      phi2 = -106.77
      theta3 = 6
      phi3 = -106.77
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 480
      chmoth = 'DC14'
      x = -39.2572
      y = 11.8302
      z = 0
      irot = 2286
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2287
      theta1 = 90
      phi1 = 165.466
      theta2 = 96
      phi2 = -104.534
      theta3 = 6
      phi3 = -104.534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 481
      chmoth = 'DC14'
      x = -39.6889
      y = 10.2895
      z = 0
      irot = 2287
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2288
      theta1 = 90
      phi1 = 167.702
      theta2 = 96
      phi2 = -102.298
      theta3 = 6
      phi3 = -102.298
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 482
      chmoth = 'DC14'
      x = -40.0601
      y = 8.73316
      z = 0
      irot = 2288
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2289
      theta1 = 90
      phi1 = 169.938
      theta2 = 96
      phi2 = -100.062
      theta3 = 6
      phi3 = -100.062
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 483
      chmoth = 'DC14'
      x = -40.3704
      y = 7.16352
      z = 0
      irot = 2289
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2290
      theta1 = 90
      phi1 = 172.174
      theta2 = 96
      phi2 = -97.8261
      theta3 = 6
      phi3 = -97.8261
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 484
      chmoth = 'DC14'
      x = -40.6191
      y = 5.58297
      z = 0
      irot = 2290
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2291
      theta1 = 90
      phi1 = 174.41
      theta2 = 96
      phi2 = -95.5901
      theta3 = 6
      phi3 = -95.5901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 485
      chmoth = 'DC14'
      x = -40.806
      y = 3.99392
      z = 0
      irot = 2291
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2292
      theta1 = 90
      phi1 = 176.646
      theta2 = 96
      phi2 = -93.354
      theta3 = 6
      phi3 = -93.354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 486
      chmoth = 'DC14'
      x = -40.9308
      y = 2.39879
      z = 0
      irot = 2292
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2293
      theta1 = 90
      phi1 = 178.882
      theta2 = 96
      phi2 = -91.118
      theta3 = 6
      phi3 = -91.118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 487
      chmoth = 'DC14'
      x = -40.9932
      y = 0.800002
      z = 0
      irot = 2293
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2294
      theta1 = 90
      phi1 = -178.882
      theta2 = 96
      phi2 = -88.882
      theta3 = 6
      phi3 = -88.882
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 488
      chmoth = 'DC14'
      x = -40.9932
      y = -0.800002
      z = 0
      irot = 2294
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2295
      theta1 = 90
      phi1 = -176.646
      theta2 = 96
      phi2 = -86.646
      theta3 = 6
      phi3 = -86.646
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 489
      chmoth = 'DC14'
      x = -40.9308
      y = -2.39879
      z = 0
      irot = 2295
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2296
      theta1 = 90
      phi1 = -174.41
      theta2 = 96
      phi2 = -84.4099
      theta3 = 6
      phi3 = -84.4099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 490
      chmoth = 'DC14'
      x = -40.806
      y = -3.99392
      z = 0
      irot = 2296
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2297
      theta1 = 90
      phi1 = -172.174
      theta2 = 96
      phi2 = -82.1739
      theta3 = 6
      phi3 = -82.1739
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 491
      chmoth = 'DC14'
      x = -40.6191
      y = -5.58297
      z = 0
      irot = 2297
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2298
      theta1 = 90
      phi1 = -169.938
      theta2 = 96
      phi2 = -79.9379
      theta3 = 6
      phi3 = -79.9379
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 492
      chmoth = 'DC14'
      x = -40.3704
      y = -7.16352
      z = 0
      irot = 2298
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2299
      theta1 = 90
      phi1 = -167.702
      theta2 = 96
      phi2 = -77.7019
      theta3 = 6
      phi3 = -77.7019
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 493
      chmoth = 'DC14'
      x = -40.0601
      y = -8.73316
      z = 0
      irot = 2299
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2300
      theta1 = 90
      phi1 = -165.466
      theta2 = 96
      phi2 = -75.4658
      theta3 = 6
      phi3 = -75.4658
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 494
      chmoth = 'DC14'
      x = -39.6889
      y = -10.2895
      z = 0
      irot = 2300
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2301
      theta1 = 90
      phi1 = -163.23
      theta2 = 96
      phi2 = -73.2298
      theta3 = 6
      phi3 = -73.2298
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 495
      chmoth = 'DC14'
      x = -39.2572
      y = -11.8302
      z = 0
      irot = 2301
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2302
      theta1 = 90
      phi1 = -160.994
      theta2 = 96
      phi2 = -70.9938
      theta3 = 6
      phi3 = -70.9938
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 496
      chmoth = 'DC14'
      x = -38.7658
      y = -13.3528
      z = 0
      irot = 2302
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2303
      theta1 = 90
      phi1 = -158.758
      theta2 = 96
      phi2 = -68.7578
      theta3 = 6
      phi3 = -68.7578
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 497
      chmoth = 'DC14'
      x = -38.2153
      y = -14.8551
      z = 0
      irot = 2303
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2304
      theta1 = 90
      phi1 = -156.522
      theta2 = 96
      phi2 = -66.5217
      theta3 = 6
      phi3 = -66.5217
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 498
      chmoth = 'DC14'
      x = -37.6066
      y = -16.3348
      z = 0
      irot = 2304
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2305
      theta1 = 90
      phi1 = -154.286
      theta2 = 96
      phi2 = -64.2857
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 499
      chmoth = 'DC14'
      x = -36.9406
      y = -17.7897
      z = 0
      irot = 2305
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2306
      theta1 = 90
      phi1 = -152.05
      theta2 = 96
      phi2 = -62.0497
      theta3 = 6
      phi3 = -62.0497
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 500
      chmoth = 'DC14'
      x = -36.2184
      y = -19.2174
      z = 0
      irot = 2306
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2307
      theta1 = 90
      phi1 = -149.814
      theta2 = 96
      phi2 = -59.8137
      theta3 = 6
      phi3 = -59.8137
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 501
      chmoth = 'DC14'
      x = -35.441
      y = -20.6159
      z = 0
      irot = 2307
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2308
      theta1 = 90
      phi1 = -147.578
      theta2 = 96
      phi2 = -57.5776
      theta3 = 6
      phi3 = -57.5776
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 502
      chmoth = 'DC14'
      x = -34.6097
      y = -21.9829
      z = 0
      irot = 2308
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2309
      theta1 = 90
      phi1 = -145.342
      theta2 = 96
      phi2 = -55.3416
      theta3 = 6
      phi3 = -55.3416
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 503
      chmoth = 'DC14'
      x = -33.7257
      y = -23.3165
      z = 0
      irot = 2309
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2310
      theta1 = 90
      phi1 = -143.106
      theta2 = 96
      phi2 = -53.1056
      theta3 = 6
      phi3 = -53.1056
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 504
      chmoth = 'DC14'
      x = -32.7903
      y = -24.6146
      z = 0
      irot = 2310
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2311
      theta1 = 90
      phi1 = -140.87
      theta2 = 96
      phi2 = -50.8696
      theta3 = 6
      phi3 = -50.8696
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 505
      chmoth = 'DC14'
      x = -31.8049
      y = -25.8752
      z = 0
      irot = 2311
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2312
      theta1 = 90
      phi1 = -138.634
      theta2 = 96
      phi2 = -48.6335
      theta3 = 6
      phi3 = -48.6335
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 506
      chmoth = 'DC14'
      x = -30.7712
      y = -27.0964
      z = 0
      irot = 2312
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2313
      theta1 = 90
      phi1 = -136.398
      theta2 = 96
      phi2 = -46.3975
      theta3 = 6
      phi3 = -46.3975
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 507
      chmoth = 'DC14'
      x = -29.6905
      y = -28.2764
      z = 0
      irot = 2313
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2314
      theta1 = 90
      phi1 = -134.161
      theta2 = 96
      phi2 = -44.1615
      theta3 = 6
      phi3 = -44.1615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 508
      chmoth = 'DC14'
      x = -28.5647
      y = -29.4133
      z = 0
      irot = 2314
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2315
      theta1 = 90
      phi1 = -131.925
      theta2 = 96
      phi2 = -41.9255
      theta3 = 6
      phi3 = -41.9255
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 509
      chmoth = 'DC14'
      x = -27.3954
      y = -30.5053
      z = 0
      irot = 2315
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2316
      theta1 = 90
      phi1 = -129.689
      theta2 = 96
      phi2 = -39.6894
      theta3 = 6
      phi3 = -39.6894
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 510
      chmoth = 'DC14'
      x = -26.1843
      y = -31.551
      z = 0
      irot = 2316
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2317
      theta1 = 90
      phi1 = -127.453
      theta2 = 96
      phi2 = -37.4534
      theta3 = 6
      phi3 = -37.4534
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 511
      chmoth = 'DC14'
      x = -24.9334
      y = -32.5486
      z = 0
      irot = 2317
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2318
      theta1 = 90
      phi1 = -125.217
      theta2 = 96
      phi2 = -35.2174
      theta3 = 6
      phi3 = -35.2174
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 512
      chmoth = 'DC14'
      x = -23.6445
      y = -33.4966
      z = 0
      irot = 2318
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2319
      theta1 = 90
      phi1 = -122.981
      theta2 = 96
      phi2 = -32.9814
      theta3 = 6
      phi3 = -32.9814
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 513
      chmoth = 'DC14'
      x = -22.3196
      y = -34.3936
      z = 0
      irot = 2319
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2320
      theta1 = 90
      phi1 = -120.745
      theta2 = 96
      phi2 = -30.7453
      theta3 = 6
      phi3 = -30.7453
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 514
      chmoth = 'DC14'
      x = -20.9607
      y = -35.2382
      z = 0
      irot = 2320
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2321
      theta1 = 90
      phi1 = -118.509
      theta2 = 96
      phi2 = -28.5093
      theta3 = 6
      phi3 = -28.5093
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 515
      chmoth = 'DC14'
      x = -19.5698
      y = -36.0292
      z = 0
      irot = 2321
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2322
      theta1 = 90
      phi1 = -116.273
      theta2 = 96
      phi2 = -26.2733
      theta3 = 6
      phi3 = -26.2733
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 516
      chmoth = 'DC14'
      x = -18.1492
      y = -36.7653
      z = 0
      irot = 2322
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2323
      theta1 = 90
      phi1 = -114.037
      theta2 = 96
      phi2 = -24.0373
      theta3 = 6
      phi3 = -24.0373
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 517
      chmoth = 'DC14'
      x = -16.701
      y = -37.4454
      z = 0
      irot = 2323
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2324
      theta1 = 90
      phi1 = -111.801
      theta2 = 96
      phi2 = -21.8012
      theta3 = 6
      phi3 = -21.8012
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 518
      chmoth = 'DC14'
      x = -15.2273
      y = -38.0685
      z = 0
      irot = 2324
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2325
      theta1 = 90
      phi1 = -109.565
      theta2 = 96
      phi2 = -19.5652
      theta3 = 6
      phi3 = -19.5652
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 519
      chmoth = 'DC14'
      x = -13.7304
      y = -38.6336
      z = 0
      irot = 2325
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2326
      theta1 = 90
      phi1 = -107.329
      theta2 = 96
      phi2 = -17.3292
      theta3 = 6
      phi3 = -17.3292
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 520
      chmoth = 'DC14'
      x = -12.2126
      y = -39.1399
      z = 0
      irot = 2326
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2327
      theta1 = 90
      phi1 = -105.093
      theta2 = 96
      phi2 = -15.0932
      theta3 = 6
      phi3 = -15.0932
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 521
      chmoth = 'DC14'
      x = -10.6762
      y = -39.5866
      z = 0
      irot = 2327
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2328
      theta1 = 90
      phi1 = -102.857
      theta2 = 96
      phi2 = -12.8571
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 522
      chmoth = 'DC14'
      x = -9.12358
      y = -39.973
      z = 0
      irot = 2328
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2329
      theta1 = 90
      phi1 = -100.621
      theta2 = 96
      phi2 = -10.6211
      theta3 = 6
      phi3 = -10.6211
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 523
      chmoth = 'DC14'
      x = -7.55704
      y = -40.2985
      z = 0
      irot = 2329
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2330
      theta1 = 90
      phi1 = -98.3851
      theta2 = 96
      phi2 = -8.38509
      theta3 = 6
      phi3 = -8.38509
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 524
      chmoth = 'DC14'
      x = -5.979
      y = -40.5627
      z = 0
      irot = 2330
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2331
      theta1 = 90
      phi1 = -96.1491
      theta2 = 96
      phi2 = -6.14907
      theta3 = 6
      phi3 = -6.14907
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 525
      chmoth = 'DC14'
      x = -4.39185
      y = -40.7651
      z = 0
      irot = 2331
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2332
      theta1 = 90
      phi1 = -93.913
      theta2 = 96
      phi2 = -3.91304
      theta3 = 6
      phi3 = -3.91304
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 526
      chmoth = 'DC14'
      x = -2.79801
      y = -40.9054
      z = 0
      irot = 2332
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2333
      theta1 = 90
      phi1 = -91.677
      theta2 = 96
      phi2 = -1.67702
      theta3 = 6
      phi3 = -1.67702
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 527
      chmoth = 'DC14'
      x = -1.19991
      y = -40.9834
      z = 0
      irot = 2333
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2334
      theta1 = 90
      phi1 = -89.441
      theta2 = 96
      phi2 = 0.559006
      theta3 = 6
      phi3 = 0.559006
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 528
      chmoth = 'DC14'
      x = 0.40002
      y = -40.999
      z = 0
      irot = 2334
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2335
      theta1 = 90
      phi1 = -87.205
      theta2 = 96
      phi2 = 2.79503
      theta3 = 6
      phi3 = 2.79503
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 529
      chmoth = 'DC14'
      x = 1.99934
      y = -40.9522
      z = 0
      irot = 2335
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2336
      theta1 = 90
      phi1 = -84.9689
      theta2 = 96
      phi2 = 5.03106
      theta3 = 6
      phi3 = 5.03106
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 530
      chmoth = 'DC14'
      x = 3.59561
      y = -40.843
      z = 0
      irot = 2336
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2337
      theta1 = 90
      phi1 = -82.7329
      theta2 = 96
      phi2 = 7.26708
      theta3 = 6
      phi3 = 7.26708
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 531
      chmoth = 'DC14'
      x = 5.18641
      y = -40.6717
      z = 0
      irot = 2337
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2338
      theta1 = 90
      phi1 = -80.4969
      theta2 = 96
      phi2 = 9.50311
      theta3 = 6
      phi3 = 9.50311
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 532
      chmoth = 'DC14'
      x = 6.76931
      y = -40.4383
      z = 0
      irot = 2338
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2339
      theta1 = 90
      phi1 = -78.2609
      theta2 = 96
      phi2 = 11.7391
      theta3 = 6
      phi3 = 11.7391
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 533
      chmoth = 'DC14'
      x = 8.3419
      y = -40.1434
      z = 0
      irot = 2339
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2340
      theta1 = 90
      phi1 = -76.0248
      theta2 = 96
      phi2 = 13.9752
      theta3 = 6
      phi3 = 13.9752
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 534
      chmoth = 'DC14'
      x = 9.90179
      y = -39.7874
      z = 0
      irot = 2340
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2341
      theta1 = 90
      phi1 = -73.7888
      theta2 = 96
      phi2 = 16.2112
      theta3 = 6
      phi3 = 16.2112
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 535
      chmoth = 'DC14'
      x = 11.4466
      y = -39.3708
      z = 0
      irot = 2341
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2342
      theta1 = 90
      phi1 = -71.5528
      theta2 = 96
      phi2 = 18.4472
      theta3 = 6
      phi3 = 18.4472
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 536
      chmoth = 'DC14'
      x = 12.974
      y = -38.8942
      z = 0
      irot = 2342
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2343
      theta1 = 90
      phi1 = -69.3168
      theta2 = 96
      phi2 = 20.6832
      theta3 = 6
      phi3 = 20.6832
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 537
      chmoth = 'DC14'
      x = 14.4816
      y = -38.3584
      z = 0
      irot = 2343
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2344
      theta1 = 90
      phi1 = -67.0807
      theta2 = 96
      phi2 = 22.9193
      theta3 = 6
      phi3 = 22.9193
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 538
      chmoth = 'DC14'
      x = 15.9672
      y = -37.7642
      z = 0
      irot = 2344
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2345
      theta1 = 90
      phi1 = -64.8447
      theta2 = 96
      phi2 = 25.1553
      theta3 = 6
      phi3 = 25.1553
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 539
      chmoth = 'DC14'
      x = 17.4284
      y = -37.1124
      z = 0
      irot = 2345
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2346
      theta1 = 90
      phi1 = -62.6087
      theta2 = 96
      phi2 = 27.3913
      theta3 = 6
      phi3 = 27.3913
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 540
      chmoth = 'DC14'
      x = 18.8631
      y = -36.4042
      z = 0
      irot = 2346
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2347
      theta1 = 90
      phi1 = -60.3727
      theta2 = 96
      phi2 = 29.6273
      theta3 = 6
      phi3 = 29.6273
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 541
      chmoth = 'DC14'
      x = 20.2691
      y = -35.6405
      z = 0
      irot = 2347
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2348
      theta1 = 90
      phi1 = -58.1366
      theta2 = 96
      phi2 = 31.8634
      theta3 = 6
      phi3 = 31.8634
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 542
      chmoth = 'DC14'
      x = 21.6442
      y = -34.8225
      z = 0
      irot = 2348
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2349
      theta1 = 90
      phi1 = -55.9006
      theta2 = 96
      phi2 = 34.0994
      theta3 = 6
      phi3 = 34.0994
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 543
      chmoth = 'DC14'
      x = 22.9864
      y = -33.9516
      z = 0
      irot = 2349
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2350
      theta1 = 90
      phi1 = -53.6646
      theta2 = 96
      phi2 = 36.3354
      theta3 = 6
      phi3 = 36.3354
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 544
      chmoth = 'DC14'
      x = 24.2935
      y = -33.0289
      z = 0
      irot = 2350
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2351
      theta1 = 90
      phi1 = -51.4286
      theta2 = 96
      phi2 = 38.5714
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 545
      chmoth = 'DC14'
      x = 25.5637
      y = -32.0559
      z = 0
      irot = 2351
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2352
      theta1 = 90
      phi1 = -49.1925
      theta2 = 96
      phi2 = 40.8075
      theta3 = 6
      phi3 = 40.8075
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 546
      chmoth = 'DC14'
      x = 26.7949
      y = -31.0341
      z = 0
      irot = 2352
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2353
      theta1 = 90
      phi1 = -46.9565
      theta2 = 96
      phi2 = 43.0435
      theta3 = 6
      phi3 = 43.0435
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 547
      chmoth = 'DC14'
      x = 27.9854
      y = -29.965
      z = 0
      irot = 2353
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2354
      theta1 = 90
      phi1 = -44.7205
      theta2 = 96
      phi2 = 45.2795
      theta3 = 6
      phi3 = 45.2795
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 548
      chmoth = 'DC14'
      x = 29.1332
      y = -28.8503
      z = 0
      irot = 2354
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2355
      theta1 = 90
      phi1 = -42.4845
      theta2 = 96
      phi2 = 47.5155
      theta3 = 6
      phi3 = 47.5155
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 549
      chmoth = 'DC14'
      x = 30.2366
      y = -27.6917
      z = 0
      irot = 2355
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2356
      theta1 = 90
      phi1 = -40.2484
      theta2 = 96
      phi2 = 49.7516
      theta3 = 6
      phi3 = 49.7516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 550
      chmoth = 'DC14'
      x = 31.294
      y = -26.4909
      z = 0
      irot = 2356
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2357
      theta1 = 90
      phi1 = -38.0124
      theta2 = 96
      phi2 = 51.9876
      theta3 = 6
      phi3 = 51.9876
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 551
      chmoth = 'DC14'
      x = 32.3038
      y = -25.2497
      z = 0
      irot = 2357
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2358
      theta1 = 90
      phi1 = -35.7764
      theta2 = 96
      phi2 = 54.2236
      theta3 = 6
      phi3 = 54.2236
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 552
      chmoth = 'DC14'
      x = 33.2643
      y = -23.9701
      z = 0
      irot = 2358
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2359
      theta1 = 90
      phi1 = -33.5404
      theta2 = 96
      phi2 = 56.4596
      theta3 = 6
      phi3 = 56.4596
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 553
      chmoth = 'DC14'
      x = 34.1742
      y = -22.6541
      z = 0
      irot = 2359
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2360
      theta1 = 90
      phi1 = -31.3043
      theta2 = 96
      phi2 = 58.6957
      theta3 = 6
      phi3 = 58.6957
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 554
      chmoth = 'DC14'
      x = 35.0321
      y = -21.3035
      z = 0
      irot = 2360
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2361
      theta1 = 90
      phi1 = -29.0683
      theta2 = 96
      phi2 = 60.9317
      theta3 = 6
      phi3 = 60.9317
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 555
      chmoth = 'DC14'
      x = 35.8366
      y = -19.9204
      z = 0
      irot = 2361
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2362
      theta1 = 90
      phi1 = -26.8323
      theta2 = 96
      phi2 = 63.1677
      theta3 = 6
      phi3 = 63.1677
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 556
      chmoth = 'DC14'
      x = 36.5865
      y = -18.5071
      z = 0
      irot = 2362
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2363
      theta1 = 90
      phi1 = -24.5963
      theta2 = 96
      phi2 = 65.4037
      theta3 = 6
      phi3 = 65.4037
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 557
      chmoth = 'DC14'
      x = 37.2807
      y = -17.0655
      z = 0
      irot = 2363
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2364
      theta1 = 90
      phi1 = -22.3602
      theta2 = 96
      phi2 = 67.6398
      theta3 = 6
      phi3 = 67.6398
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 558
      chmoth = 'DC14'
      x = 37.9181
      y = -15.598
      z = 0
      irot = 2364
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2365
      theta1 = 90
      phi1 = -20.1242
      theta2 = 96
      phi2 = 69.8758
      theta3 = 6
      phi3 = 69.8758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 559
      chmoth = 'DC14'
      x = 38.4978
      y = -14.1067
      z = 0
      irot = 2365
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2366
      theta1 = 90
      phi1 = -17.8882
      theta2 = 96
      phi2 = 72.1118
      theta3 = 6
      phi3 = 72.1118
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 560
      chmoth = 'DC14'
      x = 39.0189
      y = -12.5939
      z = 0
      irot = 2366
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2367
      theta1 = 90
      phi1 = -15.6522
      theta2 = 96
      phi2 = 74.3478
      theta3 = 6
      phi3 = 74.3478
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 561
      chmoth = 'DC14'
      x = 39.4806
      y = -11.0619
      z = 0
      irot = 2367
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2368
      theta1 = 90
      phi1 = -13.4161
      theta2 = 96
      phi2 = 76.5839
      theta3 = 6
      phi3 = 76.5839
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 562
      chmoth = 'DC14'
      x = 39.8821
      y = -9.51314
      z = 0
      irot = 2368
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2369
      theta1 = 90
      phi1 = -11.1801
      theta2 = 96
      phi2 = 78.8199
      theta3 = 6
      phi3 = 78.8199
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 563
      chmoth = 'DC14'
      x = 40.2229
      y = -7.94985
      z = 0
      irot = 2369
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2370
      theta1 = 90
      phi1 = -8.9441
      theta2 = 96
      phi2 = 81.0559
      theta3 = 6
      phi3 = 81.0559
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 564
      chmoth = 'DC14'
      x = 40.5024
      y = -6.37446
      z = 0
      irot = 2370
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2371
      theta1 = 90
      phi1 = -6.70807
      theta2 = 96
      phi2 = 83.2919
      theta3 = 6
      phi3 = 83.2919
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 565
      chmoth = 'DC14'
      x = 40.7203
      y = -4.78936
      z = 0
      irot = 2371
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2372
      theta1 = 90
      phi1 = -4.47205
      theta2 = 96
      phi2 = 85.528
      theta3 = 6
      phi3 = 85.528
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 566
      chmoth = 'DC14'
      x = 40.8762
      y = -3.19696
      z = 0
      irot = 2372
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2373
      theta1 = 90
      phi1 = -2.23602
      theta2 = 96
      phi2 = 87.764
      theta3 = 6
      phi3 = 87.764
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 567
      chmoth = 'DC14'
      x = 40.9698
      y = -1.5997
      z = 0
      irot = 2373
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 568
      chmoth = 'DC14'
      x = 42.783
      y = 0
      z = 0
      irot = 2374
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2375
      theta1 = 90
      phi1 = 2.14286
      theta2 = 96
      phi2 = 92.1429
      theta3 = 6
      phi3 = 92.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 569
      chmoth = 'DC14'
      x = 42.7531
      y = 1.59971
      z = 0
      irot = 2375
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2376
      theta1 = 90
      phi1 = 4.28571
      theta2 = 96
      phi2 = 94.2857
      theta3 = 6
      phi3 = 94.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 570
      chmoth = 'DC14'
      x = 42.6634
      y = 3.19718
      z = 0
      irot = 2376
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2377
      theta1 = 90
      phi1 = 6.42857
      theta2 = 96
      phi2 = 96.4286
      theta3 = 6
      phi3 = 96.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 571
      chmoth = 'DC14'
      x = 42.514
      y = 4.79018
      z = 0
      irot = 2377
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2378
      theta1 = 90
      phi1 = 8.57143
      theta2 = 96
      phi2 = 98.5714
      theta3 = 6
      phi3 = 98.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 572
      chmoth = 'DC14'
      x = 42.3051
      y = 6.37648
      z = 0
      irot = 2378
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2379
      theta1 = 90
      phi1 = 10.7143
      theta2 = 96
      phi2 = 100.714
      theta3 = 6
      phi3 = 100.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 573
      chmoth = 'DC14'
      x = 42.0371
      y = 7.95386
      z = 0
      irot = 2379
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2380
      theta1 = 90
      phi1 = 12.8571
      theta2 = 96
      phi2 = 102.857
      theta3 = 6
      phi3 = 102.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 574
      chmoth = 'DC14'
      x = 41.7103
      y = 9.52011
      z = 0
      irot = 2380
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2381
      theta1 = 90
      phi1 = 15
      theta2 = 96
      phi2 = 105
      theta3 = 6
      phi3 = 105
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 575
      chmoth = 'DC14'
      x = 41.3252
      y = 11.0731
      z = 0
      irot = 2381
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2382
      theta1 = 90
      phi1 = 17.1429
      theta2 = 96
      phi2 = 107.143
      theta3 = 6
      phi3 = 107.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 576
      chmoth = 'DC14'
      x = 40.8823
      y = 12.6105
      z = 0
      irot = 2382
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2383
      theta1 = 90
      phi1 = 19.2857
      theta2 = 96
      phi2 = 109.286
      theta3 = 6
      phi3 = 109.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 577
      chmoth = 'DC14'
      x = 40.3822
      y = 14.1303
      z = 0
      irot = 2383
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2384
      theta1 = 90
      phi1 = 21.4286
      theta2 = 96
      phi2 = 111.429
      theta3 = 6
      phi3 = 111.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 578
      chmoth = 'DC14'
      x = 39.8256
      y = 15.6304
      z = 0
      irot = 2384
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2385
      theta1 = 90
      phi1 = 23.5714
      theta2 = 96
      phi2 = 113.571
      theta3 = 6
      phi3 = 113.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 579
      chmoth = 'DC14'
      x = 39.2133
      y = 17.1086
      z = 0
      irot = 2385
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2386
      theta1 = 90
      phi1 = 25.7143
      theta2 = 96
      phi2 = 115.714
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 580
      chmoth = 'DC14'
      x = 38.5462
      y = 18.5628
      z = 0
      irot = 2386
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2387
      theta1 = 90
      phi1 = 27.8571
      theta2 = 96
      phi2 = 117.857
      theta3 = 6
      phi3 = 117.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 581
      chmoth = 'DC14'
      x = 37.8251
      y = 19.9912
      z = 0
      irot = 2387
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2388
      theta1 = 90
      phi1 = 30
      theta2 = 96
      phi2 = 120
      theta3 = 6
      phi3 = 120
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 582
      chmoth = 'DC14'
      x = 37.0512
      y = 21.3915
      z = 0
      irot = 2388
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2389
      theta1 = 90
      phi1 = 32.1429
      theta2 = 96
      phi2 = 122.143
      theta3 = 6
      phi3 = 122.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 583
      chmoth = 'DC14'
      x = 36.2254
      y = 22.7619
      z = 0
      irot = 2389
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2390
      theta1 = 90
      phi1 = 34.2857
      theta2 = 96
      phi2 = 124.286
      theta3 = 6
      phi3 = 124.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 584
      chmoth = 'DC14'
      x = 35.349
      y = 24.1005
      z = 0
      irot = 2390
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2391
      theta1 = 90
      phi1 = 36.4286
      theta2 = 96
      phi2 = 126.429
      theta3 = 6
      phi3 = 126.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 585
      chmoth = 'DC14'
      x = 34.4231
      y = 25.4054
      z = 0
      irot = 2391
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2392
      theta1 = 90
      phi1 = 38.5714
      theta2 = 96
      phi2 = 128.571
      theta3 = 6
      phi3 = 128.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 586
      chmoth = 'DC14'
      x = 33.4491
      y = 26.6748
      z = 0
      irot = 2392
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2393
      theta1 = 90
      phi1 = 40.7143
      theta2 = 96
      phi2 = 130.714
      theta3 = 6
      phi3 = 130.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 587
      chmoth = 'DC14'
      x = 32.4283
      y = 27.9068
      z = 0
      irot = 2393
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2394
      theta1 = 90
      phi1 = 42.8571
      theta2 = 96
      phi2 = 132.857
      theta3 = 6
      phi3 = 132.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 588
      chmoth = 'DC14'
      x = 31.3622
      y = 29.0998
      z = 0
      irot = 2394
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 589
      chmoth = 'DC14'
      x = 30.2521
      y = 30.2521
      z = 0
      irot = 2395
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2396
      theta1 = 90
      phi1 = 47.1429
      theta2 = 96
      phi2 = 137.143
      theta3 = 6
      phi3 = 137.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 590
      chmoth = 'DC14'
      x = 29.0998
      y = 31.3622
      z = 0
      irot = 2396
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2397
      theta1 = 90
      phi1 = 49.2857
      theta2 = 96
      phi2 = 139.286
      theta3 = 6
      phi3 = 139.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 591
      chmoth = 'DC14'
      x = 27.9068
      y = 32.4283
      z = 0
      irot = 2397
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2398
      theta1 = 90
      phi1 = 51.4286
      theta2 = 96
      phi2 = 141.429
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 592
      chmoth = 'DC14'
      x = 26.6748
      y = 33.4491
      z = 0
      irot = 2398
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2399
      theta1 = 90
      phi1 = 53.5714
      theta2 = 96
      phi2 = 143.571
      theta3 = 6
      phi3 = 143.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 593
      chmoth = 'DC14'
      x = 25.4054
      y = 34.4231
      z = 0
      irot = 2399
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2400
      theta1 = 90
      phi1 = 55.7143
      theta2 = 96
      phi2 = 145.714
      theta3 = 6
      phi3 = 145.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 594
      chmoth = 'DC14'
      x = 24.1005
      y = 35.349
      z = 0
      irot = 2400
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2401
      theta1 = 90
      phi1 = 57.8571
      theta2 = 96
      phi2 = 147.857
      theta3 = 6
      phi3 = 147.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 595
      chmoth = 'DC14'
      x = 22.7619
      y = 36.2254
      z = 0
      irot = 2401
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2402
      theta1 = 90
      phi1 = 60
      theta2 = 96
      phi2 = 150
      theta3 = 6
      phi3 = 150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 596
      chmoth = 'DC14'
      x = 21.3915
      y = 37.0512
      z = 0
      irot = 2402
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2403
      theta1 = 90
      phi1 = 62.1429
      theta2 = 96
      phi2 = 152.143
      theta3 = 6
      phi3 = 152.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 597
      chmoth = 'DC14'
      x = 19.9912
      y = 37.8251
      z = 0
      irot = 2403
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2404
      theta1 = 90
      phi1 = 64.2857
      theta2 = 96
      phi2 = 154.286
      theta3 = 6
      phi3 = 154.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 598
      chmoth = 'DC14'
      x = 18.5628
      y = 38.5462
      z = 0
      irot = 2404
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2405
      theta1 = 90
      phi1 = 66.4286
      theta2 = 96
      phi2 = 156.429
      theta3 = 6
      phi3 = 156.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 599
      chmoth = 'DC14'
      x = 17.1086
      y = 39.2133
      z = 0
      irot = 2405
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2406
      theta1 = 90
      phi1 = 68.5714
      theta2 = 96
      phi2 = 158.571
      theta3 = 6
      phi3 = 158.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 600
      chmoth = 'DC14'
      x = 15.6304
      y = 39.8256
      z = 0
      irot = 2406
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2407
      theta1 = 90
      phi1 = 70.7143
      theta2 = 96
      phi2 = 160.714
      theta3 = 6
      phi3 = 160.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 601
      chmoth = 'DC14'
      x = 14.1303
      y = 40.3822
      z = 0
      irot = 2407
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2408
      theta1 = 90
      phi1 = 72.8571
      theta2 = 96
      phi2 = 162.857
      theta3 = 6
      phi3 = 162.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 602
      chmoth = 'DC14'
      x = 12.6105
      y = 40.8823
      z = 0
      irot = 2408
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2409
      theta1 = 90
      phi1 = 75
      theta2 = 96
      phi2 = 165
      theta3 = 6
      phi3 = 165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 603
      chmoth = 'DC14'
      x = 11.0731
      y = 41.3252
      z = 0
      irot = 2409
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2410
      theta1 = 90
      phi1 = 77.1429
      theta2 = 96
      phi2 = 167.143
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 604
      chmoth = 'DC14'
      x = 9.52011
      y = 41.7103
      z = 0
      irot = 2410
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2411
      theta1 = 90
      phi1 = 79.2857
      theta2 = 96
      phi2 = 169.286
      theta3 = 6
      phi3 = 169.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 605
      chmoth = 'DC14'
      x = 7.95386
      y = 42.0371
      z = 0
      irot = 2411
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2412
      theta1 = 90
      phi1 = 81.4286
      theta2 = 96
      phi2 = 171.429
      theta3 = 6
      phi3 = 171.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 606
      chmoth = 'DC14'
      x = 6.37648
      y = 42.3051
      z = 0
      irot = 2412
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2413
      theta1 = 90
      phi1 = 83.5714
      theta2 = 96
      phi2 = 173.571
      theta3 = 6
      phi3 = 173.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 607
      chmoth = 'DC14'
      x = 4.79018
      y = 42.514
      z = 0
      irot = 2413
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2414
      theta1 = 90
      phi1 = 85.7143
      theta2 = 96
      phi2 = 175.714
      theta3 = 6
      phi3 = 175.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 608
      chmoth = 'DC14'
      x = 3.19718
      y = 42.6634
      z = 0
      irot = 2414
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2415
      theta1 = 90
      phi1 = 87.8571
      theta2 = 96
      phi2 = 177.857
      theta3 = 6
      phi3 = 177.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 609
      chmoth = 'DC14'
      x = 1.59971
      y = 42.7531
      z = 0
      irot = 2415
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 610
      chmoth = 'DC14'
      x = 2.61962e-15
      y = 42.783
      z = 0
      irot = 2416
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2417
      theta1 = 90
      phi1 = 92.1429
      theta2 = 96
      phi2 = -177.857
      theta3 = 6
      phi3 = -177.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 611
      chmoth = 'DC14'
      x = -1.59971
      y = 42.7531
      z = 0
      irot = 2417
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2418
      theta1 = 90
      phi1 = 94.2857
      theta2 = 96
      phi2 = -175.714
      theta3 = 6
      phi3 = -175.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 612
      chmoth = 'DC14'
      x = -3.19718
      y = 42.6634
      z = 0
      irot = 2418
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2419
      theta1 = 90
      phi1 = 96.4286
      theta2 = 96
      phi2 = -173.571
      theta3 = 6
      phi3 = -173.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 613
      chmoth = 'DC14'
      x = -4.79018
      y = 42.514
      z = 0
      irot = 2419
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2420
      theta1 = 90
      phi1 = 98.5714
      theta2 = 96
      phi2 = -171.429
      theta3 = 6
      phi3 = -171.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 614
      chmoth = 'DC14'
      x = -6.37648
      y = 42.3051
      z = 0
      irot = 2420
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2421
      theta1 = 90
      phi1 = 100.714
      theta2 = 96
      phi2 = -169.286
      theta3 = 6
      phi3 = -169.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 615
      chmoth = 'DC14'
      x = -7.95386
      y = 42.0371
      z = 0
      irot = 2421
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2422
      theta1 = 90
      phi1 = 102.857
      theta2 = 96
      phi2 = -167.143
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 616
      chmoth = 'DC14'
      x = -9.52011
      y = 41.7103
      z = 0
      irot = 2422
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2423
      theta1 = 90
      phi1 = 105
      theta2 = 96
      phi2 = -165
      theta3 = 6
      phi3 = -165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 617
      chmoth = 'DC14'
      x = -11.0731
      y = 41.3252
      z = 0
      irot = 2423
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2424
      theta1 = 90
      phi1 = 107.143
      theta2 = 96
      phi2 = -162.857
      theta3 = 6
      phi3 = -162.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 618
      chmoth = 'DC14'
      x = -12.6105
      y = 40.8823
      z = 0
      irot = 2424
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2425
      theta1 = 90
      phi1 = 109.286
      theta2 = 96
      phi2 = -160.714
      theta3 = 6
      phi3 = -160.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 619
      chmoth = 'DC14'
      x = -14.1303
      y = 40.3822
      z = 0
      irot = 2425
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2426
      theta1 = 90
      phi1 = 111.429
      theta2 = 96
      phi2 = -158.571
      theta3 = 6
      phi3 = -158.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 620
      chmoth = 'DC14'
      x = -15.6304
      y = 39.8256
      z = 0
      irot = 2426
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2427
      theta1 = 90
      phi1 = 113.571
      theta2 = 96
      phi2 = -156.429
      theta3 = 6
      phi3 = -156.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 621
      chmoth = 'DC14'
      x = -17.1086
      y = 39.2133
      z = 0
      irot = 2427
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2428
      theta1 = 90
      phi1 = 115.714
      theta2 = 96
      phi2 = -154.286
      theta3 = 6
      phi3 = -154.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 622
      chmoth = 'DC14'
      x = -18.5628
      y = 38.5462
      z = 0
      irot = 2428
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2429
      theta1 = 90
      phi1 = 117.857
      theta2 = 96
      phi2 = -152.143
      theta3 = 6
      phi3 = -152.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 623
      chmoth = 'DC14'
      x = -19.9912
      y = 37.8251
      z = 0
      irot = 2429
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2430
      theta1 = 90
      phi1 = 120
      theta2 = 96
      phi2 = -150
      theta3 = 6
      phi3 = -150
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 624
      chmoth = 'DC14'
      x = -21.3915
      y = 37.0512
      z = 0
      irot = 2430
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2431
      theta1 = 90
      phi1 = 122.143
      theta2 = 96
      phi2 = -147.857
      theta3 = 6
      phi3 = -147.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 625
      chmoth = 'DC14'
      x = -22.7619
      y = 36.2254
      z = 0
      irot = 2431
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2432
      theta1 = 90
      phi1 = 124.286
      theta2 = 96
      phi2 = -145.714
      theta3 = 6
      phi3 = -145.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 626
      chmoth = 'DC14'
      x = -24.1005
      y = 35.349
      z = 0
      irot = 2432
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2433
      theta1 = 90
      phi1 = 126.429
      theta2 = 96
      phi2 = -143.571
      theta3 = 6
      phi3 = -143.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 627
      chmoth = 'DC14'
      x = -25.4054
      y = 34.4231
      z = 0
      irot = 2433
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2434
      theta1 = 90
      phi1 = 128.571
      theta2 = 96
      phi2 = -141.429
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 628
      chmoth = 'DC14'
      x = -26.6748
      y = 33.4491
      z = 0
      irot = 2434
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2435
      theta1 = 90
      phi1 = 130.714
      theta2 = 96
      phi2 = -139.286
      theta3 = 6
      phi3 = -139.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 629
      chmoth = 'DC14'
      x = -27.9068
      y = 32.4283
      z = 0
      irot = 2435
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2436
      theta1 = 90
      phi1 = 132.857
      theta2 = 96
      phi2 = -137.143
      theta3 = 6
      phi3 = -137.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 630
      chmoth = 'DC14'
      x = -29.0998
      y = 31.3622
      z = 0
      irot = 2436
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 631
      chmoth = 'DC14'
      x = -30.2521
      y = 30.2521
      z = 0
      irot = 2437
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2438
      theta1 = 90
      phi1 = 137.143
      theta2 = 96
      phi2 = -132.857
      theta3 = 6
      phi3 = -132.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 632
      chmoth = 'DC14'
      x = -31.3622
      y = 29.0998
      z = 0
      irot = 2438
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2439
      theta1 = 90
      phi1 = 139.286
      theta2 = 96
      phi2 = -130.714
      theta3 = 6
      phi3 = -130.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 633
      chmoth = 'DC14'
      x = -32.4283
      y = 27.9068
      z = 0
      irot = 2439
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2440
      theta1 = 90
      phi1 = 141.429
      theta2 = 96
      phi2 = -128.571
      theta3 = 6
      phi3 = -128.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 634
      chmoth = 'DC14'
      x = -33.4491
      y = 26.6748
      z = 0
      irot = 2440
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2441
      theta1 = 90
      phi1 = 143.571
      theta2 = 96
      phi2 = -126.429
      theta3 = 6
      phi3 = -126.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 635
      chmoth = 'DC14'
      x = -34.4231
      y = 25.4054
      z = 0
      irot = 2441
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2442
      theta1 = 90
      phi1 = 145.714
      theta2 = 96
      phi2 = -124.286
      theta3 = 6
      phi3 = -124.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 636
      chmoth = 'DC14'
      x = -35.349
      y = 24.1005
      z = 0
      irot = 2442
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2443
      theta1 = 90
      phi1 = 147.857
      theta2 = 96
      phi2 = -122.143
      theta3 = 6
      phi3 = -122.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 637
      chmoth = 'DC14'
      x = -36.2254
      y = 22.7619
      z = 0
      irot = 2443
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2444
      theta1 = 90
      phi1 = 150
      theta2 = 96
      phi2 = -120
      theta3 = 6
      phi3 = -120
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 638
      chmoth = 'DC14'
      x = -37.0512
      y = 21.3915
      z = 0
      irot = 2444
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2445
      theta1 = 90
      phi1 = 152.143
      theta2 = 96
      phi2 = -117.857
      theta3 = 6
      phi3 = -117.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 639
      chmoth = 'DC14'
      x = -37.8251
      y = 19.9912
      z = 0
      irot = 2445
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2446
      theta1 = 90
      phi1 = 154.286
      theta2 = 96
      phi2 = -115.714
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 640
      chmoth = 'DC14'
      x = -38.5462
      y = 18.5628
      z = 0
      irot = 2446
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2447
      theta1 = 90
      phi1 = 156.429
      theta2 = 96
      phi2 = -113.571
      theta3 = 6
      phi3 = -113.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 641
      chmoth = 'DC14'
      x = -39.2133
      y = 17.1086
      z = 0
      irot = 2447
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2448
      theta1 = 90
      phi1 = 158.571
      theta2 = 96
      phi2 = -111.429
      theta3 = 6
      phi3 = -111.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 642
      chmoth = 'DC14'
      x = -39.8256
      y = 15.6304
      z = 0
      irot = 2448
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2449
      theta1 = 90
      phi1 = 160.714
      theta2 = 96
      phi2 = -109.286
      theta3 = 6
      phi3 = -109.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 643
      chmoth = 'DC14'
      x = -40.3822
      y = 14.1303
      z = 0
      irot = 2449
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2450
      theta1 = 90
      phi1 = 162.857
      theta2 = 96
      phi2 = -107.143
      theta3 = 6
      phi3 = -107.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 644
      chmoth = 'DC14'
      x = -40.8823
      y = 12.6105
      z = 0
      irot = 2450
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2451
      theta1 = 90
      phi1 = 165
      theta2 = 96
      phi2 = -105
      theta3 = 6
      phi3 = -105
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 645
      chmoth = 'DC14'
      x = -41.3252
      y = 11.0731
      z = 0
      irot = 2451
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2452
      theta1 = 90
      phi1 = 167.143
      theta2 = 96
      phi2 = -102.857
      theta3 = 6
      phi3 = -102.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 646
      chmoth = 'DC14'
      x = -41.7103
      y = 9.52011
      z = 0
      irot = 2452
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2453
      theta1 = 90
      phi1 = 169.286
      theta2 = 96
      phi2 = -100.714
      theta3 = 6
      phi3 = -100.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 647
      chmoth = 'DC14'
      x = -42.0371
      y = 7.95386
      z = 0
      irot = 2453
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2454
      theta1 = 90
      phi1 = 171.429
      theta2 = 96
      phi2 = -98.5714
      theta3 = 6
      phi3 = -98.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 648
      chmoth = 'DC14'
      x = -42.3051
      y = 6.37648
      z = 0
      irot = 2454
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2455
      theta1 = 90
      phi1 = 173.571
      theta2 = 96
      phi2 = -96.4286
      theta3 = 6
      phi3 = -96.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 649
      chmoth = 'DC14'
      x = -42.514
      y = 4.79018
      z = 0
      irot = 2455
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2456
      theta1 = 90
      phi1 = 175.714
      theta2 = 96
      phi2 = -94.2857
      theta3 = 6
      phi3 = -94.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 650
      chmoth = 'DC14'
      x = -42.6634
      y = 3.19718
      z = 0
      irot = 2456
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2457
      theta1 = 90
      phi1 = 177.857
      theta2 = 96
      phi2 = -92.1429
      theta3 = 6
      phi3 = -92.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 651
      chmoth = 'DC14'
      x = -42.7531
      y = 1.59971
      z = 0
      irot = 2457
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 652
      chmoth = 'DC14'
      x = -42.783
      y = 5.23923e-15
      z = 0
      irot = 2458
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2459
      theta1 = 90
      phi1 = -177.857
      theta2 = 96
      phi2 = -87.8571
      theta3 = 6
      phi3 = -87.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 653
      chmoth = 'DC14'
      x = -42.7531
      y = -1.59971
      z = 0
      irot = 2459
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2460
      theta1 = 90
      phi1 = -175.714
      theta2 = 96
      phi2 = -85.7143
      theta3 = 6
      phi3 = -85.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 654
      chmoth = 'DC14'
      x = -42.6634
      y = -3.19718
      z = 0
      irot = 2460
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2461
      theta1 = 90
      phi1 = -173.571
      theta2 = 96
      phi2 = -83.5714
      theta3 = 6
      phi3 = -83.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 655
      chmoth = 'DC14'
      x = -42.514
      y = -4.79018
      z = 0
      irot = 2461
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2462
      theta1 = 90
      phi1 = -171.429
      theta2 = 96
      phi2 = -81.4286
      theta3 = 6
      phi3 = -81.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 656
      chmoth = 'DC14'
      x = -42.3051
      y = -6.37648
      z = 0
      irot = 2462
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2463
      theta1 = 90
      phi1 = -169.286
      theta2 = 96
      phi2 = -79.2857
      theta3 = 6
      phi3 = -79.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 657
      chmoth = 'DC14'
      x = -42.0371
      y = -7.95386
      z = 0
      irot = 2463
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2464
      theta1 = 90
      phi1 = -167.143
      theta2 = 96
      phi2 = -77.1429
      theta3 = 6
      phi3 = -77.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 658
      chmoth = 'DC14'
      x = -41.7103
      y = -9.52011
      z = 0
      irot = 2464
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2465
      theta1 = 90
      phi1 = -165
      theta2 = 96
      phi2 = -75
      theta3 = 6
      phi3 = -75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 659
      chmoth = 'DC14'
      x = -41.3252
      y = -11.0731
      z = 0
      irot = 2465
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2466
      theta1 = 90
      phi1 = -162.857
      theta2 = 96
      phi2 = -72.8571
      theta3 = 6
      phi3 = -72.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 660
      chmoth = 'DC14'
      x = -40.8823
      y = -12.6105
      z = 0
      irot = 2466
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2467
      theta1 = 90
      phi1 = -160.714
      theta2 = 96
      phi2 = -70.7143
      theta3 = 6
      phi3 = -70.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 661
      chmoth = 'DC14'
      x = -40.3822
      y = -14.1303
      z = 0
      irot = 2467
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2468
      theta1 = 90
      phi1 = -158.571
      theta2 = 96
      phi2 = -68.5714
      theta3 = 6
      phi3 = -68.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 662
      chmoth = 'DC14'
      x = -39.8256
      y = -15.6304
      z = 0
      irot = 2468
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2469
      theta1 = 90
      phi1 = -156.429
      theta2 = 96
      phi2 = -66.4286
      theta3 = 6
      phi3 = -66.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 663
      chmoth = 'DC14'
      x = -39.2133
      y = -17.1086
      z = 0
      irot = 2469
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2470
      theta1 = 90
      phi1 = -154.286
      theta2 = 96
      phi2 = -64.2857
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 664
      chmoth = 'DC14'
      x = -38.5462
      y = -18.5628
      z = 0
      irot = 2470
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2471
      theta1 = 90
      phi1 = -152.143
      theta2 = 96
      phi2 = -62.1429
      theta3 = 6
      phi3 = -62.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 665
      chmoth = 'DC14'
      x = -37.8251
      y = -19.9912
      z = 0
      irot = 2471
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2472
      theta1 = 90
      phi1 = -150
      theta2 = 96
      phi2 = -60
      theta3 = 6
      phi3 = -60
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 666
      chmoth = 'DC14'
      x = -37.0512
      y = -21.3915
      z = 0
      irot = 2472
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2473
      theta1 = 90
      phi1 = -147.857
      theta2 = 96
      phi2 = -57.8571
      theta3 = 6
      phi3 = -57.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 667
      chmoth = 'DC14'
      x = -36.2254
      y = -22.7619
      z = 0
      irot = 2473
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2474
      theta1 = 90
      phi1 = -145.714
      theta2 = 96
      phi2 = -55.7143
      theta3 = 6
      phi3 = -55.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 668
      chmoth = 'DC14'
      x = -35.349
      y = -24.1005
      z = 0
      irot = 2474
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2475
      theta1 = 90
      phi1 = -143.571
      theta2 = 96
      phi2 = -53.5714
      theta3 = 6
      phi3 = -53.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 669
      chmoth = 'DC14'
      x = -34.4231
      y = -25.4054
      z = 0
      irot = 2475
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2476
      theta1 = 90
      phi1 = -141.429
      theta2 = 96
      phi2 = -51.4286
      theta3 = 6
      phi3 = -51.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 670
      chmoth = 'DC14'
      x = -33.4491
      y = -26.6748
      z = 0
      irot = 2476
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2477
      theta1 = 90
      phi1 = -139.286
      theta2 = 96
      phi2 = -49.2857
      theta3 = 6
      phi3 = -49.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 671
      chmoth = 'DC14'
      x = -32.4283
      y = -27.9068
      z = 0
      irot = 2477
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2478
      theta1 = 90
      phi1 = -137.143
      theta2 = 96
      phi2 = -47.1429
      theta3 = 6
      phi3 = -47.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 672
      chmoth = 'DC14'
      x = -31.3622
      y = -29.0998
      z = 0
      irot = 2478
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 673
      chmoth = 'DC14'
      x = -30.2521
      y = -30.2521
      z = 0
      irot = 2479
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2480
      theta1 = 90
      phi1 = -132.857
      theta2 = 96
      phi2 = -42.8571
      theta3 = 6
      phi3 = -42.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 674
      chmoth = 'DC14'
      x = -29.0998
      y = -31.3622
      z = 0
      irot = 2480
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2481
      theta1 = 90
      phi1 = -130.714
      theta2 = 96
      phi2 = -40.7143
      theta3 = 6
      phi3 = -40.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 675
      chmoth = 'DC14'
      x = -27.9068
      y = -32.4283
      z = 0
      irot = 2481
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2482
      theta1 = 90
      phi1 = -128.571
      theta2 = 96
      phi2 = -38.5714
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 676
      chmoth = 'DC14'
      x = -26.6748
      y = -33.4491
      z = 0
      irot = 2482
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2483
      theta1 = 90
      phi1 = -126.429
      theta2 = 96
      phi2 = -36.4286
      theta3 = 6
      phi3 = -36.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 677
      chmoth = 'DC14'
      x = -25.4054
      y = -34.4231
      z = 0
      irot = 2483
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2484
      theta1 = 90
      phi1 = -124.286
      theta2 = 96
      phi2 = -34.2857
      theta3 = 6
      phi3 = -34.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 678
      chmoth = 'DC14'
      x = -24.1005
      y = -35.349
      z = 0
      irot = 2484
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2485
      theta1 = 90
      phi1 = -122.143
      theta2 = 96
      phi2 = -32.1429
      theta3 = 6
      phi3 = -32.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 679
      chmoth = 'DC14'
      x = -22.7619
      y = -36.2254
      z = 0
      irot = 2485
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2486
      theta1 = 90
      phi1 = -120
      theta2 = 96
      phi2 = -30
      theta3 = 6
      phi3 = -30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 680
      chmoth = 'DC14'
      x = -21.3915
      y = -37.0512
      z = 0
      irot = 2486
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2487
      theta1 = 90
      phi1 = -117.857
      theta2 = 96
      phi2 = -27.8571
      theta3 = 6
      phi3 = -27.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 681
      chmoth = 'DC14'
      x = -19.9912
      y = -37.8251
      z = 0
      irot = 2487
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2488
      theta1 = 90
      phi1 = -115.714
      theta2 = 96
      phi2 = -25.7143
      theta3 = 6
      phi3 = -25.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 682
      chmoth = 'DC14'
      x = -18.5628
      y = -38.5462
      z = 0
      irot = 2488
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2489
      theta1 = 90
      phi1 = -113.571
      theta2 = 96
      phi2 = -23.5714
      theta3 = 6
      phi3 = -23.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 683
      chmoth = 'DC14'
      x = -17.1086
      y = -39.2133
      z = 0
      irot = 2489
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2490
      theta1 = 90
      phi1 = -111.429
      theta2 = 96
      phi2 = -21.4286
      theta3 = 6
      phi3 = -21.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 684
      chmoth = 'DC14'
      x = -15.6304
      y = -39.8256
      z = 0
      irot = 2490
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2491
      theta1 = 90
      phi1 = -109.286
      theta2 = 96
      phi2 = -19.2857
      theta3 = 6
      phi3 = -19.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 685
      chmoth = 'DC14'
      x = -14.1303
      y = -40.3822
      z = 0
      irot = 2491
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2492
      theta1 = 90
      phi1 = -107.143
      theta2 = 96
      phi2 = -17.1429
      theta3 = 6
      phi3 = -17.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 686
      chmoth = 'DC14'
      x = -12.6105
      y = -40.8823
      z = 0
      irot = 2492
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2493
      theta1 = 90
      phi1 = -105
      theta2 = 96
      phi2 = -15
      theta3 = 6
      phi3 = -15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 687
      chmoth = 'DC14'
      x = -11.0731
      y = -41.3252
      z = 0
      irot = 2493
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2494
      theta1 = 90
      phi1 = -102.857
      theta2 = 96
      phi2 = -12.8571
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 688
      chmoth = 'DC14'
      x = -9.52011
      y = -41.7103
      z = 0
      irot = 2494
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2495
      theta1 = 90
      phi1 = -100.714
      theta2 = 96
      phi2 = -10.7143
      theta3 = 6
      phi3 = -10.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 689
      chmoth = 'DC14'
      x = -7.95386
      y = -42.0371
      z = 0
      irot = 2495
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2496
      theta1 = 90
      phi1 = -98.5714
      theta2 = 96
      phi2 = -8.57143
      theta3 = 6
      phi3 = -8.57143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 690
      chmoth = 'DC14'
      x = -6.37648
      y = -42.3051
      z = 0
      irot = 2496
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2497
      theta1 = 90
      phi1 = -96.4286
      theta2 = 96
      phi2 = -6.42857
      theta3 = 6
      phi3 = -6.42857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 691
      chmoth = 'DC14'
      x = -4.79018
      y = -42.514
      z = 0
      irot = 2497
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2498
      theta1 = 90
      phi1 = -94.2857
      theta2 = 96
      phi2 = -4.28571
      theta3 = 6
      phi3 = -4.28571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 692
      chmoth = 'DC14'
      x = -3.19718
      y = -42.6634
      z = 0
      irot = 2498
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2499
      theta1 = 90
      phi1 = -92.1429
      theta2 = 96
      phi2 = -2.14286
      theta3 = 6
      phi3 = -2.14286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 693
      chmoth = 'DC14'
      x = -1.59971
      y = -42.7531
      z = 0
      irot = 2499
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2500
      theta1 = 90
      phi1 = -90
      theta2 = 96
      phi2 = 4.03642e-14
      theta3 = 6
      phi3 = 4.03642e-14
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 694
      chmoth = 'DC14'
      x = -7.85885e-15
      y = -42.783
      z = 0
      irot = 2500
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2501
      theta1 = 90
      phi1 = -87.8571
      theta2 = 96
      phi2 = 2.14286
      theta3 = 6
      phi3 = 2.14286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 695
      chmoth = 'DC14'
      x = 1.59971
      y = -42.7531
      z = 0
      irot = 2501
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2502
      theta1 = 90
      phi1 = -85.7143
      theta2 = 96
      phi2 = 4.28571
      theta3 = 6
      phi3 = 4.28571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 696
      chmoth = 'DC14'
      x = 3.19718
      y = -42.6634
      z = 0
      irot = 2502
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2503
      theta1 = 90
      phi1 = -83.5714
      theta2 = 96
      phi2 = 6.42857
      theta3 = 6
      phi3 = 6.42857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 697
      chmoth = 'DC14'
      x = 4.79018
      y = -42.514
      z = 0
      irot = 2503
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2504
      theta1 = 90
      phi1 = -81.4286
      theta2 = 96
      phi2 = 8.57143
      theta3 = 6
      phi3 = 8.57143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 698
      chmoth = 'DC14'
      x = 6.37648
      y = -42.3051
      z = 0
      irot = 2504
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2505
      theta1 = 90
      phi1 = -79.2857
      theta2 = 96
      phi2 = 10.7143
      theta3 = 6
      phi3 = 10.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 699
      chmoth = 'DC14'
      x = 7.95386
      y = -42.0371
      z = 0
      irot = 2505
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2506
      theta1 = 90
      phi1 = -77.1429
      theta2 = 96
      phi2 = 12.8571
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 700
      chmoth = 'DC14'
      x = 9.52011
      y = -41.7103
      z = 0
      irot = 2506
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2507
      theta1 = 90
      phi1 = -75
      theta2 = 96
      phi2 = 15
      theta3 = 6
      phi3 = 15
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 701
      chmoth = 'DC14'
      x = 11.0731
      y = -41.3252
      z = 0
      irot = 2507
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2508
      theta1 = 90
      phi1 = -72.8571
      theta2 = 96
      phi2 = 17.1429
      theta3 = 6
      phi3 = 17.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 702
      chmoth = 'DC14'
      x = 12.6105
      y = -40.8823
      z = 0
      irot = 2508
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2509
      theta1 = 90
      phi1 = -70.7143
      theta2 = 96
      phi2 = 19.2857
      theta3 = 6
      phi3 = 19.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 703
      chmoth = 'DC14'
      x = 14.1303
      y = -40.3822
      z = 0
      irot = 2509
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2510
      theta1 = 90
      phi1 = -68.5714
      theta2 = 96
      phi2 = 21.4286
      theta3 = 6
      phi3 = 21.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 704
      chmoth = 'DC14'
      x = 15.6304
      y = -39.8256
      z = 0
      irot = 2510
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2511
      theta1 = 90
      phi1 = -66.4286
      theta2 = 96
      phi2 = 23.5714
      theta3 = 6
      phi3 = 23.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 705
      chmoth = 'DC14'
      x = 17.1086
      y = -39.2133
      z = 0
      irot = 2511
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2512
      theta1 = 90
      phi1 = -64.2857
      theta2 = 96
      phi2 = 25.7143
      theta3 = 6
      phi3 = 25.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 706
      chmoth = 'DC14'
      x = 18.5628
      y = -38.5462
      z = 0
      irot = 2512
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2513
      theta1 = 90
      phi1 = -62.1429
      theta2 = 96
      phi2 = 27.8571
      theta3 = 6
      phi3 = 27.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 707
      chmoth = 'DC14'
      x = 19.9912
      y = -37.8251
      z = 0
      irot = 2513
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2514
      theta1 = 90
      phi1 = -60
      theta2 = 96
      phi2 = 30
      theta3 = 6
      phi3 = 30
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 708
      chmoth = 'DC14'
      x = 21.3915
      y = -37.0512
      z = 0
      irot = 2514
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2515
      theta1 = 90
      phi1 = -57.8571
      theta2 = 96
      phi2 = 32.1429
      theta3 = 6
      phi3 = 32.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 709
      chmoth = 'DC14'
      x = 22.7619
      y = -36.2254
      z = 0
      irot = 2515
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2516
      theta1 = 90
      phi1 = -55.7143
      theta2 = 96
      phi2 = 34.2857
      theta3 = 6
      phi3 = 34.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 710
      chmoth = 'DC14'
      x = 24.1005
      y = -35.349
      z = 0
      irot = 2516
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2517
      theta1 = 90
      phi1 = -53.5714
      theta2 = 96
      phi2 = 36.4286
      theta3 = 6
      phi3 = 36.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 711
      chmoth = 'DC14'
      x = 25.4054
      y = -34.4231
      z = 0
      irot = 2517
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2518
      theta1 = 90
      phi1 = -51.4286
      theta2 = 96
      phi2 = 38.5714
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 712
      chmoth = 'DC14'
      x = 26.6748
      y = -33.4491
      z = 0
      irot = 2518
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2519
      theta1 = 90
      phi1 = -49.2857
      theta2 = 96
      phi2 = 40.7143
      theta3 = 6
      phi3 = 40.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 713
      chmoth = 'DC14'
      x = 27.9068
      y = -32.4283
      z = 0
      irot = 2519
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2520
      theta1 = 90
      phi1 = -47.1429
      theta2 = 96
      phi2 = 42.8571
      theta3 = 6
      phi3 = 42.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 714
      chmoth = 'DC14'
      x = 29.0998
      y = -31.3622
      z = 0
      irot = 2520
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 715
      chmoth = 'DC14'
      x = 30.2521
      y = -30.2521
      z = 0
      irot = 2521
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2522
      theta1 = 90
      phi1 = -42.8571
      theta2 = 96
      phi2 = 47.1429
      theta3 = 6
      phi3 = 47.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 716
      chmoth = 'DC14'
      x = 31.3622
      y = -29.0998
      z = 0
      irot = 2522
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2523
      theta1 = 90
      phi1 = -40.7143
      theta2 = 96
      phi2 = 49.2857
      theta3 = 6
      phi3 = 49.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 717
      chmoth = 'DC14'
      x = 32.4283
      y = -27.9068
      z = 0
      irot = 2523
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2524
      theta1 = 90
      phi1 = -38.5714
      theta2 = 96
      phi2 = 51.4286
      theta3 = 6
      phi3 = 51.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 718
      chmoth = 'DC14'
      x = 33.4491
      y = -26.6748
      z = 0
      irot = 2524
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2525
      theta1 = 90
      phi1 = -36.4286
      theta2 = 96
      phi2 = 53.5714
      theta3 = 6
      phi3 = 53.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 719
      chmoth = 'DC14'
      x = 34.4231
      y = -25.4054
      z = 0
      irot = 2525
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2526
      theta1 = 90
      phi1 = -34.2857
      theta2 = 96
      phi2 = 55.7143
      theta3 = 6
      phi3 = 55.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 720
      chmoth = 'DC14'
      x = 35.349
      y = -24.1005
      z = 0
      irot = 2526
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2527
      theta1 = 90
      phi1 = -32.1429
      theta2 = 96
      phi2 = 57.8571
      theta3 = 6
      phi3 = 57.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 721
      chmoth = 'DC14'
      x = 36.2254
      y = -22.7619
      z = 0
      irot = 2527
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2528
      theta1 = 90
      phi1 = -30
      theta2 = 96
      phi2 = 60
      theta3 = 6
      phi3 = 60
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 722
      chmoth = 'DC14'
      x = 37.0512
      y = -21.3915
      z = 0
      irot = 2528
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2529
      theta1 = 90
      phi1 = -27.8571
      theta2 = 96
      phi2 = 62.1429
      theta3 = 6
      phi3 = 62.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 723
      chmoth = 'DC14'
      x = 37.8251
      y = -19.9912
      z = 0
      irot = 2529
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2530
      theta1 = 90
      phi1 = -25.7143
      theta2 = 96
      phi2 = 64.2857
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 724
      chmoth = 'DC14'
      x = 38.5462
      y = -18.5628
      z = 0
      irot = 2530
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2531
      theta1 = 90
      phi1 = -23.5714
      theta2 = 96
      phi2 = 66.4286
      theta3 = 6
      phi3 = 66.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 725
      chmoth = 'DC14'
      x = 39.2133
      y = -17.1086
      z = 0
      irot = 2531
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2532
      theta1 = 90
      phi1 = -21.4286
      theta2 = 96
      phi2 = 68.5714
      theta3 = 6
      phi3 = 68.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 726
      chmoth = 'DC14'
      x = 39.8256
      y = -15.6304
      z = 0
      irot = 2532
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2533
      theta1 = 90
      phi1 = -19.2857
      theta2 = 96
      phi2 = 70.7143
      theta3 = 6
      phi3 = 70.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 727
      chmoth = 'DC14'
      x = 40.3822
      y = -14.1303
      z = 0
      irot = 2533
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2534
      theta1 = 90
      phi1 = -17.1429
      theta2 = 96
      phi2 = 72.8571
      theta3 = 6
      phi3 = 72.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 728
      chmoth = 'DC14'
      x = 40.8823
      y = -12.6105
      z = 0
      irot = 2534
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2535
      theta1 = 90
      phi1 = -15
      theta2 = 96
      phi2 = 75
      theta3 = 6
      phi3 = 75
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 729
      chmoth = 'DC14'
      x = 41.3252
      y = -11.0731
      z = 0
      irot = 2535
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2536
      theta1 = 90
      phi1 = -12.8571
      theta2 = 96
      phi2 = 77.1429
      theta3 = 6
      phi3 = 77.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 730
      chmoth = 'DC14'
      x = 41.7103
      y = -9.52011
      z = 0
      irot = 2536
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2537
      theta1 = 90
      phi1 = -10.7143
      theta2 = 96
      phi2 = 79.2857
      theta3 = 6
      phi3 = 79.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 731
      chmoth = 'DC14'
      x = 42.0371
      y = -7.95386
      z = 0
      irot = 2537
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2538
      theta1 = 90
      phi1 = -8.57143
      theta2 = 96
      phi2 = 81.4286
      theta3 = 6
      phi3 = 81.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 732
      chmoth = 'DC14'
      x = 42.3051
      y = -6.37648
      z = 0
      irot = 2538
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2539
      theta1 = 90
      phi1 = -6.42857
      theta2 = 96
      phi2 = 83.5714
      theta3 = 6
      phi3 = 83.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 733
      chmoth = 'DC14'
      x = 42.514
      y = -4.79018
      z = 0
      irot = 2539
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2540
      theta1 = 90
      phi1 = -4.28571
      theta2 = 96
      phi2 = 85.7143
      theta3 = 6
      phi3 = 85.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 734
      chmoth = 'DC14'
      x = 42.6634
      y = -3.19718
      z = 0
      irot = 2540
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2541
      theta1 = 90
      phi1 = -2.14286
      theta2 = 96
      phi2 = 87.8571
      theta3 = 6
      phi3 = 87.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 735
      chmoth = 'DC14'
      x = 42.7531
      y = -1.59971
      z = 0
      irot = 2541
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 736
      chmoth = 'DC14'
      x = 44.566
      y = 0
      z = 0
      irot = 2542
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2543
      theta1 = 90
      phi1 = 2.05714
      theta2 = 84
      phi2 = 92.0571
      theta3 = 6
      phi3 = -87.9429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 737
      chmoth = 'DC14'
      x = 44.5373
      y = 1.59975
      z = 0
      irot = 2543
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2544
      theta1 = 90
      phi1 = 4.11429
      theta2 = 84
      phi2 = 94.1143
      theta3 = 6
      phi3 = -85.8857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 738
      chmoth = 'DC14'
      x = 44.4512
      y = 3.19744
      z = 0
      irot = 2544
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2545
      theta1 = 90
      phi1 = 6.17143
      theta2 = 84
      phi2 = 96.1714
      theta3 = 6
      phi3 = -83.8286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 739
      chmoth = 'DC14'
      x = 44.3077
      y = 4.79101
      z = 0
      irot = 2545
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2546
      theta1 = 90
      phi1 = 8.22857
      theta2 = 84
      phi2 = 98.2286
      theta3 = 6
      phi3 = -81.7714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 740
      chmoth = 'DC14'
      x = 44.1072
      y = 6.3784
      z = 0
      irot = 2546
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2547
      theta1 = 90
      phi1 = 10.2857
      theta2 = 84
      phi2 = 100.286
      theta3 = 6
      phi3 = -79.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 741
      chmoth = 'DC14'
      x = 43.8498
      y = 7.95757
      z = 0
      irot = 2547
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2548
      theta1 = 90
      phi1 = 12.3429
      theta2 = 84
      phi2 = 102.343
      theta3 = 6
      phi3 = -77.6571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 742
      chmoth = 'DC14'
      x = 43.5359
      y = 9.52648
      z = 0
      irot = 2548
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2549
      theta1 = 90
      phi1 = 14.4
      theta2 = 84
      phi2 = 104.4
      theta3 = 6
      phi3 = -75.6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 743
      chmoth = 'DC14'
      x = 43.1659
      y = 11.0831
      z = 0
      irot = 2549
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2550
      theta1 = 90
      phi1 = 16.4571
      theta2 = 84
      phi2 = 106.457
      theta3 = 6
      phi3 = -73.5429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 744
      chmoth = 'DC14'
      x = 42.7402
      y = 12.6255
      z = 0
      irot = 2550
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2551
      theta1 = 90
      phi1 = 18.5143
      theta2 = 84
      phi2 = 108.514
      theta3 = 6
      phi3 = -71.4857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 745
      chmoth = 'DC14'
      x = 42.2595
      y = 14.1515
      z = 0
      irot = 2551
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2552
      theta1 = 90
      phi1 = 20.5714
      theta2 = 84
      phi2 = 110.571
      theta3 = 6
      phi3 = -69.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 746
      chmoth = 'DC14'
      x = 41.7242
      y = 15.6594
      z = 0
      irot = 2552
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2553
      theta1 = 90
      phi1 = 22.6286
      theta2 = 84
      phi2 = 112.629
      theta3 = 6
      phi3 = -67.3714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 747
      chmoth = 'DC14'
      x = 41.1352
      y = 17.147
      z = 0
      irot = 2553
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2554
      theta1 = 90
      phi1 = 24.6857
      theta2 = 84
      phi2 = 114.686
      theta3 = 6
      phi3 = -65.3143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 748
      chmoth = 'DC14'
      x = 40.4932
      y = 18.6126
      z = 0
      irot = 2554
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2555
      theta1 = 90
      phi1 = 26.7429
      theta2 = 84
      phi2 = 116.743
      theta3 = 6
      phi3 = -63.2571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 749
      chmoth = 'DC14'
      x = 39.799
      y = 20.0541
      z = 0
      irot = 2555
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2556
      theta1 = 90
      phi1 = 28.8
      theta2 = 84
      phi2 = 118.8
      theta3 = 6
      phi3 = -61.2
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 750
      chmoth = 'DC14'
      x = 39.0535
      y = 21.4698
      z = 0
      irot = 2556
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2557
      theta1 = 90
      phi1 = 30.8571
      theta2 = 84
      phi2 = 120.857
      theta3 = 6
      phi3 = -59.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 751
      chmoth = 'DC14'
      x = 38.2576
      y = 22.8579
      z = 0
      irot = 2557
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2558
      theta1 = 90
      phi1 = 32.9143
      theta2 = 84
      phi2 = 122.914
      theta3 = 6
      phi3 = -57.0857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 752
      chmoth = 'DC14'
      x = 37.4125
      y = 24.2164
      z = 0
      irot = 2558
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2559
      theta1 = 90
      phi1 = 34.9714
      theta2 = 84
      phi2 = 124.971
      theta3 = 6
      phi3 = -55.0286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 753
      chmoth = 'DC14'
      x = 36.5191
      y = 25.5438
      z = 0
      irot = 2559
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2560
      theta1 = 90
      phi1 = 37.0286
      theta2 = 84
      phi2 = 127.029
      theta3 = 6
      phi3 = -52.9714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 754
      chmoth = 'DC14'
      x = 35.5786
      y = 26.8382
      z = 0
      irot = 2560
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2561
      theta1 = 90
      phi1 = 39.0857
      theta2 = 84
      phi2 = 129.086
      theta3 = 6
      phi3 = -50.9143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 755
      chmoth = 'DC14'
      x = 34.5923
      y = 28.0981
      z = 0
      irot = 2561
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2562
      theta1 = 90
      phi1 = 41.1429
      theta2 = 84
      phi2 = 131.143
      theta3 = 6
      phi3 = -48.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 756
      chmoth = 'DC14'
      x = 33.5614
      y = 29.3217
      z = 0
      irot = 2562
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2563
      theta1 = 90
      phi1 = 43.2
      theta2 = 84
      phi2 = 133.2
      theta3 = 6
      phi3 = -46.8
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 757
      chmoth = 'DC14'
      x = 32.4872
      y = 30.5075
      z = 0
      irot = 2563
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2564
      theta1 = 90
      phi1 = 45.2571
      theta2 = 84
      phi2 = 135.257
      theta3 = 6
      phi3 = -44.7429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 758
      chmoth = 'DC14'
      x = 31.3712
      y = 31.654
      z = 0
      irot = 2564
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2565
      theta1 = 90
      phi1 = 47.3143
      theta2 = 84
      phi2 = 137.314
      theta3 = 6
      phi3 = -42.6857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 759
      chmoth = 'DC14'
      x = 30.2147
      y = 32.7597
      z = 0
      irot = 2565
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2566
      theta1 = 90
      phi1 = 49.3714
      theta2 = 84
      phi2 = 139.371
      theta3 = 6
      phi3 = -40.6286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 760
      chmoth = 'DC14'
      x = 29.0193
      y = 33.8232
      z = 0
      irot = 2566
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2567
      theta1 = 90
      phi1 = 51.4286
      theta2 = 84
      phi2 = 141.429
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 761
      chmoth = 'DC14'
      x = 27.7864
      y = 34.8431
      z = 0
      irot = 2567
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2568
      theta1 = 90
      phi1 = 53.4857
      theta2 = 84
      phi2 = 143.486
      theta3 = 6
      phi3 = -36.5143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 762
      chmoth = 'DC14'
      x = 26.5178
      y = 35.8181
      z = 0
      irot = 2568
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2569
      theta1 = 90
      phi1 = 55.5429
      theta2 = 84
      phi2 = 145.543
      theta3 = 6
      phi3 = -34.4571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 763
      chmoth = 'DC14'
      x = 25.215
      y = 36.7469
      z = 0
      irot = 2569
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2570
      theta1 = 90
      phi1 = 57.6
      theta2 = 84
      phi2 = 147.6
      theta3 = 6
      phi3 = -32.4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 764
      chmoth = 'DC14'
      x = 23.8797
      y = 37.6283
      z = 0
      irot = 2570
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2571
      theta1 = 90
      phi1 = 59.6571
      theta2 = 84
      phi2 = 149.657
      theta3 = 6
      phi3 = -30.3429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 765
      chmoth = 'DC14'
      x = 22.5136
      y = 38.4613
      z = 0
      irot = 2571
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2572
      theta1 = 90
      phi1 = 61.7143
      theta2 = 84
      phi2 = 151.714
      theta3 = 6
      phi3 = -28.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 766
      chmoth = 'DC14'
      x = 21.1184
      y = 39.2446
      z = 0
      irot = 2572
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2573
      theta1 = 90
      phi1 = 63.7714
      theta2 = 84
      phi2 = 153.771
      theta3 = 6
      phi3 = -26.2286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 767
      chmoth = 'DC14'
      x = 19.6961
      y = 39.9774
      z = 0
      irot = 2573
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2574
      theta1 = 90
      phi1 = 65.8286
      theta2 = 84
      phi2 = 155.829
      theta3 = 6
      phi3 = -24.1714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 768
      chmoth = 'DC14'
      x = 18.2484
      y = 40.6586
      z = 0
      irot = 2574
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2575
      theta1 = 90
      phi1 = 67.8857
      theta2 = 84
      phi2 = 157.886
      theta3 = 6
      phi3 = -22.1143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 769
      chmoth = 'DC14'
      x = 16.7771
      y = 41.2875
      z = 0
      irot = 2575
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2576
      theta1 = 90
      phi1 = 69.9429
      theta2 = 84
      phi2 = 159.943
      theta3 = 6
      phi3 = -20.0571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 770
      chmoth = 'DC14'
      x = 15.2842
      y = 41.8631
      z = 0
      irot = 2576
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2577
      theta1 = 90
      phi1 = 72
      theta2 = 84
      phi2 = 162
      theta3 = 6
      phi3 = -18
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 771
      chmoth = 'DC14'
      x = 13.7717
      y = 42.3848
      z = 0
      irot = 2577
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2578
      theta1 = 90
      phi1 = 74.0571
      theta2 = 84
      phi2 = 164.057
      theta3 = 6
      phi3 = -15.9429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 772
      chmoth = 'DC14'
      x = 12.2413
      y = 42.8518
      z = 0
      irot = 2578
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2579
      theta1 = 90
      phi1 = 76.1143
      theta2 = 84
      phi2 = 166.114
      theta3 = 6
      phi3 = -13.8857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 773
      chmoth = 'DC14'
      x = 10.6952
      y = 43.2636
      z = 0
      irot = 2579
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2580
      theta1 = 90
      phi1 = 78.1714
      theta2 = 84
      phi2 = 168.171
      theta3 = 6
      phi3 = -11.8286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 774
      chmoth = 'DC14'
      x = 9.13532
      y = 43.6197
      z = 0
      irot = 2580
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2581
      theta1 = 90
      phi1 = 80.2286
      theta2 = 84
      phi2 = 170.229
      theta3 = 6
      phi3 = -9.77143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 775
      chmoth = 'DC14'
      x = 7.56366
      y = 43.9195
      z = 0
      irot = 2581
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2582
      theta1 = 90
      phi1 = 82.2857
      theta2 = 84
      phi2 = 172.286
      theta3 = 6
      phi3 = -7.71429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 776
      chmoth = 'DC14'
      x = 5.98224
      y = 44.1627
      z = 0
      irot = 2582
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2583
      theta1 = 90
      phi1 = 84.3429
      theta2 = 84
      phi2 = 174.343
      theta3 = 6
      phi3 = -5.65714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 777
      chmoth = 'DC14'
      x = 4.39311
      y = 44.3489
      z = 0
      irot = 2583
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2584
      theta1 = 90
      phi1 = 86.4
      theta2 = 84
      phi2 = 176.4
      theta3 = 6
      phi3 = -3.6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 778
      chmoth = 'DC14'
      x = 2.79832
      y = 44.4781
      z = 0
      irot = 2584
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2585
      theta1 = 90
      phi1 = 88.4571
      theta2 = 84
      phi2 = 178.457
      theta3 = 6
      phi3 = -1.54286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 779
      chmoth = 'DC14'
      x = 1.19993
      y = 44.5498
      z = 0
      irot = 2585
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2586
      theta1 = 90
      phi1 = 90.5143
      theta2 = 84
      phi2 = -179.486
      theta3 = 6
      phi3 = 0.514286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 780
      chmoth = 'DC14'
      x = -0.400018
      y = 44.5642
      z = 0
      irot = 2586
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2587
      theta1 = 90
      phi1 = 92.5714
      theta2 = 84
      phi2 = -177.429
      theta3 = 6
      phi3 = 2.57143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 781
      chmoth = 'DC14'
      x = -1.99945
      y = 44.5211
      z = 0
      irot = 2587
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2588
      theta1 = 90
      phi1 = 94.6286
      theta2 = 84
      phi2 = -175.371
      theta3 = 6
      phi3 = 4.62857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 782
      chmoth = 'DC14'
      x = -3.5963
      y = 44.4207
      z = 0
      irot = 2588
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2589
      theta1 = 90
      phi1 = 96.6857
      theta2 = 84
      phi2 = -173.314
      theta3 = 6
      phi3 = 6.68571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 783
      chmoth = 'DC14'
      x = -5.18851
      y = 44.2629
      z = 0
      irot = 2589
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2590
      theta1 = 90
      phi1 = 98.7429
      theta2 = 84
      phi2 = -171.257
      theta3 = 6
      phi3 = 8.74286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 784
      chmoth = 'DC14'
      x = -6.77404
      y = 44.0482
      z = 0
      irot = 2590
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2591
      theta1 = 90
      phi1 = 100.8
      theta2 = 84
      phi2 = -169.2
      theta3 = 6
      phi3 = 10.8
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 785
      chmoth = 'DC14'
      x = -8.35084
      y = 43.7766
      z = 0
      irot = 2591
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2592
      theta1 = 90
      phi1 = 102.857
      theta2 = 84
      phi2 = -167.143
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 786
      chmoth = 'DC14'
      x = -9.91687
      y = 43.4486
      z = 0
      irot = 2592
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2593
      theta1 = 90
      phi1 = 104.914
      theta2 = 84
      phi2 = -165.086
      theta3 = 6
      phi3 = 14.9143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 787
      chmoth = 'DC14'
      x = -11.4701
      y = 43.0647
      z = 0
      irot = 2593
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2594
      theta1 = 90
      phi1 = 106.971
      theta2 = 84
      phi2 = -163.029
      theta3 = 6
      phi3 = 16.9714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 788
      chmoth = 'DC14'
      x = -13.0086
      y = 42.6252
      z = 0
      irot = 2594
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2595
      theta1 = 90
      phi1 = 109.029
      theta2 = 84
      phi2 = -160.971
      theta3 = 6
      phi3 = 19.0286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 789
      chmoth = 'DC14'
      x = -14.5303
      y = 42.1307
      z = 0
      irot = 2595
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2596
      theta1 = 90
      phi1 = 111.086
      theta2 = 84
      phi2 = -158.914
      theta3 = 6
      phi3 = 21.0857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 790
      chmoth = 'DC14'
      x = -16.0333
      y = 41.582
      z = 0
      irot = 2596
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2597
      theta1 = 90
      phi1 = 113.143
      theta2 = 84
      phi2 = -156.857
      theta3 = 6
      phi3 = 23.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 791
      chmoth = 'DC14'
      x = -17.5156
      y = 40.9797
      z = 0
      irot = 2597
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2598
      theta1 = 90
      phi1 = 115.2
      theta2 = 84
      phi2 = -154.8
      theta3 = 6
      phi3 = 25.2
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 792
      chmoth = 'DC14'
      x = -18.9753
      y = 40.3245
      z = 0
      irot = 2598
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2599
      theta1 = 90
      phi1 = 117.257
      theta2 = 84
      phi2 = -152.743
      theta3 = 6
      phi3 = 27.2571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 793
      chmoth = 'DC14'
      x = -20.4105
      y = 39.6174
      z = 0
      irot = 2599
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2600
      theta1 = 90
      phi1 = 119.314
      theta2 = 84
      phi2 = -150.686
      theta3 = 6
      phi3 = 29.3143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 794
      chmoth = 'DC14'
      x = -21.8195
      y = 38.8592
      z = 0
      irot = 2600
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2601
      theta1 = 90
      phi1 = 121.371
      theta2 = 84
      phi2 = -148.629
      theta3 = 6
      phi3 = 31.3714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 795
      chmoth = 'DC14'
      x = -23.2003
      y = 38.0509
      z = 0
      irot = 2601
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2602
      theta1 = 90
      phi1 = 123.429
      theta2 = 84
      phi2 = -146.571
      theta3 = 6
      phi3 = 33.4286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 796
      chmoth = 'DC14'
      x = -24.5513
      y = 37.1936
      z = 0
      irot = 2602
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2603
      theta1 = 90
      phi1 = 125.486
      theta2 = 84
      phi2 = -144.514
      theta3 = 6
      phi3 = 35.4857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 797
      chmoth = 'DC14'
      x = -25.8706
      y = 36.2883
      z = 0
      irot = 2603
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2604
      theta1 = 90
      phi1 = 127.543
      theta2 = 84
      phi2 = -142.457
      theta3 = 6
      phi3 = 37.5429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 798
      chmoth = 'DC14'
      x = -27.1565
      y = 35.3363
      z = 0
      irot = 2604
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2605
      theta1 = 90
      phi1 = 129.6
      theta2 = 84
      phi2 = -140.4
      theta3 = 6
      phi3 = 39.6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 799
      chmoth = 'DC14'
      x = -28.4074
      y = 34.3387
      z = 0
      irot = 2605
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2606
      theta1 = 90
      phi1 = 131.657
      theta2 = 84
      phi2 = -138.343
      theta3 = 6
      phi3 = 41.6571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 800
      chmoth = 'DC14'
      x = -29.6218
      y = 33.2968
      z = 0
      irot = 2606
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2607
      theta1 = 90
      phi1 = 133.714
      theta2 = 84
      phi2 = -136.286
      theta3 = 6
      phi3 = 43.7143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 801
      chmoth = 'DC14'
      x = -30.7979
      y = 32.2121
      z = 0
      irot = 2607
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2608
      theta1 = 90
      phi1 = 135.771
      theta2 = 84
      phi2 = -134.229
      theta3 = 6
      phi3 = 45.7714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 802
      chmoth = 'DC14'
      x = -31.9343
      y = 31.0858
      z = 0
      irot = 2608
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2609
      theta1 = 90
      phi1 = 137.829
      theta2 = 84
      phi2 = -132.171
      theta3 = 6
      phi3 = 47.8286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 803
      chmoth = 'DC14'
      x = -33.0296
      y = 29.9194
      z = 0
      irot = 2609
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2610
      theta1 = 90
      phi1 = 139.886
      theta2 = 84
      phi2 = -130.114
      theta3 = 6
      phi3 = 49.8857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 804
      chmoth = 'DC14'
      x = -34.0823
      y = 28.7145
      z = 0
      irot = 2610
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2611
      theta1 = 90
      phi1 = 141.943
      theta2 = 84
      phi2 = -128.057
      theta3 = 6
      phi3 = 51.9429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 805
      chmoth = 'DC14'
      x = -35.0911
      y = 27.4726
      z = 0
      irot = 2611
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2612
      theta1 = 90
      phi1 = 144
      theta2 = 84
      phi2 = -126
      theta3 = 6
      phi3 = 54
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 806
      chmoth = 'DC14'
      x = -36.0547
      y = 26.1952
      z = 0
      irot = 2612
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2613
      theta1 = 90
      phi1 = 146.057
      theta2 = 84
      phi2 = -123.943
      theta3 = 6
      phi3 = 56.0571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 807
      chmoth = 'DC14'
      x = -36.9717
      y = 24.8841
      z = 0
      irot = 2613
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2614
      theta1 = 90
      phi1 = 148.114
      theta2 = 84
      phi2 = -121.886
      theta3 = 6
      phi3 = 58.1143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 808
      chmoth = 'DC14'
      x = -37.8411
      y = 23.5409
      z = 0
      irot = 2614
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2615
      theta1 = 90
      phi1 = 150.171
      theta2 = 84
      phi2 = -119.829
      theta3 = 6
      phi3 = 60.1714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 809
      chmoth = 'DC14'
      x = -38.6618
      y = 22.1674
      z = 0
      irot = 2615
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2616
      theta1 = 90
      phi1 = 152.229
      theta2 = 84
      phi2 = -117.771
      theta3 = 6
      phi3 = 62.2286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 810
      chmoth = 'DC14'
      x = -39.4326
      y = 20.7653
      z = 0
      irot = 2616
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2617
      theta1 = 90
      phi1 = 154.286
      theta2 = 84
      phi2 = -115.714
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 811
      chmoth = 'DC14'
      x = -40.1526
      y = 19.3365
      z = 0
      irot = 2617
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2618
      theta1 = 90
      phi1 = 156.343
      theta2 = 84
      phi2 = -113.657
      theta3 = 6
      phi3 = 66.3429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 812
      chmoth = 'DC14'
      x = -40.8208
      y = 17.8827
      z = 0
      irot = 2618
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2619
      theta1 = 90
      phi1 = 158.4
      theta2 = 84
      phi2 = -111.6
      theta3 = 6
      phi3 = 68.4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 813
      chmoth = 'DC14'
      x = -41.4364
      y = 16.4058
      z = 0
      irot = 2619
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2620
      theta1 = 90
      phi1 = 160.457
      theta2 = 84
      phi2 = -109.543
      theta3 = 6
      phi3 = 70.4571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 814
      chmoth = 'DC14'
      x = -41.9986
      y = 14.9079
      z = 0
      irot = 2620
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2621
      theta1 = 90
      phi1 = 162.514
      theta2 = 84
      phi2 = -107.486
      theta3 = 6
      phi3 = 72.5143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 815
      chmoth = 'DC14'
      x = -42.5067
      y = 13.3907
      z = 0
      irot = 2621
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2622
      theta1 = 90
      phi1 = 164.571
      theta2 = 84
      phi2 = -105.429
      theta3 = 6
      phi3 = 74.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 816
      chmoth = 'DC14'
      x = -42.96
      y = 11.8562
      z = 0
      irot = 2622
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2623
      theta1 = 90
      phi1 = 166.629
      theta2 = 84
      phi2 = -103.371
      theta3 = 6
      phi3 = 76.6286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 817
      chmoth = 'DC14'
      x = -43.3579
      y = 10.3065
      z = 0
      irot = 2623
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2624
      theta1 = 90
      phi1 = 168.686
      theta2 = 84
      phi2 = -101.314
      theta3 = 6
      phi3 = 78.6857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 818
      chmoth = 'DC14'
      x = -43.6999
      y = 8.74343
      z = 0
      irot = 2624
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2625
      theta1 = 90
      phi1 = 170.743
      theta2 = 84
      phi2 = -99.2571
      theta3 = 6
      phi3 = 80.7429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 819
      chmoth = 'DC14'
      x = -43.9856
      y = 7.16914
      z = 0
      irot = 2625
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2626
      theta1 = 90
      phi1 = 172.8
      theta2 = 84
      phi2 = -97.2
      theta3 = 6
      phi3 = 82.8
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 820
      chmoth = 'DC14'
      x = -44.2146
      y = 5.5856
      z = 0
      irot = 2626
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2627
      theta1 = 90
      phi1 = 174.857
      theta2 = 84
      phi2 = -95.1429
      theta3 = 6
      phi3 = 84.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 821
      chmoth = 'DC14'
      x = -44.3866
      y = 3.99487
      z = 0
      irot = 2627
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2628
      theta1 = 90
      phi1 = 176.914
      theta2 = 84
      phi2 = -93.0857
      theta3 = 6
      phi3 = 86.9143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 822
      chmoth = 'DC14'
      x = -44.5014
      y = 2.39898
      z = 0
      irot = 2628
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2629
      theta1 = 90
      phi1 = 178.971
      theta2 = 84
      phi2 = -91.0286
      theta3 = 6
      phi3 = 88.9714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 823
      chmoth = 'DC14'
      x = -44.5588
      y = 0.800004
      z = 0
      irot = 2629
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2630
      theta1 = 90
      phi1 = -178.971
      theta2 = 84
      phi2 = -88.9714
      theta3 = 6
      phi3 = 91.0286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 824
      chmoth = 'DC14'
      x = -44.5588
      y = -0.800004
      z = 0
      irot = 2630
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2631
      theta1 = 90
      phi1 = -176.914
      theta2 = 84
      phi2 = -86.9143
      theta3 = 6
      phi3 = 93.0857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 825
      chmoth = 'DC14'
      x = -44.5014
      y = -2.39898
      z = 0
      irot = 2631
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2632
      theta1 = 90
      phi1 = -174.857
      theta2 = 84
      phi2 = -84.8571
      theta3 = 6
      phi3 = 95.1429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 826
      chmoth = 'DC14'
      x = -44.3866
      y = -3.99487
      z = 0
      irot = 2632
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2633
      theta1 = 90
      phi1 = -172.8
      theta2 = 84
      phi2 = -82.8
      theta3 = 6
      phi3 = 97.2
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 827
      chmoth = 'DC14'
      x = -44.2146
      y = -5.5856
      z = 0
      irot = 2633
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2634
      theta1 = 90
      phi1 = -170.743
      theta2 = 84
      phi2 = -80.7429
      theta3 = 6
      phi3 = 99.2571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 828
      chmoth = 'DC14'
      x = -43.9856
      y = -7.16914
      z = 0
      irot = 2634
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2635
      theta1 = 90
      phi1 = -168.686
      theta2 = 84
      phi2 = -78.6857
      theta3 = 6
      phi3 = 101.314
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 829
      chmoth = 'DC14'
      x = -43.6999
      y = -8.74343
      z = 0
      irot = 2635
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2636
      theta1 = 90
      phi1 = -166.629
      theta2 = 84
      phi2 = -76.6286
      theta3 = 6
      phi3 = 103.371
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 830
      chmoth = 'DC14'
      x = -43.3579
      y = -10.3065
      z = 0
      irot = 2636
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2637
      theta1 = 90
      phi1 = -164.571
      theta2 = 84
      phi2 = -74.5714
      theta3 = 6
      phi3 = 105.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 831
      chmoth = 'DC14'
      x = -42.96
      y = -11.8562
      z = 0
      irot = 2637
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2638
      theta1 = 90
      phi1 = -162.514
      theta2 = 84
      phi2 = -72.5143
      theta3 = 6
      phi3 = 107.486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 832
      chmoth = 'DC14'
      x = -42.5067
      y = -13.3907
      z = 0
      irot = 2638
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2639
      theta1 = 90
      phi1 = -160.457
      theta2 = 84
      phi2 = -70.4571
      theta3 = 6
      phi3 = 109.543
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 833
      chmoth = 'DC14'
      x = -41.9986
      y = -14.9079
      z = 0
      irot = 2639
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2640
      theta1 = 90
      phi1 = -158.4
      theta2 = 84
      phi2 = -68.4
      theta3 = 6
      phi3 = 111.6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 834
      chmoth = 'DC14'
      x = -41.4364
      y = -16.4058
      z = 0
      irot = 2640
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2641
      theta1 = 90
      phi1 = -156.343
      theta2 = 84
      phi2 = -66.3429
      theta3 = 6
      phi3 = 113.657
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 835
      chmoth = 'DC14'
      x = -40.8208
      y = -17.8827
      z = 0
      irot = 2641
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2642
      theta1 = 90
      phi1 = -154.286
      theta2 = 84
      phi2 = -64.2857
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 836
      chmoth = 'DC14'
      x = -40.1526
      y = -19.3365
      z = 0
      irot = 2642
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2643
      theta1 = 90
      phi1 = -152.229
      theta2 = 84
      phi2 = -62.2286
      theta3 = 6
      phi3 = 117.771
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 837
      chmoth = 'DC14'
      x = -39.4326
      y = -20.7653
      z = 0
      irot = 2643
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2644
      theta1 = 90
      phi1 = -150.171
      theta2 = 84
      phi2 = -60.1714
      theta3 = 6
      phi3 = 119.829
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 838
      chmoth = 'DC14'
      x = -38.6618
      y = -22.1674
      z = 0
      irot = 2644
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2645
      theta1 = 90
      phi1 = -148.114
      theta2 = 84
      phi2 = -58.1143
      theta3 = 6
      phi3 = 121.886
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 839
      chmoth = 'DC14'
      x = -37.8411
      y = -23.5409
      z = 0
      irot = 2645
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2646
      theta1 = 90
      phi1 = -146.057
      theta2 = 84
      phi2 = -56.0571
      theta3 = 6
      phi3 = 123.943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 840
      chmoth = 'DC14'
      x = -36.9717
      y = -24.8841
      z = 0
      irot = 2646
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2647
      theta1 = 90
      phi1 = -144
      theta2 = 84
      phi2 = -54
      theta3 = 6
      phi3 = 126
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 841
      chmoth = 'DC14'
      x = -36.0547
      y = -26.1952
      z = 0
      irot = 2647
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2648
      theta1 = 90
      phi1 = -141.943
      theta2 = 84
      phi2 = -51.9429
      theta3 = 6
      phi3 = 128.057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 842
      chmoth = 'DC14'
      x = -35.0911
      y = -27.4726
      z = 0
      irot = 2648
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2649
      theta1 = 90
      phi1 = -139.886
      theta2 = 84
      phi2 = -49.8857
      theta3 = 6
      phi3 = 130.114
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 843
      chmoth = 'DC14'
      x = -34.0823
      y = -28.7145
      z = 0
      irot = 2649
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2650
      theta1 = 90
      phi1 = -137.829
      theta2 = 84
      phi2 = -47.8286
      theta3 = 6
      phi3 = 132.171
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 844
      chmoth = 'DC14'
      x = -33.0296
      y = -29.9194
      z = 0
      irot = 2650
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2651
      theta1 = 90
      phi1 = -135.771
      theta2 = 84
      phi2 = -45.7714
      theta3 = 6
      phi3 = 134.229
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 845
      chmoth = 'DC14'
      x = -31.9343
      y = -31.0858
      z = 0
      irot = 2651
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2652
      theta1 = 90
      phi1 = -133.714
      theta2 = 84
      phi2 = -43.7143
      theta3 = 6
      phi3 = 136.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 846
      chmoth = 'DC14'
      x = -30.7979
      y = -32.2121
      z = 0
      irot = 2652
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2653
      theta1 = 90
      phi1 = -131.657
      theta2 = 84
      phi2 = -41.6571
      theta3 = 6
      phi3 = 138.343
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 847
      chmoth = 'DC14'
      x = -29.6218
      y = -33.2968
      z = 0
      irot = 2653
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2654
      theta1 = 90
      phi1 = -129.6
      theta2 = 84
      phi2 = -39.6
      theta3 = 6
      phi3 = 140.4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 848
      chmoth = 'DC14'
      x = -28.4074
      y = -34.3387
      z = 0
      irot = 2654
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2655
      theta1 = 90
      phi1 = -127.543
      theta2 = 84
      phi2 = -37.5429
      theta3 = 6
      phi3 = 142.457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 849
      chmoth = 'DC14'
      x = -27.1565
      y = -35.3363
      z = 0
      irot = 2655
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2656
      theta1 = 90
      phi1 = -125.486
      theta2 = 84
      phi2 = -35.4857
      theta3 = 6
      phi3 = 144.514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 850
      chmoth = 'DC14'
      x = -25.8706
      y = -36.2883
      z = 0
      irot = 2656
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2657
      theta1 = 90
      phi1 = -123.429
      theta2 = 84
      phi2 = -33.4286
      theta3 = 6
      phi3 = 146.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 851
      chmoth = 'DC14'
      x = -24.5513
      y = -37.1936
      z = 0
      irot = 2657
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2658
      theta1 = 90
      phi1 = -121.371
      theta2 = 84
      phi2 = -31.3714
      theta3 = 6
      phi3 = 148.629
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 852
      chmoth = 'DC14'
      x = -23.2003
      y = -38.0509
      z = 0
      irot = 2658
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2659
      theta1 = 90
      phi1 = -119.314
      theta2 = 84
      phi2 = -29.3143
      theta3 = 6
      phi3 = 150.686
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 853
      chmoth = 'DC14'
      x = -21.8195
      y = -38.8592
      z = 0
      irot = 2659
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2660
      theta1 = 90
      phi1 = -117.257
      theta2 = 84
      phi2 = -27.2571
      theta3 = 6
      phi3 = 152.743
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 854
      chmoth = 'DC14'
      x = -20.4105
      y = -39.6174
      z = 0
      irot = 2660
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2661
      theta1 = 90
      phi1 = -115.2
      theta2 = 84
      phi2 = -25.2
      theta3 = 6
      phi3 = 154.8
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 855
      chmoth = 'DC14'
      x = -18.9753
      y = -40.3245
      z = 0
      irot = 2661
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2662
      theta1 = 90
      phi1 = -113.143
      theta2 = 84
      phi2 = -23.1429
      theta3 = 6
      phi3 = 156.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 856
      chmoth = 'DC14'
      x = -17.5156
      y = -40.9797
      z = 0
      irot = 2662
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2663
      theta1 = 90
      phi1 = -111.086
      theta2 = 84
      phi2 = -21.0857
      theta3 = 6
      phi3 = 158.914
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 857
      chmoth = 'DC14'
      x = -16.0333
      y = -41.582
      z = 0
      irot = 2663
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2664
      theta1 = 90
      phi1 = -109.029
      theta2 = 84
      phi2 = -19.0286
      theta3 = 6
      phi3 = 160.971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 858
      chmoth = 'DC14'
      x = -14.5303
      y = -42.1307
      z = 0
      irot = 2664
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2665
      theta1 = 90
      phi1 = -106.971
      theta2 = 84
      phi2 = -16.9714
      theta3 = 6
      phi3 = 163.029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 859
      chmoth = 'DC14'
      x = -13.0086
      y = -42.6252
      z = 0
      irot = 2665
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2666
      theta1 = 90
      phi1 = -104.914
      theta2 = 84
      phi2 = -14.9143
      theta3 = 6
      phi3 = 165.086
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 860
      chmoth = 'DC14'
      x = -11.4701
      y = -43.0647
      z = 0
      irot = 2666
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2667
      theta1 = 90
      phi1 = -102.857
      theta2 = 84
      phi2 = -12.8571
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 861
      chmoth = 'DC14'
      x = -9.91687
      y = -43.4486
      z = 0
      irot = 2667
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2668
      theta1 = 90
      phi1 = -100.8
      theta2 = 84
      phi2 = -10.8
      theta3 = 6
      phi3 = 169.2
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 862
      chmoth = 'DC14'
      x = -8.35084
      y = -43.7766
      z = 0
      irot = 2668
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2669
      theta1 = 90
      phi1 = -98.7429
      theta2 = 84
      phi2 = -8.74286
      theta3 = 6
      phi3 = 171.257
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 863
      chmoth = 'DC14'
      x = -6.77404
      y = -44.0482
      z = 0
      irot = 2669
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2670
      theta1 = 90
      phi1 = -96.6857
      theta2 = 84
      phi2 = -6.68571
      theta3 = 6
      phi3 = 173.314
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 864
      chmoth = 'DC14'
      x = -5.18851
      y = -44.2629
      z = 0
      irot = 2670
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2671
      theta1 = 90
      phi1 = -94.6286
      theta2 = 84
      phi2 = -4.62857
      theta3 = 6
      phi3 = 175.371
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 865
      chmoth = 'DC14'
      x = -3.5963
      y = -44.4207
      z = 0
      irot = 2671
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2672
      theta1 = 90
      phi1 = -92.5714
      theta2 = 84
      phi2 = -2.57143
      theta3 = 6
      phi3 = 177.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 866
      chmoth = 'DC14'
      x = -1.99945
      y = -44.5211
      z = 0
      irot = 2672
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2673
      theta1 = 90
      phi1 = -90.5143
      theta2 = 84
      phi2 = -0.514286
      theta3 = 6
      phi3 = 179.486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 867
      chmoth = 'DC14'
      x = -0.400018
      y = -44.5642
      z = 0
      irot = 2673
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2674
      theta1 = 90
      phi1 = -88.4571
      theta2 = 84
      phi2 = 1.54286
      theta3 = 6
      phi3 = -178.457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 868
      chmoth = 'DC14'
      x = 1.19993
      y = -44.5498
      z = 0
      irot = 2674
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2675
      theta1 = 90
      phi1 = -86.4
      theta2 = 84
      phi2 = 3.6
      theta3 = 6
      phi3 = -176.4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 869
      chmoth = 'DC14'
      x = 2.79832
      y = -44.4781
      z = 0
      irot = 2675
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2676
      theta1 = 90
      phi1 = -84.3429
      theta2 = 84
      phi2 = 5.65714
      theta3 = 6
      phi3 = -174.343
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 870
      chmoth = 'DC14'
      x = 4.39311
      y = -44.3489
      z = 0
      irot = 2676
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2677
      theta1 = 90
      phi1 = -82.2857
      theta2 = 84
      phi2 = 7.71429
      theta3 = 6
      phi3 = -172.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 871
      chmoth = 'DC14'
      x = 5.98224
      y = -44.1627
      z = 0
      irot = 2677
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2678
      theta1 = 90
      phi1 = -80.2286
      theta2 = 84
      phi2 = 9.77143
      theta3 = 6
      phi3 = -170.229
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 872
      chmoth = 'DC14'
      x = 7.56366
      y = -43.9195
      z = 0
      irot = 2678
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2679
      theta1 = 90
      phi1 = -78.1714
      theta2 = 84
      phi2 = 11.8286
      theta3 = 6
      phi3 = -168.171
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 873
      chmoth = 'DC14'
      x = 9.13532
      y = -43.6197
      z = 0
      irot = 2679
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2680
      theta1 = 90
      phi1 = -76.1143
      theta2 = 84
      phi2 = 13.8857
      theta3 = 6
      phi3 = -166.114
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 874
      chmoth = 'DC14'
      x = 10.6952
      y = -43.2636
      z = 0
      irot = 2680
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2681
      theta1 = 90
      phi1 = -74.0571
      theta2 = 84
      phi2 = 15.9429
      theta3 = 6
      phi3 = -164.057
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 875
      chmoth = 'DC14'
      x = 12.2413
      y = -42.8518
      z = 0
      irot = 2681
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2682
      theta1 = 90
      phi1 = -72
      theta2 = 84
      phi2 = 18
      theta3 = 6
      phi3 = -162
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 876
      chmoth = 'DC14'
      x = 13.7717
      y = -42.3848
      z = 0
      irot = 2682
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2683
      theta1 = 90
      phi1 = -69.9429
      theta2 = 84
      phi2 = 20.0571
      theta3 = 6
      phi3 = -159.943
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 877
      chmoth = 'DC14'
      x = 15.2842
      y = -41.8631
      z = 0
      irot = 2683
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2684
      theta1 = 90
      phi1 = -67.8857
      theta2 = 84
      phi2 = 22.1143
      theta3 = 6
      phi3 = -157.886
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 878
      chmoth = 'DC14'
      x = 16.7771
      y = -41.2875
      z = 0
      irot = 2684
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2685
      theta1 = 90
      phi1 = -65.8286
      theta2 = 84
      phi2 = 24.1714
      theta3 = 6
      phi3 = -155.829
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 879
      chmoth = 'DC14'
      x = 18.2484
      y = -40.6586
      z = 0
      irot = 2685
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2686
      theta1 = 90
      phi1 = -63.7714
      theta2 = 84
      phi2 = 26.2286
      theta3 = 6
      phi3 = -153.771
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 880
      chmoth = 'DC14'
      x = 19.6961
      y = -39.9774
      z = 0
      irot = 2686
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2687
      theta1 = 90
      phi1 = -61.7143
      theta2 = 84
      phi2 = 28.2857
      theta3 = 6
      phi3 = -151.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 881
      chmoth = 'DC14'
      x = 21.1184
      y = -39.2446
      z = 0
      irot = 2687
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2688
      theta1 = 90
      phi1 = -59.6571
      theta2 = 84
      phi2 = 30.3429
      theta3 = 6
      phi3 = -149.657
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 882
      chmoth = 'DC14'
      x = 22.5136
      y = -38.4613
      z = 0
      irot = 2688
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2689
      theta1 = 90
      phi1 = -57.6
      theta2 = 84
      phi2 = 32.4
      theta3 = 6
      phi3 = -147.6
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 883
      chmoth = 'DC14'
      x = 23.8797
      y = -37.6283
      z = 0
      irot = 2689
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2690
      theta1 = 90
      phi1 = -55.5429
      theta2 = 84
      phi2 = 34.4571
      theta3 = 6
      phi3 = -145.543
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 884
      chmoth = 'DC14'
      x = 25.215
      y = -36.7469
      z = 0
      irot = 2690
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2691
      theta1 = 90
      phi1 = -53.4857
      theta2 = 84
      phi2 = 36.5143
      theta3 = 6
      phi3 = -143.486
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 885
      chmoth = 'DC14'
      x = 26.5178
      y = -35.8181
      z = 0
      irot = 2691
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2692
      theta1 = 90
      phi1 = -51.4286
      theta2 = 84
      phi2 = 38.5714
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 886
      chmoth = 'DC14'
      x = 27.7864
      y = -34.8431
      z = 0
      irot = 2692
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2693
      theta1 = 90
      phi1 = -49.3714
      theta2 = 84
      phi2 = 40.6286
      theta3 = 6
      phi3 = -139.371
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 887
      chmoth = 'DC14'
      x = 29.0193
      y = -33.8232
      z = 0
      irot = 2693
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2694
      theta1 = 90
      phi1 = -47.3143
      theta2 = 84
      phi2 = 42.6857
      theta3 = 6
      phi3 = -137.314
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 888
      chmoth = 'DC14'
      x = 30.2147
      y = -32.7597
      z = 0
      irot = 2694
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2695
      theta1 = 90
      phi1 = -45.2571
      theta2 = 84
      phi2 = 44.7429
      theta3 = 6
      phi3 = -135.257
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 889
      chmoth = 'DC14'
      x = 31.3712
      y = -31.654
      z = 0
      irot = 2695
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2696
      theta1 = 90
      phi1 = -43.2
      theta2 = 84
      phi2 = 46.8
      theta3 = 6
      phi3 = -133.2
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 890
      chmoth = 'DC14'
      x = 32.4872
      y = -30.5075
      z = 0
      irot = 2696
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2697
      theta1 = 90
      phi1 = -41.1429
      theta2 = 84
      phi2 = 48.8571
      theta3 = 6
      phi3 = -131.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 891
      chmoth = 'DC14'
      x = 33.5614
      y = -29.3217
      z = 0
      irot = 2697
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2698
      theta1 = 90
      phi1 = -39.0857
      theta2 = 84
      phi2 = 50.9143
      theta3 = 6
      phi3 = -129.086
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 892
      chmoth = 'DC14'
      x = 34.5923
      y = -28.0981
      z = 0
      irot = 2698
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2699
      theta1 = 90
      phi1 = -37.0286
      theta2 = 84
      phi2 = 52.9714
      theta3 = 6
      phi3 = -127.029
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 893
      chmoth = 'DC14'
      x = 35.5786
      y = -26.8382
      z = 0
      irot = 2699
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2700
      theta1 = 90
      phi1 = -34.9714
      theta2 = 84
      phi2 = 55.0286
      theta3 = 6
      phi3 = -124.971
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 894
      chmoth = 'DC14'
      x = 36.5191
      y = -25.5438
      z = 0
      irot = 2700
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2701
      theta1 = 90
      phi1 = -32.9143
      theta2 = 84
      phi2 = 57.0857
      theta3 = 6
      phi3 = -122.914
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 895
      chmoth = 'DC14'
      x = 37.4125
      y = -24.2164
      z = 0
      irot = 2701
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2702
      theta1 = 90
      phi1 = -30.8571
      theta2 = 84
      phi2 = 59.1429
      theta3 = 6
      phi3 = -120.857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 896
      chmoth = 'DC14'
      x = 38.2576
      y = -22.8579
      z = 0
      irot = 2702
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2703
      theta1 = 90
      phi1 = -28.8
      theta2 = 84
      phi2 = 61.2
      theta3 = 6
      phi3 = -118.8
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 897
      chmoth = 'DC14'
      x = 39.0535
      y = -21.4698
      z = 0
      irot = 2703
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2704
      theta1 = 90
      phi1 = -26.7429
      theta2 = 84
      phi2 = 63.2571
      theta3 = 6
      phi3 = -116.743
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 898
      chmoth = 'DC14'
      x = 39.799
      y = -20.0541
      z = 0
      irot = 2704
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2705
      theta1 = 90
      phi1 = -24.6857
      theta2 = 84
      phi2 = 65.3143
      theta3 = 6
      phi3 = -114.686
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 899
      chmoth = 'DC14'
      x = 40.4932
      y = -18.6126
      z = 0
      irot = 2705
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2706
      theta1 = 90
      phi1 = -22.6286
      theta2 = 84
      phi2 = 67.3714
      theta3 = 6
      phi3 = -112.629
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 900
      chmoth = 'DC14'
      x = 41.1352
      y = -17.147
      z = 0
      irot = 2706
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2707
      theta1 = 90
      phi1 = -20.5714
      theta2 = 84
      phi2 = 69.4286
      theta3 = 6
      phi3 = -110.571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 901
      chmoth = 'DC14'
      x = 41.7242
      y = -15.6594
      z = 0
      irot = 2707
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2708
      theta1 = 90
      phi1 = -18.5143
      theta2 = 84
      phi2 = 71.4857
      theta3 = 6
      phi3 = -108.514
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 902
      chmoth = 'DC14'
      x = 42.2595
      y = -14.1515
      z = 0
      irot = 2708
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2709
      theta1 = 90
      phi1 = -16.4571
      theta2 = 84
      phi2 = 73.5429
      theta3 = 6
      phi3 = -106.457
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 903
      chmoth = 'DC14'
      x = 42.7402
      y = -12.6255
      z = 0
      irot = 2709
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2710
      theta1 = 90
      phi1 = -14.4
      theta2 = 84
      phi2 = 75.6
      theta3 = 6
      phi3 = -104.4
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 904
      chmoth = 'DC14'
      x = 43.1659
      y = -11.0831
      z = 0
      irot = 2710
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2711
      theta1 = 90
      phi1 = -12.3429
      theta2 = 84
      phi2 = 77.6571
      theta3 = 6
      phi3 = -102.343
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 905
      chmoth = 'DC14'
      x = 43.5359
      y = -9.52648
      z = 0
      irot = 2711
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2712
      theta1 = 90
      phi1 = -10.2857
      theta2 = 84
      phi2 = 79.7143
      theta3 = 6
      phi3 = -100.286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 906
      chmoth = 'DC14'
      x = 43.8498
      y = -7.95757
      z = 0
      irot = 2712
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2713
      theta1 = 90
      phi1 = -8.22857
      theta2 = 84
      phi2 = 81.7714
      theta3 = 6
      phi3 = -98.2286
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 907
      chmoth = 'DC14'
      x = 44.1072
      y = -6.3784
      z = 0
      irot = 2713
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2714
      theta1 = 90
      phi1 = -6.17143
      theta2 = 84
      phi2 = 83.8286
      theta3 = 6
      phi3 = -96.1714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 908
      chmoth = 'DC14'
      x = 44.3077
      y = -4.79101
      z = 0
      irot = 2714
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2715
      theta1 = 90
      phi1 = -4.11429
      theta2 = 84
      phi2 = 85.8857
      theta3 = 6
      phi3 = -94.1143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 909
      chmoth = 'DC14'
      x = 44.4512
      y = -3.19744
      z = 0
      irot = 2715
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2716
      theta1 = 90
      phi1 = -2.05714
      theta2 = 84
      phi2 = 87.9429
      theta3 = 6
      phi3 = -92.0571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 910
      chmoth = 'DC14'
      x = 44.5373
      y = -1.59975
      z = 0
      irot = 2716
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 911
      chmoth = 'DC14'
      x = 46.348
      y = 0
      z = 0
      irot = 2717
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2718
      theta1 = 90
      phi1 = 1.97802
      theta2 = 84
      phi2 = 91.978
      theta3 = 6
      phi3 = -88.022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 912
      chmoth = 'DC14'
      x = 46.3204
      y = 1.59975
      z = 0
      irot = 2718
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2719
      theta1 = 90
      phi1 = 3.95604
      theta2 = 84
      phi2 = 93.956
      theta3 = 6
      phi3 = -86.044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 913
      chmoth = 'DC14'
      x = 46.2376
      y = 3.1976
      z = 0
      irot = 2719
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2720
      theta1 = 90
      phi1 = 5.93407
      theta2 = 84
      phi2 = 95.9341
      theta3 = 6
      phi3 = -84.0659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 914
      chmoth = 'DC14'
      x = 46.0996
      y = 4.79164
      z = 0
      irot = 2720
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2721
      theta1 = 90
      phi1 = 7.91209
      theta2 = 84
      phi2 = 97.9121
      theta3 = 6
      phi3 = -82.0879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 915
      chmoth = 'DC14'
      x = 45.9068
      y = 6.37997
      z = 0
      irot = 2721
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2722
      theta1 = 90
      phi1 = 9.89011
      theta2 = 84
      phi2 = 99.8901
      theta3 = 6
      phi3 = -80.1099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 916
      chmoth = 'DC14'
      x = 45.6592
      y = 7.96069
      z = 0
      irot = 2722
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2723
      theta1 = 90
      phi1 = 11.8681
      theta2 = 84
      phi2 = 101.868
      theta3 = 6
      phi3 = -78.1319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 917
      chmoth = 'DC14'
      x = 45.3572
      y = 9.53193
      z = 0
      irot = 2723
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 918
      chmoth = 'DC14'
      x = 45.0012
      y = 11.0918
      z = 0
      irot = 2724
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2725
      theta1 = 90
      phi1 = 15.8242
      theta2 = 84
      phi2 = 105.824
      theta3 = 6
      phi3 = -74.1758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 919
      chmoth = 'DC14'
      x = 44.5916
      y = 12.6385
      z = 0
      irot = 2725
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2726
      theta1 = 90
      phi1 = 17.8022
      theta2 = 84
      phi2 = 107.802
      theta3 = 6
      phi3 = -72.1978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 920
      chmoth = 'DC14'
      x = 44.1287
      y = 14.1701
      z = 0
      irot = 2726
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2727
      theta1 = 90
      phi1 = 19.7802
      theta2 = 84
      phi2 = 109.78
      theta3 = 6
      phi3 = -70.2198
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 921
      chmoth = 'DC14'
      x = 43.6134
      y = 15.6848
      z = 0
      irot = 2727
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2728
      theta1 = 90
      phi1 = 21.7582
      theta2 = 84
      phi2 = 111.758
      theta3 = 6
      phi3 = -68.2418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 922
      chmoth = 'DC14'
      x = 43.046
      y = 17.1808
      z = 0
      irot = 2728
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2729
      theta1 = 90
      phi1 = 23.7363
      theta2 = 84
      phi2 = 113.736
      theta3 = 6
      phi3 = -66.2637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 923
      chmoth = 'DC14'
      x = 42.4273
      y = 18.6563
      z = 0
      irot = 2729
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2730
      theta1 = 90
      phi1 = 25.7143
      theta2 = 84
      phi2 = 115.714
      theta3 = 6
      phi3 = -64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 924
      chmoth = 'DC14'
      x = 41.7581
      y = 20.1096
      z = 0
      irot = 2730
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2731
      theta1 = 90
      phi1 = 27.6923
      theta2 = 84
      phi2 = 117.692
      theta3 = 6
      phi3 = -62.3077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 925
      chmoth = 'DC14'
      x = 41.0391
      y = 21.539
      z = 0
      irot = 2731
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2732
      theta1 = 90
      phi1 = 29.6703
      theta2 = 84
      phi2 = 119.67
      theta3 = 6
      phi3 = -60.3297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 926
      chmoth = 'DC14'
      x = 40.2712
      y = 22.9427
      z = 0
      irot = 2732
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2733
      theta1 = 90
      phi1 = 31.6484
      theta2 = 84
      phi2 = 121.648
      theta3 = 6
      phi3 = -58.3516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 927
      chmoth = 'DC14'
      x = 39.4553
      y = 24.319
      z = 0
      irot = 2733
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2734
      theta1 = 90
      phi1 = 33.6264
      theta2 = 84
      phi2 = 123.626
      theta3 = 6
      phi3 = -56.3736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 928
      chmoth = 'DC14'
      x = 38.5924
      y = 25.6664
      z = 0
      irot = 2734
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2735
      theta1 = 90
      phi1 = 35.6044
      theta2 = 84
      phi2 = 125.604
      theta3 = 6
      phi3 = -54.3956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 929
      chmoth = 'DC14'
      x = 37.6835
      y = 26.9831
      z = 0
      irot = 2735
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2736
      theta1 = 90
      phi1 = 37.5824
      theta2 = 84
      phi2 = 127.582
      theta3 = 6
      phi3 = -52.4176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 930
      chmoth = 'DC14'
      x = 36.7297
      y = 28.2677
      z = 0
      irot = 2736
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2737
      theta1 = 90
      phi1 = 39.5604
      theta2 = 84
      phi2 = 129.56
      theta3 = 6
      phi3 = -50.4396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 931
      chmoth = 'DC14'
      x = 35.7321
      y = 29.5187
      z = 0
      irot = 2737
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2738
      theta1 = 90
      phi1 = 41.5385
      theta2 = 84
      phi2 = 131.538
      theta3 = 6
      phi3 = -48.4615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 932
      chmoth = 'DC14'
      x = 34.692
      y = 30.7344
      z = 0
      irot = 2738
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2739
      theta1 = 90
      phi1 = 43.5165
      theta2 = 84
      phi2 = 133.516
      theta3 = 6
      phi3 = -46.4835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 933
      chmoth = 'DC14'
      x = 33.6105
      y = 31.9135
      z = 0
      irot = 2739
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2740
      theta1 = 90
      phi1 = 45.4945
      theta2 = 84
      phi2 = 135.495
      theta3 = 6
      phi3 = -44.5055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 934
      chmoth = 'DC14'
      x = 32.4889
      y = 33.0546
      z = 0
      irot = 2740
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2741
      theta1 = 90
      phi1 = 47.4725
      theta2 = 84
      phi2 = 137.473
      theta3 = 6
      phi3 = -42.5275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 935
      chmoth = 'DC14'
      x = 31.3286
      y = 34.1563
      z = 0
      irot = 2741
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2742
      theta1 = 90
      phi1 = 49.4505
      theta2 = 84
      phi2 = 139.451
      theta3 = 6
      phi3 = -40.5495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 936
      chmoth = 'DC14'
      x = 30.131
      y = 35.2173
      z = 0
      irot = 2742
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2743
      theta1 = 90
      phi1 = 51.4286
      theta2 = 84
      phi2 = 141.429
      theta3 = 6
      phi3 = -38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 937
      chmoth = 'DC14'
      x = 28.8975
      y = 36.2363
      z = 0
      irot = 2743
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2744
      theta1 = 90
      phi1 = 53.4066
      theta2 = 84
      phi2 = 143.407
      theta3 = 6
      phi3 = -36.5934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 938
      chmoth = 'DC14'
      x = 27.6295
      y = 37.2122
      z = 0
      irot = 2744
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2745
      theta1 = 90
      phi1 = 55.3846
      theta2 = 84
      phi2 = 145.385
      theta3 = 6
      phi3 = -34.6154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 939
      chmoth = 'DC14'
      x = 26.3287
      y = 38.1437
      z = 0
      irot = 2745
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2746
      theta1 = 90
      phi1 = 57.3626
      theta2 = 84
      phi2 = 147.363
      theta3 = 6
      phi3 = -32.6374
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 940
      chmoth = 'DC14'
      x = 24.9964
      y = 39.0297
      z = 0
      irot = 2746
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2747
      theta1 = 90
      phi1 = 59.3407
      theta2 = 84
      phi2 = 149.341
      theta3 = 6
      phi3 = -30.6593
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 941
      chmoth = 'DC14'
      x = 23.6344
      y = 39.8692
      z = 0
      irot = 2747
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2748
      theta1 = 90
      phi1 = 61.3187
      theta2 = 84
      phi2 = 151.319
      theta3 = 6
      phi3 = -28.6813
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 942
      chmoth = 'DC14'
      x = 22.2441
      y = 40.6612
      z = 0
      irot = 2748
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2749
      theta1 = 90
      phi1 = 63.2967
      theta2 = 84
      phi2 = 153.297
      theta3 = 6
      phi3 = -26.7033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 943
      chmoth = 'DC14'
      x = 20.8274
      y = 41.4048
      z = 0
      irot = 2749
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2750
      theta1 = 90
      phi1 = 65.2747
      theta2 = 84
      phi2 = 155.275
      theta3 = 6
      phi3 = -24.7253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 944
      chmoth = 'DC14'
      x = 19.3859
      y = 42.099
      z = 0
      irot = 2750
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2751
      theta1 = 90
      phi1 = 67.2527
      theta2 = 84
      phi2 = 157.253
      theta3 = 6
      phi3 = -22.7473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 945
      chmoth = 'DC14'
      x = 17.9212
      y = 42.743
      z = 0
      irot = 2751
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2752
      theta1 = 90
      phi1 = 69.2308
      theta2 = 84
      phi2 = 159.231
      theta3 = 6
      phi3 = -20.7692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 946
      chmoth = 'DC14'
      x = 16.4352
      y = 43.3361
      z = 0
      irot = 2752
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2753
      theta1 = 90
      phi1 = 71.2088
      theta2 = 84
      phi2 = 161.209
      theta3 = 6
      phi3 = -18.7912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 947
      chmoth = 'DC14'
      x = 14.9296
      y = 43.8776
      z = 0
      irot = 2753
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2754
      theta1 = 90
      phi1 = 73.1868
      theta2 = 84
      phi2 = 163.187
      theta3 = 6
      phi3 = -16.8132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 948
      chmoth = 'DC14'
      x = 13.4063
      y = 44.3668
      z = 0
      irot = 2754
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2755
      theta1 = 90
      phi1 = 75.1648
      theta2 = 84
      phi2 = 165.165
      theta3 = 6
      phi3 = -14.8352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 949
      chmoth = 'DC14'
      x = 11.8669
      y = 44.8031
      z = 0
      irot = 2755
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2756
      theta1 = 90
      phi1 = 77.1429
      theta2 = 84
      phi2 = 167.143
      theta3 = 6
      phi3 = -12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 950
      chmoth = 'DC14'
      x = 10.3134
      y = 45.186
      z = 0
      irot = 2756
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2757
      theta1 = 90
      phi1 = 79.1209
      theta2 = 84
      phi2 = 169.121
      theta3 = 6
      phi3 = -10.8791
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 951
      chmoth = 'DC14'
      x = 8.74761
      y = 45.515
      z = 0
      irot = 2757
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2758
      theta1 = 90
      phi1 = 81.0989
      theta2 = 84
      phi2 = 171.099
      theta3 = 6
      phi3 = -8.9011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 952
      chmoth = 'DC14'
      x = 7.1714
      y = 45.7898
      z = 0
      irot = 2758
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2759
      theta1 = 90
      phi1 = 83.0769
      theta2 = 84
      phi2 = 173.077
      theta3 = 6
      phi3 = -6.92308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 953
      chmoth = 'DC14'
      x = 5.58663
      y = 46.0101
      z = 0
      irot = 2759
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2760
      theta1 = 90
      phi1 = 85.0549
      theta2 = 84
      phi2 = 175.055
      theta3 = 6
      phi3 = -4.94505
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 954
      chmoth = 'DC14'
      x = 3.99522
      y = 46.1755
      z = 0
      irot = 2760
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2761
      theta1 = 90
      phi1 = 87.033
      theta2 = 84
      phi2 = 177.033
      theta3 = 6
      phi3 = -2.96703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 955
      chmoth = 'DC14'
      x = 2.39904
      y = 46.2859
      z = 0
      irot = 2761
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2762
      theta1 = 90
      phi1 = 89.011
      theta2 = 84
      phi2 = 179.011
      theta3 = 6
      phi3 = -0.989011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 956
      chmoth = 'DC14'
      x = 0.799996
      y = 46.3411
      z = 0
      irot = 2762
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2763
      theta1 = 90
      phi1 = 90.989
      theta2 = 84
      phi2 = -179.011
      theta3 = 6
      phi3 = 0.989011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 957
      chmoth = 'DC14'
      x = -0.799996
      y = 46.3411
      z = 0
      irot = 2763
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2764
      theta1 = 90
      phi1 = 92.967
      theta2 = 84
      phi2 = -177.033
      theta3 = 6
      phi3 = 2.96703
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 958
      chmoth = 'DC14'
      x = -2.39904
      y = 46.2859
      z = 0
      irot = 2764
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2765
      theta1 = 90
      phi1 = 94.9451
      theta2 = 84
      phi2 = -175.055
      theta3 = 6
      phi3 = 4.94505
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 959
      chmoth = 'DC14'
      x = -3.99522
      y = 46.1755
      z = 0
      irot = 2765
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2766
      theta1 = 90
      phi1 = 96.9231
      theta2 = 84
      phi2 = -173.077
      theta3 = 6
      phi3 = 6.92308
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 960
      chmoth = 'DC14'
      x = -5.58663
      y = 46.0101
      z = 0
      irot = 2766
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2767
      theta1 = 90
      phi1 = 98.9011
      theta2 = 84
      phi2 = -171.099
      theta3 = 6
      phi3 = 8.9011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 961
      chmoth = 'DC14'
      x = -7.1714
      y = 45.7898
      z = 0
      irot = 2767
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2768
      theta1 = 90
      phi1 = 100.879
      theta2 = 84
      phi2 = -169.121
      theta3 = 6
      phi3 = 10.8791
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 962
      chmoth = 'DC14'
      x = -8.74761
      y = 45.515
      z = 0
      irot = 2768
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2769
      theta1 = 90
      phi1 = 102.857
      theta2 = 84
      phi2 = -167.143
      theta3 = 6
      phi3 = 12.8571
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 963
      chmoth = 'DC14'
      x = -10.3134
      y = 45.186
      z = 0
      irot = 2769
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2770
      theta1 = 90
      phi1 = 104.835
      theta2 = 84
      phi2 = -165.165
      theta3 = 6
      phi3 = 14.8352
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 964
      chmoth = 'DC14'
      x = -11.8669
      y = 44.8031
      z = 0
      irot = 2770
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2771
      theta1 = 90
      phi1 = 106.813
      theta2 = 84
      phi2 = -163.187
      theta3 = 6
      phi3 = 16.8132
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 965
      chmoth = 'DC14'
      x = -13.4063
      y = 44.3668
      z = 0
      irot = 2771
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2772
      theta1 = 90
      phi1 = 108.791
      theta2 = 84
      phi2 = -161.209
      theta3 = 6
      phi3 = 18.7912
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 966
      chmoth = 'DC14'
      x = -14.9296
      y = 43.8776
      z = 0
      irot = 2772
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2773
      theta1 = 90
      phi1 = 110.769
      theta2 = 84
      phi2 = -159.231
      theta3 = 6
      phi3 = 20.7692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 967
      chmoth = 'DC14'
      x = -16.4352
      y = 43.3361
      z = 0
      irot = 2773
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2774
      theta1 = 90
      phi1 = 112.747
      theta2 = 84
      phi2 = -157.253
      theta3 = 6
      phi3 = 22.7473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 968
      chmoth = 'DC14'
      x = -17.9212
      y = 42.743
      z = 0
      irot = 2774
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2775
      theta1 = 90
      phi1 = 114.725
      theta2 = 84
      phi2 = -155.275
      theta3 = 6
      phi3 = 24.7253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 969
      chmoth = 'DC14'
      x = -19.3859
      y = 42.099
      z = 0
      irot = 2775
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2776
      theta1 = 90
      phi1 = 116.703
      theta2 = 84
      phi2 = -153.297
      theta3 = 6
      phi3 = 26.7033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 970
      chmoth = 'DC14'
      x = -20.8274
      y = 41.4048
      z = 0
      irot = 2776
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2777
      theta1 = 90
      phi1 = 118.681
      theta2 = 84
      phi2 = -151.319
      theta3 = 6
      phi3 = 28.6813
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 971
      chmoth = 'DC14'
      x = -22.2441
      y = 40.6612
      z = 0
      irot = 2777
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2778
      theta1 = 90
      phi1 = 120.659
      theta2 = 84
      phi2 = -149.341
      theta3 = 6
      phi3 = 30.6593
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 972
      chmoth = 'DC14'
      x = -23.6344
      y = 39.8692
      z = 0
      irot = 2778
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2779
      theta1 = 90
      phi1 = 122.637
      theta2 = 84
      phi2 = -147.363
      theta3 = 6
      phi3 = 32.6374
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 973
      chmoth = 'DC14'
      x = -24.9964
      y = 39.0297
      z = 0
      irot = 2779
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2780
      theta1 = 90
      phi1 = 124.615
      theta2 = 84
      phi2 = -145.385
      theta3 = 6
      phi3 = 34.6154
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 974
      chmoth = 'DC14'
      x = -26.3287
      y = 38.1437
      z = 0
      irot = 2780
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2781
      theta1 = 90
      phi1 = 126.593
      theta2 = 84
      phi2 = -143.407
      theta3 = 6
      phi3 = 36.5934
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 975
      chmoth = 'DC14'
      x = -27.6295
      y = 37.2122
      z = 0
      irot = 2781
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2782
      theta1 = 90
      phi1 = 128.571
      theta2 = 84
      phi2 = -141.429
      theta3 = 6
      phi3 = 38.5714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 976
      chmoth = 'DC14'
      x = -28.8975
      y = 36.2363
      z = 0
      irot = 2782
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2783
      theta1 = 90
      phi1 = 130.549
      theta2 = 84
      phi2 = -139.451
      theta3 = 6
      phi3 = 40.5495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 977
      chmoth = 'DC14'
      x = -30.131
      y = 35.2173
      z = 0
      irot = 2783
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2784
      theta1 = 90
      phi1 = 132.527
      theta2 = 84
      phi2 = -137.473
      theta3 = 6
      phi3 = 42.5275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 978
      chmoth = 'DC14'
      x = -31.3286
      y = 34.1563
      z = 0
      irot = 2784
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2785
      theta1 = 90
      phi1 = 134.505
      theta2 = 84
      phi2 = -135.495
      theta3 = 6
      phi3 = 44.5055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 979
      chmoth = 'DC14'
      x = -32.4889
      y = 33.0546
      z = 0
      irot = 2785
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2786
      theta1 = 90
      phi1 = 136.484
      theta2 = 84
      phi2 = -133.516
      theta3 = 6
      phi3 = 46.4835
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 980
      chmoth = 'DC14'
      x = -33.6105
      y = 31.9135
      z = 0
      irot = 2786
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2787
      theta1 = 90
      phi1 = 138.462
      theta2 = 84
      phi2 = -131.538
      theta3 = 6
      phi3 = 48.4615
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 981
      chmoth = 'DC14'
      x = -34.692
      y = 30.7344
      z = 0
      irot = 2787
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2788
      theta1 = 90
      phi1 = 140.44
      theta2 = 84
      phi2 = -129.56
      theta3 = 6
      phi3 = 50.4396
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 982
      chmoth = 'DC14'
      x = -35.7321
      y = 29.5187
      z = 0
      irot = 2788
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2789
      theta1 = 90
      phi1 = 142.418
      theta2 = 84
      phi2 = -127.582
      theta3 = 6
      phi3 = 52.4176
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 983
      chmoth = 'DC14'
      x = -36.7297
      y = 28.2677
      z = 0
      irot = 2789
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2790
      theta1 = 90
      phi1 = 144.396
      theta2 = 84
      phi2 = -125.604
      theta3 = 6
      phi3 = 54.3956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 984
      chmoth = 'DC14'
      x = -37.6835
      y = 26.9831
      z = 0
      irot = 2790
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2791
      theta1 = 90
      phi1 = 146.374
      theta2 = 84
      phi2 = -123.626
      theta3 = 6
      phi3 = 56.3736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 985
      chmoth = 'DC14'
      x = -38.5924
      y = 25.6664
      z = 0
      irot = 2791
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2792
      theta1 = 90
      phi1 = 148.352
      theta2 = 84
      phi2 = -121.648
      theta3 = 6
      phi3 = 58.3516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 986
      chmoth = 'DC14'
      x = -39.4553
      y = 24.319
      z = 0
      irot = 2792
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2793
      theta1 = 90
      phi1 = 150.33
      theta2 = 84
      phi2 = -119.67
      theta3 = 6
      phi3 = 60.3297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 987
      chmoth = 'DC14'
      x = -40.2712
      y = 22.9427
      z = 0
      irot = 2793
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2794
      theta1 = 90
      phi1 = 152.308
      theta2 = 84
      phi2 = -117.692
      theta3 = 6
      phi3 = 62.3077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 988
      chmoth = 'DC14'
      x = -41.0391
      y = 21.539
      z = 0
      irot = 2794
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2795
      theta1 = 90
      phi1 = 154.286
      theta2 = 84
      phi2 = -115.714
      theta3 = 6
      phi3 = 64.2857
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 989
      chmoth = 'DC14'
      x = -41.7581
      y = 20.1096
      z = 0
      irot = 2795
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2796
      theta1 = 90
      phi1 = 156.264
      theta2 = 84
      phi2 = -113.736
      theta3 = 6
      phi3 = 66.2637
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 990
      chmoth = 'DC14'
      x = -42.4273
      y = 18.6563
      z = 0
      irot = 2796
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2797
      theta1 = 90
      phi1 = 158.242
      theta2 = 84
      phi2 = -111.758
      theta3 = 6
      phi3 = 68.2418
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 991
      chmoth = 'DC14'
      x = -43.046
      y = 17.1808
      z = 0
      irot = 2797
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2798
      theta1 = 90
      phi1 = 160.22
      theta2 = 84
      phi2 = -109.78
      theta3 = 6
      phi3 = 70.2198
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 992
      chmoth = 'DC14'
      x = -43.6134
      y = 15.6848
      z = 0
      irot = 2798
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2799
      theta1 = 90
      phi1 = 162.198
      theta2 = 84
      phi2 = -107.802
      theta3 = 6
      phi3 = 72.1978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 993
      chmoth = 'DC14'
      x = -44.1287
      y = 14.1701
      z = 0
      irot = 2799
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2800
      theta1 = 90
      phi1 = 164.176
      theta2 = 84
      phi2 = -105.824
      theta3 = 6
      phi3 = 74.1758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 994
      chmoth = 'DC14'
      x = -44.5916
      y = 12.6385
      z = 0
      irot = 2800
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 995
      chmoth = 'DC14'
      x = -45.0012
      y = 11.0918
      z = 0
      irot = 2801
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2802
      theta1 = 90
      phi1 = 168.132
      theta2 = 84
      phi2 = -101.868
      theta3 = 6
      phi3 = 78.1319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 996
      chmoth = 'DC14'
      x = -45.3572
      y = 9.53193
      z = 0
      irot = 2802
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2803
      theta1 = 90
      phi1 = 170.11
      theta2 = 84
      phi2 = -99.8901
      theta3 = 6
      phi3 = 80.1099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 997
      chmoth = 'DC14'
      x = -45.6592
      y = 7.96069
      z = 0
      irot = 2803
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2804
      theta1 = 90
      phi1 = 172.088
      theta2 = 84
      phi2 = -97.9121
      theta3 = 6
      phi3 = 82.0879
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 998
      chmoth = 'DC14'
      x = -45.9068
      y = 6.37997
      z = 0
      irot = 2804
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2805
      theta1 = 90
      phi1 = 174.066
      theta2 = 84
      phi2 = -95.9341
      theta3 = 6
      phi3 = 84.0659
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 999
      chmoth = 'DC14'
      x = -46.0996
      y = 4.79164
      z = 0
      irot = 2805
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2806
      theta1 = 90
      phi1 = 176.044
      theta2 = 84
      phi2 = -93.956
      theta3 = 6
      phi3 = 86.044
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1000
      chmoth = 'DC14'
      x = -46.2376
      y = 3.1976
      z = 0
      irot = 2806
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2807
      theta1 = 90
      phi1 = 178.022
      theta2 = 84
      phi2 = -91.978
      theta3 = 6
      phi3 = 88.022
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1001
      chmoth = 'DC14'
      x = -46.3204
      y = 1.59975
      z = 0
      irot = 2807
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 1002
      chmoth = 'DC14'
      x = -46.348
      y = 5.67581e-15
      z = 0
      irot = 2808
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2809
      theta1 = 90
      phi1 = -178.022
      theta2 = 84
      phi2 = -88.022
      theta3 = 6
      phi3 = 91.978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1003
      chmoth = 'DC14'
      x = -46.3204
      y = -1.59975
      z = 0
      irot = 2809
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2810
      theta1 = 90
      phi1 = -176.044
      theta2 = 84
      phi2 = -86.044
      theta3 = 6
      phi3 = 93.956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1004
      chmoth = 'DC14'
      x = -46.2376
      y = -3.1976
      z = 0
      irot = 2810
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2811
      theta1 = 90
      phi1 = -174.066
      theta2 = 84
      phi2 = -84.0659
      theta3 = 6
      phi3 = 95.9341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1005
      chmoth = 'DC14'
      x = -46.0996
      y = -4.79164
      z = 0
      irot = 2811
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2812
      theta1 = 90
      phi1 = -172.088
      theta2 = 84
      phi2 = -82.0879
      theta3 = 6
      phi3 = 97.9121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1006
      chmoth = 'DC14'
      x = -45.9068
      y = -6.37997
      z = 0
      irot = 2812
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2813
      theta1 = 90
      phi1 = -170.11
      theta2 = 84
      phi2 = -80.1099
      theta3 = 6
      phi3 = 99.8901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1007
      chmoth = 'DC14'
      x = -45.6592
      y = -7.96069
      z = 0
      irot = 2813
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2814
      theta1 = 90
      phi1 = -168.132
      theta2 = 84
      phi2 = -78.1319
      theta3 = 6
      phi3 = 101.868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1008
      chmoth = 'DC14'
      x = -45.3572
      y = -9.53193
      z = 0
      irot = 2814
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 1009
      chmoth = 'DC14'
      x = -45.0012
      y = -11.0918
      z = 0
      irot = 2815
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2816
      theta1 = 90
      phi1 = -164.176
      theta2 = 84
      phi2 = -74.1758
      theta3 = 6
      phi3 = 105.824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1010
      chmoth = 'DC14'
      x = -44.5916
      y = -12.6385
      z = 0
      irot = 2816
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2817
      theta1 = 90
      phi1 = -162.198
      theta2 = 84
      phi2 = -72.1978
      theta3 = 6
      phi3 = 107.802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1011
      chmoth = 'DC14'
      x = -44.1287
      y = -14.1701
      z = 0
      irot = 2817
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2818
      theta1 = 90
      phi1 = -160.22
      theta2 = 84
      phi2 = -70.2198
      theta3 = 6
      phi3 = 109.78
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1012
      chmoth = 'DC14'
      x = -43.6134
      y = -15.6848
      z = 0
      irot = 2818
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2819
      theta1 = 90
      phi1 = -158.242
      theta2 = 84
      phi2 = -68.2418
      theta3 = 6
      phi3 = 111.758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1013
      chmoth = 'DC14'
      x = -43.046
      y = -17.1808
      z = 0
      irot = 2819
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2820
      theta1 = 90
      phi1 = -156.264
      theta2 = 84
      phi2 = -66.2637
      theta3 = 6
      phi3 = 113.736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1014
      chmoth = 'DC14'
      x = -42.4273
      y = -18.6563
      z = 0
      irot = 2820
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2821
      theta1 = 90
      phi1 = -154.286
      theta2 = 84
      phi2 = -64.2857
      theta3 = 6
      phi3 = 115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1015
      chmoth = 'DC14'
      x = -41.7581
      y = -20.1096
      z = 0
      irot = 2821
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2822
      theta1 = 90
      phi1 = -152.308
      theta2 = 84
      phi2 = -62.3077
      theta3 = 6
      phi3 = 117.692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1016
      chmoth = 'DC14'
      x = -41.0391
      y = -21.539
      z = 0
      irot = 2822
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2823
      theta1 = 90
      phi1 = -150.33
      theta2 = 84
      phi2 = -60.3297
      theta3 = 6
      phi3 = 119.67
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1017
      chmoth = 'DC14'
      x = -40.2712
      y = -22.9427
      z = 0
      irot = 2823
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2824
      theta1 = 90
      phi1 = -148.352
      theta2 = 84
      phi2 = -58.3516
      theta3 = 6
      phi3 = 121.648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1018
      chmoth = 'DC14'
      x = -39.4553
      y = -24.319
      z = 0
      irot = 2824
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2825
      theta1 = 90
      phi1 = -146.374
      theta2 = 84
      phi2 = -56.3736
      theta3 = 6
      phi3 = 123.626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1019
      chmoth = 'DC14'
      x = -38.5924
      y = -25.6664
      z = 0
      irot = 2825
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2826
      theta1 = 90
      phi1 = -144.396
      theta2 = 84
      phi2 = -54.3956
      theta3 = 6
      phi3 = 125.604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1020
      chmoth = 'DC14'
      x = -37.6835
      y = -26.9831
      z = 0
      irot = 2826
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2827
      theta1 = 90
      phi1 = -142.418
      theta2 = 84
      phi2 = -52.4176
      theta3 = 6
      phi3 = 127.582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1021
      chmoth = 'DC14'
      x = -36.7297
      y = -28.2677
      z = 0
      irot = 2827
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2828
      theta1 = 90
      phi1 = -140.44
      theta2 = 84
      phi2 = -50.4396
      theta3 = 6
      phi3 = 129.56
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1022
      chmoth = 'DC14'
      x = -35.7321
      y = -29.5187
      z = 0
      irot = 2828
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2829
      theta1 = 90
      phi1 = -138.462
      theta2 = 84
      phi2 = -48.4615
      theta3 = 6
      phi3 = 131.538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1023
      chmoth = 'DC14'
      x = -34.692
      y = -30.7344
      z = 0
      irot = 2829
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2830
      theta1 = 90
      phi1 = -136.484
      theta2 = 84
      phi2 = -46.4835
      theta3 = 6
      phi3 = 133.516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1024
      chmoth = 'DC14'
      x = -33.6105
      y = -31.9135
      z = 0
      irot = 2830
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2831
      theta1 = 90
      phi1 = -134.505
      theta2 = 84
      phi2 = -44.5055
      theta3 = 6
      phi3 = 135.495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1025
      chmoth = 'DC14'
      x = -32.4889
      y = -33.0546
      z = 0
      irot = 2831
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2832
      theta1 = 90
      phi1 = -132.527
      theta2 = 84
      phi2 = -42.5275
      theta3 = 6
      phi3 = 137.473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1026
      chmoth = 'DC14'
      x = -31.3286
      y = -34.1563
      z = 0
      irot = 2832
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2833
      theta1 = 90
      phi1 = -130.549
      theta2 = 84
      phi2 = -40.5495
      theta3 = 6
      phi3 = 139.451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1027
      chmoth = 'DC14'
      x = -30.131
      y = -35.2173
      z = 0
      irot = 2833
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2834
      theta1 = 90
      phi1 = -128.571
      theta2 = 84
      phi2 = -38.5714
      theta3 = 6
      phi3 = 141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1028
      chmoth = 'DC14'
      x = -28.8975
      y = -36.2363
      z = 0
      irot = 2834
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2835
      theta1 = 90
      phi1 = -126.593
      theta2 = 84
      phi2 = -36.5934
      theta3 = 6
      phi3 = 143.407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1029
      chmoth = 'DC14'
      x = -27.6295
      y = -37.2122
      z = 0
      irot = 2835
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2836
      theta1 = 90
      phi1 = -124.615
      theta2 = 84
      phi2 = -34.6154
      theta3 = 6
      phi3 = 145.385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1030
      chmoth = 'DC14'
      x = -26.3287
      y = -38.1437
      z = 0
      irot = 2836
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2837
      theta1 = 90
      phi1 = -122.637
      theta2 = 84
      phi2 = -32.6374
      theta3 = 6
      phi3 = 147.363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1031
      chmoth = 'DC14'
      x = -24.9964
      y = -39.0297
      z = 0
      irot = 2837
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2838
      theta1 = 90
      phi1 = -120.659
      theta2 = 84
      phi2 = -30.6593
      theta3 = 6
      phi3 = 149.341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1032
      chmoth = 'DC14'
      x = -23.6344
      y = -39.8692
      z = 0
      irot = 2838
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2839
      theta1 = 90
      phi1 = -118.681
      theta2 = 84
      phi2 = -28.6813
      theta3 = 6
      phi3 = 151.319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1033
      chmoth = 'DC14'
      x = -22.2441
      y = -40.6612
      z = 0
      irot = 2839
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2840
      theta1 = 90
      phi1 = -116.703
      theta2 = 84
      phi2 = -26.7033
      theta3 = 6
      phi3 = 153.297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1034
      chmoth = 'DC14'
      x = -20.8274
      y = -41.4048
      z = 0
      irot = 2840
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2841
      theta1 = 90
      phi1 = -114.725
      theta2 = 84
      phi2 = -24.7253
      theta3 = 6
      phi3 = 155.275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1035
      chmoth = 'DC14'
      x = -19.3859
      y = -42.099
      z = 0
      irot = 2841
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2842
      theta1 = 90
      phi1 = -112.747
      theta2 = 84
      phi2 = -22.7473
      theta3 = 6
      phi3 = 157.253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1036
      chmoth = 'DC14'
      x = -17.9212
      y = -42.743
      z = 0
      irot = 2842
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2843
      theta1 = 90
      phi1 = -110.769
      theta2 = 84
      phi2 = -20.7692
      theta3 = 6
      phi3 = 159.231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1037
      chmoth = 'DC14'
      x = -16.4352
      y = -43.3361
      z = 0
      irot = 2843
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2844
      theta1 = 90
      phi1 = -108.791
      theta2 = 84
      phi2 = -18.7912
      theta3 = 6
      phi3 = 161.209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1038
      chmoth = 'DC14'
      x = -14.9296
      y = -43.8776
      z = 0
      irot = 2844
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2845
      theta1 = 90
      phi1 = -106.813
      theta2 = 84
      phi2 = -16.8132
      theta3 = 6
      phi3 = 163.187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1039
      chmoth = 'DC14'
      x = -13.4063
      y = -44.3668
      z = 0
      irot = 2845
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2846
      theta1 = 90
      phi1 = -104.835
      theta2 = 84
      phi2 = -14.8352
      theta3 = 6
      phi3 = 165.165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1040
      chmoth = 'DC14'
      x = -11.8669
      y = -44.8031
      z = 0
      irot = 2846
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2847
      theta1 = 90
      phi1 = -102.857
      theta2 = 84
      phi2 = -12.8571
      theta3 = 6
      phi3 = 167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1041
      chmoth = 'DC14'
      x = -10.3134
      y = -45.186
      z = 0
      irot = 2847
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2848
      theta1 = 90
      phi1 = -100.879
      theta2 = 84
      phi2 = -10.8791
      theta3 = 6
      phi3 = 169.121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1042
      chmoth = 'DC14'
      x = -8.74761
      y = -45.515
      z = 0
      irot = 2848
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2849
      theta1 = 90
      phi1 = -98.9011
      theta2 = 84
      phi2 = -8.9011
      theta3 = 6
      phi3 = 171.099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1043
      chmoth = 'DC14'
      x = -7.1714
      y = -45.7898
      z = 0
      irot = 2849
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2850
      theta1 = 90
      phi1 = -96.9231
      theta2 = 84
      phi2 = -6.92308
      theta3 = 6
      phi3 = 173.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1044
      chmoth = 'DC14'
      x = -5.58663
      y = -46.0101
      z = 0
      irot = 2850
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2851
      theta1 = 90
      phi1 = -94.9451
      theta2 = 84
      phi2 = -4.94505
      theta3 = 6
      phi3 = 175.055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1045
      chmoth = 'DC14'
      x = -3.99522
      y = -46.1755
      z = 0
      irot = 2851
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2852
      theta1 = 90
      phi1 = -92.967
      theta2 = 84
      phi2 = -2.96703
      theta3 = 6
      phi3 = 177.033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1046
      chmoth = 'DC14'
      x = -2.39904
      y = -46.2859
      z = 0
      irot = 2852
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2853
      theta1 = 90
      phi1 = -90.989
      theta2 = 84
      phi2 = -0.989011
      theta3 = 6
      phi3 = 179.011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1047
      chmoth = 'DC14'
      x = -0.799996
      y = -46.3411
      z = 0
      irot = 2853
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2854
      theta1 = 90
      phi1 = -89.011
      theta2 = 84
      phi2 = 0.989011
      theta3 = 6
      phi3 = -179.011
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1048
      chmoth = 'DC14'
      x = 0.799996
      y = -46.3411
      z = 0
      irot = 2854
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2855
      theta1 = 90
      phi1 = -87.033
      theta2 = 84
      phi2 = 2.96703
      theta3 = 6
      phi3 = -177.033
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1049
      chmoth = 'DC14'
      x = 2.39904
      y = -46.2859
      z = 0
      irot = 2855
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2856
      theta1 = 90
      phi1 = -85.0549
      theta2 = 84
      phi2 = 4.94505
      theta3 = 6
      phi3 = -175.055
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1050
      chmoth = 'DC14'
      x = 3.99522
      y = -46.1755
      z = 0
      irot = 2856
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2857
      theta1 = 90
      phi1 = -83.0769
      theta2 = 84
      phi2 = 6.92308
      theta3 = 6
      phi3 = -173.077
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1051
      chmoth = 'DC14'
      x = 5.58663
      y = -46.0101
      z = 0
      irot = 2857
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2858
      theta1 = 90
      phi1 = -81.0989
      theta2 = 84
      phi2 = 8.9011
      theta3 = 6
      phi3 = -171.099
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1052
      chmoth = 'DC14'
      x = 7.1714
      y = -45.7898
      z = 0
      irot = 2858
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2859
      theta1 = 90
      phi1 = -79.1209
      theta2 = 84
      phi2 = 10.8791
      theta3 = 6
      phi3 = -169.121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1053
      chmoth = 'DC14'
      x = 8.74761
      y = -45.515
      z = 0
      irot = 2859
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2860
      theta1 = 90
      phi1 = -77.1429
      theta2 = 84
      phi2 = 12.8571
      theta3 = 6
      phi3 = -167.143
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1054
      chmoth = 'DC14'
      x = 10.3134
      y = -45.186
      z = 0
      irot = 2860
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2861
      theta1 = 90
      phi1 = -75.1648
      theta2 = 84
      phi2 = 14.8352
      theta3 = 6
      phi3 = -165.165
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1055
      chmoth = 'DC14'
      x = 11.8669
      y = -44.8031
      z = 0
      irot = 2861
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2862
      theta1 = 90
      phi1 = -73.1868
      theta2 = 84
      phi2 = 16.8132
      theta3 = 6
      phi3 = -163.187
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1056
      chmoth = 'DC14'
      x = 13.4063
      y = -44.3668
      z = 0
      irot = 2862
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2863
      theta1 = 90
      phi1 = -71.2088
      theta2 = 84
      phi2 = 18.7912
      theta3 = 6
      phi3 = -161.209
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1057
      chmoth = 'DC14'
      x = 14.9296
      y = -43.8776
      z = 0
      irot = 2863
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2864
      theta1 = 90
      phi1 = -69.2308
      theta2 = 84
      phi2 = 20.7692
      theta3 = 6
      phi3 = -159.231
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1058
      chmoth = 'DC14'
      x = 16.4352
      y = -43.3361
      z = 0
      irot = 2864
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2865
      theta1 = 90
      phi1 = -67.2527
      theta2 = 84
      phi2 = 22.7473
      theta3 = 6
      phi3 = -157.253
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1059
      chmoth = 'DC14'
      x = 17.9212
      y = -42.743
      z = 0
      irot = 2865
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2866
      theta1 = 90
      phi1 = -65.2747
      theta2 = 84
      phi2 = 24.7253
      theta3 = 6
      phi3 = -155.275
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1060
      chmoth = 'DC14'
      x = 19.3859
      y = -42.099
      z = 0
      irot = 2866
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2867
      theta1 = 90
      phi1 = -63.2967
      theta2 = 84
      phi2 = 26.7033
      theta3 = 6
      phi3 = -153.297
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1061
      chmoth = 'DC14'
      x = 20.8274
      y = -41.4048
      z = 0
      irot = 2867
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2868
      theta1 = 90
      phi1 = -61.3187
      theta2 = 84
      phi2 = 28.6813
      theta3 = 6
      phi3 = -151.319
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1062
      chmoth = 'DC14'
      x = 22.2441
      y = -40.6612
      z = 0
      irot = 2868
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2869
      theta1 = 90
      phi1 = -59.3407
      theta2 = 84
      phi2 = 30.6593
      theta3 = 6
      phi3 = -149.341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1063
      chmoth = 'DC14'
      x = 23.6344
      y = -39.8692
      z = 0
      irot = 2869
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2870
      theta1 = 90
      phi1 = -57.3626
      theta2 = 84
      phi2 = 32.6374
      theta3 = 6
      phi3 = -147.363
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1064
      chmoth = 'DC14'
      x = 24.9964
      y = -39.0297
      z = 0
      irot = 2870
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2871
      theta1 = 90
      phi1 = -55.3846
      theta2 = 84
      phi2 = 34.6154
      theta3 = 6
      phi3 = -145.385
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1065
      chmoth = 'DC14'
      x = 26.3287
      y = -38.1437
      z = 0
      irot = 2871
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2872
      theta1 = 90
      phi1 = -53.4066
      theta2 = 84
      phi2 = 36.5934
      theta3 = 6
      phi3 = -143.407
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1066
      chmoth = 'DC14'
      x = 27.6295
      y = -37.2122
      z = 0
      irot = 2872
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2873
      theta1 = 90
      phi1 = -51.4286
      theta2 = 84
      phi2 = 38.5714
      theta3 = 6
      phi3 = -141.429
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1067
      chmoth = 'DC14'
      x = 28.8975
      y = -36.2363
      z = 0
      irot = 2873
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2874
      theta1 = 90
      phi1 = -49.4505
      theta2 = 84
      phi2 = 40.5495
      theta3 = 6
      phi3 = -139.451
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1068
      chmoth = 'DC14'
      x = 30.131
      y = -35.2173
      z = 0
      irot = 2874
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2875
      theta1 = 90
      phi1 = -47.4725
      theta2 = 84
      phi2 = 42.5275
      theta3 = 6
      phi3 = -137.473
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1069
      chmoth = 'DC14'
      x = 31.3286
      y = -34.1563
      z = 0
      irot = 2875
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2876
      theta1 = 90
      phi1 = -45.4945
      theta2 = 84
      phi2 = 44.5055
      theta3 = 6
      phi3 = -135.495
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1070
      chmoth = 'DC14'
      x = 32.4889
      y = -33.0546
      z = 0
      irot = 2876
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2877
      theta1 = 90
      phi1 = -43.5165
      theta2 = 84
      phi2 = 46.4835
      theta3 = 6
      phi3 = -133.516
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1071
      chmoth = 'DC14'
      x = 33.6105
      y = -31.9135
      z = 0
      irot = 2877
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2878
      theta1 = 90
      phi1 = -41.5385
      theta2 = 84
      phi2 = 48.4615
      theta3 = 6
      phi3 = -131.538
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1072
      chmoth = 'DC14'
      x = 34.692
      y = -30.7344
      z = 0
      irot = 2878
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2879
      theta1 = 90
      phi1 = -39.5604
      theta2 = 84
      phi2 = 50.4396
      theta3 = 6
      phi3 = -129.56
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1073
      chmoth = 'DC14'
      x = 35.7321
      y = -29.5187
      z = 0
      irot = 2879
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2880
      theta1 = 90
      phi1 = -37.5824
      theta2 = 84
      phi2 = 52.4176
      theta3 = 6
      phi3 = -127.582
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1074
      chmoth = 'DC14'
      x = 36.7297
      y = -28.2677
      z = 0
      irot = 2880
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2881
      theta1 = 90
      phi1 = -35.6044
      theta2 = 84
      phi2 = 54.3956
      theta3 = 6
      phi3 = -125.604
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1075
      chmoth = 'DC14'
      x = 37.6835
      y = -26.9831
      z = 0
      irot = 2881
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2882
      theta1 = 90
      phi1 = -33.6264
      theta2 = 84
      phi2 = 56.3736
      theta3 = 6
      phi3 = -123.626
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1076
      chmoth = 'DC14'
      x = 38.5924
      y = -25.6664
      z = 0
      irot = 2882
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2883
      theta1 = 90
      phi1 = -31.6484
      theta2 = 84
      phi2 = 58.3516
      theta3 = 6
      phi3 = -121.648
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1077
      chmoth = 'DC14'
      x = 39.4553
      y = -24.319
      z = 0
      irot = 2883
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2884
      theta1 = 90
      phi1 = -29.6703
      theta2 = 84
      phi2 = 60.3297
      theta3 = 6
      phi3 = -119.67
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1078
      chmoth = 'DC14'
      x = 40.2712
      y = -22.9427
      z = 0
      irot = 2884
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2885
      theta1 = 90
      phi1 = -27.6923
      theta2 = 84
      phi2 = 62.3077
      theta3 = 6
      phi3 = -117.692
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1079
      chmoth = 'DC14'
      x = 41.0391
      y = -21.539
      z = 0
      irot = 2885
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2886
      theta1 = 90
      phi1 = -25.7143
      theta2 = 84
      phi2 = 64.2857
      theta3 = 6
      phi3 = -115.714
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1080
      chmoth = 'DC14'
      x = 41.7581
      y = -20.1096
      z = 0
      irot = 2886
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2887
      theta1 = 90
      phi1 = -23.7363
      theta2 = 84
      phi2 = 66.2637
      theta3 = 6
      phi3 = -113.736
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1081
      chmoth = 'DC14'
      x = 42.4273
      y = -18.6563
      z = 0
      irot = 2887
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2888
      theta1 = 90
      phi1 = -21.7582
      theta2 = 84
      phi2 = 68.2418
      theta3 = 6
      phi3 = -111.758
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1082
      chmoth = 'DC14'
      x = 43.046
      y = -17.1808
      z = 0
      irot = 2888
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2889
      theta1 = 90
      phi1 = -19.7802
      theta2 = 84
      phi2 = 70.2198
      theta3 = 6
      phi3 = -109.78
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1083
      chmoth = 'DC14'
      x = 43.6134
      y = -15.6848
      z = 0
      irot = 2889
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2890
      theta1 = 90
      phi1 = -17.8022
      theta2 = 84
      phi2 = 72.1978
      theta3 = 6
      phi3 = -107.802
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1084
      chmoth = 'DC14'
      x = 44.1287
      y = -14.1701
      z = 0
      irot = 2890
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2891
      theta1 = 90
      phi1 = -15.8242
      theta2 = 84
      phi2 = 74.1758
      theta3 = 6
      phi3 = -105.824
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1085
      chmoth = 'DC14'
      x = 44.5916
      y = -12.6385
      z = 0
      irot = 2891
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'STLA'
      nr = 1086
      chmoth = 'DC14'
      x = 45.0012
      y = -11.0918
      z = 0
      irot = 2892
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2893
      theta1 = 90
      phi1 = -11.8681
      theta2 = 84
      phi2 = 78.1319
      theta3 = 6
      phi3 = -101.868
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1087
      chmoth = 'DC14'
      x = 45.3572
      y = -9.53193
      z = 0
      irot = 2893
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2894
      theta1 = 90
      phi1 = -9.89011
      theta2 = 84
      phi2 = 80.1099
      theta3 = 6
      phi3 = -99.8901
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1088
      chmoth = 'DC14'
      x = 45.6592
      y = -7.96069
      z = 0
      irot = 2894
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2895
      theta1 = 90
      phi1 = -7.91209
      theta2 = 84
      phi2 = 82.0879
      theta3 = 6
      phi3 = -97.9121
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1089
      chmoth = 'DC14'
      x = 45.9068
      y = -6.37997
      z = 0
      irot = 2895
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2896
      theta1 = 90
      phi1 = -5.93407
      theta2 = 84
      phi2 = 84.0659
      theta3 = 6
      phi3 = -95.9341
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1090
      chmoth = 'DC14'
      x = 46.0996
      y = -4.79164
      z = 0
      irot = 2896
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2897
      theta1 = 90
      phi1 = -3.95604
      theta2 = 84
      phi2 = 86.044
      theta3 = 6
      phi3 = -93.956
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1091
      chmoth = 'DC14'
      x = 46.2376
      y = -3.1976
      z = 0
      irot = 2897
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      irot = 2898
      theta1 = 90
      phi1 = -1.97802
      theta2 = 84
      phi2 = 88.022
      theta3 = 6
      phi3 = -91.978
      call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3)

      chname = 'STLA'
      nr = 1092
      chmoth = 'DC14'
      x = 46.3204
      y = -1.59975
      z = 0
      irot = 2898
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC18'
      chshap = 'TUBE'
      nmed = 95
      npar = 3
      par(1) = 48.3
      par(2) = 50
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.104) stop 'consistency check #1 failed'

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

      chname = 'SD0A'
      chmoth = 'DC18'
      ndiv = 193
      iaxis = 2
      step = 1.86528
      c0 = -0.932642
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 10
      chmoth = 'SD0A'
      x = 49.149
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC19'
      chshap = 'TUBE'
      nmed = 96
      npar = 3
      par(1) = 50
      par(2) = 51.8
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.106) stop 'consistency check #1 failed'

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

      chname = 'SD0B'
      chmoth = 'DC19'
      ndiv = 200
      iaxis = 2
      step = 1.8
      c0 = -0.9
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 11
      chmoth = 'SD0B'
      x = 50.932
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC20'
      chshap = 'TUBE'
      nmed = 97
      npar = 3
      par(1) = 51.8
      par(2) = 53.6
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.108) stop 'consistency check #1 failed'

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

      chname = 'SD0C'
      chmoth = 'DC20'
      ndiv = 207
      iaxis = 2
      step = 1.73913
      c0 = -0.869565
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 12
      chmoth = 'SD0C'
      x = 52.714
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC21'
      chshap = 'TUBE'
      nmed = 98
      npar = 3
      par(1) = 53.6
      par(2) = 55.4
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.110) stop 'consistency check #1 failed'

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

      chname = 'SD0D'
      chmoth = 'DC21'
      ndiv = 214
      iaxis = 2
      step = 1.68224
      c0 = -0.841121
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 13
      chmoth = 'SD0D'
      x = 54.497
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC22'
      chshap = 'TUBE'
      nmed = 99
      npar = 3
      par(1) = 55.4
      par(2) = 57.2
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.112) stop 'consistency check #1 failed'

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

      chname = 'SD0E'
      chmoth = 'DC22'
      ndiv = 221
      iaxis = 2
      step = 1.62896
      c0 = -0.81448
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 14
      chmoth = 'SD0E'
      x = 56.279
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DC23'
      chshap = 'TUBE'
      nmed = 100
      npar = 3
      par(1) = 57.2
      par(2) = 58.9
      par(3) = 100
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.114) stop 'consistency check #1 failed'

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

      chname = 'SD0F'
      chmoth = 'DC23'
      ndiv = 228
      iaxis = 2
      step = 1.57895
      c0 = -0.789474
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'STRA'
      nr = 15
      chmoth = 'SD0F'
      x = 58.062
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 101
      natmed = 'CDPD Aluminum'
      nmat = 7
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 101
      npar = 3
      par(1) = 15
      par(2) = 60
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.116) stop 'consistency check #1 failed'

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

      itmed = 102
      natmed = 'FDC Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 102
      npar = 3
      par(1) = 3.5
      par(2) = 62
      par(3) = 89
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.117) stop 'consistency check #1 failed'

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

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

      chname = 'FDMO'
      chshap = 'TUBE'
      nmed = 103
      npar = 3
      par(1) = 3.5
      par(2) = 61
      par(3) = 3
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.118) stop 'consistency check #1 failed'

      chname = 'FDMO'
      nr = 1
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -85.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDCH'
      chshap = 'TUBE'
      nmed = 104
      npar = 3
      par(1) = 3.5
      par(2) = 61
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.119) stop 'consistency check #1 failed'

      chname = 'FDCH'
      nr = 1
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = -2
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDCA'
      chshap = 'TUBE'
      nmed = 105
      npar = 3
      par(1) = 3.5
      par(2) = 60
      par(3) = 0.497
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.120) stop 'consistency check #1 failed'

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

      imate = 26
      namate = 'CopperKapton'
      wmat(1) = 0.89
      call gfmate(16,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.11
      call gfmate(22,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 5.65626
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      chname = 'FDCC'
      chshap = 'TUBE'
      nmed = 106
      npar = 3
      par(1) = 3.5
      par(2) = 60
      par(3) = 0.00295
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.121) stop 'consistency check #1 failed'

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

      chname = 'FDCC'
      nr = 1
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = -0.5
      irot = 2899
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDCC'
      nr = 2
      chmoth = 'FDCH'
      x = 0
      y = 0
      z = 0.5
      irot = 2900
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDCH'
      nr = 2
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 0
      irot = 2901
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDCH'
      nr = 3
      chmoth = 'FDMO'
      x = 0
      y = 0
      z = 2
      irot = 2902
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'FDMO'
      nr = 3
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -30.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 4
      chmoth = 'FDC'
      x = 0
      y = 0
      z = -24.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 5
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 24.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 6
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 30.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 7
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 79.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'FDMO'
      nr = 8
      chmoth = 'FDC'
      x = 0
      y = 0
      z = 85.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 107
      natmed = 'STRT Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 'TUBE'
      nmed = 107
      npar = 3
      par(1) = 10
      par(2) = 10.3
      par(3) = 25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.122) stop 'consistency check #1 failed'

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

      chname = 'SD10'
      chmoth = 'STRT'
      ndiv = 40
      iaxis = 2
      step = 9
      c0 = -4.5
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      itmed = 108
      natmed = 'STRC Scintillator'
      nmat = 27
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 'BOX '
      nmed = 108
      npar = 3
      par(1) = 0.1
      par(2) = 0.79
      par(3) = 25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.124) stop 'consistency check #1 failed'

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

      itmed = 109
      natmed = 'BCAL Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 109
      npar = 3
      par(1) = 65
      par(2) = 90
      par(3) = 195
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.125) 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 = 'SD11'
      chmoth = 'BCAL'
      ndiv = 48
      iaxis = 2
      step = 7.5
      c0 = 4.44089e-16
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 110
      natmed = 'BCAM Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 110
      npar = 5
      par(1) = 65
      par(2) = 90
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.127) stop 'consistency check #1 failed'

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

      itmed = 111
      natmed = 'BCL1 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 111
      npar = 5
      par(1) = 65
      par(2) = 66.25
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.128) 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 = 'SD12'
      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)

      imate = 28
      namate = 'leadScint'
      wmat(1) = 0.15
      call gfmate(27,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.85
      call gfmate(17,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      dens = 4.54053
      nlmat = 2
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

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

      chname = 'BCM1'
      chshap = 'TUBS'
      nmed = 112
      npar = 5
      par(1) = 65
      par(2) = 66.25
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.130) stop 'consistency check #1 failed'

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

      itmed = 113
      natmed = 'BCL2 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 113
      npar = 5
      par(1) = 66.25
      par(2) = 67.5
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.131) 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 = 'SD13'
      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 = 114
      natmed = 'BCM2 leadScint'
      nmat = 28
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM2'
      chshap = 'TUBS'
      nmed = 114
      npar = 5
      par(1) = 66.25
      par(2) = 67.5
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.133) stop 'consistency check #1 failed'

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

      itmed = 115
      natmed = 'BCL3 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 115
      npar = 5
      par(1) = 67.5
      par(2) = 68.75
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.134) 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 = 'SD14'
      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 = 116
      natmed = 'BCM3 leadScint'
      nmat = 28
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM3'
      chshap = 'TUBS'
      nmed = 116
      npar = 5
      par(1) = 67.5
      par(2) = 68.75
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.136) stop 'consistency check #1 failed'

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

      itmed = 117
      natmed = 'BCL4 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 117
      npar = 5
      par(1) = 68.75
      par(2) = 70
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.137) 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 = 'SD15'
      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 = 118
      natmed = 'BCM4 leadScint'
      nmat = 28
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM4'
      chshap = 'TUBS'
      nmed = 118
      npar = 5
      par(1) = 68.75
      par(2) = 70
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.139) stop 'consistency check #1 failed'

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

      itmed = 119
      natmed = 'BCL5 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 119
      npar = 5
      par(1) = 70
      par(2) = 71.25
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.140) 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 = 'SD16'
      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 = 120
      natmed = 'BCM5 leadScint'
      nmat = 28
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM5'
      chshap = 'TUBS'
      nmed = 120
      npar = 5
      par(1) = 70
      par(2) = 71.25
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.142) stop 'consistency check #1 failed'

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

      itmed = 121
      natmed = 'BCL6 Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 121
      npar = 5
      par(1) = 71.25
      par(2) = 72.5
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.143) 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 = 'SD17'
      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 = 122
      natmed = 'BCM6 leadScint'
      nmat = 28
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM6'
      chshap = 'TUBS'
      nmed = 122
      npar = 5
      par(1) = 71.25
      par(2) = 72.5
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.145) stop 'consistency check #1 failed'

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

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

      chname = 'BCL7'
      chshap = 'TUBS'
      nmed = 123
      npar = 5
      par(1) = 72.5
      par(2) = 73.75
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.146) stop 'consistency check #1 failed'

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

      chname = 'SD18'
      chmoth = 'BCL7'
      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 = 124
      natmed = 'BCM7 leadScint'
      nmat = 28
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM7'
      chshap = 'TUBS'
      nmed = 124
      npar = 5
      par(1) = 72.5
      par(2) = 73.75
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.148) stop 'consistency check #1 failed'

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

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

      chname = 'BCL8'
      chshap = 'TUBS'
      nmed = 125
      npar = 5
      par(1) = 73.75
      par(2) = 75
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.149) stop 'consistency check #1 failed'

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

      chname = 'SD19'
      chmoth = 'BCL8'
      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 = 126
      natmed = 'BCM8 leadScint'
      nmat = 28
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'BCM8'
      chshap = 'TUBS'
      nmed = 126
      npar = 5
      par(1) = 73.75
      par(2) = 75
      par(3) = 195
      par(4) = -0.9375
      par(5) = 0.9375
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.151) stop 'consistency check #1 failed'

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

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

      chname = 'BCL9'
      chshap = 'TUBS'
      nmed = 127
      npar = 5
      par(1) = 75
      par(2) = 78.75
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.152) stop 'consistency check #1 failed'

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

      chname = 'SD1A'
      chmoth = 'BCL9'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'BCM9'
      chshap = 'TUBS'
      nmed = 128
      npar = 5
      par(1) = 75
      par(2) = 78.75
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.154) stop 'consistency check #1 failed'

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

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

      chname = 'BL10'
      chshap = 'TUBS'
      nmed = 129
      npar = 5
      par(1) = 78.75
      par(2) = 82.5
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.155) stop 'consistency check #1 failed'

      chname = 'BL10'
      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 = 'SD1B'
      chmoth = 'BL10'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'BM10'
      chshap = 'TUBS'
      nmed = 130
      npar = 5
      par(1) = 78.75
      par(2) = 82.5
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.157) stop 'consistency check #1 failed'

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

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

      chname = 'BL11'
      chshap = 'TUBS'
      nmed = 131
      npar = 5
      par(1) = 82.5
      par(2) = 86.25
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.158) stop 'consistency check #1 failed'

      chname = 'BL11'
      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 = 'SD1C'
      chmoth = 'BL11'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'BM11'
      chshap = 'TUBS'
      nmed = 132
      npar = 5
      par(1) = 82.5
      par(2) = 86.25
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.160) stop 'consistency check #1 failed'

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

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

      chname = 'BL12'
      chshap = 'TUBS'
      nmed = 133
      npar = 5
      par(1) = 86.25
      par(2) = 90
      par(3) = 195
      par(4) = -3.75
      par(5) = 3.75
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.161) stop 'consistency check #1 failed'

      chname = 'BL12'
      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 = 'SD1D'
      chmoth = 'BL12'
      ndiv = 3
      iaxis = 2
      step = 2.5
      c0 = -3.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'BM12'
      chshap = 'TUBS'
      nmed = 134
      npar = 5
      par(1) = 86.25
      par(2) = 90
      par(3) = 195
      par(4) = -1.25
      par(5) = 1.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.163) stop 'consistency check #1 failed'

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

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

      chname = 'CERE'
      chshap = 'PCON'
      nmed = 135
      npar = 15
      par(1) = 0
      par(2) = 360
      par(3) = 4
      par(4) = 0
      par(5) = 5
      par(6) = 58
      par(7) = 54.3
      par(8) = 5
      par(9) = 58
      par(10) = 54.3
      par(11) = 5
      par(12) = 280.4
      par(13) = 209.3
      par(14) = 5
      par(15) = 280.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.164) stop 'consistency check #1 failed'

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

      imate = 29
      namate = 'CerenkovGas'
      wmat(1) = 1
      call gfmate(2,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      dens = 0.001214
      nlmat = 1
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 136
      natmed = 'CERI CerenkovGas'
      nmat = 29
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CERI'
      chshap = 'TUBE'
      nmed = 136
      npar = 3
      par(1) = 5.1
      par(2) = 57.9
      par(3) = 27.17
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.165) stop 'consistency check #1 failed'

      chname = 'CERI'
      nr = 1
      chmoth = 'CERE'
      x = 0
      y = 0
      z = 27.23
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 137
      natmed = 'CGAS CerenkovGas'
      nmat = 29
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CGAS'
      chshap = 'TUBE'
      nmed = 137
      npar = 3
      par(1) = 5.1
      par(2) = 280.3
      par(3) = 77.4
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.166) stop 'consistency check #1 failed'

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

      chname = 'SD1E'
      chmoth = 'CGAS'
      ndiv = 16
      iaxis = 2
      step = 22.5
      c0 = -11.25
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 138
      natmed = 'CSEC CerenkovGas'
      nmat = 29
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'CSEC'
      chshap = 'TUBS'
      nmed = 138
      npar = 5
      par(1) = 5.1
      par(2) = 280.3
      par(3) = 77.4
      par(4) = -11.25
      par(5) = 11.25
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.168) stop 'consistency check #1 failed'

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

      itmed = 139
      natmed = 'FTOF Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 139
      npar = 3
      par(1) = 129
      par(2) = 129
      par(3) = 0.635
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.169) stop 'consistency check #1 failed'

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

      itmed = 140
      natmed = 'FTOB Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 140
      npar = 3
      par(1) = 129
      par(2) = 63
      par(3) = 0.635
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.170) stop 'consistency check #1 failed'

      chname = 'FTOB'
      nr = 1
      chmoth = 'FTOF'
      x = 0
      y = -66
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD01'
      chmoth = 'FTOB'
      ndiv = 21
      iaxis = 2
      step = 6
      c0 = -63
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      itmed = 141
      natmed = 'FTOC Scintillator'
      nmat = 27
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 141
      npar = 3
      par(1) = 129
      par(2) = 3
      par(3) = 0.635
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.172) stop 'consistency check #1 failed'

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

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

      chname = 'FTOL'
      chshap = 'BOX '
      nmed = 142
      npar = 3
      par(1) = 63
      par(2) = 3
      par(3) = 0.635
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.173) stop 'consistency check #1 failed'

      chname = 'FTOL'
      nr = 1
      chmoth = 'FTOF'
      x = -66
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 143
      natmed = 'FTOS Scintillator'
      nmat = 27
      isvol = 1
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 143
      npar = 3
      par(1) = 63
      par(2) = 3
      par(3) = 0.635
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.174) stop 'consistency check #1 failed'

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

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

      chname = 'FTOR'
      chshap = 'BOX '
      nmed = 144
      npar = 3
      par(1) = 63
      par(2) = 3
      par(3) = 0.635
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.175) stop 'consistency check #1 failed'

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

      itmed = 145
      natmed = 'FTOT Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 145
      npar = 3
      par(1) = 129
      par(2) = 63
      par(3) = 0.635
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.176) 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 = 'YD02'
      chmoth = 'FTOT'
      ndiv = 21
      iaxis = 2
      step = 6
      c0 = -63
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

      chname = 'FTOF'
      nr = 2
      chmoth = 'HALL'
      x = 150
      y = -350
      z = 119.435
      irot = 2903
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 146
      natmed = 'FCAL Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 146
      npar = 3
      par(1) = 106
      par(2) = 106
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.178) stop 'consistency check #1 failed'

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

      itmed = 147
      natmed = 'LGDB Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 147
      npar = 3
      par(1) = 106
      par(2) = 50
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.179) stop 'consistency check #1 failed'

      chname = 'LGDB'
      nr = 1
      chmoth = 'FCAL'
      x = 0
      y = -56
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD03'
      chmoth = 'LGDB'
      ndiv = 25
      iaxis = 2
      step = 4
      c0 = -50
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD01'
      chmoth = 'YD03'
      ndiv = 53
      iaxis = 1
      step = 4
      c0 = -106
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      imate = 31
      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 = 32
      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 = 30
      namate = 'leadGlassSF3'
      wmat(1) = 0.42
      call gfmate(17,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf)
      wmat(2) = 0.2
      call gfmate(9,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf)
      wmat(3) = 0.09
      call gfmate(31,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf)
      wmat(4) = 0.01
      call gfmate(32,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf)
      wmat(5) = 0.28
      call gfmate(3,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf)
      dens = 3.6
      nlmat = 5
      call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat)

      itmed = 148
      natmed = 'LGBL leadGlassSF3'
      nmat = 30
      isvol = 1
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 148
      npar = 3
      par(1) = 2
      par(2) = 2
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.182) 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 = 149
      natmed = 'LGDL Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LGDL'
      chshap = 'BOX '
      nmed = 149
      npar = 3
      par(1) = 50
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.183) stop 'consistency check #1 failed'

      chname = 'LGDL'
      nr = 1
      chmoth = 'FCAL'
      x = -56
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD04'
      chmoth = 'LGDL'
      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 = 'YD04'
      ndiv = 25
      iaxis = 1
      step = 4
      c0 = -50
      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 = 150
      natmed = 'LGDR Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'LGDR'
      chshap = 'BOX '
      nmed = 150
      npar = 3
      par(1) = 50
      par(2) = 6
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.186) stop 'consistency check #1 failed'

      chname = 'LGDR'
      nr = 1
      chmoth = 'FCAL'
      x = 56
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD05'
      chmoth = 'LGDR'
      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 = 'YD05'
      ndiv = 25
      iaxis = 1
      step = 4
      c0 = -50
      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 = 151
      natmed = 'LGDT Air'
      nmat = 1
      isvol = 0
      ifield = 0
      fieldm = 0
      tmaxfd = 0
      stemax = 0
      deemax = 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 = 151
      npar = 3
      par(1) = 106
      par(2) = 50
      par(3) = 22.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.189) stop 'consistency check #1 failed'

      chname = 'LGDT'
      nr = 1
      chmoth = 'FCAL'
      x = 0
      y = 56
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD06'
      chmoth = 'LGDT'
      ndiv = 25
      iaxis = 2
      step = 4
      c0 = -50
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

      chname = 'XD04'
      chmoth = 'YD06'
      ndiv = 53
      iaxis = 1
      step = 4
      c0 = -106
      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 = 152
      natmed = 'UPV Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 0
      epsil = 0.001
      stmin = 0
      nwbuf = 0
      call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd,
     +            stemax,deemax,epsil,stmin,ubuf,nwbuf)

      chname = 'UPV'
      chshap = 'PGON'
      nmed = 152
      npar = 10
      par(1) = -45
      par(2) = 360
      par(3) = 4
      par(4) = 2
      par(5) = -13
      par(6) = 12.75
      par(7) = 120
      par(8) = 13
      par(9) = 12.75
      par(10) = 120
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.192) stop 'consistency check #1 failed'

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

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

      chname = 'UPW1'
      chshap = 'BOX '
      nmed = 153
      npar = 3
      par(1) = 120
      par(2) = 53.625
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.193) stop 'consistency check #1 failed'

      chname = 'UPW1'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = -66.375
      z = -12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPW1'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = 66.375
      z = -12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UPW2'
      chshap = 'BOX '
      nmed = 154
      npar = 3
      par(1) = 53.625
      par(2) = 12.75
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.194) stop 'consistency check #1 failed'

      chname = 'UPW2'
      nr = 1
      chmoth = 'UPV'
      x = -66.375
      y = 0
      z = -12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPW2'
      nr = 2
      chmoth = 'UPV'
      x = 66.375
      y = 0
      z = -12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPW1'
      nr = 3
      chmoth = 'UPV'
      x = 0
      y = -66.375
      z = 12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPW1'
      nr = 4
      chmoth = 'UPV'
      x = 0
      y = 66.375
      z = 12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPW2'
      nr = 3
      chmoth = 'UPV'
      x = -66.375
      y = 0
      z = 12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPW2'
      nr = 4
      chmoth = 'UPV'
      x = 66.375
      y = 0
      z = 12.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UPTB'
      chshap = 'BOX '
      nmed = 155
      npar = 3
      par(1) = 120
      par(2) = 0.5
      par(3) = 12
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.195) stop 'consistency check #1 failed'

      chname = 'UPTB'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = -119.5
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPTB'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = 119.5
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UPLR'
      chshap = 'BOX '
      nmed = 156
      npar = 3
      par(1) = 0.5
      par(2) = 119
      par(3) = 12
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.196) stop 'consistency check #1 failed'

      chname = 'UPLR'
      nr = 1
      chmoth = 'UPV'
      x = -119.5
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPLR'
      nr = 2
      chmoth = 'UPV'
      x = 119.5
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UPL1'
      chshap = 'BOX '
      nmed = 157
      npar = 3
      par(1) = 119
      par(2) = 53.125
      par(3) = 0.125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.197) stop 'consistency check #1 failed'

      chname = 'UPL1'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UPL2'
      chshap = 'BOX '
      nmed = 158
      npar = 3
      par(1) = 53.125
      par(2) = 12.75
      par(3) = 0.125
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.198) stop 'consistency check #1 failed'

      chname = 'UPL2'
      nr = 1
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 2
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 11.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'UPE1'
      chshap = 'BOX '
      nmed = 159
      npar = 3
      par(1) = 119
      par(2) = 53.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.199) stop 'consistency check #1 failed'

      chname = 'UPE1'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD07'
      chmoth = 'UPE1'
      ndiv = 25
      iaxis = 2
      step = 4.25
      c0 = -53.125
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'UPVP'
      chshap = 'BOX '
      nmed = 160
      npar = 3
      par(1) = 119
      par(2) = 2.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.201) stop 'consistency check #1 failed'

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

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

      chname = 'UPE2'
      chshap = 'BOX '
      nmed = 161
      npar = 3
      par(1) = 119
      par(2) = 53.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.202) stop 'consistency check #1 failed'

      chname = 'UPE2'
      nr = 1
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD08'
      chmoth = 'UPE2'
      ndiv = 25
      iaxis = 2
      step = 4.25
      c0 = -53.125
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

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

      chname = 'UPE3'
      chshap = 'BOX '
      nmed = 162
      npar = 3
      par(1) = 53.125
      par(2) = 12.75
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.204) stop 'consistency check #1 failed'

      chname = 'UPE3'
      nr = 1
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD09'
      chmoth = 'UPE3'
      ndiv = 6
      iaxis = 2
      step = 4.25
      c0 = -12.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'UPVC'
      chshap = 'BOX '
      nmed = 163
      npar = 3
      par(1) = 53.125
      par(2) = 2.125
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.206) stop 'consistency check #1 failed'

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

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

      chname = 'UPE4'
      chshap = 'BOX '
      nmed = 164
      npar = 3
      par(1) = 53.125
      par(2) = 12.75
      par(3) = 0.5
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.207) stop 'consistency check #1 failed'

      chname = 'UPE4'
      nr = 1
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 11.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'YD0A'
      chmoth = 'UPE4'
      ndiv = 6
      iaxis = 2
      step = 4.25
      c0 = -12.75
      numed = 0
      ndvmax = 0
      call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax)

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

      chname = 'UPL1'
      nr = 3
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 4
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 3
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 4
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 2
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 2
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 2
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 5
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 6
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 5
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 6
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 3
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 3
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 3
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 3
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 8.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 7
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 8
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 7
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 8
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 8.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 4
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 4
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 4
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 4
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 7.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 9
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 10
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 9
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 10
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 6.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 5
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 5
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 5
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 5
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 6.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 11
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 12
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 11
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 12
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 5.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 6
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 6
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 6
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 6
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 13
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 14
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 13
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 14
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 4.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 7
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 7
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 7
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 7
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 3.75
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 15
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 16
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 15
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 16
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 8
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 8
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 8
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 8
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 17
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 18
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 17
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 18
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 9
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 9
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 9
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 9
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 19
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 20
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 19
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 20
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 10
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 10
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 10
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 10
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = 0
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 21
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 22
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 21
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 22
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -0.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 11
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 11
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 11
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 11
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -1.25
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 23
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 24
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 23
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 24
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -1.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 12
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 12
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 12
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 12
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -2.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 25
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 26
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 25
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 26
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -3.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 27
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 28
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 27
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 28
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -3.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 13
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 13
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 13
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 13
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -4
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 29
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 30
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 29
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 30
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -4.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 31
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 32
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 31
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 32
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -4.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 14
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 14
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 14
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 14
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -5.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 33
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 34
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 33
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 34
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -6.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 35
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 36
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 35
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 36
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -6.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 15
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 15
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 15
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 15
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -7
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 37
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 38
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 37
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 38
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -7.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 39
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 40
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 39
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 40
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -7.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 16
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 16
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 16
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 16
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -8.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 41
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 42
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 41
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 42
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -9.125
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 43
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 44
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 43
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 44
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -9.375
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 17
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 17
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 17
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 17
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -10
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 45
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 46
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 45
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 46
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -10.625
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 47
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL1'
      nr = 48
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 47
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPL2'
      nr = 48
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -10.875
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE1'
      nr = 18
      chmoth = 'UPV'
      x = 0
      y = -65.875
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE2'
      nr = 18
      chmoth = 'UPV'
      x = 0
      y = 65.875
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE3'
      nr = 18
      chmoth = 'UPV'
      x = -65.875
      y = 0
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      chname = 'UPE4'
      nr = 18
      chmoth = 'UPV'
      x = 65.875
      y = 0
      z = -11.5
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

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

      chname = 'DET4'
      chshap = 'BOX '
      nmed = 165
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.209) stop 'consistency check #1 failed'

      chname = 'DET4'
      nr = 1
      chmoth = 'HALL'
      x = 0
      y = 0
      z = -1400
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)

      itmed = 166
      natmed = 'DET5 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 166
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.210) 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 = 167
      natmed = 'DET6 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 167
      npar = 3
      par(1) = 850
      par(2) = 1
      par(3) = 1500
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.211) 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 = 168
      natmed = 'DET7 Air'
      nmat = 1
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 168
      npar = 3
      par(1) = 850
      par(2) = 600
      par(3) = 1
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.212) 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 = 169
      natmed = 'OHPI Iron'
      nmat = 10
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 169
      npar = 3
      par(1) = 0
      par(2) = 2.5
      par(3) = 454
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.213) stop 'consistency check #1 failed'

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

      itmed = 170
      natmed = 'IHPI Vacuum'
      nmat = 11
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 170
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 454
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.214) 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 = 171
      natmed = 'CAP2 Mylar'
      nmat = 19
      isvol = 0
      ifield = 2
      fieldm = 22.4
      tmaxfd = 1
      stemax = 0
      deemax = 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 = 171
      npar = 3
      par(1) = 0
      par(2) = 2.2
      par(3) = 0.025
      call gsvolu(chname,chshap,nmed,par,npar,ivolu)
      if (ivolu.ne.215) stop 'consistency check #1 failed'

      chname = 'CAP2'
      nr = 1
      chmoth = 'IHPI'
      x = 0
      y = 0
      z = 453.975
      irot = 0
      chonly = 'ONLY'
      call gspos(chname,nr,chmoth,x,y,z,irot,chonly)
      end

      function getColumn()
      implicit none
      integer getColumn
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(215)
      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,    1,    0,    0,    0,    0,    0,    0,
     +     3,    0,    0,    0,   56,    0,    0,   81,    0,    0,
     +   106,    0,    0,    0,    0,    0,    0,    0,    0,  159/
      data (istart(i),i=201,215) /
     +     0,    0,  184,    0,  209,    0,    0,  215,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(220)
      data (lookup(i),i=1,100) /
     +     1,    2,    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,    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,
     +    28,   29,   30,   31,   32,   33,   34,   35,   36,   37,
     +    38,   39,   40,   41,   42,   43,   44,   45,   46,   47/
      data (lookup(i),i=101,200) /
     +    48,   49,   50,   51,   52,    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,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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 (lookup(i),i=201,220) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    1,    1,
     +     1,    1,    1,    1,    2,    2,    2,    2,    2,    2/
      integer level,index
      integer column
      getColumn = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          column = lookup(index + number(level) - 1)
          if (column.gt.0) then
            getColumn = column
          endif
        endif
      enddo
      end

      function getLayer()
      implicit none
      integer getLayer
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(215)
      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,    1,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    4,    0,
     +     0,    8,    0,    0,   12,    0,    0,   16,    0,    0,
     +    20,    0,    0,   24,    0,    0,   28,    0,    0,   32,
     +     0,    0,   36,    0,    0,   39,    0,    0,   42,    0,
     +     0,   45,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,   48,   96,  144,    0/
      data (istart(i),i=201,215) /
     +     0,  162,    0,  180,    0,    0,  198,    0,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(215)
      data (lookup(i),i=1,100) /
     +     1,    2,    3,    1,    1,    1,    1,    2,    2,    2,
     +     2,    3,    3,    3,    3,    4,    4,    4,    4,    5,
     +     5,    5,    5,    6,    6,    6,    6,    7,    7,    7,
     +     7,    8,    8,    8,    8,    9,    9,    9,   10,   10,
     +    10,   11,   11,   11,   12,   12,   12,    1,    1,    2,
     +     2,    3,    3,    4,    4,    5,    5,    6,    6,    7,
     +     7,    8,    8,    9,    9,   10,   10,   11,   11,   12,
     +    12,   13,   13,   13,   13,   14,   14,   14,   14,   15,
     +    15,   15,   15,   16,   16,   16,   16,   17,   17,   17,
     +    17,   18,   18,   18,   18,    1,    1,    2,    2,    3/
      data (lookup(i),i=101,200) /
     +     3,    4,    4,    5,    5,    6,    6,    7,    7,    8,
     +     8,    9,    9,   10,   10,   11,   11,   12,   12,   13,
     +    13,   13,   13,   14,   14,   14,   14,   15,   15,   15,
     +    15,   16,   16,   16,   16,   17,   17,   17,   17,   18,
     +    18,   18,   18,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16,   17,
     +    18,    1,    2,    3,    4,    5,    6,    7,    8,    9,
     +    10,   11,   12,   13,   14,   15,   16,   17,   18,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,   16,   17,   18,    1,    2,    3/
      data (lookup(i),i=201,215) /
     +     4,    5,    6,    7,    8,    9,   10,   11,   12,   13,
     +    14,   15,   16,   17,   18/
      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(215)
      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,    1,
     +     0,    0,    0,    0,    0,    0,    0,    2,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     3,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      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,    4,    0,    0,
     +     5,    0,    0,    6,    0,    0,    7,    0,    0,    8,
     +     0,    0,    9,    0,    0,   10,    0,    0,   11,    0,
     +     0,   12,    0,    0,   13,    0,    0,   14,    0,    0,
     +    15,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,   16,    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,215) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(16)
      data (lookup(i),i=1,16) /
     +     1,    2,    3,    4,    4,    4,    4,    4,    4,    4,
     +     4,    4,    4,    4,    4,    5/
      integer level,index
      integer map
      getMap = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          map = lookup(index + number(level) - 1)
          if (map.gt.0) then
            getMap = map
          endif
        endif
      enddo
      end

      function getModule()
      implicit none
      integer getModule
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(215)
      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,    1,    0,    0,
     +     0,    0,    0,    0,    0,    9,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,215) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(56)
      data (lookup(i),i=1,56) /
     +     1,    2,    3,    4,    5,    6,    7,    8,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12,
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48/
      integer level,index
      integer module
      getModule = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          module = lookup(index + number(level) - 1)
          if (module.gt.0) then
            getModule = module
          endif
        endif
      enddo
      end

      function getPlane()
      implicit none
      integer getPlane
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(215)
      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,    1,
     +     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,    4,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0/
      data (istart(i),i=201,215) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(5)
      data (lookup(i),i=1,5) /
     +     2,    1,    3,    1,    2/
      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(215)
      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,    1,    0,
     +     0,    0,    0,   64,    0,  134,    0,  211,    0,  295,
     +     0,    0,    0, 1387,    0, 1513,    0, 1646,    0, 1786/
      data (istart(i),i=101,200) /
     +     0, 1933,    0,    0, 2087,    0, 2280,    0, 2480,    0,
     +  2687,    0, 2901,    0, 3122,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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,215) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(3349)
      data (lookup(i),i=1,100) /
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
     +     1,    1,    1,    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/
      data (lookup(i),i=101,200) /
     +     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,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3,
     +     3,    3,    3,    3,    3,    3,    3,    3,    3,    3/
      data (lookup(i),i=201,300) /
     +     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,    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,    5,    5,    5,    5,    5,    5/
      data (lookup(i),i=301,400) /
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    5,    5,    5,    5,    5,
     +     5,    5,    5,    5,    5,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6/
      data (lookup(i),i=401,500) /
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    6,    6,    6,    6,    6,    6,    6,
     +     6,    6,    6,    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/
      data (lookup(i),i=501,600) /
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    7,    7,    7,    7,    7,    7,    7,    7,
     +     7,    7,    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/
      data (lookup(i),i=601,700) /
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    8,    8,    8,    8,    8,    8,    8,    8,    8,
     +     8,    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=701,800) /
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   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=801,900) /
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   14,   14,   14,
     +    14,   14,   14,   14,   14,   14,   14,   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/
      data (lookup(i),i=901,1000) /
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   15,   15,   15,   15,
     +    15,   15,   15,   15,   15,   15,   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=1001,1100) /
     +    15,   15,   15,   15,   15,   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,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   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=1101,1200) /
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   16,   16,   16,   16,
     +    16,   16,   16,   16,   16,   16,   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=1201,1300) /
     +    16,   16,   16,   16,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   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=1301,1400) /
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,   17,   17,   17,   17,
     +    17,   17,   17,   17,   17,   17,    9,    9,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9/
      data (lookup(i),i=1401,1500) /
     +     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,    9,    9,
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9/
      data (lookup(i),i=1501,1600) /
     +     9,    9,    9,    9,    9,    9,    9,    9,    9,    9,
     +     9,    9,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10/
      data (lookup(i),i=1601,1700) /
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   10,   10,   10,   10,   10,
     +    10,   10,   10,   10,   10,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11/
      data (lookup(i),i=1701,1800) /
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
     +    11,   11,   11,   11,   11,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12/
      data (lookup(i),i=1801,1900) /
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   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=1901,2000) /
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   12,   12,   12,   12,   12,   12,   12,   12,
     +    12,   12,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   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=2001,2100) /
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   13,   13,   13,   13,
     +    13,   13,   13,   13,   13,   13,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18/
      data (lookup(i),i=2101,2200) /
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   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=2201,2300) /
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   18,
     +    18,   18,   18,   18,   18,   18,   18,   18,   18,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19/
      data (lookup(i),i=2301,2400) /
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   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=2401,2500) /
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   19,   19,   19,   19,   19,
     +    19,   19,   19,   19,   19,   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/
      data (lookup(i),i=2501,2600) /
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   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=2601,2700) /
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   20,   20,   20,   20,
     +    20,   20,   20,   20,   20,   20,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21/
      data (lookup(i),i=2701,2800) /
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   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=2801,2900) /
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   21,   21,   21,   21,
     +    21,   21,   21,   21,   21,   21,   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) /
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   22,   22,   22,   22,
     +    22,   22,   22,   22,   22,   22,   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=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,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   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,3349) /
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23,   23,
     +    23,   23,   23,   23,   23,   23,   23,   23,   23/
      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(215)
      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,
     +     1,    0,    0,   22,    0,    0,   24,    0,    0,   45,
     +     0,    0,    0,   70,    0,    0,   73,    0,    0,   76,
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,  101/
      data (istart(i),i=201,215) /
     +     0,    0,  126,    0,  151,    0,    0,  157,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(162)
      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,   22,   23,   24,   25,   26,   27,   28,   29,
     +    30,   31,   32,   33,   34,   35,   36,   37,   38,   39,
     +    40,   41,   42,   43,    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,   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=101,162) /
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +    11,   12,   13,   14,   15,   16,   17,   18,   19,   20,
     +    21,   22,   23,   24,   25,   32,   33,   34,   35,   36,
     +    37,   38,   39,   40,   41,   42,   43,   44,   45,   46,
     +    47,   48,   49,   50,   51,   52,   53,   54,   55,   56,
     +    26,   27,   28,   29,   30,   31,   26,   27,   28,   29,
     +    30,   31/
      integer level,index
      integer row
      getRow = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          row = lookup(index + number(level) - 1)
          if (row.gt.0) then
            getRow = row
          endif
        endif
      enddo
      end

      function getSector()
      implicit none
      integer getSector
      integer nlevel,names,number,lvolum
      common /gcvolu/nlevel,names(15),number(15),lvolum(15)
      integer i,istart(215)
      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,    1,    0,
     +     0,    0,    0,   64,    0,  134,    0,  211,    0,  295,
     +     0,    0,    0, 1387,    0, 1513,    0, 1646,    0, 1786/
      data (istart(i),i=101,200) /
     +     0, 1933,    0,    0, 2087,    0, 2280,    0, 2480,    0,
     +  2687,    0, 2901,    0, 3122,    0,    0,    0,    0,    0,
     +     0,    0, 3350,    0,    0,    0,    0,    0, 3390,    0,
     +     0, 3394,    0,    0, 3398,    0,    0, 3402,    0,    0,
     +  3406,    0,    0, 3410,    0,    0, 3414,    0,    0, 3418,
     +     0,    0, 3422,    0,    0, 3425,    0,    0, 3428,    0,
     +     0, 3431,    0,    0,    0,    0, 3434,    0,    0,    0,
     +     0,    0,    0,    0,    0,    0,    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,215) /
     +     0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +     0,    0,    0,    0,    0/
      integer lookup(3449)
      data (lookup(i),i=1,100) /
     +     1,    2,    3,    4,    5,    6,    7,    8,    9,   10,
     +    11,   12,   13,   14,   15,   16,   17,   18,   19,   20,
     +    21,   22,   23,   24,   25,   26,   27,   28,   29,   30,
     +    31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
     +    41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
     +    51,   52,   53,   54,   55,   56,   57,   58,   59,   60,
     +    61,   62,   63,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16,   17,
     +    18,   19,   20,   21,   22,   23,   24,   25,   26,   27,
     +    28,   29,   30,   31,   32,   33,   34,   35,   36,   37/
      data (lookup(i),i=101,200) /
     +    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,    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/
      data (lookup(i),i=201,300) /
     +    68,   69,   70,   71,   72,   73,   74,   75,   76,   77,
     +     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,    1,    2,    3,    4,    5,    6/
      data (lookup(i),i=301,400) /
     +     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,    1,    2,    3,    4,    5,
     +     6,    7,    8,    9,   10,   11,   12,   13,   14,   15/
      data (lookup(i),i=401,500) /
     +    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,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16,   17/
      data (lookup(i),i=501,600) /
     +    18,   19,   20,   21,   22,   23,   24,   25,   26,   27,
     +    28,   29,   30,   31,   32,   33,   34,   35,   36,   37,
     +    38,   39,   40,   41,   42,   43,   44,   45,   46,   47,
     +    48,   49,   50,   51,   52,   53,   54,   55,   56,   57,
     +    58,   59,   60,   61,   62,   63,   64,   65,   66,   67,
     +    68,   69,   70,   71,   72,   73,   74,   75,   76,   77,
     +    78,   79,   80,   81,   82,   83,   84,   85,   86,   87,
     +    88,   89,   90,   91,   92,   93,   94,   95,   96,   97,
     +    98,   99,  100,  101,  102,  103,  104,  105,    1,    2,
     +     3,    4,    5,    6,    7,    8,    9,   10,   11,   12/
      data (lookup(i),i=601,700) /
     +    13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
     +    23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
     +    33,   34,   35,   36,   37,   38,   39,   40,   41,   42,
     +    43,   44,   45,   46,   47,   48,   49,   50,   51,   52,
     +    53,   54,   55,   56,   57,   58,   59,   60,   61,   62,
     +    63,   64,   65,   66,   67,   68,   69,   70,   71,   72,
     +    73,   74,   75,   76,   77,   78,   79,   80,   81,   82,
     +    83,   84,   85,   86,   87,   88,   89,   90,   91,   92,
     +    93,   94,   95,   96,   97,   98,   99,  100,  101,  102,
     +   103,  104,  105,  106,  107,  108,  109,  110,  111,  112/
      data (lookup(i),i=701,800) /
     +     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=801,900) /
     +   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,    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/
      data (lookup(i),i=901,1000) /
     +    40,   41,   42,   43,   44,   45,   46,   47,   48,   49,
     +    50,   51,   52,   53,   54,   55,   56,   57,   58,   59,
     +    60,   61,   62,   63,   64,   65,   66,   67,   68,   69,
     +    70,   71,   72,   73,   74,   75,   76,   77,   78,   79,
     +    80,   81,   82,   83,   84,   85,   86,   87,   88,   89,
     +    90,   91,   92,   93,   94,   95,   96,   97,   98,   99,
     +   100,  101,  102,  103,  104,  105,  106,  107,  108,  109,
     +   110,  111,  112,  113,  114,  115,  116,  117,  118,  119,
     +   120,  121,  122,  123,  124,  125,  126,  127,  128,  129,
     +   130,  131,  132,  133,  134,  135,  136,  137,  138,  139/
      data (lookup(i),i=1001,1100) /
     +   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,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,   16,   17,   18,   19,   20,   21,
     +    22,   23,   24,   25,   26,   27,   28,   29,   30,   31,
     +    32,   33,   34,   35,   36,   37,   38,   39,   40,   41,
     +    42,   43,   44,   45,   46,   47,   48,   49,   50,   51,
     +    52,   53,   54,   55,   56,   57,   58,   59,   60,   61,
     +    62,   63,   64,   65,   66,   67,   68,   69,   70,   71/
      data (lookup(i),i=1101,1200) /
     +    72,   73,   74,   75,   76,   77,   78,   79,   80,   81,
     +    82,   83,   84,   85,   86,   87,   88,   89,   90,   91,
     +    92,   93,   94,   95,   96,   97,   98,   99,  100,  101,
     +   102,  103,  104,  105,  106,  107,  108,  109,  110,  111,
     +   112,  113,  114,  115,  116,  117,  118,  119,  120,  121,
     +   122,  123,  124,  125,  126,  127,  128,  129,  130,  131,
     +   132,  133,  134,  135,  136,  137,  138,  139,  140,  141,
     +   142,  143,  144,  145,  146,  147,  148,  149,  150,  151,
     +   152,  153,  154,  155,  156,  157,  158,  159,  160,  161,
     +   162,  163,  164,  165,  166,  167,  168,  169,  170,  171/
      data (lookup(i),i=1201,1300) /
     +   172,  173,  174,  175,    1,    2,    3,    4,    5,    6,
     +     7,    8,    9,   10,   11,   12,   13,   14,   15,   16,
     +    17,   18,   19,   20,   21,   22,   23,   24,   25,   26,
     +    27,   28,   29,   30,   31,   32,   33,   34,   35,   36,
     +    37,   38,   39,   40,   41,   42,   43,   44,   45,   46,
     +    47,   48,   49,   50,   51,   52,   53,   54,   55,   56,
     +    57,   58,   59,   60,   61,   62,   63,   64,   65,   66,
     +    67,   68,   69,   70,   71,   72,   73,   74,   75,   76,
     +    77,   78,   79,   80,   81,   82,   83,   84,   85,   86,
     +    87,   88,   89,   90,   91,   92,   93,   94,   95,   96/
      data (lookup(i),i=1301,1400) /
     +    97,   98,   99,  100,  101,  102,  103,  104,  105,  106,
     +   107,  108,  109,  110,  111,  112,  113,  114,  115,  116,
     +   117,  118,  119,  120,  121,  122,  123,  124,  125,  126,
     +   127,  128,  129,  130,  131,  132,  133,  134,  135,  136,
     +   137,  138,  139,  140,  141,  142,  143,  144,  145,  146,
     +   147,  148,  149,  150,  151,  152,  153,  154,  155,  156,
     +   157,  158,  159,  160,  161,  162,  163,  164,  165,  166,
     +   167,  168,  169,  170,  171,  172,  173,  174,  175,  176,
     +   177,  178,  179,  180,  181,  182,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14/
      data (lookup(i),i=1401,1500) /
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   26,   27,   28,   29,   30,   31,   32,   33,   34,
     +    35,   36,   37,   38,   39,   40,   41,   42,   43,   44,
     +    45,   46,   47,   48,   49,   50,   51,   52,   53,   54,
     +    55,   56,   57,   58,   59,   60,   61,   62,   63,   64,
     +    65,   66,   67,   68,   69,   70,   71,   72,   73,   74,
     +    75,   76,   77,   78,   79,   80,   81,   82,   83,   84,
     +    85,   86,   87,   88,   89,   90,   91,   92,   93,   94,
     +    95,   96,   97,   98,   99,  100,  101,  102,  103,  104,
     +   105,  106,  107,  108,  109,  110,  111,  112,  113,  114/
      data (lookup(i),i=1501,1600) /
     +   115,  116,  117,  118,  119,  120,  121,  122,  123,  124,
     +   125,  126,    1,    2,    3,    4,    5,    6,    7,    8,
     +     9,   10,   11,   12,   13,   14,   15,   16,   17,   18,
     +    19,   20,   21,   22,   23,   24,   25,   26,   27,   28,
     +    29,   30,   31,   32,   33,   34,   35,   36,   37,   38,
     +    39,   40,   41,   42,   43,   44,   45,   46,   47,   48,
     +    49,   50,   51,   52,   53,   54,   55,   56,   57,   58,
     +    59,   60,   61,   62,   63,   64,   65,   66,   67,   68,
     +    69,   70,   71,   72,   73,   74,   75,   76,   77,   78,
     +    79,   80,   81,   82,   83,   84,   85,   86,   87,   88/
      data (lookup(i),i=1601,1700) /
     +    89,   90,   91,   92,   93,   94,   95,   96,   97,   98,
     +    99,  100,  101,  102,  103,  104,  105,  106,  107,  108,
     +   109,  110,  111,  112,  113,  114,  115,  116,  117,  118,
     +   119,  120,  121,  122,  123,  124,  125,  126,  127,  128,
     +   129,  130,  131,  132,  133,    1,    2,    3,    4,    5,
     +     6,    7,    8,    9,   10,   11,   12,   13,   14,   15,
     +    16,   17,   18,   19,   20,   21,   22,   23,   24,   25,
     +    26,   27,   28,   29,   30,   31,   32,   33,   34,   35,
     +    36,   37,   38,   39,   40,   41,   42,   43,   44,   45,
     +    46,   47,   48,   49,   50,   51,   52,   53,   54,   55/
      data (lookup(i),i=1701,1800) /
     +    56,   57,   58,   59,   60,   61,   62,   63,   64,   65,
     +    66,   67,   68,   69,   70,   71,   72,   73,   74,   75,
     +    76,   77,   78,   79,   80,   81,   82,   83,   84,   85,
     +    86,   87,   88,   89,   90,   91,   92,   93,   94,   95,
     +    96,   97,   98,   99,  100,  101,  102,  103,  104,  105,
     +   106,  107,  108,  109,  110,  111,  112,  113,  114,  115,
     +   116,  117,  118,  119,  120,  121,  122,  123,  124,  125,
     +   126,  127,  128,  129,  130,  131,  132,  133,  134,  135,
     +   136,  137,  138,  139,  140,    1,    2,    3,    4,    5,
     +     6,    7,    8,    9,   10,   11,   12,   13,   14,   15/
      data (lookup(i),i=1801,1900) /
     +    16,   17,   18,   19,   20,   21,   22,   23,   24,   25,
     +    26,   27,   28,   29,   30,   31,   32,   33,   34,   35,
     +    36,   37,   38,   39,   40,   41,   42,   43,   44,   45,
     +    46,   47,   48,   49,   50,   51,   52,   53,   54,   55,
     +    56,   57,   58,   59,   60,   61,   62,   63,   64,   65,
     +    66,   67,   68,   69,   70,   71,   72,   73,   74,   75,
     +    76,   77,   78,   79,   80,   81,   82,   83,   84,   85,
     +    86,   87,   88,   89,   90,   91,   92,   93,   94,   95,
     +    96,   97,   98,   99,  100,  101,  102,  103,  104,  105,
     +   106,  107,  108,  109,  110,  111,  112,  113,  114,  115/
      data (lookup(i),i=1901,2000) /
     +   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,    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=2001,2100) /
     +    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,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14/
      data (lookup(i),i=2101,2200) /
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   26,   27,   28,   29,   30,   31,   32,   33,   34,
     +    35,   36,   37,   38,   39,   40,   41,   42,   43,   44,
     +    45,   46,   47,   48,   49,   50,   51,   52,   53,   54,
     +    55,   56,   57,   58,   59,   60,   61,   62,   63,   64,
     +    65,   66,   67,   68,   69,   70,   71,   72,   73,   74,
     +    75,   76,   77,   78,   79,   80,   81,   82,   83,   84,
     +    85,   86,   87,   88,   89,   90,   91,   92,   93,   94,
     +    95,   96,   97,   98,   99,  100,  101,  102,  103,  104,
     +   105,  106,  107,  108,  109,  110,  111,  112,  113,  114/
      data (lookup(i),i=2201,2300) /
     +   115,  116,  117,  118,  119,  120,  121,  122,  123,  124,
     +   125,  126,  127,  128,  129,  130,  131,  132,  133,  134,
     +   135,  136,  137,  138,  139,  140,  141,  142,  143,  144,
     +   145,  146,  147,  148,  149,  150,  151,  152,  153,  154,
     +   155,  156,  157,  158,  159,  160,  161,  162,  163,  164,
     +   165,  166,  167,  168,  169,  170,  171,  172,  173,  174,
     +   175,  176,  177,  178,  179,  180,  181,  182,  183,  184,
     +   185,  186,  187,  188,  189,  190,  191,  192,  193,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,   16,   17,   18,   19,   20,   21/
      data (lookup(i),i=2301,2400) /
     +    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,  121/
      data (lookup(i),i=2401,2500) /
     +   122,  123,  124,  125,  126,  127,  128,  129,  130,  131,
     +   132,  133,  134,  135,  136,  137,  138,  139,  140,  141,
     +   142,  143,  144,  145,  146,  147,  148,  149,  150,  151,
     +   152,  153,  154,  155,  156,  157,  158,  159,  160,  161,
     +   162,  163,  164,  165,  166,  167,  168,  169,  170,  171,
     +   172,  173,  174,  175,  176,  177,  178,  179,  180,  181,
     +   182,  183,  184,  185,  186,  187,  188,  189,  190,  191,
     +   192,  193,  194,  195,  196,  197,  198,  199,  200,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,   16,   17,   18,   19,   20,   21/
      data (lookup(i),i=2501,2600) /
     +    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,  121/
      data (lookup(i),i=2601,2700) /
     +   122,  123,  124,  125,  126,  127,  128,  129,  130,  131,
     +   132,  133,  134,  135,  136,  137,  138,  139,  140,  141,
     +   142,  143,  144,  145,  146,  147,  148,  149,  150,  151,
     +   152,  153,  154,  155,  156,  157,  158,  159,  160,  161,
     +   162,  163,  164,  165,  166,  167,  168,  169,  170,  171,
     +   172,  173,  174,  175,  176,  177,  178,  179,  180,  181,
     +   182,  183,  184,  185,  186,  187,  188,  189,  190,  191,
     +   192,  193,  194,  195,  196,  197,  198,  199,  200,  201,
     +   202,  203,  204,  205,  206,  207,    1,    2,    3,    4,
     +     5,    6,    7,    8,    9,   10,   11,   12,   13,   14/
      data (lookup(i),i=2701,2800) /
     +    15,   16,   17,   18,   19,   20,   21,   22,   23,   24,
     +    25,   26,   27,   28,   29,   30,   31,   32,   33,   34,
     +    35,   36,   37,   38,   39,   40,   41,   42,   43,   44,
     +    45,   46,   47,   48,   49,   50,   51,   52,   53,   54,
     +    55,   56,   57,   58,   59,   60,   61,   62,   63,   64,
     +    65,   66,   67,   68,   69,   70,   71,   72,   73,   74,
     +    75,   76,   77,   78,   79,   80,   81,   82,   83,   84,
     +    85,   86,   87,   88,   89,   90,   91,   92,   93,   94,
     +    95,   96,   97,   98,   99,  100,  101,  102,  103,  104,
     +   105,  106,  107,  108,  109,  110,  111,  112,  113,  114/
      data (lookup(i),i=2801,2900) /
     +   115,  116,  117,  118,  119,  120,  121,  122,  123,  124,
     +   125,  126,  127,  128,  129,  130,  131,  132,  133,  134,
     +   135,  136,  137,  138,  139,  140,  141,  142,  143,  144,
     +   145,  146,  147,  148,  149,  150,  151,  152,  153,  154,
     +   155,  156,  157,  158,  159,  160,  161,  162,  163,  164,
     +   165,  166,  167,  168,  169,  170,  171,  172,  173,  174,
     +   175,  176,  177,  178,  179,  180,  181,  182,  183,  184,
     +   185,  186,  187,  188,  189,  190,  191,  192,  193,  194,
     +   195,  196,  197,  198,  199,  200,  201,  202,  203,  204,
     +   205,  206,  207,  208,  209,  210,  211,  212,  213,  214/
      data (lookup(i),i=2901,3000) /
     +     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=3001,3100) /
     +   101,  102,  103,  104,  105,  106,  107,  108,  109,  110,
     +   111,  112,  113,  114,  115,  116,  117,  118,  119,  120,
     +   121,  122,  123,  124,  125,  126,  127,  128,  129,  130,
     +   131,  132,  133,  134,  135,  136,  137,  138,  139,  140,
     +   141,  142,  143,  144,  145,  146,  147,  148,  149,  150,
     +   151,  152,  153,  154,  155,  156,  157,  158,  159,  160,
     +   161,  162,  163,  164,  165,  166,  167,  168,  169,  170,
     +   171,  172,  173,  174,  175,  176,  177,  178,  179,  180,
     +   181,  182,  183,  184,  185,  186,  187,  188,  189,  190,
     +   191,  192,  193,  194,  195,  196,  197,  198,  199,  200/
      data (lookup(i),i=3101,3200) /
     +   201,  202,  203,  204,  205,  206,  207,  208,  209,  210,
     +   211,  212,  213,  214,  215,  216,  217,  218,  219,  220,
     +   221,    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/
      data (lookup(i),i=3201,3300) /
     +    80,   81,   82,   83,   84,   85,   86,   87,   88,   89,
     +    90,   91,   92,   93,   94,   95,   96,   97,   98,   99,
     +   100,  101,  102,  103,  104,  105,  106,  107,  108,  109,
     +   110,  111,  112,  113,  114,  115,  116,  117,  118,  119,
     +   120,  121,  122,  123,  124,  125,  126,  127,  128,  129,
     +   130,  131,  132,  133,  134,  135,  136,  137,  138,  139,
     +   140,  141,  142,  143,  144,  145,  146,  147,  148,  149,
     +   150,  151,  152,  153,  154,  155,  156,  157,  158,  159,
     +   160,  161,  162,  163,  164,  165,  166,  167,  168,  169,
     +   170,  171,  172,  173,  174,  175,  176,  177,  178,  179/
      data (lookup(i),i=3301,3400) /
     +   180,  181,  182,  183,  184,  185,  186,  187,  188,  189,
     +   190,  191,  192,  193,  194,  195,  196,  197,  198,  199,
     +   200,  201,  202,  203,  204,  205,  206,  207,  208,  209,
     +   210,  211,  212,  213,  214,  215,  216,  217,  218,  219,
     +   220,  221,  222,  223,  224,  225,  226,  227,  228,    1,
     +     2,    3,    4,    5,    6,    7,    8,    9,   10,   11,
     +    12,   13,   14,   15,   16,   17,   18,   19,   20,   21,
     +    22,   23,   24,   25,   26,   27,   28,   29,   30,   31,
     +    32,   33,   34,   35,   36,   37,   38,   39,   40,    1,
     +     2,    3,    4,    1,    2,    3,    4,    1,    2,    3/
      data (lookup(i),i=3401,3449) /
     +     4,    1,    2,    3,    4,    1,    2,    3,    4,    1,
     +     2,    3,    4,    1,    2,    3,    4,    1,    2,    3,
     +     4,    1,    2,    3,    1,    2,    3,    1,    2,    3,
     +     1,    2,    3,    1,    2,    3,    4,    5,    6,    7,
     +     8,    9,   10,   11,   12,   13,   14,   15,   16/
      integer level,index
      integer sector
      getSector = 0
      do level=1,nlevel
        index = istart(lvolum(level))
        if (index.gt.0) then
          sector = lookup(index + number(level) - 1)
          if (sector.gt.0) then
            getSector = sector
          endif
        endif
      enddo
      end

      subroutine gufld(r,B)
      implicit none
      real r(3),B(3)
      real rr(3),rs(3),BB(3)
      integer iregion
      integer getMap
      external getMap

      real orig1(3),rmat1(3,3)
      data orig1/0,0,-1975/
      data rmat1/1,0,0,
     +          0,6.12303e-17,-1,
     +          0,1,6.12303e-17/
      real orig2(3),rmat2(3,3)
      data orig2/0,0,-1345/
      data rmat2/1,0,0,
     +          0,6.12303e-17,-1,
     +          0,1,6.12303e-17/
      real orig3(3),rmat3(3,3)
      data orig3/0,0,0/
      data rmat3/1,0,0,
     +          0,1,0,
     +          0,0,1/
      real orig4(3),rmat4(3,3)
      data orig4/0,0,212/
      data rmat4/1,0,0,
     +          0,1,0,
     +          0,0,1/
      real orig5(3),rmat5(3,3)
      data orig5/0,0,622.8/
      data rmat5/1,0,0,
     +          0,1,0,
     +          0,0,1/

      iregion = getMap()
      if (iregion.eq.0) then
        B(1) = 0
        B(2) = 0
        B(3) = 0
      else if (iregion.eq.1) then
        B(1) = 0
        B(2) = -2
        B(3) = 1.22461e-16
      else if (iregion.eq.2) then
        B(1) = 0
        B(2) = -2
        B(3) = 1.22461e-16
      else if (iregion.eq.3) then
        rs(1) = r(1)-orig3(1)
        rs(2) = r(2)-orig3(2)
        rs(3) = r(3)-orig3(3)
        rr(1) = rs(1)*rmat3(1,1)+rs(2)*rmat3(1,2)+rs(3)*rmat3(1,3)
        rr(2) = rs(1)*rmat3(2,1)+rs(2)*rmat3(2,2)+rs(3)*rmat3(2,3)
        rr(3) = rs(1)*rmat3(3,1)+rs(2)*rmat3(3,2)+rs(3)*rmat3(3,3)
        call gufld1(rr,BB)
        B(1) = BB(1)*rmat3(1,1)+BB(2)*rmat3(2,1)+BB(3)*rmat3(3,1)
        B(2) = BB(1)*rmat3(1,2)+BB(2)*rmat3(2,2)+BB(3)*rmat3(3,2)
        B(3) = BB(1)*rmat3(1,3)+BB(2)*rmat3(2,3)+BB(3)*rmat3(3,3)
        B(1) = B(1)*10
        B(2) = B(2)*10
        B(3) = B(3)*10
      endif
      end

      subroutine gufld1(r,B)
      implicit none
      real r(3),B(3)
      real rho,phi,alpha
      real u(3)
      real twopi
      parameter (twopi=6.28318530717959)

      real bound0(3,2)
      data bound0/0,0,10.16,
     +            101.6,6.28319,645.16/
      integer reverse0(3)
      data reverse0/1,1,1/
      real Bmap(3,41,1,251)
      integer nsites(3)
      data nsites/41,1,251/
      logical loaded
      data loaded/.false./
      save Bmap,nsites,loaded
      integer i,i1,i2,i3

      if (.not.loaded) then
        open(unit=78,file='solenoid.map',status='old',err=7)
        read(unit=78,fmt=*,err=5,end=6)
     +      ((((Bmap(i,i1,i2,i3),i=1,3),
     +         i3=1,251),
     +        i1=1,41),
     +       i2=1,1)
        go to 8
    5   stop 'error reading magnetic field map, stop'
    6   stop 'EOF encountered reading magnetic field map, stop'
    7   stop 'error opening magnetic field map, stop'
    8   loaded=.true.
      endif

      rho = sqrt(r(1)**2+r(2)**2)
      phi = atan2(r(2),r(1))
      u(1) = (rho-bound0(1,1))/(bound0(1,2)-bound0(1,1))
      u(2) = (phi-bound0(2,1))/(bound0(2,2)-bound0(2,1))
      alpha = abs(twopi/(bound0(2,2)-bound0(2,1)))
      u(2) = u(2)-int(u(2)/alpha)*alpha
      if (u(2).lt.0) then
        u(2) = u(2)+alpha
      endif
      u(3) = (r(3)-bound0(3,1))/(bound0(3,2)-bound0(3,1))
      if ((u(1).ge.0.and.u(1).le.1).and.
     +    (u(2).ge.0.and.u(2).le.1).and.
     +    (u(3).ge.0.and.u(3).le.1)) then
        call interpol3(Bmap,nsites,u,B)
        B(1)=B(1)*reverse0(1)
        B(2)=B(2)*reverse0(2)
        B(3)=B(3)*reverse0(3)
        return
      endif

      B(1) = 0
      B(2) = 0
      B(3) = 0
      return
      end

      subroutine interpol3(Bmap,nsites,u,B)
      implicit none
      integer nsites(3)
      real Bmap(3,nsites(1),nsites(2),nsites(3))
      real u(3),B(3)
      integer ir(3),ir0(3),ir1(3)
      real ur(3),dur(3),ugrad(3,3)
      integer i
      do i=1,3
        ur(i)=u(i)*(nsites(i)-1)+1
        ir(i)=nint(ur(i))
        ir0(i)=max(ir(i)-1,1)
        ir1(i)=min(ir(i)+1,nsites(i))
        dur(i)=(ur(i)-ir(i))/(ir1(i)-ir0(i)+1e-20)
      enddo
      ugrad(1,1)=(Bmap(1,ir1(1),ir(2),ir(3))-Bmap(1,ir0(1),ir(2),ir(3)))
      ugrad(2,1)=(Bmap(2,ir1(1),ir(2),ir(3))-Bmap(2,ir0(1),ir(2),ir(3)))
      ugrad(3,1)=(Bmap(3,ir1(1),ir(2),ir(3))-Bmap(3,ir0(1),ir(2),ir(3)))
      ugrad(1,2)=(Bmap(1,ir(1),ir1(2),ir(3))-Bmap(1,ir(1),ir0(2),ir(3)))
      ugrad(2,2)=(Bmap(2,ir(1),ir1(2),ir(3))-Bmap(2,ir(1),ir0(2),ir(3)))
      ugrad(3,2)=(Bmap(3,ir(1),ir1(2),ir(3))-Bmap(3,ir(1),ir0(2),ir(3)))
      ugrad(1,3)=(Bmap(1,ir(1),ir(2),ir1(3))-Bmap(1,ir(1),ir(2),ir0(3)))
      ugrad(2,3)=(Bmap(2,ir(1),ir(2),ir1(3))-Bmap(2,ir(1),ir(2),ir0(3)))
      ugrad(3,3)=(Bmap(3,ir(1),ir(2),ir1(3))-Bmap(3,ir(1),ir(2),ir0(3)))
      B(1)=Bmap(1,ir(1),ir(2),ir(3))
     +       +ugrad(1,1)*dur(1)+ugrad(1,2)*dur(2)+ugrad(1,3)*dur(3)
      B(2)=Bmap(2,ir(1),ir(2),ir(3))
     +       +ugrad(2,1)*dur(1)+ugrad(2,2)*dur(2)+ugrad(2,3)*dur(3)
      B(3)=Bmap(3,ir(1),ir(2),ir(3))
     +       +ugrad(3,1)*dur(1)+ugrad(3,2)*dur(2)+ugrad(3,3)*dur(3)
      end