* * HDDSgeant3 - fortran geometry definition package * for the Hall D experiment. * * WARNING: DO NOT EDIT THIS FILE * * This file was generated automatically from the * HDDS xml geometry definition by the hdds-geant * translator. Any changes made to this file will * disappear as soon as it is regenerated from the * xml source. To introduce Geant3 optimizations, * see the subroutine Goptimize() in goptimize.F. * subroutine HDDSgeant3 implicit none integer imate character*20 chnama,namate real a,z,dens,radl,absl,ubuf(99) integer nwbuf real amat(99),zmat(99),wmat(99) integer nlmat integer itmed character*20 natmed integer nmat,isvol,ifield real fieldm,tmaxfd,stemax,deemax,epsil,stmin character*4 chname,chshap,chmoth integer nmed,npar,ivolu real par(99) integer irot real theta1,phi1,theta2,phi2,theta3,phi3 integer nr,ndiv,iaxis,numed,ndvmax real step,c0 real x,y character*4 chonly imate = 2 chnama = 'Nitrogen' a = 14.0067 z = 7 dens = 0.00116 radl = 32750 absl = 75689.7 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 3 chnama = 'Oxygen' a = 15.9995 z = 8 dens = 0.00133 radl = 25744.4 absl = 68421.1 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 4 chnama = 'Argon' a = 39.948 z = 18 dens = 0.00166 radl = 11777.1 absl = 70602.4 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 5 chnama = 'Hydrogen' a = 1.00797 z = 1 dens = 8.38e-05 radl = 731265 absl = 606205 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 1 namate = 'Air' wmat(1) = 0.7494 call gfmate(2,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.2369 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.0129 call gfmate(4,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.0008 call gfmate(5,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 0.001214 nlmat = 4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 1 natmed = 'SITE Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'SITE' chshap = 'BOX ' nmed = 1 npar = 3 par(1) = 2500 par(2) = 2500 par(3) = 2500 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.1) stop 'consistency check #1 failed' imate = 7 chnama = 'Aluminum' a = 26.9815 z = 13 dens = 2.7 radl = 8.89259 absl = 39.4074 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 8 namate = 'Calcium' a = 40.08 z = 20 dens = 1.55 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) imate = 9 chnama = 'Silicon' a = 28.086 z = 14 dens = 2.33 radl = 9.36481 absl = 45.4936 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 10 chnama = 'Iron' a = 55.847 z = 26 dens = 7.87 radl = 1.75858 absl = 16.7598 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 6 namate = 'Concrete' wmat(1) = 0.004 call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.509 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.034 call gfmate(7,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.07 call gfmate(8,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) wmat(5) = 0.345 call gfmate(9,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf) wmat(6) = 0.038 call gfmate(10,chnama,amat(6),zmat(6),dens,radl,absl,ubuf,nwbuf) dens = 2.35 nlmat = 6 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 2 natmed = 'SHLD Concrete' nmat = 6 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'SHLD' chshap = 'BOX ' nmed = 2 npar = 3 par(1) = 275 par(2) = 275 par(3) = 625 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.2) stop 'consistency check #1 failed' chname = 'SHLD' nr = 1 chmoth = 'SITE' x = 0 y = 0 z = -1625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 3 natmed = 'CAVE Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CAVE' chshap = 'BOX ' nmed = 3 npar = 3 par(1) = 225 par(2) = 135 par(3) = 600 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.3) stop 'consistency check #1 failed' chname = 'CAVE' nr = 1 chmoth = 'SHLD' x = 0 y = 35 z = 25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 4 natmed = 'OSHO Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OSHO' chshap = 'TUBE' nmed = 4 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 17.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.4) stop 'consistency check #1 failed' chname = 'OSHO' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = 567.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 11 chnama = 'Vacuum' a = 0 z = 0 dens = 0 radl = 1e+30 absl = 1e+30 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) itmed = 5 natmed = 'ISHO Vacuum' nmat = 11 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ISHO' chshap = 'TUBE' nmed = 5 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 17.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.5) stop 'consistency check #1 failed' chname = 'ISHO' nr = 1 chmoth = 'OSHO' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 13 namate = 'Boron' a = 10.8 z = 5 dens = 2.34 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) imate = 12 namate = 'BoronNitride' wmat(1) = 1 call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 1 call gfmate(2,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 1.9 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 6 natmed = 'INSU BoronNitride' nmat = 12 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'INSU' chshap = 'TUBE' nmed = 6 npar = 3 par(1) = 0.25 par(2) = 7.36 par(3) = 2.1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.6) stop 'consistency check #1 failed' chname = 'INSU' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = -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 = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'HOUS' chshap = 'TUBE' nmed = 7 npar = 3 par(1) = 0.25 par(2) = 6.7 par(3) = 1.6 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.7) stop 'consistency check #1 failed' chname = 'HOUS' nr = 1 chmoth = 'INSU' x = 0 y = 0 z = 0.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 8 natmed = 'AIRH Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIRH' chshap = 'TUBE' nmed = 8 npar = 3 par(1) = 0.25 par(2) = 6.5 par(3) = 1.45 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.8) stop 'consistency check #1 failed' chname = 'AIRH' nr = 1 chmoth = 'HOUS' x = 0 y = 0 z = -0.15 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 9 natmed = 'DIV1 Aluminum' nmat = 7 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DIV1' chshap = 'BOX ' nmed = 9 npar = 3 par(1) = 3.125 par(2) = 0.05 par(3) = 1.45 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.9) stop 'consistency check #1 failed' chname = 'DIV1' nr = 1 chmoth = 'AIRH' x = 3.375 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1 theta1 = 90 phi1 = 90 theta2 = 90 phi2 = 180 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'DIV1' nr = 2 chmoth = 'AIRH' x = 2.06652e-16 y = 3.375 z = 0 irot = 1 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 2 theta1 = 90 phi1 = 180 theta2 = 90 phi2 = -90 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'DIV1' nr = 3 chmoth = 'AIRH' x = -3.375 y = 4.13305e-16 z = 0 irot = 2 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 3 theta1 = 90 phi1 = -90 theta2 = 90 phi2 = -1.05247e-14 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'DIV1' nr = 4 chmoth = 'AIRH' x = -6.19957e-16 y = -3.375 z = 0 irot = 3 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 10 natmed = 'DIV2 Aluminum' nmat = 7 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DIV2' chshap = 'TUBE' nmed = 10 npar = 3 par(1) = 2.7 par(2) = 2.8 par(3) = 1.45 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.10) stop 'consistency check #1 failed' chname = 'DIV2' nr = 1 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 11 natmed = 'ACWI Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ACWI' chshap = 'TUBS' nmed = 11 npar = 5 par(1) = 0.25 par(2) = 2.5 par(3) = 1.25 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.11) stop 'consistency check #1 failed' irot = 4 theta1 = 90 phi1 = 45 theta2 = 90 phi2 = 135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWI' nr = 1 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 4 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 15 chnama = 'Tungsten' a = 183.85 z = 74 dens = 19.3 radl = 0.350259 absl = 9.58549 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 16 chnama = 'Copper' a = 63.546 z = 29 dens = 8.96 radl = 1.43527 absl = 15.0558 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 14 namate = 'SoftTungsten' wmat(1) = 0.95 call gfmate(15,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.05 call gfmate(16,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 18.2471 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 12 natmed = 'ACBI SoftTungsten' nmat = 14 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ACBI' chshap = 'TUBS' nmed = 12 npar = 5 par(1) = 0.25 par(2) = 2.5 par(3) = 0.4 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.12) stop 'consistency check #1 failed' chname = 'ACBI' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = -0.85 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 13 natmed = 'AIR1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR1' chshap = 'TUBS' nmed = 13 npar = 5 par(1) = 0.25 par(2) = 0.33 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.13) stop 'consistency check #1 failed' chname = 'AIR1' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD01' chmoth = 'AIR1' ndiv = 3 iaxis = 2 step = 15 c0 = -25 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 14 natmed = 'AIS1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS1' chshap = 'TUBS' nmed = 14 npar = 5 par(1) = 0.25 par(2) = 0.33 par(3) = 0.85 par(4) = -10 par(5) = 10 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.15) stop 'consistency check #1 failed' irot = 5 theta1 = 90 phi1 = 2.5 theta2 = 90 phi2 = 92.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS1' nr = 1 chmoth = 'SD01' x = 0 y = 0 z = 0 irot = 5 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 15 natmed = 'PIN1 SoftTungsten' nmat = 14 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'PIN1' chshap = 'BOX ' nmed = 15 npar = 3 par(1) = 0.02 par(2) = 0.02 par(3) = 0.85 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.16) stop 'consistency check #1 failed' chname = 'PIN1' nr = 1 chmoth = 'AIS1' x = 0.3 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 16 natmed = 'AIR2 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR2' chshap = 'TUBS' nmed = 16 npar = 5 par(1) = 0.33 par(2) = 0.42 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.17) stop 'consistency check #1 failed' chname = 'AIR2' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD02' chmoth = 'AIR2' ndiv = 4 iaxis = 2 step = 12 c0 = -25.5 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 17 natmed = 'AIS2 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS2' chshap = 'TUBS' nmed = 17 npar = 5 par(1) = 0.33 par(2) = 0.42 par(3) = 0.85 par(4) = -7.5 par(5) = 7.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.19) stop 'consistency check #1 failed' irot = 6 theta1 = 90 phi1 = 1.5 theta2 = 90 phi2 = 91.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS2' nr = 1 chmoth = 'SD02' x = 0 y = 0 z = 0 irot = 6 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 2 chmoth = 'AIS2' x = 0.375 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 18 natmed = 'AIR3 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR3' chshap = 'TUBS' nmed = 18 npar = 5 par(1) = 0.42 par(2) = 0.49 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.20) stop 'consistency check #1 failed' chname = 'AIR3' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD03' chmoth = 'AIR3' ndiv = 5 iaxis = 2 step = 10 c0 = -26 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 19 natmed = 'AIS3 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS3' chshap = 'TUBS' nmed = 19 npar = 5 par(1) = 0.42 par(2) = 0.49 par(3) = 0.85 par(4) = -6 par(5) = 6 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.22) stop 'consistency check #1 failed' irot = 7 theta1 = 90 phi1 = 1 theta2 = 90 phi2 = 91 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS3' nr = 1 chmoth = 'SD03' x = 0 y = 0 z = 0 irot = 7 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 3 chmoth = 'AIS3' x = 0.45 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 20 natmed = 'AIR4 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR4' chshap = 'TUBS' nmed = 20 npar = 5 par(1) = 0.49 par(2) = 0.56 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.23) stop 'consistency check #1 failed' chname = 'AIR4' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD04' chmoth = 'AIR4' ndiv = 6 iaxis = 2 step = 8.57 c0 = -26.43 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 21 natmed = 'AIS4 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS4' chshap = 'TUBS' nmed = 21 npar = 5 par(1) = 0.49 par(2) = 0.56 par(3) = 0.85 par(4) = -5 par(5) = 5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.25) stop 'consistency check #1 failed' irot = 8 theta1 = 90 phi1 = 0.715 theta2 = 90 phi2 = 90.715 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS4' nr = 1 chmoth = 'SD04' x = 0 y = 0 z = 0 irot = 8 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 4 chmoth = 'AIS4' x = 0.525 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 22 natmed = 'AIR5 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR5' chshap = 'TUBS' nmed = 22 npar = 5 par(1) = 0.56 par(2) = 0.64 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.26) stop 'consistency check #1 failed' chname = 'AIR5' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD05' chmoth = 'AIR5' ndiv = 7 iaxis = 2 step = 7.5 c0 = -26.79 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 23 natmed = 'AIS5 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS5' chshap = 'TUBS' nmed = 23 npar = 5 par(1) = 0.56 par(2) = 0.64 par(3) = 0.85 par(4) = -4.29 par(5) = 4.28 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.28) stop 'consistency check #1 failed' irot = 9 theta1 = 90 phi1 = 0.54 theta2 = 90 phi2 = 90.54 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS5' nr = 1 chmoth = 'SD05' x = 0 y = 0 z = 0 irot = 9 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 5 chmoth = 'AIS5' x = 0.6 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 24 natmed = 'AIR6 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR6' chshap = 'TUBS' nmed = 24 npar = 5 par(1) = 0.64 par(2) = 0.7 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.29) stop 'consistency check #1 failed' chname = 'AIR6' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD06' chmoth = 'AIR6' ndiv = 8 iaxis = 2 step = 6.67 c0 = -27.08 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 25 natmed = 'AIS6 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS6' chshap = 'TUBS' nmed = 25 npar = 5 par(1) = 0.64 par(2) = 0.7 par(3) = 0.85 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.31) stop 'consistency check #1 failed' irot = 10 theta1 = 90 phi1 = 0.415 theta2 = 90 phi2 = 90.415 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS6' nr = 1 chmoth = 'SD06' x = 0 y = 0 z = 0 irot = 10 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 6 chmoth = 'AIS6' x = 0.675 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 26 natmed = 'AIR7 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR7' chshap = 'TUBS' nmed = 26 npar = 5 par(1) = 0.7 par(2) = 0.78 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.32) stop 'consistency check #1 failed' chname = 'AIR7' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD07' chmoth = 'AIR7' ndiv = 9 iaxis = 2 step = 6 c0 = -27.33 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 27 natmed = 'AIS7 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS7' chshap = 'TUBS' nmed = 27 npar = 5 par(1) = 0.7 par(2) = 0.78 par(3) = 0.85 par(4) = -3.33 par(5) = 3.34 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.34) stop 'consistency check #1 failed' irot = 11 theta1 = 90 phi1 = 0.33 theta2 = 90 phi2 = 90.33 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS7' nr = 1 chmoth = 'SD07' x = 0 y = 0 z = 0 irot = 11 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 7 chmoth = 'AIS7' x = 0.75 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 28 natmed = 'AIR8 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIR8' chshap = 'TUBS' nmed = 28 npar = 5 par(1) = 0.78 par(2) = 0.85 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.35) stop 'consistency check #1 failed' chname = 'AIR8' nr = 1 chmoth = 'ACWI' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD08' chmoth = 'AIR8' ndiv = 10 iaxis = 2 step = 5.45 c0 = -27.55 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 29 natmed = 'AIS8 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AIS8' chshap = 'TUBS' nmed = 29 npar = 5 par(1) = 0.78 par(2) = 0.85 par(3) = 0.85 par(4) = -3 par(5) = 3 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.37) stop 'consistency check #1 failed' irot = 12 theta1 = 90 phi1 = 0.275 theta2 = 90 phi2 = 90.275 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'AIS8' nr = 1 chmoth = 'SD08' x = 0 y = 0 z = 0 irot = 12 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 8 chmoth = 'AIS8' x = 0.825 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 13 theta1 = 90 phi1 = 135 theta2 = 90 phi2 = -135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWI' nr = 2 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 13 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 14 theta1 = 90 phi1 = -135 theta2 = 90 phi2 = -45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWI' nr = 3 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 14 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 15 theta1 = 90 phi1 = -45 theta2 = 90 phi2 = 45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWI' nr = 4 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 15 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 30 natmed = 'ACWO Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ACWO' chshap = 'TUBS' nmed = 30 npar = 5 par(1) = 3 par(2) = 6 par(3) = 1.25 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.38) stop 'consistency check #1 failed' irot = 16 theta1 = 90 phi1 = 45 theta2 = 90 phi2 = 135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWO' nr = 1 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 16 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 31 natmed = 'ACBO SoftTungsten' nmat = 14 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ACBO' chshap = 'TUBS' nmed = 31 npar = 5 par(1) = 3 par(2) = 6 par(3) = 0.4 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.39) stop 'consistency check #1 failed' chname = 'ACBO' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = -0.85 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 32 natmed = 'AOR1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR1' chshap = 'TUBS' nmed = 32 npar = 5 par(1) = 3 par(2) = 3.08 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.40) stop 'consistency check #1 failed' chname = 'AOR1' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD09' chmoth = 'AOR1' ndiv = 40 iaxis = 2 step = 1.463 c0 = -29.392 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 33 natmed = 'AOS1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS1' chshap = 'TUBS' nmed = 33 npar = 5 par(1) = 3 par(2) = 3.2 par(3) = 0.85 par(4) = -0.732 par(5) = 0.731 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.42) stop 'consistency check #1 failed' chname = 'AOS1' nr = 1 chmoth = 'SD09' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 9 chmoth = 'AOS1' x = 3.05 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 34 natmed = 'AOR2 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR2' chshap = 'TUBS' nmed = 34 npar = 5 par(1) = 3.08 par(2) = 3.16 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.43) stop 'consistency check #1 failed' chname = 'AOR2' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD0A' chmoth = 'AOR2' ndiv = 41 iaxis = 2 step = 1.429 c0 = -29.383 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 35 natmed = 'AOS2 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS2' chshap = 'TUBS' nmed = 35 npar = 5 par(1) = 3.08 par(2) = 3.16 par(3) = 0.85 par(4) = -0.715 par(5) = 0.714 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.45) stop 'consistency check #1 failed' chname = 'AOS2' nr = 1 chmoth = 'SD0A' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 10 chmoth = 'AOS2' x = 3.125 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 36 natmed = 'AOR3 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR3' chshap = 'TUBS' nmed = 36 npar = 5 par(1) = 3.16 par(2) = 3.24 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.46) stop 'consistency check #1 failed' chname = 'AOR3' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD0B' chmoth = 'AOR3' ndiv = 42 iaxis = 2 step = 1.395 c0 = -29.384 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 37 natmed = 'AOS3 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS3' chshap = 'TUBS' nmed = 37 npar = 5 par(1) = 3.16 par(2) = 3.24 par(3) = 0.85 par(4) = -0.698 par(5) = 0.697 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.48) stop 'consistency check #1 failed' chname = 'AOS3' nr = 1 chmoth = 'SD0B' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 11 chmoth = 'AOS3' x = 3.2 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 38 natmed = 'AOR4 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR4' chshap = 'TUBS' nmed = 38 npar = 5 par(1) = 3.24 par(2) = 3.32 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.49) stop 'consistency check #1 failed' chname = 'AOR4' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD0C' chmoth = 'AOR4' ndiv = 43 iaxis = 2 step = 1.364 c0 = -29.385 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 39 natmed = 'AOS4 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS4' chshap = 'TUBS' nmed = 39 npar = 5 par(1) = 3.24 par(2) = 3.32 par(3) = 0.85 par(4) = -0.682 par(5) = 0.682 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.51) stop 'consistency check #1 failed' chname = 'AOS4' nr = 1 chmoth = 'SD0C' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 12 chmoth = 'AOS4' x = 3.275 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 40 natmed = 'AOR5 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR5' chshap = 'TUBS' nmed = 40 npar = 5 par(1) = 3.32 par(2) = 3.38 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.52) stop 'consistency check #1 failed' chname = 'AOR5' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD0D' chmoth = 'AOR5' ndiv = 44 iaxis = 2 step = 1.333 c0 = -29.385 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 41 natmed = 'AOS5 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS5' chshap = 'TUBS' nmed = 41 npar = 5 par(1) = 3.32 par(2) = 3.38 par(3) = 0.85 par(4) = -0.667 par(5) = 0.666 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.54) stop 'consistency check #1 failed' chname = 'AOS5' nr = 1 chmoth = 'SD0D' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 13 chmoth = 'AOS5' x = 3.35 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 42 natmed = 'AOR6 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR6' chshap = 'TUBS' nmed = 42 npar = 5 par(1) = 3.38 par(2) = 3.46 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.55) stop 'consistency check #1 failed' chname = 'AOR6' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD0E' chmoth = 'AOR6' ndiv = 45 iaxis = 2 step = 1.304 c0 = -29.385 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 43 natmed = 'AOS6 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS6' chshap = 'TUBS' nmed = 43 npar = 5 par(1) = 3.38 par(2) = 0.46 par(3) = 0.85 par(4) = -0.652 par(5) = 0.652 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.57) stop 'consistency check #1 failed' chname = 'AOS6' nr = 1 chmoth = 'SD0E' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 14 chmoth = 'AOS6' x = 3.425 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 44 natmed = 'AOR7 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR7' chshap = 'TUBS' nmed = 44 npar = 5 par(1) = 3.46 par(2) = 3.54 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.58) stop 'consistency check #1 failed' chname = 'AOR7' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD0F' chmoth = 'AOR7' ndiv = 46 iaxis = 2 step = 1.277 c0 = -29.387 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 45 natmed = 'AOS7 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS7' chshap = 'TUBS' nmed = 45 npar = 5 par(1) = 3.46 par(2) = 3.54 par(3) = 0.85 par(4) = -0.639 par(5) = 0.638 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.60) stop 'consistency check #1 failed' chname = 'AOS7' nr = 1 chmoth = 'SD0F' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 15 chmoth = 'AOS7' x = 3.5 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 46 natmed = 'AOR8 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR8' chshap = 'TUBS' nmed = 46 npar = 5 par(1) = 3.54 par(2) = 3.62 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.61) stop 'consistency check #1 failed' chname = 'AOR8' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD10' chmoth = 'AOR8' ndiv = 47 iaxis = 2 step = 1.25 c0 = -29.387 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 47 natmed = 'AOS8 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS8' chshap = 'TUBS' nmed = 47 npar = 5 par(1) = 3.54 par(2) = 3.62 par(3) = 0.85 par(4) = -0.625 par(5) = 0.625 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.63) stop 'consistency check #1 failed' chname = 'AOS8' nr = 1 chmoth = 'SD10' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 16 chmoth = 'AOS8' x = 3.575 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 48 natmed = 'AOR9 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOR9' chshap = 'TUBS' nmed = 48 npar = 5 par(1) = 3.62 par(2) = 3.7 par(3) = 0.85 par(4) = -30 par(5) = 30 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.64) stop 'consistency check #1 failed' chname = 'AOR9' nr = 1 chmoth = 'ACWO' x = 0 y = 0 z = 0.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD11' chmoth = 'AOR9' ndiv = 48 iaxis = 2 step = 1.224 c0 = -29.387 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 49 natmed = 'AOS9 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'AOS9' chshap = 'TUBS' nmed = 49 npar = 5 par(1) = 3.62 par(2) = 3.7 par(3) = 0.85 par(4) = -0.612 par(5) = 0.612 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.66) stop 'consistency check #1 failed' chname = 'AOS9' nr = 1 chmoth = 'SD11' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'PIN1' nr = 17 chmoth = 'AOS9' x = 3.65 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 17 theta1 = 90 phi1 = 135 theta2 = 90 phi2 = -135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWO' nr = 2 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 17 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 18 theta1 = 90 phi1 = -135 theta2 = 90 phi2 = -45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWO' nr = 3 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 18 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 19 theta1 = 90 phi1 = -45 theta2 = 90 phi2 = 45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'ACWO' nr = 4 chmoth = 'AIRH' x = 0 y = 0 z = 0 irot = 19 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 50 natmed = 'HOUF Aluminum' nmat = 7 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'HOUF' chshap = 'TUBE' nmed = 50 npar = 3 par(1) = 0.25 par(2) = 6.85 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.67) stop 'consistency check #1 failed' chname = 'HOUF' nr = 1 chmoth = 'INSU' x = 0 y = 0 z = -1.85 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 51 natmed = 'DET1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DET1' chshap = 'TUBE' nmed = 51 npar = 3 par(1) = 0 par(2) = 50 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.68) stop 'consistency check #1 failed' chname = 'DET1' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = -455 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 52 natmed = 'COL1 Tungsten' nmat = 15 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'COL1' chshap = 'TUBE' nmed = 52 npar = 3 par(1) = 0.17 par(2) = 10 par(3) = 15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.69) stop 'consistency check #1 failed' chname = 'COL1' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = -435 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 53 natmed = 'MAG1 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'MAG1' chshap = 'BOX ' nmed = 53 npar = 3 par(1) = 10 par(2) = 25 par(3) = 15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.70) stop 'consistency check #1 failed' irot = 20 theta1 = 90 phi1 = 0 theta2 = 3.50824e-15 phi2 = 90 theta3 = 90 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'MAG1' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = -375 irot = 20 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 54 natmed = 'POL1 Iron' nmat = 10 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'POL1' chshap = 'BOX ' nmed = 54 npar = 3 par(1) = 10 par(2) = 25 par(3) = 7 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.71) stop 'consistency check #1 failed' chname = 'POL1' nr = 1 chmoth = 'MAG1' x = 0 y = 0 z = -8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'POL1' nr = 2 chmoth = 'MAG1' x = 0 y = 0 z = 8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 17 chnama = 'Lead' a = 207.2 z = 82 dens = 11.35 radl = 0.561233 absl = 17.0925 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) itmed = 55 natmed = 'GAP1 Lead' nmat = 17 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'GAP1' chshap = 'BOX ' nmed = 55 npar = 3 par(1) = 4.5 par(2) = 25 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.72) stop 'consistency check #1 failed' chname = 'GAP1' nr = 1 chmoth = 'MAG1' x = -5.5 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'GAP1' nr = 2 chmoth = 'MAG1' x = 5.5 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 56 natmed = 'ABS1 Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ABS1' chshap = 'BOX ' nmed = 56 npar = 3 par(1) = 25 par(2) = 25 par(3) = 100 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.73) stop 'consistency check #1 failed' chname = 'ABS1' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = -240 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 57 natmed = 'HOL1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'HOL1' chshap = 'BOX ' nmed = 57 npar = 3 par(1) = 1 par(2) = 1 par(3) = 100 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.74) stop 'consistency check #1 failed' chname = 'HOL1' nr = 1 chmoth = 'ABS1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 58 natmed = 'BLC1 Concrete' nmat = 6 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BLC1' chshap = 'BOX ' nmed = 58 npar = 3 par(1) = 100 par(2) = 100 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.75) stop 'consistency check #1 failed' chname = 'BLC1' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = -50 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 59 natmed = 'BHO1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BHO1' chshap = 'BOX ' nmed = 59 npar = 3 par(1) = 1 par(2) = 1 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.76) stop 'consistency check #1 failed' chname = 'BHO1' nr = 1 chmoth = 'BLC1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 18 namate = 'Nickel' a = 58.7 z = 28 dens = 8.876 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) itmed = 60 natmed = 'COL2 Nickel' nmat = 18 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'COL2' chshap = 'TUBE' nmed = 60 npar = 3 par(1) = 0.5 par(2) = 10 par(3) = 25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.77) stop 'consistency check #1 failed' chname = 'COL2' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = 195 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 61 natmed = 'MAG2 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'MAG2' chshap = 'BOX ' nmed = 61 npar = 3 par(1) = 10 par(2) = 25 par(3) = 15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.78) stop 'consistency check #1 failed' irot = 21 theta1 = 90 phi1 = 0 theta2 = 3.50824e-15 phi2 = 90 theta3 = 90 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'MAG2' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = 255 irot = 21 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 62 natmed = 'POL2 Iron' nmat = 10 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'POL2' chshap = 'BOX ' nmed = 62 npar = 3 par(1) = 10 par(2) = 25 par(3) = 6.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.79) stop 'consistency check #1 failed' chname = 'POL2' nr = 1 chmoth = 'MAG2' x = 0 y = 0 z = -8.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'POL2' nr = 2 chmoth = 'MAG2' x = 0 y = 0 z = 8.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 63 natmed = 'GAP2 Lead' nmat = 17 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'GAP2' chshap = 'BOX ' nmed = 63 npar = 3 par(1) = 3.75 par(2) = 25 par(3) = 2.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.80) stop 'consistency check #1 failed' chname = 'GAP2' nr = 1 chmoth = 'MAG2' x = -6.25 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'GAP2' nr = 2 chmoth = 'MAG2' x = 6.25 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 64 natmed = 'OMHO Iron' nmat = 10 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OMHO' chshap = 'TUBE' nmed = 64 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.81) stop 'consistency check #1 failed' irot = 22 theta1 = 90 phi1 = 0 theta2 = 3.50824e-15 phi2 = 90 theta3 = 90 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'OMHO' nr = 1 chmoth = 'MAG2' x = 0 y = 0 z = 0 irot = 22 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 65 natmed = 'IMHO Vacuum' nmat = 11 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IMHO' chshap = 'TUBE' nmed = 65 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.82) stop 'consistency check #1 failed' chname = 'IMHO' nr = 1 chmoth = 'OMHO' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 20 chnama = 'Carbon' a = 12.011 z = 6 dens = 2.265 radl = 18.8521 absl = 38.1015 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 19 namate = 'Mylar' wmat(1) = 5 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 4 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 2 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.39 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 66 natmed = 'CAP1 Mylar' nmat = 19 isvol = 0 ifield = 2 fieldm = 2 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CAP1' chshap = 'TUBE' nmed = 66 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 0.025 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.83) stop 'consistency check #1 failed' chname = 'CAP1' nr = 1 chmoth = 'IMHO' x = 0 y = 0 z = 24.975 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 67 natmed = 'OCH1 Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OCH1' chshap = 'TUBE' nmed = 67 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.84) stop 'consistency check #1 failed' chname = 'OCH1' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = 285 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 68 natmed = 'ICH1 Vacuum' nmat = 11 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ICH1' chshap = 'TUBE' nmed = 68 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.85) stop 'consistency check #1 failed' chname = 'ICH1' nr = 1 chmoth = 'OCH1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 69 natmed = 'ABS2 Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ABS2' chshap = 'BOX ' nmed = 69 npar = 3 par(1) = 50 par(2) = 50 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.86) stop 'consistency check #1 failed' chname = 'ABS2' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = 340 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 70 natmed = 'OAHO Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OAHO' chshap = 'TUBE' nmed = 70 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.87) stop 'consistency check #1 failed' chname = 'OAHO' nr = 1 chmoth = 'ABS2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 71 natmed = 'IAHO Vacuum' nmat = 11 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IAHO' chshap = 'TUBE' nmed = 71 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.88) stop 'consistency check #1 failed' chname = 'IAHO' nr = 1 chmoth = 'OAHO' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 72 natmed = 'OCH2 Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OCH2' chshap = 'TUBE' nmed = 72 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 20 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.89) stop 'consistency check #1 failed' chname = 'OCH2' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = 410 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 73 natmed = 'ICH2 Vacuum' nmat = 11 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ICH2' chshap = 'TUBE' nmed = 73 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 20 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.90) stop 'consistency check #1 failed' chname = 'ICH2' nr = 1 chmoth = 'OCH2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 74 natmed = 'BLC2 Concrete' nmat = 6 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BLC2' chshap = 'BOX ' nmed = 74 npar = 3 par(1) = 200 par(2) = 125 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.91) stop 'consistency check #1 failed' chname = 'BLC2' nr = 1 chmoth = 'CAVE' x = 0 y = -10 z = 480 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 75 natmed = 'OBHO Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OBHO' chshap = 'TUBE' nmed = 75 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.92) stop 'consistency check #1 failed' chname = 'OBHO' nr = 1 chmoth = 'BLC2' x = 0 y = -25 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 76 natmed = 'IBHO Vacuum' nmat = 11 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IBHO' chshap = 'TUBE' nmed = 76 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 50 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.93) stop 'consistency check #1 failed' chname = 'IBHO' nr = 1 chmoth = 'OBHO' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 77 natmed = 'OCH3 Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OCH3' chshap = 'TUBE' nmed = 77 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 55 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.94) stop 'consistency check #1 failed' chname = 'OCH3' nr = 1 chmoth = 'CAVE' x = 0 y = -35 z = 585 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 78 natmed = 'ICH3 Vacuum' nmat = 11 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'ICH3' chshap = 'TUBE' nmed = 78 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 55 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.95) stop 'consistency check #1 failed' chname = 'ICH3' nr = 1 chmoth = 'OCH3' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 79 natmed = 'WALL Lead' nmat = 17 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'WALL' chshap = 'BOX ' nmed = 79 npar = 3 par(1) = 235 par(2) = 135 par(3) = 7.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.96) stop 'consistency check #1 failed' chname = 'WALL' nr = 1 chmoth = 'CAVE' x = 0 y = 0 z = 592.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 80 natmed = 'OWHO Iron' nmat = 10 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OWHO' chshap = 'TUBE' nmed = 80 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 7.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.97) stop 'consistency check #1 failed' chname = 'OWHO' nr = 1 chmoth = 'WALL' x = 0 y = -35 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 81 natmed = 'IWHO Vacuum' nmat = 11 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IWHO' chshap = 'TUBE' nmed = 81 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 7.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.98) stop 'consistency check #1 failed' chname = 'IWHO' nr = 1 chmoth = 'OWHO' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 82 natmed = 'DET2 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DET2' chshap = 'BOX ' nmed = 82 npar = 3 par(1) = 225 par(2) = 135 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.99) stop 'consistency check #1 failed' chname = 'DET2' nr = 1 chmoth = 'CAVE' x = 0 y = 0 z = 75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 83 natmed = 'DET3 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DET3' chshap = 'BOX ' nmed = 83 npar = 3 par(1) = 225 par(2) = 1 par(3) = 600 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.100) stop 'consistency check #1 failed' chname = 'DET3' nr = 1 chmoth = 'CAVE' x = 0 y = 132 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 84 natmed = 'HALL Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'HALL' chshap = 'BOX ' nmed = 84 npar = 3 par(1) = 850 par(2) = 750 par(3) = 1500 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.101) stop 'consistency check #1 failed' chname = 'HALL' nr = 1 chmoth = 'SITE' x = -150 y = 350 z = 500 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 85 natmed = 'TARG Vacuum' nmat = 11 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'TARG' chshap = 'TUBE' nmed = 85 npar = 3 par(1) = 0 par(2) = 4 par(3) = 27.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.102) stop 'consistency check #1 failed' chname = 'TARG' nr = 1 chmoth = 'HALL' x = 150 y = -350 z = -437.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 21 namate = 'HighDensityROHACELL' wmat(1) = 11 call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 8 call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 1 call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 2 call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 0.11 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 86 natmed = 'CYLW HighDensityROHACELL' nmat = 21 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CYLW' chshap = 'TUBE' nmed = 86 npar = 3 par(1) = 3 par(2) = 4 par(3) = 27.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.103) stop 'consistency check #1 failed' chname = 'CYLW' nr = 1 chmoth = 'TARG' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 87 natmed = 'UWIT Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UWIT' chshap = 'TUBE' nmed = 87 npar = 3 par(1) = 0 par(2) = 2 par(3) = 0.0035 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.104) stop 'consistency check #1 failed' chname = 'UWIT' nr = 1 chmoth = 'TARG' x = 0 y = 0 z = -27.495 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 88 natmed = 'DWIT Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DWIT' chshap = 'TUBE' nmed = 88 npar = 3 par(1) = 0 par(2) = 2 par(3) = 0.0035 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.105) stop 'consistency check #1 failed' chname = 'DWIT' nr = 1 chmoth = 'TARG' x = 0 y = 0 z = 27.495 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 89 natmed = 'UFLT Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UFLT' chshap = 'TUBE' nmed = 89 npar = 3 par(1) = 2 par(2) = 3 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.106) stop 'consistency check #1 failed' chname = 'UFLT' nr = 1 chmoth = 'TARG' x = 0 y = 0 z = -27.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 90 natmed = 'DFLT HighDensityROHACELL' nmat = 21 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DFLT' chshap = 'TUBE' nmed = 90 npar = 3 par(1) = 2 par(2) = 3 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.107) stop 'consistency check #1 failed' chname = 'DFLT' nr = 1 chmoth = 'TARG' x = 0 y = 0 z = 27 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 22 namate = 'Kapton' wmat(1) = 22 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 10 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 5 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 2 call gfmate(2,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 1.42 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 91 natmed = 'TGTV Kapton' nmat = 22 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'TGTV' chshap = 'TUBE' nmed = 91 npar = 3 par(1) = 0 par(2) = 1.515 par(3) = 15.015 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.108) stop 'consistency check #1 failed' chname = 'TGTV' nr = 1 chmoth = 'TARG' x = 0 y = 0 z = 2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 23 chnama = 'LiqHydrogen' a = 1.00797 z = 1 dens = 0.0708 radl = 865.537 absl = 717.514 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) itmed = 92 natmed = 'LIH2 LiqHydrogen' nmat = 23 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LIH2' chshap = 'TUBE' nmed = 92 npar = 3 par(1) = 0 par(2) = 1.5 par(3) = 15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.109) stop 'consistency check #1 failed' chname = 'LIH2' nr = 1 chmoth = 'TGTV' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 24 namate = 'LowDensityROHACELL' wmat(1) = 11 call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 8 call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 1 call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 2 call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 0.032 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 93 natmed = 'STRT LowDensityROHACELL' nmat = 24 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STRT' chshap = 'PGON' nmed = 93 npar = 25 par(1) = 0 par(2) = 360 par(3) = 24 par(4) = 7 par(5) = -140 par(6) = 9.5 par(7) = 11.4 par(8) = 50.2 par(9) = 9.5 par(10) = 11.4 par(11) = 50.578 par(12) = 9.343 par(13) = 11.4 par(14) = 53.792 par(15) = 8.012 par(16) = 10.069 par(17) = 54.868 par(18) = 6.936 par(19) = 9.623 par(20) = 60.2 par(21) = 1.604 par(22) = 4.291 par(23) = 61.544 par(24) = 2.948 par(25) = 2.948 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.110) stop 'consistency check #1 failed' chname = 'STRT' nr = 1 chmoth = 'HALL' x = 150 y = -350 z = -462.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 25 namate = 'Scintillator' wmat(1) = 8 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 9 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 1.032 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 94 natmed = 'STRC Scintillator' nmat = 25 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STRC' chshap = 'PGON' nmed = 94 npar = 25 par(1) = -7.5 par(2) = 15 par(3) = 1 par(4) = 7 par(5) = 0 par(6) = 10.03 par(7) = 10.245 par(8) = 50.42 par(9) = 10.03 par(10) = 10.245 par(11) = 50.463 par(12) = 10.012 par(13) = 10.245 par(14) = 54.012 par(15) = 8.542 par(16) = 8.775 par(17) = 54.134 par(18) = 8.42 par(19) = 8.724 par(20) = 60.4 par(21) = 2.154 par(22) = 2.458 par(23) = 60.552 par(24) = 2.306 par(25) = 2.306 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.111) stop 'consistency check #1 failed' irot = 23 theta1 = 90 phi1 = 7.5 theta2 = 90 phi2 = 97.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 1 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 23 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 24 theta1 = 90 phi1 = 22.5 theta2 = 90 phi2 = 112.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 2 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 24 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 25 theta1 = 90 phi1 = 37.5 theta2 = 90 phi2 = 127.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 3 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 25 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 26 theta1 = 90 phi1 = 52.5 theta2 = 90 phi2 = 142.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 4 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 26 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 27 theta1 = 90 phi1 = 67.5 theta2 = 90 phi2 = 157.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 5 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 27 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 28 theta1 = 90 phi1 = 82.5 theta2 = 90 phi2 = 172.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 6 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 28 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 29 theta1 = 90 phi1 = 97.5 theta2 = 90 phi2 = -172.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 7 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 29 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 30 theta1 = 90 phi1 = 112.5 theta2 = 90 phi2 = -157.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 8 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 30 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 31 theta1 = 90 phi1 = 127.5 theta2 = 90 phi2 = -142.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 9 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 31 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 32 theta1 = 90 phi1 = 142.5 theta2 = 90 phi2 = -127.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 10 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 32 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 33 theta1 = 90 phi1 = 157.5 theta2 = 90 phi2 = -112.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 11 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 33 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 34 theta1 = 90 phi1 = 172.5 theta2 = 90 phi2 = -97.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 12 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 34 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 35 theta1 = 90 phi1 = -172.5 theta2 = 90 phi2 = -82.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 13 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 35 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 36 theta1 = 90 phi1 = -157.5 theta2 = 90 phi2 = -67.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 14 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 36 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 37 theta1 = 90 phi1 = -142.5 theta2 = 90 phi2 = -52.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 15 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 37 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 38 theta1 = 90 phi1 = -127.5 theta2 = 90 phi2 = -37.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 16 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 38 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 39 theta1 = 90 phi1 = -112.5 theta2 = 90 phi2 = -22.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 17 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 39 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 40 theta1 = 90 phi1 = -97.5 theta2 = 90 phi2 = -7.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 18 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 40 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 41 theta1 = 90 phi1 = -82.5 theta2 = 90 phi2 = 7.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 19 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 41 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 42 theta1 = 90 phi1 = -67.5 theta2 = 90 phi2 = 22.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 20 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 42 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 43 theta1 = 90 phi1 = -52.5 theta2 = 90 phi2 = 37.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 21 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 43 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 44 theta1 = 90 phi1 = -37.5 theta2 = 90 phi2 = 52.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 22 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 44 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 45 theta1 = 90 phi1 = -22.5 theta2 = 90 phi2 = 67.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 23 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 45 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 46 theta1 = 90 phi1 = -7.5 theta2 = 90 phi2 = 82.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STRC' nr = 24 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 46 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 95 natmed = 'STSU HighDensityROHACELL' nmat = 21 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STSU' chshap = 'PGON' nmed = 95 npar = 25 par(1) = 0 par(2) = 360 par(3) = 24 par(4) = 7 par(5) = 0 par(6) = 9.5 par(7) = 10.03 par(8) = 50.2 par(9) = 9.5 par(10) = 10.03 par(11) = 50.305 par(12) = 9.456 par(13) = 10.03 par(14) = 53.792 par(15) = 8.012 par(16) = 8.586 par(17) = 54.092 par(18) = 7.712 par(19) = 8.461 par(20) = 60.2 par(21) = 1.604 par(22) = 2.354 par(23) = 60.575 par(24) = 1.979 par(25) = 1.979 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.112) stop 'consistency check #1 failed' chname = 'STSU' nr = 1 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 26 namate = 'Cellulose' wmat(1) = 10 call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 6 call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 5 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.1 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 96 natmed = 'STWR Cellulose' nmat = 26 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STWR' chshap = 'PGON' nmed = 96 npar = 25 par(1) = 0 par(2) = 360 par(3) = 24 par(4) = 7 par(5) = -140 par(6) = 11.32 par(7) = 11.4 par(8) = 50.562 par(9) = 11.32 par(10) = 11.4 par(11) = 50.578 par(12) = 11.313 par(13) = 11.4 par(14) = 54.823 par(15) = 9.555 par(16) = 9.642 par(17) = 54.868 par(18) = 9.51 par(19) = 9.623 par(20) = 61.487 par(21) = 2.891 par(22) = 3.004 par(23) = 61.544 par(24) = 2.948 par(25) = 2.948 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.113) stop 'consistency check #1 failed' chname = 'STWR' nr = 1 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STWR' nr = 2 chmoth = 'STRT' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 97 natmed = 'TARM Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'TARM' chshap = 'TUBE' nmed = 97 npar = 3 par(1) = 9.5 par(2) = 11.32 par(3) = 70 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.114) stop 'consistency check #1 failed' chname = 'TARM' nr = 1 chmoth = 'STRT' x = 0 y = 0 z = -70 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 27 namate = 'Plexiglas' wmat(1) = 5 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 8 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 2 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.2 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 98 natmed = 'STLG Plexiglas' nmat = 27 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STLG' chshap = 'TUBE' nmed = 98 npar = 3 par(1) = 10 par(2) = 11.32 par(3) = 70 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.115) stop 'consistency check #1 failed' chname = 'STLG' nr = 1 chmoth = 'TARM' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 99 natmed = 'LASS Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LASS' chshap = 'PCON' nmed = 99 npar = 21 par(1) = 0 par(2) = 360 par(3) = 6 par(4) = -50.8 par(5) = 11.5 par(6) = 188 par(7) = 100 par(8) = 11.5 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.116) 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 = 100 natmed = 'IYUP Iron' nmat = 10 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IYUP' chshap = 'TUBE' nmed = 100 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.117) 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 = 101 natmed = 'IYOK Iron' nmat = 10 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IYOK' chshap = 'TUBE' nmed = 101 npar = 3 par(1) = 95 par(2) = 187.96 par(3) = 188.9 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.118) 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 = 102 natmed = 'IYDN Iron' nmat = 10 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IYDN' chshap = 'TUBE' nmed = 102 npar = 3 par(1) = 92.71 par(2) = 187.96 par(3) = 33 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.119) 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 = 103 natmed = 'CDC Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDC' chshap = 'TUBE' nmed = 103 npar = 3 par(1) = 15 par(2) = 60 par(3) = 97.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.120) stop 'consistency check #1 failed' chname = 'CDC' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 104.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 104 natmed = 'DC1 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC1' chshap = 'TUBE' nmed = 104 npar = 3 par(1) = 15.2 par(2) = 16.9 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.121) stop 'consistency check #1 failed' chname = 'DC1' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD12' chmoth = 'DC1' ndiv = 63 iaxis = 2 step = 5.71429 c0 = -2.857 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 105 natmed = 'DS1 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS1' chshap = 'TUBS' nmed = 105 npar = 5 par(1) = 15.2 par(2) = 16.9 par(3) = 88.25 par(4) = -2.857 par(5) = 2.857 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.123) stop 'consistency check #1 failed' chname = 'DS1' nr = 1 chmoth = 'SD12' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 29 namate = 'CO2' wmat(1) = 1 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 2 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 0.001977 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 28 namate = 'chamberGas' wmat(1) = 0.85 call gfmate(4,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.15 call gfmate(29,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 0.00170091 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 106 natmed = 'STRA chamberGas' nmat = 28 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STRA' chshap = 'TUBE' nmed = 106 npar = 3 par(1) = 0 par(2) = 0.8 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.124) stop 'consistency check #1 failed' chname = 'STRA' nr = 1 chmoth = 'DS1' x = 16.049 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 107 natmed = 'STRW Kapton' nmat = 22 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STRW' chshap = 'TUBE' nmed = 107 npar = 3 par(1) = 0.791 par(2) = 0.8 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.125) stop 'consistency check #1 failed' chname = 'STRW' nr = 1 chmoth = 'STRA' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 108 natmed = 'WIRE Tungsten' nmat = 15 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'WIRE' chshap = 'TUBE' nmed = 108 npar = 3 par(1) = 0 par(2) = 0.0015 par(3) = 87.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.126) stop 'consistency check #1 failed' chname = 'WIRE' nr = 1 chmoth = 'STRA' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 109 natmed = 'UPLG Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPLG' chshap = 'TUBE' nmed = 109 npar = 3 par(1) = 0 par(2) = 0.8 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.127) stop 'consistency check #1 failed' chname = 'UPLG' nr = 1 chmoth = 'STRA' x = 0 y = 0 z = -87.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 30 namate = 'Delrin' wmat(1) = 1 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 2 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 1 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.42 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 110 natmed = 'DPLG Delrin' nmat = 30 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DPLG' chshap = 'TUBE' nmed = 110 npar = 3 par(1) = 0 par(2) = 0.8 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.128) stop 'consistency check #1 failed' chname = 'DPLG' nr = 1 chmoth = 'STRA' x = 0 y = 0 z = 87.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 111 natmed = 'CDPU Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDPU' chshap = 'TUBE' nmed = 111 npar = 3 par(1) = 15 par(2) = 60 par(3) = 0.45 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.129) stop 'consistency check #1 failed' chname = 'CDPU' nr = 1 chmoth = 'DS1' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 112 natmed = 'CDPD Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDPD' chshap = 'TUBE' nmed = 112 npar = 3 par(1) = 15 par(2) = 60 par(3) = 0.3 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.130) stop 'consistency check #1 failed' chname = 'CDPD' nr = 1 chmoth = 'DS1' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 113 natmed = 'DC2 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC2' chshap = 'TUBE' nmed = 113 npar = 3 par(1) = 17 par(2) = 18.7 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.131) stop 'consistency check #1 failed' chname = 'DC2' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD13' chmoth = 'DC2' ndiv = 70 iaxis = 2 step = 5.14286 c0 = -2.572 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 114 natmed = 'DS2 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS2' chshap = 'TUBS' nmed = 114 npar = 5 par(1) = 17 par(2) = 18.7 par(3) = 88.25 par(4) = -2.572 par(5) = 2.572 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.133) stop 'consistency check #1 failed' chname = 'DS2' nr = 1 chmoth = 'SD13' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 2 chmoth = 'DS2' x = 17.831 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 2 chmoth = 'DS2' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 2 chmoth = 'DS2' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 115 natmed = 'DC3 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC3' chshap = 'TUBE' nmed = 115 npar = 3 par(1) = 18.8 par(2) = 20.4 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.134) stop 'consistency check #1 failed' chname = 'DC3' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD14' chmoth = 'DC3' ndiv = 77 iaxis = 2 step = 4.67532 c0 = -2.338 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 116 natmed = 'DS3 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS3' chshap = 'TUBS' nmed = 116 npar = 5 par(1) = 18.8 par(2) = 20.4 par(3) = 88.25 par(4) = -2.338 par(5) = 2.338 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.136) stop 'consistency check #1 failed' chname = 'DS3' nr = 1 chmoth = 'SD14' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 3 chmoth = 'DS3' x = 19.613 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 3 chmoth = 'DS3' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 3 chmoth = 'DS3' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 117 natmed = 'DC4 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC4' chshap = 'TUBE' nmed = 117 npar = 3 par(1) = 20.4 par(2) = 22.2 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.137) stop 'consistency check #1 failed' chname = 'DC4' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD15' chmoth = 'DC4' ndiv = 84 iaxis = 2 step = 4.28571 c0 = -2.143 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 118 natmed = 'DS4 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS4' chshap = 'TUBS' nmed = 118 npar = 5 par(1) = 20.4 par(2) = 22.2 par(3) = 88.25 par(4) = -2.143 par(5) = 2.143 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.139) stop 'consistency check #1 failed' chname = 'DS4' nr = 1 chmoth = 'SD15' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 4 chmoth = 'DS4' x = 21.395 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 4 chmoth = 'DS4' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 4 chmoth = 'DS4' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 119 natmed = 'DC5 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC5' chshap = 'TUBE' nmed = 119 npar = 3 par(1) = 22.2 par(2) = 31.1 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.140) 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 = 120 natmed = 'STLA chamberGas' nmat = 28 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STLA' chshap = 'TUBE' nmed = 120 npar = 3 par(1) = 0 par(2) = 0.8 par(3) = 88.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.141) stop 'consistency check #1 failed' irot = 47 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 = 47 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 121 natmed = 'STLW Kapton' nmat = 22 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'STLW' chshap = 'TUBE' nmed = 121 npar = 3 par(1) = 0.791 par(2) = 0.8 par(3) = 88.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.142) 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 = 122 natmed = 'WILE Tungsten' nmat = 15 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'WILE' chshap = 'TUBE' nmed = 122 npar = 3 par(1) = 0 par(2) = 0.0015 par(3) = 88 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.143) stop 'consistency check #1 failed' chname = 'WILE' nr = 1 chmoth = 'STLA' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPLG' nr = 2 chmoth = 'STLA' x = 0 y = 0 z = -88.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'DPLG' nr = 2 chmoth = 'STLA' x = 0 y = 0 z = 88.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 48 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 = 48 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 49 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 = 49 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 50 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 = 50 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 51 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 = 51 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 52 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 = 52 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 53 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 = 53 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 54 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 = 54 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 55 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 = 55 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 56 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 = 56 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 57 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 = 57 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 58 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 = 58 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 59 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 = 59 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 60 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 = 60 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 61 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 = 61 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 62 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 = 62 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 63 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 = 63 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 64 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 = 64 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 65 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 = 65 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 66 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 = 66 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 67 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 = 67 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 68 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 = 68 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 69 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 = 69 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 70 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 = 70 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 71 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 = 71 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 72 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 = 72 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 73 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 = 73 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 74 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 = 74 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 75 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 = 75 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 76 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 = 76 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 77 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 = 77 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 78 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 = 78 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 79 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 = 79 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 80 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 = 80 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 81 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 = 81 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 82 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 = 82 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 83 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 = 83 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 84 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 = 84 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 85 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 = 85 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 86 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 = 86 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 87 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 = 87 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 88 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 = 88 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 89 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 = 89 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 90 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 = 90 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 91 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 = 91 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 92 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 = 92 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 93 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 = 93 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 94 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 = 94 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 95 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 = 95 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 96 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 = 96 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 97 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 = 97 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 98 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 = 98 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 99 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 = 99 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 100 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 = 100 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 101 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 = 101 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 102 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 = 102 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 103 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 = 103 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 104 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 = 104 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 105 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 = 105 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 106 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 = 106 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 107 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 = 107 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 108 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 = 108 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 109 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 = 109 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 110 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 = 110 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 111 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 = 111 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 112 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 = 112 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 113 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 = 113 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 114 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 = 114 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 115 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 = 115 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 116 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 = 116 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 117 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 = 117 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 118 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 = 118 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 119 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 = 119 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 120 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 = 120 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 121 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 = 121 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 122 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 = 122 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 123 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 = 123 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 124 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 = 124 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 125 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 = 125 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 126 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 = 126 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 127 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 = 127 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 128 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 = 128 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 129 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 = 129 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 130 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 = 130 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 131 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 = 131 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 132 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 = 132 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 133 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 = 133 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 134 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 = 134 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 135 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 = 135 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 136 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 = 136 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 137 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 = 137 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 138 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 = 138 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 139 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 = 139 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 140 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 = 140 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 141 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 = 141 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 142 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 = 142 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 143 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 = 143 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 144 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 = 144 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 145 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 = 145 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 146 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 = 146 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 147 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 = 147 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 148 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 = 148 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 149 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 = 149 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 150 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 = 150 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 151 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 = 151 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 152 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 = 152 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 153 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 = 153 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 154 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 = 154 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 155 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 = 155 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 156 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 = 156 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 157 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 = 157 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 158 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 = 158 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 159 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 = 159 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 160 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 = 160 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 161 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 = 161 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 162 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 = 162 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 163 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 = 163 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 164 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 = 164 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 165 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 = 165 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 166 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 = 166 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 167 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 = 167 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 168 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 = 168 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 169 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 = 169 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 170 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 = 170 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 171 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 = 171 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 172 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 = 172 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 173 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 = 173 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 174 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 = 174 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 175 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 = 175 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 176 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 = 176 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 177 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 = 177 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 178 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 = 178 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 179 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 = 179 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 180 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 = 180 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 181 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 = 181 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 182 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 = 182 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 183 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 = 183 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 184 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 = 184 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 185 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 = 185 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 186 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 = 186 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 187 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 = 187 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 188 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 = 188 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 189 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 = 189 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 190 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 = 190 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 191 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 = 191 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 192 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 = 192 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 193 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 = 193 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 194 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 = 194 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 195 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 = 195 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 196 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 = 196 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 197 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 = 197 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 198 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 = 198 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 199 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 = 199 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 200 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 = 200 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 201 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 = 201 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 202 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 = 202 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 203 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 = 203 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 204 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 = 204 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 205 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 = 205 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 206 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 = 206 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 207 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 = 207 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 208 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 = 208 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 209 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 = 209 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 210 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 = 210 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 211 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 = 211 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 212 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 = 212 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 213 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 = 213 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 214 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 = 214 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 215 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 = 215 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 216 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 = 216 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 217 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 = 217 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 218 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 = 218 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 219 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 = 219 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 220 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 = 220 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 221 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 = 221 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 222 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 = 222 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 223 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 = 223 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 224 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 = 224 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 225 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 = 225 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 226 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 = 226 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 227 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 = 227 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 228 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 = 228 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 229 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 = 229 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 230 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 = 230 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 231 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 = 231 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 232 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 = 232 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 233 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 = 233 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 234 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 = 234 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 235 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 = 235 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 236 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 = 236 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 237 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 = 237 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 238 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 = 238 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 239 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 = 239 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 240 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 = 240 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 241 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 = 241 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 242 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 = 242 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 243 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 = 243 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 244 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 = 244 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 245 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 = 245 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 246 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 = 246 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 247 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 = 247 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 248 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 = 248 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 249 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 = 249 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 250 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 = 250 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 251 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 = 251 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 252 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 = 252 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 253 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 = 253 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 254 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 = 254 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 255 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 = 255 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 256 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 = 256 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 257 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 = 257 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 258 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 = 258 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 259 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 = 259 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 260 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 = 260 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 261 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 = 261 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 262 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 = 262 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 263 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 = 263 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 264 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 = 264 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 265 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 = 265 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 266 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 = 266 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 267 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 = 267 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 268 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 = 268 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 269 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 = 269 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 270 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 = 270 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 271 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 = 271 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 272 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 = 272 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 273 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 = 273 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 274 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 = 274 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 275 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 = 275 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 276 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 = 276 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 277 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 = 277 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 278 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 = 278 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 279 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 = 279 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 280 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 = 280 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 281 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 = 281 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 282 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 = 282 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 283 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 = 283 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 284 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 = 284 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 285 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 = 285 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 286 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 = 286 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 287 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 = 287 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 288 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 = 288 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 289 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 = 289 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 290 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 = 290 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 291 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 = 291 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 292 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 = 292 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 293 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 = 293 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 294 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 = 294 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 295 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 = 295 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 296 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 = 296 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 297 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 = 297 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 298 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 = 298 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 299 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 = 299 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 300 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 = 300 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 301 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 = 301 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 302 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 = 302 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 303 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 = 303 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 304 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 = 304 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 305 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 = 305 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 306 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 = 306 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 307 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 = 307 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 308 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 = 308 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 309 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 = 309 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 310 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 = 310 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 311 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 = 311 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 312 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 = 312 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 313 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 = 313 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 314 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 = 314 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 315 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 = 315 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 316 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 = 316 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 317 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 = 317 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 318 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 = 318 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 319 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 = 319 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 320 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 = 320 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 321 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 = 321 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 322 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 = 322 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 323 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 = 323 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 324 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 = 324 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 325 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 = 325 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 326 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 = 326 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 327 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 = 327 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 328 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 = 328 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 329 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 = 329 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 330 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 = 330 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 331 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 = 331 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 332 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 = 332 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 333 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 = 333 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 334 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 = 334 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 335 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 = 335 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 336 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 = 336 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 337 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 = 337 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 338 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 = 338 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 339 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 = 339 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 340 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 = 340 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 341 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 = 341 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 342 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 = 342 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 343 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 = 343 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 344 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 = 344 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 345 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 = 345 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 346 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 = 346 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 347 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 = 347 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 348 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 = 348 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 349 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 = 349 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 350 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 = 350 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 351 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 = 351 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 352 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 = 352 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 353 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 = 353 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 354 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 = 354 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 355 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 = 355 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 356 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 = 356 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 357 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 = 357 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 358 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 = 358 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 359 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 = 359 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 360 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 = 360 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 361 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 = 361 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 362 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 = 362 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 363 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 = 363 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 364 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 = 364 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 365 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 = 365 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 366 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 = 366 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 367 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 = 367 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 368 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 = 368 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 369 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 = 369 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 370 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 = 370 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 371 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 = 371 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 372 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 = 372 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 373 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 = 373 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 374 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 = 374 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 375 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 = 375 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 376 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 = 376 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 377 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 = 377 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 378 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 = 378 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 379 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 = 379 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 380 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 = 380 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 381 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 = 381 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 382 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 = 382 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 383 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 = 383 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 384 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 = 384 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 385 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 = 385 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 386 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 = 386 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 387 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 = 387 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 388 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 = 388 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 389 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 = 389 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 390 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 = 390 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 391 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 = 391 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 392 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 = 392 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 393 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 = 393 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 394 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 = 394 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 395 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 = 395 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 396 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 = 396 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 397 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 = 397 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 398 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 = 398 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 399 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 = 399 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 400 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 = 400 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 401 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 = 401 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 402 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 = 402 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 403 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 = 403 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 404 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 = 404 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 405 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 = 405 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 406 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 = 406 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 407 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 = 407 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 408 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 = 408 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 409 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 = 409 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 410 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 = 410 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 411 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 = 411 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 412 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 = 412 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 413 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 = 413 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 414 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 = 414 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 415 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 = 415 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 416 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 = 416 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 417 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 = 417 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 418 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 = 418 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 419 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 = 419 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 420 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 = 420 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 421 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 = 421 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 422 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 = 422 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 423 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 = 423 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 424 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 = 424 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 425 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 = 425 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 426 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 = 426 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 427 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 = 427 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 428 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 = 428 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 429 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 = 429 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 430 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 = 430 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 431 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 = 431 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 432 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 = 432 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 433 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 = 433 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 434 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 = 434 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 435 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 = 435 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 436 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 = 436 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 437 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 = 437 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 438 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 = 438 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 439 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 = 439 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 440 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 = 440 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 441 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 = 441 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 442 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 = 442 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 443 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 = 443 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 444 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 = 444 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 445 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 = 445 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 446 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 = 446 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 447 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 = 447 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 448 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 = 448 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 449 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 = 449 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 450 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 = 450 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 451 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 = 451 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 452 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 = 452 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 5 chmoth = 'DC5' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 5 chmoth = 'DC5' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 123 natmed = 'DC9 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC9' chshap = 'TUBE' nmed = 123 npar = 3 par(1) = 31.1 par(2) = 33 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.144) 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 = 'SD16' chmoth = 'DC9' ndiv = 126 iaxis = 2 step = 2.85714 c0 = -1.429 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 124 natmed = 'DS9 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS9' chshap = 'TUBS' nmed = 124 npar = 5 par(1) = 31.1 par(2) = 33 par(3) = 88.25 par(4) = -1.429 par(5) = 1.429 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.146) stop 'consistency check #1 failed' chname = 'DS9' nr = 1 chmoth = 'SD16' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 5 chmoth = 'DS9' x = 32.089 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 6 chmoth = 'DS9' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 6 chmoth = 'DS9' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 125 natmed = 'DC10 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC10' chshap = 'TUBE' nmed = 125 npar = 3 par(1) = 33 par(2) = 34.8 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.147) 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 = 'SD17' chmoth = 'DC10' ndiv = 133 iaxis = 2 step = 2.70677 c0 = -1.353 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 126 natmed = 'DS10 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS10' chshap = 'TUBS' nmed = 126 npar = 5 par(1) = 33 par(2) = 34.8 par(3) = 88.25 par(4) = -1.353 par(5) = 1.353 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.149) stop 'consistency check #1 failed' chname = 'DS10' nr = 1 chmoth = 'SD17' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 6 chmoth = 'DS10' x = 33.871 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 7 chmoth = 'DS10' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 7 chmoth = 'DS10' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 127 natmed = 'DC11 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC11' chshap = 'TUBE' nmed = 127 npar = 3 par(1) = 34.8 par(2) = 36.6 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.150) 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 = 'SD18' chmoth = 'DC11' ndiv = 140 iaxis = 2 step = 2.57143 c0 = -1.286 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 128 natmed = 'DS11 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS11' chshap = 'TUBS' nmed = 128 npar = 5 par(1) = 34.8 par(2) = 36.6 par(3) = 88.25 par(4) = -1.286 par(5) = 1.286 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.152) stop 'consistency check #1 failed' chname = 'DS11' nr = 1 chmoth = 'SD18' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 7 chmoth = 'DS11' x = 35.654 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 8 chmoth = 'DS11' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 8 chmoth = 'DS11' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 129 natmed = 'DC12 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC12' chshap = 'TUBE' nmed = 129 npar = 3 par(1) = 36.6 par(2) = 38.4 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.153) 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 = 'SD19' chmoth = 'DC12' ndiv = 147 iaxis = 2 step = 2.44898 c0 = -1.224 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 130 natmed = 'DS12 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS12' chshap = 'TUBS' nmed = 130 npar = 5 par(1) = 36.6 par(2) = 38.4 par(3) = 88.25 par(4) = -1.224 par(5) = 1.224 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.155) stop 'consistency check #1 failed' chname = 'DS12' nr = 1 chmoth = 'SD19' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 8 chmoth = 'DS12' x = 37.435 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 9 chmoth = 'DS12' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 9 chmoth = 'DS12' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 131 natmed = 'DC13 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC13' chshap = 'TUBE' nmed = 131 npar = 3 par(1) = 38.4 par(2) = 40.2 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.156) 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 = 'SD1A' chmoth = 'DC13' ndiv = 154 iaxis = 2 step = 2.33766 c0 = -1.169 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 132 natmed = 'DS13 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS13' chshap = 'TUBS' nmed = 132 npar = 5 par(1) = 38.4 par(2) = 40.2 par(3) = 88.25 par(4) = -1.169 par(5) = 1.169 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.158) stop 'consistency check #1 failed' chname = 'DS13' nr = 1 chmoth = 'SD1A' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 9 chmoth = 'DS13' x = 39.218 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 10 chmoth = 'DS13' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 10 chmoth = 'DS13' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 133 natmed = 'DC14 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC14' chshap = 'TUBE' nmed = 133 npar = 3 par(1) = 40.2 par(2) = 48.3 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.159) 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 = 453 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 = 453 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 454 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 = 454 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 455 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 = 455 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 456 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 = 456 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 457 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 = 457 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 458 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 = 458 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 459 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 = 459 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 460 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 = 460 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 461 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 = 461 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 462 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 = 462 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 463 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 = 463 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 464 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 = 464 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 465 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 = 465 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 466 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 = 466 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 467 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 = 467 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 468 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 = 468 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 469 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 = 469 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 470 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 = 470 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 471 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 = 471 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 472 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 = 472 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 473 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 = 473 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 474 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 = 474 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 475 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 = 475 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 476 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 = 476 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 477 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 = 477 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 478 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 = 478 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 479 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 = 479 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 480 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 = 480 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 481 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 = 481 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 482 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 = 482 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 483 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 = 483 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 484 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 = 484 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 485 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 = 485 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 486 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 = 486 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 487 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 = 487 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 488 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 = 488 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 489 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 = 489 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 490 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 = 490 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 491 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 = 491 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 492 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 = 492 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 493 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 = 493 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 494 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 = 494 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 495 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 = 495 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 496 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 = 496 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 497 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 = 497 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 498 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 = 498 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 499 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 = 499 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 500 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 = 500 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 501 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 = 501 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 502 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 = 502 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 503 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 = 503 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 504 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 = 504 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 505 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 = 505 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 506 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 = 506 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 507 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 = 507 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 508 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 = 508 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 509 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 = 509 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 510 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 = 510 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 511 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 = 511 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 512 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 = 512 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 513 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 = 513 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 514 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 = 514 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 515 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 = 515 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 516 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 = 516 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 517 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 = 517 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 518 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 = 518 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 519 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 = 519 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 520 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 = 520 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 521 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 = 521 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 522 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 = 522 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 523 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 = 523 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 524 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 = 524 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 525 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 = 525 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 526 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 = 526 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 527 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 = 527 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 528 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 = 528 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 529 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 = 529 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 530 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 = 530 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 531 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 = 531 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 532 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 = 532 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 533 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 = 533 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 534 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 = 534 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 535 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 = 535 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 536 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 = 536 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 537 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 = 537 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 538 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 = 538 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 539 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 = 539 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 540 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 = 540 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 541 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 = 541 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 542 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 = 542 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 543 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 = 543 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 544 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 = 544 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 545 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 = 545 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 546 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 = 546 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 547 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 = 547 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 548 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 = 548 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 549 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 = 549 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 550 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 = 550 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 551 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 = 551 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 552 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 = 552 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 553 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 = 553 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 554 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 = 554 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 555 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 = 555 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 556 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 = 556 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 557 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 = 557 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 558 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 = 558 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 559 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 = 559 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 560 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 = 560 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 561 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 = 561 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 562 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 = 562 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 563 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 = 563 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 564 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 = 564 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 565 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 = 565 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 566 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 = 566 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 567 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 = 567 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 568 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 = 568 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 569 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 = 569 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 570 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 = 570 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 571 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 = 571 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 572 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 = 572 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 573 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 = 573 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 574 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 = 574 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 575 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 = 575 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 576 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 = 576 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 577 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 = 577 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 578 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 = 578 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 579 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 = 579 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 580 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 = 580 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 581 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 = 581 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 582 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 = 582 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 583 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 = 583 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 584 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 = 584 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 585 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 = 585 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 586 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 = 586 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 587 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 = 587 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 588 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 = 588 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 589 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 = 589 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 590 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 = 590 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 591 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 = 591 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 592 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 = 592 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 593 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 = 593 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 594 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 = 594 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 595 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 = 595 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 596 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 = 596 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 597 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 = 597 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 598 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 = 598 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 599 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 = 599 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 600 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 = 600 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 601 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 = 601 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 602 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 = 602 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 603 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 = 603 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 604 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 = 604 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 605 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 = 605 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 606 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 = 606 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 607 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 = 607 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 608 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 = 608 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 609 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 = 609 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 610 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 = 610 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 611 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 = 611 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 612 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 = 612 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 613 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 = 613 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 614 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 = 614 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 615 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 = 615 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 616 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 = 616 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 617 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 = 617 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 618 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 = 618 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 619 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 = 619 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 620 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 = 620 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 621 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 = 621 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 622 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 = 622 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 623 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 = 623 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 624 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 = 624 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 625 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 = 625 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 626 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 = 626 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 627 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 = 627 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 628 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 = 628 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 629 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 = 629 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 630 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 = 630 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 631 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 = 631 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 632 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 = 632 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 633 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 = 633 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 634 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 = 634 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 635 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 = 635 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 636 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 = 636 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 637 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 = 637 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 638 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 = 638 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 639 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 = 639 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 640 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 = 640 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 641 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 = 641 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 642 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 = 642 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 643 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 = 643 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 644 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 = 644 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 645 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 = 645 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 646 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 = 646 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 647 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 = 647 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 648 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 = 648 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 649 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 = 649 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 650 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 = 650 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 651 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 = 651 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 652 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 = 652 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 653 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 = 653 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 654 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 = 654 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 655 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 = 655 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 656 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 = 656 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 657 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 = 657 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 658 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 = 658 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 659 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 = 659 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 660 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 = 660 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 661 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 = 661 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 662 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 = 662 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 663 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 = 663 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 664 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 = 664 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 665 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 = 665 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 666 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 = 666 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 667 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 = 667 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 668 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 = 668 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 669 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 = 669 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 670 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 = 670 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 671 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 = 671 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 672 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 = 672 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 673 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 = 673 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 674 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 = 674 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 675 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 = 675 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 676 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 = 676 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 677 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 = 677 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 678 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 = 678 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 679 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 = 679 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 680 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 = 680 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 681 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 = 681 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 682 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 = 682 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 683 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 = 683 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 684 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 = 684 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 685 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 = 685 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 686 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 = 686 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 687 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 = 687 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 688 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 = 688 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 689 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 = 689 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 690 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 = 690 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 691 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 = 691 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 692 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 = 692 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 693 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 = 693 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 694 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 = 694 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 695 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 = 695 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 696 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 = 696 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 697 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 = 697 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 698 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 = 698 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 699 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 = 699 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 700 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 = 700 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 701 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 = 701 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 702 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 = 702 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 703 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 = 703 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 704 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 = 704 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 705 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 = 705 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 706 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 = 706 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 707 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 = 707 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 708 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 = 708 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 709 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 = 709 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 710 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 = 710 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 711 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 = 711 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 712 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 = 712 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 713 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 = 713 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 714 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 = 714 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 715 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 = 715 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 716 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 = 716 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 717 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 = 717 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 718 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 = 718 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 719 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 = 719 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 720 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 = 720 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 721 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 = 721 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 722 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 = 722 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 723 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 = 723 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 724 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 = 724 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 725 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 = 725 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 726 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 = 726 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 727 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 = 727 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 728 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 = 728 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 729 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 = 729 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 730 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 = 730 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 731 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 = 731 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 732 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 = 732 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 733 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 = 733 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 734 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 = 734 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 735 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 = 735 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 736 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 = 736 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 737 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 = 737 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 738 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 = 738 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 739 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 = 739 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 740 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 = 740 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 741 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 = 741 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 742 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 = 742 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 743 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 = 743 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 744 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 = 744 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 745 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 = 745 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 746 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 = 746 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 747 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 = 747 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 748 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 = 748 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 749 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 = 749 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 750 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 = 750 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 751 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 = 751 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 752 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 = 752 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 753 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 = 753 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 754 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 = 754 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 755 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 = 755 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 756 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 = 756 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 757 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 = 757 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 758 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 = 758 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 759 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 = 759 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 760 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 = 760 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 761 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 = 761 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 762 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 = 762 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 763 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 = 763 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 764 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 = 764 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 765 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 = 765 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 766 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 = 766 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 767 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 = 767 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 768 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 = 768 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 769 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 = 769 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 770 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 = 770 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 771 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 = 771 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 772 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 = 772 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 773 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 = 773 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 774 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 = 774 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 775 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 = 775 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 776 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 = 776 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 777 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 = 777 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 778 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 = 778 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 779 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 = 779 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 780 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 = 780 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 781 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 = 781 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 782 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 = 782 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 783 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 = 783 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 784 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 = 784 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 785 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 = 785 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 786 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 = 786 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 787 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 = 787 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 788 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 = 788 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 789 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 = 789 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 790 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 = 790 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 791 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 = 791 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 792 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 = 792 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 793 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 = 793 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 794 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 = 794 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 795 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 = 795 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 796 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 = 796 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 797 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 = 797 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 798 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 = 798 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 799 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 = 799 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 800 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 = 800 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 801 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 = 801 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 802 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 = 802 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 803 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 = 803 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 804 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 = 804 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 805 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 = 805 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 806 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 = 806 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 807 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 = 807 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 808 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 = 808 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 809 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 = 809 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 810 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 = 810 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 811 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 = 811 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 812 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 = 812 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 813 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 = 813 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 814 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 = 814 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 815 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 = 815 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 816 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 = 816 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 817 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 = 817 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 818 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 = 818 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 819 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 = 819 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 820 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 = 820 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 821 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 = 821 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 822 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 = 822 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 823 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 = 823 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 824 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 = 824 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 825 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 = 825 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 826 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 = 826 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 827 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 = 827 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 828 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 = 828 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 829 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 = 829 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 830 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 = 830 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 831 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 = 831 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 832 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 = 832 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 833 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 = 833 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 834 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 = 834 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 835 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 = 835 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 836 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 = 836 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 837 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 = 837 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 838 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 = 838 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 839 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 = 839 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 840 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 = 840 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 841 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 = 841 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 842 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 = 842 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 843 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 = 843 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 844 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 = 844 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 845 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 = 845 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 846 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 = 846 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 847 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 = 847 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 848 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 = 848 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 849 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 = 849 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 850 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 = 850 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 851 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 = 851 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 852 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 = 852 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 853 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 = 853 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 854 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 = 854 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 855 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 = 855 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 856 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 = 856 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 857 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 = 857 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 858 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 = 858 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 859 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 = 859 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 860 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 = 860 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 861 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 = 861 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 862 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 = 862 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 863 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 = 863 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 864 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 = 864 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 865 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 = 865 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 866 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 = 866 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 867 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 = 867 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 868 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 = 868 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 869 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 = 869 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 870 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 = 870 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 871 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 = 871 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 872 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 = 872 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 873 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 = 873 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 874 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 = 874 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 875 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 = 875 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 876 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 = 876 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 877 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 = 877 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 878 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 = 878 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 879 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 = 879 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 880 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 = 880 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 881 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 = 881 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 882 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 = 882 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 883 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 = 883 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 884 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 = 884 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 885 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 = 885 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 886 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 = 886 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 887 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 = 887 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 888 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 = 888 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 889 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 = 889 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 890 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 = 890 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 891 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 = 891 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 892 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 = 892 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 893 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 = 893 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 894 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 = 894 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 895 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 = 895 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 896 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 = 896 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 897 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 = 897 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 898 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 = 898 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 899 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 = 899 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 900 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 = 900 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 901 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 = 901 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 902 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 = 902 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 903 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 = 903 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 904 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 = 904 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 905 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 = 905 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 906 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 = 906 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 907 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 = 907 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 908 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 = 908 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 909 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 = 909 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 910 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 = 910 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 911 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 = 911 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 912 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 = 912 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 913 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 = 913 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 914 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 = 914 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 915 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 = 915 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 916 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 = 916 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 917 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 = 917 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 918 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 = 918 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 919 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 = 919 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 920 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 = 920 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 921 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 = 921 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 922 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 = 922 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 923 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 = 923 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 924 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 = 924 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 925 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 = 925 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 926 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 = 926 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 927 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 = 927 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 928 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 = 928 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 929 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 = 929 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 930 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 = 930 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 931 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 = 931 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 932 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 = 932 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 933 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 = 933 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 934 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 = 934 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 935 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 = 935 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 936 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 = 936 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 937 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 = 937 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 938 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 = 938 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 939 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 = 939 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 940 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 = 940 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 941 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 = 941 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 942 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 = 942 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 943 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 = 943 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 944 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 = 944 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 945 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 = 945 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 946 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 = 946 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 947 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 = 947 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 948 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 = 948 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 949 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 = 949 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 950 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 = 950 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 951 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 = 951 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 952 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 = 952 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 953 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 = 953 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 954 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 = 954 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 955 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 = 955 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 956 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 = 956 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 957 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 = 957 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 958 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 = 958 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 959 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 = 959 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 960 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 = 960 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 961 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 = 961 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 962 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 = 962 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 963 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 = 963 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 964 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 = 964 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 965 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 = 965 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 966 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 = 966 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 967 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 = 967 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 968 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 = 968 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 969 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 = 969 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 970 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 = 970 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 971 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 = 971 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 972 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 = 972 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 973 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 = 973 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 974 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 = 974 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 975 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 = 975 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 976 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 = 976 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 977 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 = 977 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 978 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 = 978 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 979 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 = 979 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 980 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 = 980 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 981 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 = 981 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 982 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 = 982 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 983 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 = 983 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 984 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 = 984 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 985 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 = 985 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 986 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 = 986 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 987 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 = 987 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 988 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 = 988 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 989 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 = 989 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 990 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 = 990 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 991 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 = 991 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 992 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 = 992 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 993 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 = 993 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 994 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 = 994 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 995 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 = 995 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 996 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 = 996 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 997 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 = 997 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 998 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 = 998 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 999 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 = 999 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1000 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 = 1000 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1001 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 = 1001 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1002 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 = 1002 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1003 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 = 1003 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1004 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 = 1004 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1005 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 = 1005 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1006 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 = 1006 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1007 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 = 1007 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1008 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 = 1008 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1009 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 = 1009 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1010 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 = 1010 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1011 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 = 1011 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1012 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 = 1012 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1013 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 = 1013 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1014 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 = 1014 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1015 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 = 1015 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1016 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 = 1016 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1017 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 = 1017 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1018 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 = 1018 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1019 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 = 1019 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1020 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 = 1020 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1021 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 = 1021 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1022 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 = 1022 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1023 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 = 1023 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1024 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 = 1024 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1025 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 = 1025 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1026 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 = 1026 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1027 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 = 1027 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1028 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 = 1028 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1029 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 = 1029 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1030 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 = 1030 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1031 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 = 1031 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1032 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 = 1032 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1033 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 = 1033 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1034 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 = 1034 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1035 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 = 1035 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1036 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 = 1036 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1037 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 = 1037 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1038 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 = 1038 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1039 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 = 1039 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1040 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 = 1040 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1041 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 = 1041 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1042 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 = 1042 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1043 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 = 1043 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1044 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 = 1044 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1045 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 = 1045 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1046 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 = 1046 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1047 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 = 1047 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1048 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 = 1048 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1049 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 = 1049 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1050 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 = 1050 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1051 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 = 1051 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1052 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 = 1052 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1053 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 = 1053 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1054 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 = 1054 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1055 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 = 1055 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1056 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 = 1056 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1057 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 = 1057 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1058 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 = 1058 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1059 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 = 1059 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1060 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 = 1060 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1061 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 = 1061 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1062 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 = 1062 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1063 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 = 1063 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1064 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 = 1064 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1065 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 = 1065 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1066 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 = 1066 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1067 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 = 1067 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1068 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 = 1068 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1069 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 = 1069 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1070 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 = 1070 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1071 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 = 1071 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1072 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 = 1072 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1073 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 = 1073 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1074 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 = 1074 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1075 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 = 1075 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1076 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 = 1076 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1077 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 = 1077 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1078 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 = 1078 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1079 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 = 1079 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1080 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 = 1080 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1081 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 = 1081 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1082 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 = 1082 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1083 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 = 1083 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1084 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 = 1084 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1085 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 = 1085 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1086 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 = 1086 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1087 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 = 1087 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1088 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 = 1088 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1089 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 = 1089 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1090 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 = 1090 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1091 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 = 1091 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1092 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 = 1092 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1093 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 = 1093 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1094 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 = 1094 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1095 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 = 1095 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1096 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 = 1096 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1097 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 = 1097 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1098 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 = 1098 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1099 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 = 1099 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1100 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 = 1100 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1101 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 = 1101 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1102 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 = 1102 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1103 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 = 1103 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1104 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 = 1104 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1105 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 = 1105 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1106 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 = 1106 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1107 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 = 1107 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1108 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 = 1108 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1109 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 = 1109 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1110 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 = 1110 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1111 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 = 1111 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1112 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 = 1112 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1113 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 = 1113 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1114 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 = 1114 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1115 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 = 1115 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1116 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 = 1116 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1117 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 = 1117 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1118 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 = 1118 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1119 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 = 1119 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1120 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 = 1120 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1121 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 = 1121 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1122 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 = 1122 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1123 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 = 1123 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1124 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 = 1124 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1125 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 = 1125 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1126 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 = 1126 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1127 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 = 1127 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1128 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 = 1128 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1129 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 = 1129 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1130 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 = 1130 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1131 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 = 1131 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1132 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 = 1132 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1133 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 = 1133 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1134 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 = 1134 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1135 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 = 1135 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1136 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 = 1136 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1137 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 = 1137 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1138 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 = 1138 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 11 chmoth = 'DC14' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 11 chmoth = 'DC14' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 134 natmed = 'DC18 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC18' chshap = 'TUBE' nmed = 134 npar = 3 par(1) = 48.3 par(2) = 50 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.160) 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 = 'SD1B' chmoth = 'DC18' ndiv = 193 iaxis = 2 step = 1.86528 c0 = -0.933 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 135 natmed = 'DS18 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS18' chshap = 'TUBS' nmed = 135 npar = 5 par(1) = 48.3 par(2) = 50 par(3) = 88.25 par(4) = -0.933 par(5) = 0.933 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.162) stop 'consistency check #1 failed' chname = 'DS18' nr = 1 chmoth = 'SD1B' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 10 chmoth = 'DS18' x = 49.149 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 12 chmoth = 'DS18' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 12 chmoth = 'DS18' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 136 natmed = 'DC19 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC19' chshap = 'TUBE' nmed = 136 npar = 3 par(1) = 50 par(2) = 51.8 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.163) 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 = 'SD1C' 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) itmed = 137 natmed = 'DS19 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS19' chshap = 'TUBS' nmed = 137 npar = 5 par(1) = 50 par(2) = 51.8 par(3) = 88.25 par(4) = -0.9 par(5) = 0.9 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.165) stop 'consistency check #1 failed' chname = 'DS19' nr = 1 chmoth = 'SD1C' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 11 chmoth = 'DS19' x = 50.932 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 13 chmoth = 'DS19' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 13 chmoth = 'DS19' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 138 natmed = 'DC20 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC20' chshap = 'TUBE' nmed = 138 npar = 3 par(1) = 51.8 par(2) = 53.6 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.166) 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 = 'SD1D' chmoth = 'DC20' ndiv = 207 iaxis = 2 step = 1.73913 c0 = -0.87 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 139 natmed = 'DS20 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS20' chshap = 'TUBS' nmed = 139 npar = 5 par(1) = 51.8 par(2) = 53.6 par(3) = 88.25 par(4) = -0.87 par(5) = 0.87 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.168) stop 'consistency check #1 failed' chname = 'DS20' nr = 1 chmoth = 'SD1D' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 12 chmoth = 'DS20' x = 52.714 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 14 chmoth = 'DS20' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 14 chmoth = 'DS20' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 140 natmed = 'DC21 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC21' chshap = 'TUBE' nmed = 140 npar = 3 par(1) = 53.6 par(2) = 55.4 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.169) 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 = 'SD1E' chmoth = 'DC21' ndiv = 214 iaxis = 2 step = 1.68224 c0 = -0.841 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 141 natmed = 'DS21 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS21' chshap = 'TUBS' nmed = 141 npar = 5 par(1) = 53.6 par(2) = 55.4 par(3) = 88.25 par(4) = -0.841 par(5) = 0.841 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.171) stop 'consistency check #1 failed' chname = 'DS21' nr = 1 chmoth = 'SD1E' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 13 chmoth = 'DS21' x = 54.497 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 15 chmoth = 'DS21' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 15 chmoth = 'DS21' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 142 natmed = 'DC22 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC22' chshap = 'TUBE' nmed = 142 npar = 3 par(1) = 55.4 par(2) = 57.2 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.172) 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 = 'SD1F' chmoth = 'DC22' ndiv = 221 iaxis = 2 step = 1.62896 c0 = -0.814 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 143 natmed = 'DS22 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS22' chshap = 'TUBS' nmed = 143 npar = 5 par(1) = 55.4 par(2) = 57.2 par(3) = 88.25 par(4) = -0.814 par(5) = 0.814 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.174) stop 'consistency check #1 failed' chname = 'DS22' nr = 1 chmoth = 'SD1F' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 14 chmoth = 'DS22' x = 56.279 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 16 chmoth = 'DS22' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 16 chmoth = 'DS22' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 144 natmed = 'DC23 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DC23' chshap = 'TUBE' nmed = 144 npar = 3 par(1) = 57.2 par(2) = 58.9 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.175) 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 = 'SD20' chmoth = 'DC23' ndiv = 228 iaxis = 2 step = 1.57895 c0 = -0.789 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 145 natmed = 'DS23 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DS23' chshap = 'TUBS' nmed = 145 npar = 5 par(1) = 57.2 par(2) = 58.9 par(3) = 88.25 par(4) = -0.789 par(5) = 0.789 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.177) stop 'consistency check #1 failed' chname = 'DS23' nr = 1 chmoth = 'SD20' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 15 chmoth = 'DS23' x = 58.062 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 17 chmoth = 'DS23' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 17 chmoth = 'DS23' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 146 natmed = 'CDCI Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDCI' chshap = 'TUBE' nmed = 146 npar = 3 par(1) = 15 par(2) = 15.06 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.178) 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 = 147 natmed = 'CDCO Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDCO' chshap = 'TUBE' nmed = 147 npar = 3 par(1) = 59.8 par(2) = 60 par(3) = 88.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.179) stop 'consistency check #1 failed' chname = 'CDCO' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 18 chmoth = 'CDC' x = 0 y = 0 z = -87.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 18 chmoth = 'CDC' x = 0 y = 0 z = 87.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 33 namate = 'SiliconDioxide' wmat(1) = 1 call gfmate(9,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 2 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 2.6 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 34 namate = 'BoricOxide' wmat(1) = 2 call gfmate(13,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 3 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 2.46 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 36 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 = 35 namate = 'SodiumOxide' wmat(1) = 2 call gfmate(36,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 1 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 2.27 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 38 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 = 37 namate = 'PotassiumOxide' wmat(1) = 2 call gfmate(38,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 1 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 2.35 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 39 namate = 'AluminumOxide' wmat(1) = 2 call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 3 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 3.97 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 40 namate = 'IronOxide' wmat(1) = 1 call gfmate(10,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 1 call gfmate(3,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 5.7 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 32 namate = 'BorosilicateGlass' wmat(1) = 0.7 call gfmate(33,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.1 call gfmate(34,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.08 call gfmate(35,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.08 call gfmate(37,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) wmat(5) = 0.025 call gfmate(39,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf) wmat(6) = 0.015 call gfmate(40,chnama,amat(6),zmat(6),dens,radl,absl,ubuf,nwbuf) dens = 2.3 nlmat = 6 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 41 namate = 'EpoxyResin' wmat(1) = 18 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 20 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 3 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.3 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 31 namate = 'FR-4' wmat(1) = 0.7 call gfmate(32,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.3 call gfmate(41,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 1.91 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 148 natmed = 'CDBU FR-4' nmat = 31 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDBU' chshap = 'TUBE' nmed = 148 npar = 3 par(1) = 15 par(2) = 60 par(3) = 0.1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.180) stop 'consistency check #1 failed' chname = 'CDBU' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = -97 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 149 natmed = 'CDBD FR-4' nmat = 31 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDBD' chshap = 'TUBE' nmed = 149 npar = 3 par(1) = 15 par(2) = 60 par(3) = 0.05 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.181) stop 'consistency check #1 failed' chname = 'CDBD' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = 89 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 150 natmed = 'CDGU Plexiglas' nmat = 27 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDGU' chshap = 'TUBE' nmed = 150 npar = 3 par(1) = 15 par(2) = 60 par(3) = 0.15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.182) stop 'consistency check #1 failed' chname = 'CDGU' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = -96 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 151 natmed = 'CDGD Plexiglas' nmat = 27 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDGD' chshap = 'TUBE' nmed = 151 npar = 3 par(1) = 15 par(2) = 60 par(3) = 0.15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.183) stop 'consistency check #1 failed' chname = 'CDGD' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = 96 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 44 namate = 'Chlorine' a = 35.453 z = 17 dens = 1.56 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) imate = 43 namate = 'PVC' wmat(1) = 2 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 3 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 1 call gfmate(44,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.32 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 42 namate = 'SignalCables' wmat(1) = 0.33 call gfmate(16,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.67 call gfmate(43,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 1.83686 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 152 natmed = 'CDCA SignalCables' nmat = 42 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDCA' chshap = 'TUBE' nmed = 152 npar = 3 par(1) = 15 par(2) = 60 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.184) stop 'consistency check #1 failed' chname = 'CDCA' nr = 1 chmoth = 'CDC' x = 0 y = 0 z = -90 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 153 natmed = 'CDCB SignalCables' nmat = 42 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDCB' chshap = 'PCON' nmed = 153 npar = 27 par(1) = 0 par(2) = 360 par(3) = 8 par(4) = 0 par(5) = 15 par(6) = 60 par(7) = -0.53 par(8) = 23 par(9) = 60 par(10) = -3.31 par(11) = 56.4 par(12) = 60 par(13) = -55 par(14) = 65 par(15) = 68 par(16) = -56.2 par(17) = 65 par(18) = 69.2 par(19) = -62.2 par(20) = 71 par(21) = 75.2 par(22) = -62.2 par(23) = 71 par(24) = 120 par(25) = -65.2 par(26) = 74 par(27) = 120 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.185) stop 'consistency check #1 failed' chname = 'CDCB' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 154 natmed = 'FDC Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDC' chshap = 'TUBE' nmed = 154 npar = 3 par(1) = 0 par(2) = 62 par(3) = 98 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.186) stop 'consistency check #1 failed' chname = 'FDC' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 307.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 46 namate = 'Manganese' a = 54.983 z = 25 dens = 7.43 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) imate = 47 namate = 'Chromium' a = 51.996 z = 24 dens = 7.18 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) imate = 45 namate = 'StainlessSteel' wmat(1) = 0.6996 call gfmate(10,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.0004 call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.01 call gfmate(46,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.19 call gfmate(47,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) wmat(5) = 0.1 call gfmate(18,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf) dens = 8.02 nlmat = 5 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 155 natmed = 'FDSP StainlessSteel' nmat = 45 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDSP' chshap = 'TUBE' nmed = 155 npar = 3 par(1) = 53.6 par(2) = 60 par(3) = 0.1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.187) stop 'consistency check #1 failed' chname = 'FDSP' nr = 1 chmoth = 'FDC' x = 0 y = 0 z = -95.6 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 156 natmed = 'FDMO Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDMO' chshap = 'TUBE' nmed = 156 npar = 3 par(1) = 0 par(2) = 61 par(3) = 3 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.188) stop 'consistency check #1 failed' chname = 'FDMO' nr = 1 chmoth = 'FDC' x = 0 y = 0 z = -92.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 157 natmed = 'FDCH chamberGas' nmat = 28 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCH' chshap = 'TUBE' nmed = 157 npar = 3 par(1) = 0 par(2) = 53.6 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.189) 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) imate = 48 namate = 'MylarFilm' wmat(1) = 0.52 call gfmate(19,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.48 call gfmate(41,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 1.35 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 158 natmed = 'FDCG MylarFilm' nmat = 48 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCG' chshap = 'TUBE' nmed = 158 npar = 3 par(1) = 0 par(2) = 53.6 par(3) = 0.0025 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.190) stop 'consistency check #1 failed' chname = 'FDCG' nr = 1 chmoth = 'FDCH' x = 0 y = 0 z = -0.9975 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 159 natmed = 'FDCB LowDensityROHACELL' nmat = 24 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCB' chshap = 'TUBE' nmed = 159 npar = 3 par(1) = 0 par(2) = 53.6 par(3) = 0.2435 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.191) stop 'consistency check #1 failed' chname = 'FDCB' nr = 1 chmoth = 'FDCH' x = 0 y = 0 z = -0.7515 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 49 namate = 'CopperKapton' wmat(1) = 0.3 call gfmate(16,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.48 call gfmate(22,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.22 call gfmate(41,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.98 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 160 natmed = 'FDCC CopperKapton' nmat = 49 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCC' chshap = 'TUBE' nmed = 160 npar = 3 par(1) = 0 par(2) = 53.6 par(3) = 0.004 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.192) stop 'consistency check #1 failed' irot = 1139 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.504 irot = 1139 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 161 natmed = 'FDCA chamberGas' nmat = 28 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCA' chshap = 'TUBE' nmed = 161 npar = 3 par(1) = 0 par(2) = 53.6 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.193) 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) irot = 1140 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.504 irot = 1140 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCB' nr = 2 chmoth = 'FDCH' x = 0 y = 0 z = 0.7515 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 2 chmoth = 'FDCH' x = 0 y = 0 z = 0.9975 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1141 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 = 1141 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1142 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 = 1142 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 162 natmed = 'FDSF FR-4' nmat = 31 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDSF' chshap = 'TUBE' nmed = 162 npar = 3 par(1) = 53.6 par(2) = 60 par(3) = 3 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.194) stop 'consistency check #1 failed' chname = 'FDSF' nr = 1 chmoth = 'FDMO' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 51 namate = 'Polyethylene' wmat(1) = 1 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 2 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 0.95 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 50 namate = 'CircuitBoards' wmat(1) = 0.6 call gfmate(51,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.26 call gfmate(31,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.14 call gfmate(9,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.20804 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 163 natmed = 'FDCE CircuitBoards' nmat = 50 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCE' chshap = 'TUBE' nmed = 163 npar = 3 par(1) = 60.5 par(2) = 60.61 par(3) = 3 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.195) stop 'consistency check #1 failed' chname = 'FDCE' nr = 1 chmoth = 'FDMO' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDMO' nr = 2 chmoth = 'FDC' x = 0 y = 0 z = -86.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSP' nr = 2 chmoth = 'FDC' x = 0 y = 0 z = -83.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSP' nr = 3 chmoth = 'FDC' x = 0 y = 0 z = -35.6 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 = -32.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 = -26.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSP' nr = 4 chmoth = 'FDC' x = 0 y = 0 z = -23.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSP' nr = 5 chmoth = 'FDC' x = 0 y = 0 z = 23.4 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 = 26.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 = 32.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSP' nr = 6 chmoth = 'FDC' x = 0 y = 0 z = 35.6 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSP' nr = 7 chmoth = 'FDC' x = 0 y = 0 z = 83.4 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 = 86.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 = 92.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSP' nr = 8 chmoth = 'FDC' x = 0 y = 0 z = 95.6 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 52 namate = 'CarbonFiber' wmat(1) = 1 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) dens = 2.265 nlmat = -1 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 164 natmed = 'FDSR CarbonFiber' nmat = 52 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDSR' chshap = 'TUBE' nmed = 164 npar = 3 par(1) = 0 par(2) = 1 par(3) = 98 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.196) stop 'consistency check #1 failed' chname = 'FDSR' nr = 1 chmoth = 'FDC' x = 41 y = 41 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSR' nr = 2 chmoth = 'FDC' x = -41 y = 41 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSR' nr = 3 chmoth = 'FDC' x = -41 y = -41 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSR' nr = 4 chmoth = 'FDC' x = 41 y = -41 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 165 natmed = 'FDSC SignalCables' nmat = 42 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDSC' chshap = 'PCON' nmed = 165 npar = 36 par(1) = -58 par(2) = 116 par(3) = 11 par(4) = -95.5 par(5) = 64.5 par(6) = 65 par(7) = -35.5 par(8) = 64.5 par(9) = 65 par(10) = -35.5 par(11) = 64 par(12) = 65 par(13) = 23.5 par(14) = 64 par(15) = 65 par(16) = 23.5 par(17) = 63.5 par(18) = 65 par(19) = 83.5 par(20) = 63.5 par(21) = 65 par(22) = 83.5 par(23) = 63 par(24) = 65 par(25) = 120 par(26) = 63 par(27) = 65 par(28) = 120.8 par(29) = 63 par(30) = 65.8 par(31) = 121.8 par(32) = 64 par(33) = 66.8 par(34) = 123.2 par(35) = 65.4 par(36) = 65.4 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.197) stop 'consistency check #1 failed' irot = 1143 theta1 = 90 phi1 = 30 theta2 = 90 phi2 = 120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDSC' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 307.5 irot = 1143 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1144 theta1 = 90 phi1 = 150 theta2 = 90 phi2 = -120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDSC' nr = 2 chmoth = 'LASS' x = 0 y = 0 z = 307.5 irot = 1144 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1145 theta1 = 90 phi1 = -90 theta2 = 90 phi2 = -1.05247e-14 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDSC' nr = 3 chmoth = 'LASS' x = 0 y = 0 z = 307.5 irot = 1145 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 166 natmed = 'BCAL Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCAL' chshap = 'TUBE' nmed = 166 npar = 3 par(1) = 65 par(2) = 90 par(3) = 210 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.198) 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 = 'SD21' 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 = 167 natmed = 'BCAM Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCAM' chshap = 'TUBS' nmed = 167 npar = 5 par(1) = 65 par(2) = 90 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.200) stop 'consistency check #1 failed' chname = 'BCAM' nr = 1 chmoth = 'SD21' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 168 natmed = 'BCL1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL1' chshap = 'TUBS' nmed = 168 npar = 5 par(1) = 65 par(2) = 67 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.201) 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 = 'SD22' chmoth = 'BCL1' ndiv = 4 iaxis = 2 step = 1.875 c0 = -3.75 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 169 natmed = 'BCS1 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS1' chshap = 'TUBS' nmed = 169 npar = 5 par(1) = 65 par(2) = 67 par(3) = 210 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.203) stop 'consistency check #1 failed' chname = 'BCS1' nr = 1 chmoth = 'SD22' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 54 namate = 'BC600epoxy' wmat(1) = 60 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 79 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 3 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 2 call gfmate(2,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 1.2 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 53 namate = 'leadScint' wmat(1) = 0.104 call gfmate(25,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.862 call gfmate(17,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.034 call gfmate(54,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 4.87672 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 170 natmed = 'BCM1 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM1' chshap = 'TUBS' nmed = 170 npar = 5 par(1) = 65 par(2) = 67 par(3) = 195 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.204) stop 'consistency check #1 failed' chname = 'BCM1' nr = 1 chmoth = 'BCS1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 171 natmed = 'BCN1 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN1' chshap = 'TRAP' nmed = 171 npar = 11 par(1) = 2.5 par(2) = 0 par(3) = 0 par(4) = 1.0635 par(5) = 1 par(6) = 1 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.205) stop 'consistency check #1 failed' chname = 'BCN1' nr = 1 chmoth = 'BCS1' x = 66 y = 0 z = 197.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1146 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN1' nr = 2 chmoth = 'BCS1' x = 66 y = 0 z = -197.5 irot = 1146 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 172 natmed = 'BCPM Aluminum' nmat = 7 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCPM' chshap = 'BOX ' nmed = 172 npar = 3 par(1) = 1 par(2) = 1 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.206) stop 'consistency check #1 failed' chname = 'BCPM' nr = 1 chmoth = 'BCS1' x = 66 y = 0 z = 201 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1147 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 2 chmoth = 'BCS1' x = 66 y = 0 z = -201 irot = 1147 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 173 natmed = 'BCL2 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL2' chshap = 'TUBS' nmed = 173 npar = 5 par(1) = 67 par(2) = 69 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.207) 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 = 'SD23' 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 = 174 natmed = 'BCS2 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS2' chshap = 'TUBS' nmed = 174 npar = 5 par(1) = 67 par(2) = 69 par(3) = 210 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.209) stop 'consistency check #1 failed' chname = 'BCS2' nr = 1 chmoth = 'SD23' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 175 natmed = 'BCM2 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM2' chshap = 'TUBS' nmed = 175 npar = 5 par(1) = 67 par(2) = 69 par(3) = 195 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.210) stop 'consistency check #1 failed' chname = 'BCM2' nr = 1 chmoth = 'BCS2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 176 natmed = 'BCN2 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN2' chshap = 'TRAP' nmed = 176 npar = 11 par(1) = 2.5 par(2) = 0 par(3) = 0 par(4) = 1.0965 par(5) = 1 par(6) = 1 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.211) stop 'consistency check #1 failed' chname = 'BCN2' nr = 1 chmoth = 'BCS2' x = 68 y = 0 z = 197.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1148 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN2' nr = 2 chmoth = 'BCS2' x = 68 y = 0 z = -197.5 irot = 1148 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 3 chmoth = 'BCS2' x = 68 y = 0 z = 201 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1149 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 4 chmoth = 'BCS2' x = 68 y = 0 z = -201 irot = 1149 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 177 natmed = 'BCL3 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL3' chshap = 'TUBS' nmed = 177 npar = 5 par(1) = 69 par(2) = 71 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.212) 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 = 'SD24' 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 = 178 natmed = 'BCS3 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS3' chshap = 'TUBS' nmed = 178 npar = 5 par(1) = 69 par(2) = 71 par(3) = 210 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.214) stop 'consistency check #1 failed' chname = 'BCS3' nr = 1 chmoth = 'SD24' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 179 natmed = 'BCM3 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM3' chshap = 'TUBS' nmed = 179 npar = 5 par(1) = 69 par(2) = 71 par(3) = 195 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.215) stop 'consistency check #1 failed' chname = 'BCM3' nr = 1 chmoth = 'BCS3' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 180 natmed = 'BCN3 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN3' chshap = 'TRAP' nmed = 180 npar = 11 par(1) = 2.5 par(2) = 0 par(3) = 0 par(4) = 1.129 par(5) = 1 par(6) = 1 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.216) stop 'consistency check #1 failed' chname = 'BCN3' nr = 1 chmoth = 'BCS3' x = 70 y = 0 z = 197.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1150 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN3' nr = 2 chmoth = 'BCS3' x = 70 y = 0 z = -197.5 irot = 1150 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 5 chmoth = 'BCS3' x = 70 y = 0 z = 201 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1151 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 6 chmoth = 'BCS3' x = 70 y = 0 z = -201 irot = 1151 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 181 natmed = 'BCL4 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL4' chshap = 'TUBS' nmed = 181 npar = 5 par(1) = 71 par(2) = 73 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.217) 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 = 'SD25' 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 = 182 natmed = 'BCS4 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS4' chshap = 'TUBS' nmed = 182 npar = 5 par(1) = 71 par(2) = 73 par(3) = 210 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.219) stop 'consistency check #1 failed' chname = 'BCS4' nr = 1 chmoth = 'SD25' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 183 natmed = 'BCM4 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM4' chshap = 'TUBS' nmed = 183 npar = 5 par(1) = 71 par(2) = 73 par(3) = 195 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.220) stop 'consistency check #1 failed' chname = 'BCM4' nr = 1 chmoth = 'BCS4' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 184 natmed = 'BCN4 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN4' chshap = 'TRAP' nmed = 184 npar = 11 par(1) = 2.5 par(2) = 0 par(3) = 0 par(4) = 1.1615 par(5) = 1 par(6) = 1 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.221) stop 'consistency check #1 failed' chname = 'BCN4' nr = 1 chmoth = 'BCS4' x = 72 y = 0 z = 197.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1152 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN4' nr = 2 chmoth = 'BCS4' x = 72 y = 0 z = -197.5 irot = 1152 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 7 chmoth = 'BCS4' x = 72 y = 0 z = 201 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1153 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 8 chmoth = 'BCS4' x = 72 y = 0 z = -201 irot = 1153 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 185 natmed = 'BCL5 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL5' chshap = 'TUBS' nmed = 185 npar = 5 par(1) = 73 par(2) = 75 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.222) 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 = 'SD26' 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 = 186 natmed = 'BCS5 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS5' chshap = 'TUBS' nmed = 186 npar = 5 par(1) = 73 par(2) = 75 par(3) = 210 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.224) stop 'consistency check #1 failed' chname = 'BCS5' nr = 1 chmoth = 'SD26' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 187 natmed = 'BCM5 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM5' chshap = 'TUBS' nmed = 187 npar = 5 par(1) = 73 par(2) = 75 par(3) = 195 par(4) = -0.9375 par(5) = 0.9375 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.225) stop 'consistency check #1 failed' chname = 'BCM5' nr = 1 chmoth = 'BCS5' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 188 natmed = 'BCN5 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN5' chshap = 'TRAP' nmed = 188 npar = 11 par(1) = 2.5 par(2) = 0 par(3) = 0 par(4) = 1.1945 par(5) = 1 par(6) = 1 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.226) stop 'consistency check #1 failed' chname = 'BCN5' nr = 1 chmoth = 'BCS5' x = 74 y = 0 z = 197.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1154 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN5' nr = 2 chmoth = 'BCS5' x = 74 y = 0 z = -197.5 irot = 1154 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 9 chmoth = 'BCS5' x = 74 y = 0 z = 201 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1155 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 10 chmoth = 'BCS5' x = 74 y = 0 z = -201 irot = 1155 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 189 natmed = 'BCL6 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL6' chshap = 'TUBS' nmed = 189 npar = 5 par(1) = 75 par(2) = 78.12 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.227) 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 = 'SD27' chmoth = 'BCL6' ndiv = 3 iaxis = 2 step = 2.5 c0 = -3.75 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 190 natmed = 'BCS6 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS6' chshap = 'TUBS' nmed = 190 npar = 5 par(1) = 75 par(2) = 78.12 par(3) = 210 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.229) stop 'consistency check #1 failed' chname = 'BCS6' nr = 1 chmoth = 'SD27' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 191 natmed = 'BCM6 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM6' chshap = 'TUBS' nmed = 191 npar = 5 par(1) = 75 par(2) = 78.12 par(3) = 195 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.230) stop 'consistency check #1 failed' chname = 'BCM6' nr = 1 chmoth = 'BCS6' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 192 natmed = 'BCN6 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN6' chshap = 'TRAP' nmed = 192 npar = 11 par(1) = 5 par(2) = 0 par(3) = 0 par(4) = 1.636 par(5) = 1.56 par(6) = 1.56 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.231) stop 'consistency check #1 failed' chname = 'BCN6' nr = 1 chmoth = 'BCS6' x = 76.558 y = 0 z = 200 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1156 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN6' nr = 2 chmoth = 'BCS6' x = 76.558 y = 0 z = -200 irot = 1156 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 11 chmoth = 'BCS6' x = 76.558 y = 0 z = 206 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1157 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 12 chmoth = 'BCS6' x = 76.558 y = 0 z = -206 irot = 1157 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 193 natmed = 'BCL7 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL7' chshap = 'TUBS' nmed = 193 npar = 5 par(1) = 78.12 par(2) = 81.23 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.232) 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 = 'SD28' chmoth = 'BCL7' ndiv = 3 iaxis = 2 step = 2.5 c0 = -3.75 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 194 natmed = 'BCS7 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS7' chshap = 'TUBS' nmed = 194 npar = 5 par(1) = 78.12 par(2) = 81.23 par(3) = 210 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.234) stop 'consistency check #1 failed' chname = 'BCS7' nr = 1 chmoth = 'SD28' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 195 natmed = 'BCM7 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM7' chshap = 'TUBS' nmed = 195 npar = 5 par(1) = 78.12 par(2) = 81.23 par(3) = 195 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.235) stop 'consistency check #1 failed' chname = 'BCM7' nr = 1 chmoth = 'BCS7' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 196 natmed = 'BCN7 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN7' chshap = 'TRAP' nmed = 196 npar = 11 par(1) = 5 par(2) = 0 par(3) = 0 par(4) = 1.704 par(5) = 1.56 par(6) = 1.56 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.236) stop 'consistency check #1 failed' chname = 'BCN7' nr = 1 chmoth = 'BCS7' x = 79.673 y = 0 z = 200 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1158 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN7' nr = 2 chmoth = 'BCS7' x = 79.673 y = 0 z = -200 irot = 1158 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 13 chmoth = 'BCS7' x = 79.673 y = 0 z = 206 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1159 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 14 chmoth = 'BCS7' x = 79.673 y = 0 z = -206 irot = 1159 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 197 natmed = 'BCL8 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL8' chshap = 'TUBS' nmed = 197 npar = 5 par(1) = 81.23 par(2) = 84.35 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.237) 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 = 'SD29' chmoth = 'BCL8' ndiv = 3 iaxis = 2 step = 2.5 c0 = -3.75 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 198 natmed = 'BCS8 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS8' chshap = 'TUBS' nmed = 198 npar = 5 par(1) = 81.23 par(2) = 84.35 par(3) = 210 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.239) stop 'consistency check #1 failed' chname = 'BCS8' nr = 1 chmoth = 'SD29' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 199 natmed = 'BCM8 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM8' chshap = 'TUBS' nmed = 199 npar = 5 par(1) = 81.23 par(2) = 84.35 par(3) = 195 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.240) stop 'consistency check #1 failed' chname = 'BCM8' nr = 1 chmoth = 'BCS8' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 200 natmed = 'BCN8 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN8' chshap = 'TRAP' nmed = 200 npar = 11 par(1) = 5 par(2) = 0 par(3) = 0 par(4) = 1.772 par(5) = 1.56 par(6) = 1.56 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.241) stop 'consistency check #1 failed' chname = 'BCN8' nr = 1 chmoth = 'BCS8' x = 82.787 y = 0 z = 200 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1160 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN8' nr = 2 chmoth = 'BCS8' x = 82.787 y = 0 z = -200 irot = 1160 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 15 chmoth = 'BCS8' x = 82.787 y = 0 z = 206 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1161 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 16 chmoth = 'BCS8' x = 82.787 y = 0 z = -206 irot = 1161 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 201 natmed = 'BCL9 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCL9' chshap = 'TUBS' nmed = 201 npar = 5 par(1) = 84.35 par(2) = 87.46 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.242) 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 = 'SD2A' 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 = 202 natmed = 'BCS9 Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCS9' chshap = 'TUBS' nmed = 202 npar = 5 par(1) = 84.35 par(2) = 87.46 par(3) = 210 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.244) stop 'consistency check #1 failed' chname = 'BCS9' nr = 1 chmoth = 'SD2A' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 203 natmed = 'BCM9 leadScint' nmat = 53 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCM9' chshap = 'TUBS' nmed = 203 npar = 5 par(1) = 84.35 par(2) = 87.46 par(3) = 195 par(4) = -1.25 par(5) = 1.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.245) stop 'consistency check #1 failed' chname = 'BCM9' nr = 1 chmoth = 'BCS9' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 204 natmed = 'BCN9 Plexiglas' nmat = 27 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCN9' chshap = 'TRAP' nmed = 204 npar = 11 par(1) = 5 par(2) = 0 par(3) = 0 par(4) = 1.84 par(5) = 1.56 par(6) = 1.56 par(7) = 0 par(8) = 0.65 par(9) = 0.65 par(10) = 0.65 par(11) = 0 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.246) stop 'consistency check #1 failed' chname = 'BCN9' nr = 1 chmoth = 'BCS9' x = 85.903 y = 0 z = 200 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1162 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCN9' nr = 2 chmoth = 'BCS9' x = 85.903 y = 0 z = -200 irot = 1162 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'BCPM' nr = 17 chmoth = 'BCS9' x = 85.903 y = 0 z = 206 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1163 theta1 = 90 phi1 = 0 theta2 = 90 phi2 = -90 theta3 = 180 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'BCPM' nr = 18 chmoth = 'BCS9' x = 85.903 y = 0 z = -206 irot = 1163 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 205 natmed = 'BCAS Aluminum' nmat = 7 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCAS' chshap = 'TUBS' nmed = 205 npar = 5 par(1) = 87.46 par(2) = 90 par(3) = 210 par(4) = -3.75 par(5) = 3.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.247) stop 'consistency check #1 failed' chname = 'BCAS' nr = 1 chmoth = 'BCAM' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 206 natmed = 'BCSU SignalCables' nmat = 42 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCSU' chshap = 'PCON' nmed = 206 npar = 24 par(1) = 0 par(2) = 360 par(3) = 7 par(4) = 0 par(5) = 65 par(6) = 88 par(7) = -10 par(8) = 85 par(9) = 88 par(10) = -49 par(11) = 85 par(12) = 88 par(13) = -50.2 par(14) = 85 par(15) = 89.2 par(16) = -54 par(17) = 88.8 par(18) = 93 par(19) = -54 par(20) = 88.8 par(21) = 120 par(22) = -57 par(23) = 91.8 par(24) = 120 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.248) stop 'consistency check #1 failed' chname = 'BCSU' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 207 natmed = 'BCSD SignalCables' nmat = 42 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCSD' chshap = 'PCON' nmed = 207 npar = 12 par(1) = 0 par(2) = 360 par(3) = 3 par(4) = 0 par(5) = 65 par(6) = 88 par(7) = 10 par(8) = 85 par(9) = 88 par(10) = 30 par(11) = 85 par(12) = 88 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.249) stop 'consistency check #1 failed' chname = 'BCSD' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 422 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 208 natmed = 'CERE Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CERE' chshap = 'PCON' nmed = 208 npar = 15 par(1) = 0 par(2) = 360 par(3) = 4 par(4) = 0 par(5) = 5 par(6) = 60 par(7) = 57.9 par(8) = 5 par(9) = 60 par(10) = 57.9 par(11) = 5 par(12) = 280 par(13) = 204 par(14) = 5 par(15) = 280 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.250) stop 'consistency check #1 failed' chname = 'CERE' nr = 1 chmoth = 'HALL' x = 150 y = -350 z = -93 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 56 chnama = 'Fluorine' a = 18.9984 z = 9 dens = 0.00158 radl = 20841.8 absl = 60316.5 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 55 namate = 'Tedlar' wmat(1) = 2 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 3 call gfmate(5,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 1 call gfmate(56,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.49 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 209 natmed = 'CERW Tedlar' nmat = 55 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CERW' chshap = 'TUBE' nmed = 209 npar = 3 par(1) = 5.1 par(2) = 59.9 par(3) = 0.002 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.251) stop 'consistency check #1 failed' chname = 'CERW' nr = 1 chmoth = 'CERE' x = 0 y = 0 z = 0.002 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 57 namate = 'CerenkovGas' wmat(1) = 4 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 10 call gfmate(56,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 0.01012 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 210 natmed = 'CERI CerenkovGas' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical57(itmed) chname = 'CERI' chshap = 'TUBE' nmed = 210 npar = 3 par(1) = 5.1 par(2) = 59.9 par(3) = 29 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.252) stop 'consistency check #1 failed' chname = 'CERI' nr = 1 chmoth = 'CERE' x = 0 y = 0 z = 29 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 211 natmed = 'CGAS CerenkovGas' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical57(itmed) chname = 'CGAS' chshap = 'TUBE' nmed = 211 npar = 3 par(1) = 5.1 par(2) = 279.9 par(3) = 72.95 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.253) stop 'consistency check #1 failed' chname = 'CGAS' nr = 1 chmoth = 'CERE' x = 0 y = 0 z = 130.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD2B' chmoth = 'CGAS' ndiv = 16 iaxis = 2 step = 22.5 c0 = 0 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 212 natmed = 'CSEC CerenkovGas' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical57(itmed) chname = 'CSEC' chshap = 'TUBS' nmed = 212 npar = 5 par(1) = 5.1 par(2) = 279.9 par(3) = 72.95 par(4) = -11.25 par(5) = 11.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.255) stop 'consistency check #1 failed' chname = 'CSEC' nr = 1 chmoth = 'SD2B' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 58 namate = 'ThinCerenkovMirror' wmat(1) = 11 call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 8 call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 1 call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 2 call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 0.04 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 213 natmed = 'CMI1 ThinCerenkovMirror' nmat = 58 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical58(itmed) chname = 'CMI1' chshap = 'PGON' nmed = 213 npar = 16 par(1) = -11.25 par(2) = 22.5 par(3) = 1 par(4) = 4 par(5) = 0 par(6) = 7.5 par(7) = 7.5 par(8) = 4.45 par(9) = 5.1 par(10) = 16.06 par(11) = 53.3 par(12) = 99.04 par(13) = 110 par(14) = 57.7 par(15) = 107.5 par(16) = 107.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.256) stop 'consistency check #1 failed' chname = 'CMI1' nr = 1 chmoth = 'CSEC' x = 0 y = 0 z = 14.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 59 namate = 'ThickCerenkovMirror' wmat(1) = 11 call gfmate(5,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 8 call gfmate(20,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 1 call gfmate(2,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 2 call gfmate(3,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 0.2 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 214 natmed = 'CMI2 ThickCerenkovMirror' nmat = 59 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical59(itmed) chname = 'CMI2' chshap = 'PGON' nmed = 214 npar = 16 par(1) = -5.5125 par(2) = 11.25 par(3) = 1 par(4) = 4 par(5) = 0 par(6) = 119.3 par(7) = 119.3 par(8) = 3.32 par(9) = 115.5 par(10) = 121.83 par(11) = 130.44 par(12) = 212.47 par(13) = 218.8 par(14) = 133.76 par(15) = 215 par(16) = 215 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.257) stop 'consistency check #1 failed' chname = 'CMI2' nr = 1 chmoth = 'CSEC' x = 0 y = 0 z = -62.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 61 namate = 'Cesium' a = 132.905 z = 55 dens = 1.87 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) imate = 60 namate = 'CerenkovPMT' wmat(1) = 0.999 call gfmate(32,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.001 call gfmate(61,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 2.29947 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 215 natmed = 'CPMT CerenkovPMT' nmat = 60 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical60(itmed) chname = 'CPMT' chshap = 'PGON' nmed = 215 npar = 16 par(1) = -11.25 par(2) = 22.5 par(3) = 1 par(4) = 4 par(5) = 0 par(6) = 142.3 par(7) = 142.3 par(8) = 9 par(9) = 133.3 par(10) = 151.3 par(11) = 23.3 par(12) = 119 par(13) = 137 par(14) = 32.3 par(15) = 128 par(16) = 128 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.258) stop 'consistency check #1 failed' chname = 'CPMT' nr = 1 chmoth = 'CSEC' x = 0 y = 0 z = 32.9 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 216 natmed = 'FTOF Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FTOF' chshap = 'BOX ' nmed = 216 npar = 3 par(1) = 126 par(2) = 126 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.259) stop 'consistency check #1 failed' irot = 1164 theta1 = 90 phi1 = -90 theta2 = 90 phi2 = 3.50824e-15 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FTOF' nr = 1 chmoth = 'HALL' x = 150 y = -350 z = 117.52 irot = 1164 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 217 natmed = 'FTOB Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FTOB' chshap = 'BOX ' nmed = 217 npar = 3 par(1) = 126 par(2) = 60 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.260) stop 'consistency check #1 failed' chname = 'FTOB' nr = 1 chmoth = 'FTOF' x = 0 y = -66 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD01' chmoth = 'FTOB' ndiv = 20 iaxis = 2 step = 6 c0 = -60 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 218 natmed = 'FTOC Scintillator' nmat = 25 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FTOC' chshap = 'BOX ' nmed = 218 npar = 3 par(1) = 126 par(2) = 3 par(3) = 1.27 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.262) 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 = 219 natmed = 'FTON Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FTON' chshap = 'BOX ' nmed = 219 npar = 3 par(1) = 60 par(2) = 6 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.263) stop 'consistency check #1 failed' chname = 'FTON' nr = 1 chmoth = 'FTOF' x = 66 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD02' chmoth = 'FTON' ndiv = 2 iaxis = 2 step = 6 c0 = -6 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 220 natmed = 'FTOH Scintillator' nmat = 25 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FTOH' chshap = 'BOX ' nmed = 220 npar = 3 par(1) = 60 par(2) = 3 par(3) = 1.27 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.265) stop 'consistency check #1 failed' chname = 'FTOH' nr = 1 chmoth = 'YD02' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 221 natmed = 'FTOS Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FTOS' chshap = 'BOX ' nmed = 221 npar = 3 par(1) = 60 par(2) = 6 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.266) stop 'consistency check #1 failed' chname = 'FTOS' nr = 1 chmoth = 'FTOF' x = -66 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD03' chmoth = 'FTOS' ndiv = 2 iaxis = 2 step = 6 c0 = -6 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'FTOH' nr = 2 chmoth = 'YD03' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 222 natmed = 'FTOT Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FTOT' chshap = 'BOX ' nmed = 222 npar = 3 par(1) = 126 par(2) = 60 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.268) stop 'consistency check #1 failed' chname = 'FTOT' nr = 1 chmoth = 'FTOF' x = 0 y = 66 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD04' chmoth = 'FTOT' ndiv = 20 iaxis = 2 step = 6 c0 = -60 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'FTOC' nr = 2 chmoth = 'YD04' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FTOF' nr = 2 chmoth = 'HALL' x = 150 y = -350 z = 120.1 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 223 natmed = 'FCAL Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FCAL' chshap = 'BOX ' nmed = 223 npar = 3 par(1) = 118 par(2) = 118 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.270) stop 'consistency check #1 failed' chname = 'FCAL' nr = 1 chmoth = 'HALL' x = 150 y = -350 z = 147.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 224 natmed = 'LGDB Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LGDB' chshap = 'BOX ' nmed = 224 npar = 3 par(1) = 118 par(2) = 56 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.271) stop 'consistency check #1 failed' chname = 'LGDB' nr = 1 chmoth = 'FCAL' x = 0 y = -62 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD05' chmoth = 'LGDB' ndiv = 28 iaxis = 2 step = 4 c0 = -56 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'XD01' chmoth = 'YD05' ndiv = 59 iaxis = 1 step = 4 c0 = -118 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) imate = 62 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(38,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.01 call gfmate(36,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 = 225 natmed = 'LGBL leadGlassSF3' nmat = 62 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LGBL' chshap = 'BOX ' nmed = 225 npar = 3 par(1) = 2 par(2) = 2 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.274) 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 = 226 natmed = 'LGDS Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LGDS' chshap = 'BOX ' nmed = 226 npar = 3 par(1) = 56 par(2) = 6 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.275) stop 'consistency check #1 failed' chname = 'LGDS' nr = 1 chmoth = 'FCAL' x = -62 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD06' chmoth = 'LGDS' ndiv = 3 iaxis = 2 step = 4 c0 = -6 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'XD02' chmoth = 'YD06' ndiv = 28 iaxis = 1 step = 4 c0 = -56 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'LGBL' nr = 2 chmoth = 'XD02' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 227 natmed = 'LGDN Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LGDN' chshap = 'BOX ' nmed = 227 npar = 3 par(1) = 56 par(2) = 6 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.278) stop 'consistency check #1 failed' chname = 'LGDN' nr = 1 chmoth = 'FCAL' x = 62 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD07' chmoth = 'LGDN' ndiv = 3 iaxis = 2 step = 4 c0 = -6 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'XD03' chmoth = 'YD07' ndiv = 28 iaxis = 1 step = 4 c0 = -56 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'LGBL' nr = 3 chmoth = 'XD03' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 228 natmed = 'LGDT Air' nmat = 1 isvol = 0 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LGDT' chshap = 'BOX ' nmed = 228 npar = 3 par(1) = 118 par(2) = 56 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.281) stop 'consistency check #1 failed' chname = 'LGDT' nr = 1 chmoth = 'FCAL' x = 0 y = 62 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD08' chmoth = 'LGDT' ndiv = 28 iaxis = 2 step = 4 c0 = -56 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'XD04' chmoth = 'YD08' ndiv = 59 iaxis = 1 step = 4 c0 = -118 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'LGBL' nr = 4 chmoth = 'XD04' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 229 natmed = 'UPV Aluminum' nmat = 7 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPV' chshap = 'PGON' nmed = 229 npar = 10 par(1) = -45 par(2) = 360 par(3) = 4 par(4) = 2 par(5) = -13 par(6) = 11.75 par(7) = 120 par(8) = 13 par(9) = 11.75 par(10) = 120 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.284) 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 = 230 natmed = 'UPL1 Lead' nmat = 17 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPL1' chshap = 'BOX ' nmed = 230 npar = 3 par(1) = 119 par(2) = 53.125 par(3) = 0.125 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.285) stop 'consistency check #1 failed' chname = 'UPL1' nr = 1 chmoth = 'UPV' x = 0 y = -65.875 z = -1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 2 chmoth = 'UPV' x = 0 y = 65.875 z = -1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 231 natmed = 'UPL2 Lead' nmat = 17 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPL2' chshap = 'BOX ' nmed = 231 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.286) stop 'consistency check #1 failed' chname = 'UPL2' nr = 1 chmoth = 'UPV' x = -65.875 y = 0 z = -1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 2 chmoth = 'UPV' x = 65.875 y = 0 z = -1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 232 natmed = 'UPE1 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPE1' chshap = 'BOX ' nmed = 232 npar = 3 par(1) = 119 par(2) = 53.125 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.287) stop 'consistency check #1 failed' chname = 'UPE1' nr = 1 chmoth = 'UPV' x = 0 y = -65.875 z = -2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD09' chmoth = 'UPE1' ndiv = 25 iaxis = 2 step = 4.25 c0 = -53.125 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 233 natmed = 'UPVP Scintillator' nmat = 25 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPVP' chshap = 'BOX ' nmed = 233 npar = 3 par(1) = 119 par(2) = 2.125 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.289) stop 'consistency check #1 failed' chname = 'UPVP' nr = 1 chmoth = 'YD09' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 234 natmed = 'UPE2 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPE2' chshap = 'BOX ' nmed = 234 npar = 3 par(1) = 119 par(2) = 53.125 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.290) stop 'consistency check #1 failed' chname = 'UPE2' nr = 1 chmoth = 'UPV' x = 0 y = 65.875 z = -2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD0A' chmoth = 'UPE2' ndiv = 25 iaxis = 2 step = 4.25 c0 = -53.125 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'UPVP' nr = 2 chmoth = 'YD0A' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 235 natmed = 'UPE3 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPE3' chshap = 'BOX ' nmed = 235 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.292) stop 'consistency check #1 failed' chname = 'UPE3' nr = 1 chmoth = 'UPV' x = -65.875 y = 0 z = -2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD0B' chmoth = 'UPE3' ndiv = 6 iaxis = 2 step = 4.25 c0 = -12.75 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 236 natmed = 'UPVC Scintillator' nmat = 25 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPVC' chshap = 'BOX ' nmed = 236 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.294) stop 'consistency check #1 failed' chname = 'UPVC' nr = 1 chmoth = 'YD0B' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 237 natmed = 'UPE4 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'UPE4' chshap = 'BOX ' nmed = 237 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.295) stop 'consistency check #1 failed' chname = 'UPE4' nr = 1 chmoth = 'UPV' x = 65.875 y = 0 z = -2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'YD0C' chmoth = 'UPE4' ndiv = 6 iaxis = 2 step = 4.25 c0 = -12.75 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) chname = 'UPVC' nr = 2 chmoth = 'YD0C' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 3 chmoth = 'UPV' x = 0 y = -65.875 z = -0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 4 chmoth = 'UPV' x = 0 y = 65.875 z = -0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 3 chmoth = 'UPV' x = -65.875 y = 0 z = -0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 4 chmoth = 'UPV' x = 65.875 y = 0 z = -0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 2 chmoth = 'UPV' x = 0 y = -65.875 z = -1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 2 chmoth = 'UPV' x = 0 y = 65.875 z = -1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 2 chmoth = 'UPV' x = -65.875 y = 0 z = -1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 2 chmoth = 'UPV' x = 65.875 y = 0 z = -1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 5 chmoth = 'UPV' x = 0 y = -65.875 z = 0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 6 chmoth = 'UPV' x = 0 y = 65.875 z = 0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 5 chmoth = 'UPV' x = -65.875 y = 0 z = 0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 6 chmoth = 'UPV' x = 65.875 y = 0 z = 0.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 3 chmoth = 'UPV' x = 0 y = -65.875 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 3 chmoth = 'UPV' x = 0 y = 65.875 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 3 chmoth = 'UPV' x = -65.875 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 3 chmoth = 'UPV' x = 65.875 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 7 chmoth = 'UPV' x = 0 y = -65.875 z = 1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 8 chmoth = 'UPV' x = 0 y = 65.875 z = 1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 7 chmoth = 'UPV' x = -65.875 y = 0 z = 1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 8 chmoth = 'UPV' x = 65.875 y = 0 z = 1.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 4 chmoth = 'UPV' x = 0 y = -65.875 z = 1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 4 chmoth = 'UPV' x = 0 y = 65.875 z = 1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 4 chmoth = 'UPV' x = -65.875 y = 0 z = 1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 4 chmoth = 'UPV' x = 65.875 y = 0 z = 1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 9 chmoth = 'UPV' x = 0 y = -65.875 z = 3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 10 chmoth = 'UPV' x = 0 y = 65.875 z = 3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 9 chmoth = 'UPV' x = -65.875 y = 0 z = 3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 10 chmoth = 'UPV' x = 65.875 y = 0 z = 3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 5 chmoth = 'UPV' x = 0 y = -65.875 z = 2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 5 chmoth = 'UPV' x = 0 y = 65.875 z = 2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 5 chmoth = 'UPV' x = -65.875 y = 0 z = 2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 5 chmoth = 'UPV' x = 65.875 y = 0 z = 2.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 11 chmoth = 'UPV' x = 0 y = -65.875 z = 4.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 12 chmoth = 'UPV' x = 0 y = 65.875 z = 4.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 11 chmoth = 'UPV' x = -65.875 y = 0 z = 4.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 12 chmoth = 'UPV' x = 65.875 y = 0 z = 4.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 6 chmoth = 'UPV' x = 0 y = -65.875 z = 3.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 6 chmoth = 'UPV' x = 0 y = 65.875 z = 3.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 6 chmoth = 'UPV' x = -65.875 y = 0 z = 3.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 6 chmoth = 'UPV' x = 65.875 y = 0 z = 3.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 13 chmoth = 'UPV' x = 0 y = -65.875 z = 5.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 14 chmoth = 'UPV' x = 0 y = 65.875 z = 5.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 13 chmoth = 'UPV' x = -65.875 y = 0 z = 5.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 14 chmoth = 'UPV' x = 65.875 y = 0 z = 5.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 7 chmoth = 'UPV' x = 0 y = -65.875 z = 5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 7 chmoth = 'UPV' x = 0 y = 65.875 z = 5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 7 chmoth = 'UPV' x = -65.875 y = 0 z = 5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 7 chmoth = 'UPV' x = 65.875 y = 0 z = 5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 15 chmoth = 'UPV' x = 0 y = -65.875 z = 6.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 16 chmoth = 'UPV' x = 0 y = 65.875 z = 6.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 15 chmoth = 'UPV' x = -65.875 y = 0 z = 6.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 16 chmoth = 'UPV' x = 65.875 y = 0 z = 6.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 8 chmoth = 'UPV' x = 0 y = -65.875 z = 6.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 8 chmoth = 'UPV' x = 0 y = 65.875 z = 6.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 8 chmoth = 'UPV' x = -65.875 y = 0 z = 6.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 8 chmoth = 'UPV' x = 65.875 y = 0 z = 6.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 17 chmoth = 'UPV' x = 0 y = -65.875 z = 8.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 18 chmoth = 'UPV' x = 0 y = 65.875 z = 8.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 17 chmoth = 'UPV' x = -65.875 y = 0 z = 8.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 18 chmoth = 'UPV' x = 65.875 y = 0 z = 8.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 9 chmoth = 'UPV' x = 0 y = -65.875 z = 7.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 9 chmoth = 'UPV' x = 0 y = 65.875 z = 7.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 9 chmoth = 'UPV' x = -65.875 y = 0 z = 7.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 9 chmoth = 'UPV' x = 65.875 y = 0 z = 7.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 19 chmoth = 'UPV' x = 0 y = -65.875 z = 9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 20 chmoth = 'UPV' x = 0 y = 65.875 z = 9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 19 chmoth = 'UPV' x = -65.875 y = 0 z = 9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 20 chmoth = 'UPV' x = 65.875 y = 0 z = 9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 10 chmoth = 'UPV' x = 0 y = -65.875 z = 8.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 10 chmoth = 'UPV' x = 0 y = 65.875 z = 8.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 10 chmoth = 'UPV' x = -65.875 y = 0 z = 8.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 10 chmoth = 'UPV' x = 65.875 y = 0 z = 8.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 21 chmoth = 'UPV' x = 0 y = -65.875 z = 10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 22 chmoth = 'UPV' x = 0 y = 65.875 z = 10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 21 chmoth = 'UPV' x = -65.875 y = 0 z = 10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 22 chmoth = 'UPV' x = 65.875 y = 0 z = 10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 11 chmoth = 'UPV' x = 0 y = -65.875 z = 10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 11 chmoth = 'UPV' x = 0 y = 65.875 z = 10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 11 chmoth = 'UPV' x = -65.875 y = 0 z = 10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 11 chmoth = 'UPV' x = 65.875 y = 0 z = 10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 23 chmoth = 'UPV' x = 0 y = -65.875 z = 11.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 24 chmoth = 'UPV' x = 0 y = 65.875 z = 11.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 23 chmoth = 'UPV' x = -65.875 y = 0 z = 11.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 24 chmoth = 'UPV' x = 65.875 y = 0 z = 11.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 12 chmoth = 'UPV' x = 0 y = -65.875 z = 11.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 12 chmoth = 'UPV' x = 0 y = 65.875 z = 11.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 12 chmoth = 'UPV' x = -65.875 y = 0 z = 11.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 12 chmoth = 'UPV' x = 65.875 y = 0 z = 11.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 25 chmoth = 'UPV' x = 0 y = -65.875 z = -10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 26 chmoth = 'UPV' x = 0 y = 65.875 z = -10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 25 chmoth = 'UPV' x = -65.875 y = 0 z = -10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 26 chmoth = 'UPV' x = 65.875 y = 0 z = -10.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 27 chmoth = 'UPV' x = 0 y = -65.875 z = -10.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 28 chmoth = 'UPV' x = 0 y = 65.875 z = -10.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 27 chmoth = 'UPV' x = -65.875 y = 0 z = -10.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 28 chmoth = 'UPV' x = 65.875 y = 0 z = -10.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 13 chmoth = 'UPV' x = 0 y = -65.875 z = -11.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 13 chmoth = 'UPV' x = 0 y = 65.875 z = -11.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 13 chmoth = 'UPV' x = -65.875 y = 0 z = -11.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 13 chmoth = 'UPV' x = 65.875 y = 0 z = -11.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 29 chmoth = 'UPV' x = 0 y = -65.875 z = -9.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 30 chmoth = 'UPV' x = 0 y = 65.875 z = -9.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 29 chmoth = 'UPV' x = -65.875 y = 0 z = -9.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 30 chmoth = 'UPV' x = 65.875 y = 0 z = -9.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 31 chmoth = 'UPV' x = 0 y = -65.875 z = -9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 32 chmoth = 'UPV' x = 0 y = 65.875 z = -9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 31 chmoth = 'UPV' x = -65.875 y = 0 z = -9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 32 chmoth = 'UPV' x = 65.875 y = 0 z = -9.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 14 chmoth = 'UPV' x = 0 y = -65.875 z = -10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 14 chmoth = 'UPV' x = 0 y = 65.875 z = -10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 14 chmoth = 'UPV' x = -65.875 y = 0 z = -10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 14 chmoth = 'UPV' x = 65.875 y = 0 z = -10 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 33 chmoth = 'UPV' x = 0 y = -65.875 z = -7.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 34 chmoth = 'UPV' x = 0 y = 65.875 z = -7.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 33 chmoth = 'UPV' x = -65.875 y = 0 z = -7.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 34 chmoth = 'UPV' x = 65.875 y = 0 z = -7.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 35 chmoth = 'UPV' x = 0 y = -65.875 z = -7.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 36 chmoth = 'UPV' x = 0 y = 65.875 z = -7.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 35 chmoth = 'UPV' x = -65.875 y = 0 z = -7.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 36 chmoth = 'UPV' x = 65.875 y = 0 z = -7.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 15 chmoth = 'UPV' x = 0 y = -65.875 z = -8.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 15 chmoth = 'UPV' x = 0 y = 65.875 z = -8.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 15 chmoth = 'UPV' x = -65.875 y = 0 z = -8.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 15 chmoth = 'UPV' x = 65.875 y = 0 z = -8.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 37 chmoth = 'UPV' x = 0 y = -65.875 z = -6.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 38 chmoth = 'UPV' x = 0 y = 65.875 z = -6.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 37 chmoth = 'UPV' x = -65.875 y = 0 z = -6.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 38 chmoth = 'UPV' x = 65.875 y = 0 z = -6.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 39 chmoth = 'UPV' x = 0 y = -65.875 z = -6.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 40 chmoth = 'UPV' x = 0 y = 65.875 z = -6.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 39 chmoth = 'UPV' x = -65.875 y = 0 z = -6.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 40 chmoth = 'UPV' x = 65.875 y = 0 z = -6.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 16 chmoth = 'UPV' x = 0 y = -65.875 z = -7 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 16 chmoth = 'UPV' x = 0 y = 65.875 z = -7 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 16 chmoth = 'UPV' x = -65.875 y = 0 z = -7 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 16 chmoth = 'UPV' x = 65.875 y = 0 z = -7 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 41 chmoth = 'UPV' x = 0 y = -65.875 z = -4.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 42 chmoth = 'UPV' x = 0 y = 65.875 z = -4.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 41 chmoth = 'UPV' x = -65.875 y = 0 z = -4.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 42 chmoth = 'UPV' x = 65.875 y = 0 z = -4.625 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 43 chmoth = 'UPV' x = 0 y = -65.875 z = -4.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 44 chmoth = 'UPV' x = 0 y = 65.875 z = -4.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 43 chmoth = 'UPV' x = -65.875 y = 0 z = -4.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 44 chmoth = 'UPV' x = 65.875 y = 0 z = -4.875 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 17 chmoth = 'UPV' x = 0 y = -65.875 z = -5.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 17 chmoth = 'UPV' x = 0 y = 65.875 z = -5.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 17 chmoth = 'UPV' x = -65.875 y = 0 z = -5.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 17 chmoth = 'UPV' x = 65.875 y = 0 z = -5.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 45 chmoth = 'UPV' x = 0 y = -65.875 z = -3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 46 chmoth = 'UPV' x = 0 y = 65.875 z = -3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 45 chmoth = 'UPV' x = -65.875 y = 0 z = -3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 46 chmoth = 'UPV' x = 65.875 y = 0 z = -3.125 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 47 chmoth = 'UPV' x = 0 y = -65.875 z = -3.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL1' nr = 48 chmoth = 'UPV' x = 0 y = 65.875 z = -3.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 47 chmoth = 'UPV' x = -65.875 y = 0 z = -3.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPL2' nr = 48 chmoth = 'UPV' x = 65.875 y = 0 z = -3.375 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE1' nr = 18 chmoth = 'UPV' x = 0 y = -65.875 z = -4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE2' nr = 18 chmoth = 'UPV' x = 0 y = 65.875 z = -4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE3' nr = 18 chmoth = 'UPV' x = -65.875 y = 0 z = -4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'UPE4' nr = 18 chmoth = 'UPV' x = 65.875 y = 0 z = -4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 238 natmed = 'DET4 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DET4' chshap = 'BOX ' nmed = 238 npar = 3 par(1) = 850 par(2) = 600 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.297) 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 = 239 natmed = 'DET5 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DET5' chshap = 'BOX ' nmed = 239 npar = 3 par(1) = 850 par(2) = 600 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.298) 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 = 240 natmed = 'DET6 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DET6' chshap = 'BOX ' nmed = 240 npar = 3 par(1) = 850 par(2) = 1 par(3) = 1500 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.299) 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 = 241 natmed = 'DET7 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'DET7' chshap = 'BOX ' nmed = 241 npar = 3 par(1) = 850 par(2) = 600 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.300) 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 = 242 natmed = 'OHPI Iron' nmat = 10 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'OHPI' chshap = 'TUBE' nmed = 242 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 454 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.301) 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 = 243 natmed = 'IHPI Vacuum' nmat = 11 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'IHPI' chshap = 'TUBE' nmed = 243 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 454 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.302) 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 = 244 natmed = 'CAP2 Mylar' nmat = 19 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CAP2' chshap = 'TUBE' nmed = 244 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 0.025 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.303) stop 'consistency check #1 failed' chname = 'CAP2' nr = 1 chmoth = 'IHPI' x = 0 y = 0 z = 453.975 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) end subroutine setoptical57(itmed) implicit none integer itmed integer nbins real Ephot(8) real abslen(8) real effic(8) real rindex(8) real smooth(8) real refloss(8) common /optical57/nbins,Ephot,rindex,abslen,refloss,smooth,effic integer i data nbins/8/ data (Ephot(i),i=1,8) / + 1.5e-09,2e-09,2.5e-09,3e-09,3.5e-09,4e-09, + 4.5e-09,5e-09/ data (rindex(i),i=1,8) / + 1.00133,1.00134,1.00135,1.00137,1.00139,1.00141, + 1.00143,1.00146/ data (abslen(i),i=1,8) / + 10000,10000,10000,10000,10000,3000, + 2000,150/ data (smooth(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ data (refloss(i),i=1,8) / + 1,1,1,1,1,1, + 1,1/ data (effic(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex) end subroutine getoptical57(E,refl,absl,rind,plsh,eff) implicit none real E,refl,absl,rind,plsh,eff integer n real x integer nbins real Ephot(8) real abslen(8) real effic(8) real rindex(8) real smooth(8) real refloss(8) common /optical57/nbins,Ephot,rindex,abslen,refloss,smooth,effic do n=1,nbins if (E.lt.Ephot(n)) go to 10 enddo 10 continue if (n.eq.1.or.n.gt.nbins) then refl = 0 absl = 0 rind = 0 plsh = 1 eff = 0 else x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1)) refl = (1-x)*refloss(n-1)+x*refloss(n) absl = (1-x)*abslen(n-1)+x*abslen(n) rind = (1-x)*rindex(n-1)+x*rindex(n) plsh = (1-x)*smooth(n-1)+x*smooth(n) eff = (1-x)*effic(n-1)+x*effic(n) endif end subroutine setoptical58(itmed) implicit none integer itmed integer nbins real Ephot(8) real abslen(8) real effic(8) real rindex(8) real smooth(8) real refloss(8) common /optical58/nbins,Ephot,rindex,abslen,refloss,smooth,effic integer i data nbins/8/ data (Ephot(i),i=1,8) / + 1.5e-09,2e-09,2.5e-09,3e-09,3.5e-09,4e-09, + 4.5e-09,5e-09/ data (rindex(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ data (abslen(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ data (smooth(i),i=1,8) / + 1,1,1,1,1,1, + 1,1/ data (refloss(i),i=1,8) / + 0.02,0.02,0.02,0.05,0.07,0.11, + 0.2,0.7/ data (effic(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ call GSCKOV(itmed,nbins,Ephot,refloss,effic,rindex) end subroutine getoptical58(E,refl,absl,rind,plsh,eff) implicit none real E,refl,absl,rind,plsh,eff integer n real x integer nbins real Ephot(8) real abslen(8) real effic(8) real rindex(8) real smooth(8) real refloss(8) common /optical58/nbins,Ephot,rindex,abslen,refloss,smooth,effic do n=1,nbins if (E.lt.Ephot(n)) go to 10 enddo 10 continue if (n.eq.1.or.n.gt.nbins) then refl = 0 absl = 0 rind = 0 plsh = 1 eff = 0 else x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1)) refl = (1-x)*refloss(n-1)+x*refloss(n) absl = (1-x)*abslen(n-1)+x*abslen(n) rind = (1-x)*rindex(n-1)+x*rindex(n) plsh = (1-x)*smooth(n-1)+x*smooth(n) eff = (1-x)*effic(n-1)+x*effic(n) endif end subroutine setoptical59(itmed) implicit none integer itmed integer nbins real Ephot(8) real abslen(8) real effic(8) real rindex(8) real smooth(8) real refloss(8) common /optical59/nbins,Ephot,rindex,abslen,refloss,smooth,effic integer i data nbins/8/ data (Ephot(i),i=1,8) / + 1.5e-09,2e-09,2.5e-09,3e-09,3.5e-09,4e-09, + 4.5e-09,5e-09/ data (rindex(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ data (abslen(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ data (smooth(i),i=1,8) / + 1,1,1,1,1,1, + 1,1/ data (refloss(i),i=1,8) / + 0.02,0.02,0.02,0.05,0.07,0.11, + 0.2,0.7/ data (effic(i),i=1,8) / + 0,0,0,0,0,0, + 0,0/ call GSCKOV(itmed,nbins,Ephot,refloss,effic,rindex) end subroutine getoptical59(E,refl,absl,rind,plsh,eff) implicit none real E,refl,absl,rind,plsh,eff integer n real x integer nbins real Ephot(8) real abslen(8) real effic(8) real rindex(8) real smooth(8) real refloss(8) common /optical59/nbins,Ephot,rindex,abslen,refloss,smooth,effic do n=1,nbins if (E.lt.Ephot(n)) go to 10 enddo 10 continue if (n.eq.1.or.n.gt.nbins) then refl = 0 absl = 0 rind = 0 plsh = 1 eff = 0 else x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1)) refl = (1-x)*refloss(n-1)+x*refloss(n) absl = (1-x)*abslen(n-1)+x*abslen(n) rind = (1-x)*rindex(n-1)+x*rindex(n) plsh = (1-x)*smooth(n-1)+x*smooth(n) eff = (1-x)*effic(n-1)+x*effic(n) endif end subroutine setoptical60(itmed) implicit none integer itmed integer nbins real Ephot(36) real abslen(36) real effic(36) real rindex(36) real smooth(36) real refloss(36) common /optical60/nbins,Ephot,rindex,abslen,refloss,smooth,effic integer i data nbins/36/ data (Ephot(i),i=1,36) / + 1.5e-09,1.6e-09,1.7e-09,1.8e-09,1.9e-09,2e-09, + 2.1e-09,2.2e-09,2.3e-09,2.4e-09,2.5e-09,2.6e-09, + 2.7e-09,2.8e-09,2.9e-09,3e-09,3.1e-09,3.2e-09, + 3.3e-09,3.4e-09,3.5e-09,3.6e-09,3.7e-09,3.8e-09, + 3.9e-09,4e-09,4.1e-09,4.2e-09,4.3e-09,4.4e-09, + 4.5e-09,4.6e-09,4.7e-09,4.8e-09,4.9e-09,5e-09/ data (rindex(i),i=1,36) / + 1.52,1.52,1.52,1.52,1.52,1.52, + 1.52,1.52,1.52,1.52,1.52,1.52, + 1.52,1.52,1.52,1.52,1.52,1.52, + 1.52,1.52,1.52,1.52,1.52,1.52, + 1.52,1.52,1.52,1.52,1.52,1.52, + 1.52,1.52,1.52,1.52,1.52,1.52/ data (abslen(i),i=1,36) / + 0.001,0.001,0.001,0.001,0.001,0.001, + 0.001,0.001,0.001,0.001,0.001,0.001, + 0.001,0.001,0.001,0.001,0.001,0.001, + 0.001,0.001,0.001,0.001,0.001,0.001, + 0.001,0.001,0.001,0.001,0.001,0.001, + 0.001,0.001,0.001,0.001,0.001,0.001/ data (smooth(i),i=1,36) / + 0,0,0,0,0,0, + 0,0,0,0,0,0, + 0,0,0,0,0,0, + 0,0,0,0,0,0, + 0,0,0,0,0,0, + 0,0,0,0,0,0/ data (refloss(i),i=1,36) / + 1,1,1,1,1,1, + 1,1,1,1,1,1, + 1,1,1,1,1,1, + 1,1,1,1,1,1, + 1,1,1,1,1,1, + 1,1,1,1,1,1/ data (effic(i),i=1,36) / + 0.001,0.004,0.008,0.012,0.016,0.019, + 0.03,0.06,0.09,0.13,0.16,0.19, + 0.22,0.23,0.24,0.26,0.27,0.27, + 0.27,0.26,0.25,0.24,0.22,0.19, + 0.16,0.13,0.1,0.07,0.04,0.03, + 0.025,0.02,0.015,0.01,0.005,0.002/ call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex) end subroutine getoptical60(E,refl,absl,rind,plsh,eff) implicit none real E,refl,absl,rind,plsh,eff integer n real x integer nbins real Ephot(36) real abslen(36) real effic(36) real rindex(36) real smooth(36) real refloss(36) common /optical60/nbins,Ephot,rindex,abslen,refloss,smooth,effic do n=1,nbins if (E.lt.Ephot(n)) go to 10 enddo 10 continue if (n.eq.1.or.n.gt.nbins) then refl = 0 absl = 0 rind = 0 plsh = 1 eff = 0 else x = (E-Ephot(n-1))/(Ephot(n)-Ephot(n-1)) refl = (1-x)*refloss(n-1)+x*refloss(n) absl = (1-x)*abslen(n-1)+x*abslen(n) rind = (1-x)*rindex(n-1)+x*rindex(n) plsh = (1-x)*smooth(n-1)+x*smooth(n) eff = (1-x)*effic(n-1)+x*effic(n) endif end function getColumn() implicit none integer getColumn integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(303) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 1, 0, 0, 21, 0, 0, 23, 0, 25, 0, + 0, 0, 45, 0, 0, 0, 104, 0, 0, 132, + 0, 0, 160, 0, 0, 0, 0, 219, 0, 0, + 244, 0, 269, 0, 0, 275, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 0, 0, 0/ integer lookup(280) data (lookup(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 1, 1, 2, 2, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 58, 57, 56, 55, 54, 53, + 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, + 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, + 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, + 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, + 12, 11, 10, 9, 8, 7, 6, 5, 4, 3/ data (lookup(i),i=101,200) / + 2, 1, 0, 58, 57, 56, 55, 54, 53, 52, + 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, + 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, + 31, 27, 26, 25, 24, 23, 22, 21, 20, 19, + 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, + 8, 7, 6, 5, 4, 3, 2, 1, 0, 58, + 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, + 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, + 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, + 27, 26, 25, 24, 23, 22, 21, 20, 19, 18/ data (lookup(i),i=201,280) / + 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, + 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, + 1, 1, 1, 1, 2, 2, 2, 2, 2, 2/ integer level,index integer column getColumn = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then column = lookup(index + number(level) - 1) if (column.gt.0) then getColumn = column endif endif enddo end function getLayer() implicit none integer getLayer integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(303) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 4, 0, 0, 0, 0, 0, 8, 0, 0, + 0, 0, 12, 0, 0, 0, 0, 16, 0, 0, + 0, 0, 20, 0, 0, 0, 0, 24, 0, 0, + 0, 0, 27, 0, 0, 0, 0, 30, 0, 0, + 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 36, 84, 132, 0, 0, 150, + 0, 168, 0, 0, 186, 0, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 0, 0, 0/ integer lookup(203) data (lookup(i),i=1,100) / + 1, 2, 3, 1, 1, 1, 1, 2, 2, 2, + 2, 3, 3, 3, 3, 4, 4, 4, 4, 5, + 5, 5, 5, 6, 6, 6, 7, 7, 7, 8, + 8, 8, 9, 9, 9, 12, 12, 11, 11, 10, + 10, 9, 9, 8, 8, 7, 7, 6, 6, 5, + 5, 4, 4, 3, 3, 2, 2, 1, 1, 18, + 18, 18, 18, 17, 17, 17, 17, 16, 16, 16, + 16, 15, 15, 15, 15, 14, 14, 14, 14, 13, + 13, 13, 13, 12, 12, 11, 11, 10, 10, 9, + 9, 8, 8, 7, 7, 6, 6, 5, 5, 4/ data (lookup(i),i=101,200) / + 4, 3, 3, 2, 2, 1, 1, 18, 18, 18, + 18, 17, 17, 17, 17, 16, 16, 16, 16, 15, + 15, 15, 15, 14, 14, 14, 14, 13, 13, 13, + 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, + 3, 2, 1, 18, 17, 16, 15, 14, 13, 12, + 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, + 1, 18, 17, 16, 15, 14, 13, 12, 11, 10, + 9, 8, 7, 6, 5, 4, 3, 2, 1, 18, + 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, + 7, 6, 5, 4, 3, 2, 1, 18, 17, 16/ data (lookup(i),i=201,203) / + 15, 14, 13/ integer level,index integer layer getLayer = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then layer = lookup(index + number(level) - 1) if (layer.gt.0) then getLayer = layer endif endif enddo end function getMap() implicit none integer getMap integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(303) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, + 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 4, 0, 0, 0, 0, 0, 5, 0, 0, 0, + 0, 6, 0, 0, 0, 0, 7, 0, 0, 0, + 0, 8, 0, 0, 0, 0, 9, 0, 0, 0, + 0, 10, 0, 0, 0, 0, 11, 0, 0, 0, + 0, 12, 0, 0, 0, 0, 13, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 14, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 0, 0, 0/ integer lookup(14) data (lookup(i),i=1,14) / + 1, 2, 3, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 5/ integer level,index integer map getMap = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then map = lookup(index + number(level) - 1) if (map.gt.0) then getMap = map endif endif enddo end function getModule() implicit none integer getModule integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(303) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 9, 0/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 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(303) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 1, 3, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 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, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 0, 0, 0/ integer lookup(5) data (lookup(i),i=1,5) / + 1, 3, 2, 0, 1/ integer level,index integer plane getPlane = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then plane = lookup(index + number(level) - 1) if (plane.gt.0) then getPlane = plane endif endif enddo end function getRing() implicit none integer getRing integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(303) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 64, 0, 0, 134, 0, 0, 211, 0, 0, + 295, 0, 0, 0, 1387, 0, 0, 1513, 0, 0, + 1646, 0, 0, 1786, 0, 0, 1933, 0, 0, 0, + 2087, 0, 0, 2280, 0, 0, 2480, 0, 0, 2687, + 0, 0, 2901, 0, 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/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 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(303) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 1, 0, 0, 21, 0, 0, 23, 0, 25, 0, + 0, 45, 0, 0, 0, 73, 0, 0, 76, 0, + 0, 79, 0, 0, 0, 0, 0, 107, 0, 0, + 132, 0, 157, 0, 0, 163, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 0, 0, 0/ integer lookup(168) data (lookup(i),i=1,100) / + 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, + 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, + 43, 41, 44, 42, 20, 19, 18, 17, 16, 15, + 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, + 4, 3, 2, 1, 0, 1, 2, 3, 4, 5, + 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 30, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 50, 51, 52/ data (lookup(i),i=101,168) / + 53, 54, 55, 56, 57, 58, 1, 2, 3, 4, + 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, + 25, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, + 51, 52, 53, 54, 55, 56, 26, 27, 28, 29, + 30, 31, 26, 27, 28, 29, 30, 31/ integer level,index integer row getRow = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then row = lookup(index + number(level) - 1) if (row.gt.0) then getRow = row endif endif enddo end function getSector() implicit none integer getSector integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(303) 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, + 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 25, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 88, 0, 0, 158, 0, 0, 235, 0, 0, + 319, 0, 0, 0, 1411, 0, 0, 1537, 0, 0, + 1670, 0, 0, 1810, 0, 0, 1957, 0, 0, 0, + 2111, 0, 0, 2304, 0, 0, 2504, 0, 0, 2711, + 0, 0, 2925, 0, 0, 3146, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 3374, 0, 0, 0, 0, 0, 3378, 0, 0, + 0, 0, 3382, 0, 0, 0, 0, 3386, 0, 0, + 0, 0, 3390, 0, 0, 0, 0, 3394, 0, 0, + 0, 0, 3397, 0, 0, 0, 0, 3400, 0, 0, + 0, 0, 3403, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 3406, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,303) / + 0, 0, 0/ integer lookup(3421) data (lookup(i),i=1,100) / + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 1, 2, 3, 4, 5, 6, + 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, + 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, + 37, 38, 39, 40, 41, 42, 43, 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/ data (lookup(i),i=101,200) / + 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, 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/ data (lookup(i),i=201,300) / + 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, 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/ data (lookup(i),i=301,400) / + 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, + 77, 78, 79, 80, 81, 82, 83, 84, 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/ data (lookup(i),i=401,500) / + 83, 84, 85, 86, 87, 88, 89, 90, 91, 1, + 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, + 42, 43, 44, 45, 46, 47, 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/ data (lookup(i),i=501,600) / + 92, 93, 94, 95, 96, 97, 98, 1, 2, 3, + 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, + 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, + 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, + 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, + 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, + 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, + 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, 90, 91, 92, 93/ data (lookup(i),i=601,700) / + 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, + 104, 105, 1, 2, 3, 4, 5, 6, 7, 8, + 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, + 39, 40, 41, 42, 43, 44, 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=701,800) / + 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, + 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, + 109, 110, 111, 112, 1, 2, 3, 4, 5, 6, + 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, + 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 30, 31, 32, 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/ data (lookup(i),i=801,900) / + 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, 1, 2, 3, 4, 5, + 6, 7, 8, 9, 10, 11, 12, 13, 14, 15/ data (lookup(i),i=901,1000) / + 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=1001,1100) / + 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, 1, 2, 3, 4, 5, 6, 7, + 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, + 38, 39, 40, 41, 42, 43, 44, 45, 46, 47/ data (lookup(i),i=1101,1200) / + 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, + 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, + 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, + 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, + 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, + 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, + 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, + 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, + 138, 139, 140, 141, 142, 143, 144, 145, 146, 147/ data (lookup(i),i=1201,1300) / + 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, 1, 2, + 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, + 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 65, 66, 67, 68, 69, 70, 71, 72/ data (lookup(i),i=1301,1400) / + 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, 172/ data (lookup(i),i=1401,1500) / + 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, + 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 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/ data (lookup(i),i=1501,1600) / + 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, 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/ data (lookup(i),i=1601,1700) / + 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, 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/ data (lookup(i),i=1701,1800) / + 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, + 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, + 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, + 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, + 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, + 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, + 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, + 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, + 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, + 122, 123, 124, 125, 126, 127, 128, 129, 130, 131/ data (lookup(i),i=1801,1900) / + 132, 133, 134, 135, 136, 137, 138, 139, 140, 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/ data (lookup(i),i=1901,2000) / + 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, 1, 2, 3, 4, + 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, + 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 41, 42, 43, 44/ data (lookup(i),i=2001,2100) / + 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, + 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, + 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, + 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, + 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, + 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, + 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, + 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, + 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, 137, 138, 139, 140, 141, 142, 143, 144/ data (lookup(i),i=2101,2200) / + 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, + 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/ data (lookup(i),i=2201,2300) / + 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, + 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, + 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, + 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, + 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, + 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, + 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, + 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, + 181, 182, 183, 184, 185, 186, 187, 188, 189, 190/ data (lookup(i),i=2301,2400) / + 191, 192, 193, 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/ data (lookup(i),i=2401,2500) / + 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, + 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, + 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, + 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, + 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, + 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, + 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, + 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, + 188, 189, 190, 191, 192, 193, 194, 195, 196, 197/ data (lookup(i),i=2501,2600) / + 198, 199, 200, 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/ data (lookup(i),i=2601,2700) / + 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, + 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, + 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, + 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, + 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, + 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, + 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, + 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, + 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, + 188, 189, 190, 191, 192, 193, 194, 195, 196, 197/ data (lookup(i),i=2701,2800) / + 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, + 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/ data (lookup(i),i=2801,2900) / + 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, + 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, + 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, + 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, + 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, + 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, + 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, + 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, + 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, + 181, 182, 183, 184, 185, 186, 187, 188, 189, 190/ data (lookup(i),i=2901,3000) / + 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, + 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, + 211, 212, 213, 214, 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/ data (lookup(i),i=3001,3100) / + 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, 172, 173, 174, 175, 176/ data (lookup(i),i=3101,3200) / + 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, + 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, + 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, + 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, + 217, 218, 219, 220, 221, 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=3201,3300) / + 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, + 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, + 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, + 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, + 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, + 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, + 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, + 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, + 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, + 146, 147, 148, 149, 150, 151, 152, 153, 154, 155/ data (lookup(i),i=3301,3400) / + 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, 215, + 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, + 226, 227, 228, 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/ data (lookup(i),i=3401,3421) / + 2, 3, 1, 2, 3, 1, 2, 3, 4, 5, + 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, + 16/ integer level,index integer sector getSector = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then sector = lookup(index + number(level) - 1) if (sector.gt.0) then getSector = sector endif endif enddo end subroutine gufld(r,B) implicit none real r(3),B(3) real rr(3),rs(3),BB(3) integer iregion integer getMap external getMap real orig1(3),rmat1(3,3) data orig1/0,0,-1975/ data rmat1/1,0,0, + 0,6.12303e-17,-1, + 0,1,6.12303e-17/ real orig2(3),rmat2(3,3) data orig2/0,0,-1345/ data rmat2/1,0,0, + 0,6.12303e-17,-1, + 0,1,6.12303e-17/ real orig3(3),rmat3(3,3) data orig3/0,0,0/ data rmat3/1,0,0, + 0,1,0, + 0,0,1/ iregion = getMap() if (iregion.eq.0) then B(1) = 0 B(2) = 0 B(3) = 0 else if (iregion.eq.1) then B(1) = 0 B(2) = -2 B(3) = 1.22461e-16 else if (iregion.eq.2) then B(1) = 0 B(2) = -2 B(3) = 1.22461e-16 else if (iregion.eq.3) then 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),Br(3) real rho,phi,alpha real u(3) real twopi parameter (twopi=6.28318530717959) real bound0(3,2) data bound0/0,0,10.16, + 101.6,6.28319,645.16/ integer reverse0(3) data reverse0/1,1,1/ real Bmap(3,41,1,251) integer nsites(3) data nsites/41,1,251/ logical loaded data loaded/.false./ save Bmap,nsites,loaded integer i,i1,i2,i3 if (.not.loaded) then open(unit=78,file='solenoid.map',status='old',err=7) read(unit=78,fmt=*,err=5,end=6) + ((((Bmap(i,i1,i2,i3),i=1,3), + i3=1,251), + i1=1,41), + i2=1,1) go to 8 5 stop 'error reading magnetic field map, stop' 6 stop 'EOF encountered reading magnetic field map, stop' 7 stop 'error opening magnetic field map, stop' 8 loaded=.true. endif rho = sqrt(r(1)**2+r(2)**2) phi = atan2(r(2),r(1)) u(1) = (rho-bound0(1,1))/(bound0(1,2)-bound0(1,1)) u(2) = (phi-bound0(2,1))/(bound0(2,2)-bound0(2,1)) alpha = abs(twopi/(bound0(2,2)-bound0(2,1))) u(2) = u(2)-int(u(2)/alpha)*alpha if (u(2).lt.0) then u(2) = u(2)+alpha endif u(3) = (r(3)-bound0(3,1))/(bound0(3,2)-bound0(3,1)) if ((u(1).ge.0.and.u(1).le.1).and. + (u(2).ge.0.and.u(2).le.1).and. + (u(3).ge.0.and.u(3).le.1)) then call interpol3(Bmap,nsites,u,Br) Br(1)=Br(1)*reverse0(1) Br(2)=Br(2)*reverse0(2) B(1)=Br(1)*cos(phi)-Br(2)*sin(phi) B(2)=Br(2)*cos(phi)+Br(1)*sin(phi) B(3)=Br(3)*reverse0(3) return endif B(1) = 0 B(2) = 0 B(3) = 0 return end subroutine interpol3(Bmap,nsites,u,B) implicit none integer nsites(3) real Bmap(3,nsites(1),nsites(2),nsites(3)) real u(3),B(3) integer ir(3),ir0(3),ir1(3) real ur(3),dur(3),ugrad(3,3) integer i do i=1,3 ur(i)=u(i)*(nsites(i)-1)+1 ir(i)=nint(ur(i)) ir0(i)=max(ir(i)-1,1) ir1(i)=min(ir(i)+1,nsites(i)) dur(i)=(ur(i)-ir(i))/(ir1(i)-ir0(i)+1e-20) enddo ugrad(1,1)=(Bmap(1,ir1(1),ir(2),ir(3))-Bmap(1,ir0(1),ir(2),ir(3))) ugrad(2,1)=(Bmap(2,ir1(1),ir(2),ir(3))-Bmap(2,ir0(1),ir(2),ir(3))) ugrad(3,1)=(Bmap(3,ir1(1),ir(2),ir(3))-Bmap(3,ir0(1),ir(2),ir(3))) ugrad(1,2)=(Bmap(1,ir(1),ir1(2),ir(3))-Bmap(1,ir(1),ir0(2),ir(3))) ugrad(2,2)=(Bmap(2,ir(1),ir1(2),ir(3))-Bmap(2,ir(1),ir0(2),ir(3))) ugrad(3,2)=(Bmap(3,ir(1),ir1(2),ir(3))-Bmap(3,ir(1),ir0(2),ir(3))) ugrad(1,3)=(Bmap(1,ir(1),ir(2),ir1(3))-Bmap(1,ir(1),ir(2),ir0(3))) ugrad(2,3)=(Bmap(2,ir(1),ir(2),ir1(3))-Bmap(2,ir(1),ir(2),ir0(3))) ugrad(3,3)=(Bmap(3,ir(1),ir(2),ir1(3))-Bmap(3,ir(1),ir(2),ir0(3))) B(1)=Bmap(1,ir(1),ir(2),ir(3)) + +ugrad(1,1)*dur(1)+ugrad(1,2)*dur(2)+ugrad(1,3)*dur(3) B(2)=Bmap(2,ir(1),ir(2),ir(3)) + +ugrad(2,1)*dur(1)+ugrad(2,2)*dur(2)+ugrad(2,3)*dur(3) B(3)=Bmap(3,ir(1),ir(2),ir(3)) + +ugrad(3,1)*dur(1)+ugrad(3,2)*dur(2)+ugrad(3,3)*dur(3) end subroutine getoptical(imat,E,refl,absl,rind,plsh,eff) implicit none integer imat real E,refl,absl,rind,plsh,eff if (imat.eq.57) then call getoptical57(E,refl,absl,rind,plsh,eff) elseif (imat.eq.58) then call getoptical58(E,refl,absl,rind,plsh,eff) elseif (imat.eq.59) then call getoptical59(E,refl,absl,rind,plsh,eff) elseif (imat.eq.60) then call getoptical60(E,refl,absl,rind,plsh,eff) else refl = 0 absl = 0 rind = 0 plsh = 1 eff = 0 endif end subroutine guplsh(medi0,medi1) implicit none integer medi0,medi1 real E,refl,absl,rind,plsh,eff integer nmat character*20 natmed integer isvol,ifield real fieldm,tmaxfd,stemax,deemax,epsil,stmin integer nwbuf real ubuf(99) call GFTMED(medi1,natmed,nmat,isvol,ifield,fieldm, + tmaxfd,stemax,deemax,epsil,stmin,ubuf,nwbuf) E = 2.5 call getoptical(nmat,E,refl,absl,rind,plsh,eff) end