* * 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 = -452.2 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.08 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) = 3.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.5 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) itmed = 93 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 = 93 npar = 15 par(1) = 0 par(2) = 360 par(3) = 4 par(4) = -60.8 par(5) = 4.5 par(6) = 188 par(7) = 92 par(8) = 4.5 par(9) = 188 par(10) = 92 par(11) = 0 par(12) = 188 par(13) = 460 par(14) = 0 par(15) = 188 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.110) 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 = 94 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 = 94 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.111) 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 = 95 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 = 95 npar = 3 par(1) = 95 par(2) = 187.96 par(3) = 188.9 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.112) 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 = 96 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 = 96 npar = 3 par(1) = 92.71 par(2) = 187.96 par(3) = 33 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.113) 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) 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 = 97 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 = 97 npar = 25 par(1) = 0 par(2) = 360 par(3) = 24 par(4) = 7 par(5) = -140 par(6) = 6.951 par(7) = 8.675 par(8) = 51.383 par(9) = 6.951 par(10) = 8.675 par(11) = 51.726 par(12) = 6.809 par(13) = 8.675 par(14) = 53.938 par(15) = 5.893 par(16) = 7.759 par(17) = 54.914 par(18) = 4.916 par(19) = 7.354 par(20) = 57.915 par(21) = 1.915 par(22) = 4.353 par(23) = 59.134 par(24) = 3.134 par(25) = 3.134 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.114) stop 'consistency check #1 failed' chname = 'STRT' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 37.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 = 98 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 = 98 npar = 25 par(1) = -7.5 par(2) = 15 par(3) = 1 par(4) = 7 par(5) = 0 par(6) = 7.481 par(7) = 7.696 par(8) = 51.488 par(9) = 7.481 par(10) = 7.696 par(11) = 51.531 par(12) = 7.463 par(13) = 7.696 par(14) = 54.238 par(15) = 6.342 par(16) = 6.575 par(17) = 54.36 par(18) = 6.22 par(19) = 6.524 par(20) = 58.29 par(21) = 2.29 par(22) = 2.594 par(23) = 58.442 par(24) = 2.442 par(25) = 2.442 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.115) 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 = 99 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 = 99 npar = 25 par(1) = 0 par(2) = 360 par(3) = 24 par(4) = 7 par(5) = 0 par(6) = 6.951 par(7) = 7.481 par(8) = 51.383 par(9) = 6.951 par(10) = 7.481 par(11) = 51.488 par(12) = 6.907 par(13) = 7.481 par(14) = 53.938 par(15) = 5.893 par(16) = 6.467 par(17) = 54.238 par(18) = 5.593 par(19) = 6.342 par(20) = 57.915 par(21) = 1.915 par(22) = 2.665 par(23) = 58.29 par(24) = 2.29 par(25) = 2.29 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.116) 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 = 100 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 = 100 npar = 25 par(1) = 0 par(2) = 360 par(3) = 24 par(4) = 7 par(5) = 0 par(6) = 8.675 par(7) = 8.725 par(8) = 51.726 par(9) = 8.675 par(10) = 8.725 par(11) = 51.736 par(12) = 8.671 par(13) = 8.725 par(14) = 54.914 par(15) = 7.354 par(16) = 7.409 par(17) = 54.942 par(18) = 7.326 par(19) = 7.397 par(20) = 59.134 par(21) = 3.134 par(22) = 3.205 par(23) = 59.17 par(24) = 3.17 par(25) = 3.17 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.117) 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 = 101 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 = 101 npar = 3 par(1) = 6.951 par(2) = 8.675 par(3) = 70 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.118) 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 = 102 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 = 102 npar = 3 par(1) = 7.551 par(2) = 8.675 par(3) = 70 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.119) 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 = 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) = 9 par(2) = 59 par(3) = 87 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 = 92 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) = 10.12 par(2) = 11.8 par(3) = 76.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 = 43 iaxis = 2 step = 8.37209 c0 = -4.186 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) = 10.12 par(2) = 11.8 par(3) = 76.25 par(4) = -4.186 par(5) = 4.186 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 = 'CDchamberGas' 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 CDchamberGas' 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) = 76 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.124) stop 'consistency check #1 failed' chname = 'STRA' nr = 1 chmoth = 'DS1' x = 10.96 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 30 namate = 'AluminizedKapton' wmat(1) = 0.087 call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.913 call gfmate(22,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 1.48109 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 107 natmed = 'STRW AluminizedKapton' 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 = 'STRW' chshap = 'TUBE' nmed = 107 npar = 3 par(1) = 0.7895 par(2) = 0.8 par(3) = 75 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) = 76 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 = -75.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 31 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 = 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 = '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 = 75.5 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) = 9 par(2) = 59 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 = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 33 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) imate = 34 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 = 32 namate = 'CarbonFiberEpoxy' wmat(1) = 0.375 call gfmate(33,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.25 call gfmate(34,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.375 call gfmate(33,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.91046 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 112 natmed = 'CDPD CarbonFiberEpoxy' nmat = 32 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDPD' chshap = 'TUBE' nmed = 112 npar = 3 par(1) = 9 par(2) = 59 par(3) = 0.2 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 = 75.2 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) = 11.901 par(2) = 13.581 par(3) = 76.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 = 50 iaxis = 2 step = 7.2 c0 = -3.6 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) = 11.9 par(2) = 13.58 par(3) = 76.25 par(4) = -3.6 par(5) = 3.6 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 = 12.741 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 = -75.45 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 = 75.2 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) = 13.682 par(2) = 15.362 par(3) = 76.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 = 57 iaxis = 2 step = 6.31579 c0 = -3.158 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) = 13.68 par(2) = 15.36 par(3) = 76.25 par(4) = -3.158 par(5) = 3.158 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 = 14.522 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 = -75.45 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 = 75.2 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) = 15.464 par(2) = 23.88 par(3) = 76.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) itmed = 118 natmed = 'STLA CDchamberGas' 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 = 118 npar = 3 par(1) = 0 par(2) = 0.8 par(3) = 76.42 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.138) 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 = 'DC4' x = 16.304 y = 0 z = 0 irot = 47 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 119 natmed = 'STLW AluminizedKapton' 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 = 'STLW' chshap = 'TUBE' nmed = 119 npar = 3 par(1) = 0.7895 par(2) = 0.8 par(3) = 75.415 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.139) 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 = 120 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 = 120 npar = 3 par(1) = 0 par(2) = 0.0015 par(3) = 76.415 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.140) 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 = -75.92 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 = 75.92 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 48 theta1 = 90 phi1 = 5.625 theta2 = 96 phi2 = 95.625 theta3 = 6 phi3 = 95.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 2 chmoth = 'DC4' x = 16.2255 y = 1.59807 z = 0 irot = 48 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 49 theta1 = 90 phi1 = 11.25 theta2 = 96 phi2 = 101.25 theta3 = 6 phi3 = 101.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 3 chmoth = 'DC4' x = 15.9907 y = 3.18075 z = 0 irot = 49 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 50 theta1 = 90 phi1 = 16.875 theta2 = 96 phi2 = 106.875 theta3 = 6 phi3 = 106.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 4 chmoth = 'DC4' x = 15.602 y = 4.7328 z = 0 irot = 50 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 51 theta1 = 90 phi1 = 22.5 theta2 = 96 phi2 = 112.5 theta3 = 6 phi3 = 112.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 5 chmoth = 'DC4' x = 15.0629 y = 6.23927 z = 0 irot = 51 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 52 theta1 = 90 phi1 = 28.125 theta2 = 96 phi2 = 118.125 theta3 = 6 phi3 = 118.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 6 chmoth = 'DC4' x = 14.3788 y = 7.68565 z = 0 irot = 52 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 53 theta1 = 90 phi1 = 33.75 theta2 = 96 phi2 = 123.75 theta3 = 6 phi3 = 123.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 7 chmoth = 'DC4' x = 13.5563 y = 9.05802 z = 0 irot = 53 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 54 theta1 = 90 phi1 = 39.375 theta2 = 96 phi2 = 129.375 theta3 = 6 phi3 = 129.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 8 chmoth = 'DC4' x = 12.6032 y = 10.3431 z = 0 irot = 54 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 55 theta1 = 90 phi1 = 45 theta2 = 96 phi2 = 135 theta3 = 6 phi3 = 135 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 9 chmoth = 'DC4' x = 11.5287 y = 11.5287 z = 0 irot = 55 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 56 theta1 = 90 phi1 = 50.625 theta2 = 96 phi2 = 140.625 theta3 = 6 phi3 = 140.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 10 chmoth = 'DC4' x = 10.3431 y = 12.6032 z = 0 irot = 56 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 57 theta1 = 90 phi1 = 56.25 theta2 = 96 phi2 = 146.25 theta3 = 6 phi3 = 146.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 11 chmoth = 'DC4' x = 9.05802 y = 13.5563 z = 0 irot = 57 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 58 theta1 = 90 phi1 = 61.875 theta2 = 96 phi2 = 151.875 theta3 = 6 phi3 = 151.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 12 chmoth = 'DC4' x = 7.68565 y = 14.3788 z = 0 irot = 58 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 59 theta1 = 90 phi1 = 67.5 theta2 = 96 phi2 = 157.5 theta3 = 6 phi3 = 157.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 13 chmoth = 'DC4' x = 6.23927 y = 15.0629 z = 0 irot = 59 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 60 theta1 = 90 phi1 = 73.125 theta2 = 96 phi2 = 163.125 theta3 = 6 phi3 = 163.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 14 chmoth = 'DC4' x = 4.7328 y = 15.602 z = 0 irot = 60 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 61 theta1 = 90 phi1 = 78.75 theta2 = 96 phi2 = 168.75 theta3 = 6 phi3 = 168.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 15 chmoth = 'DC4' x = 3.18075 y = 15.9907 z = 0 irot = 61 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 62 theta1 = 90 phi1 = 84.375 theta2 = 96 phi2 = 174.375 theta3 = 6 phi3 = 174.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 16 chmoth = 'DC4' x = 1.59807 y = 16.2255 z = 0 irot = 62 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 63 theta1 = 90 phi1 = 90 theta2 = 96 phi2 = -180 theta3 = 6 phi3 = -180 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 17 chmoth = 'DC4' x = 9.98299e-16 y = 16.304 z = 0 irot = 63 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 64 theta1 = 90 phi1 = 95.625 theta2 = 96 phi2 = -174.375 theta3 = 6 phi3 = -174.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 18 chmoth = 'DC4' x = -1.59807 y = 16.2255 z = 0 irot = 64 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 65 theta1 = 90 phi1 = 101.25 theta2 = 96 phi2 = -168.75 theta3 = 6 phi3 = -168.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 19 chmoth = 'DC4' x = -3.18075 y = 15.9907 z = 0 irot = 65 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 66 theta1 = 90 phi1 = 106.875 theta2 = 96 phi2 = -163.125 theta3 = 6 phi3 = -163.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 20 chmoth = 'DC4' x = -4.7328 y = 15.602 z = 0 irot = 66 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 67 theta1 = 90 phi1 = 112.5 theta2 = 96 phi2 = -157.5 theta3 = 6 phi3 = -157.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 21 chmoth = 'DC4' x = -6.23927 y = 15.0629 z = 0 irot = 67 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 68 theta1 = 90 phi1 = 118.125 theta2 = 96 phi2 = -151.875 theta3 = 6 phi3 = -151.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 22 chmoth = 'DC4' x = -7.68565 y = 14.3788 z = 0 irot = 68 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 69 theta1 = 90 phi1 = 123.75 theta2 = 96 phi2 = -146.25 theta3 = 6 phi3 = -146.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 23 chmoth = 'DC4' x = -9.05802 y = 13.5563 z = 0 irot = 69 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 70 theta1 = 90 phi1 = 129.375 theta2 = 96 phi2 = -140.625 theta3 = 6 phi3 = -140.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 24 chmoth = 'DC4' x = -10.3431 y = 12.6032 z = 0 irot = 70 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 71 theta1 = 90 phi1 = 135 theta2 = 96 phi2 = -135 theta3 = 6 phi3 = -135 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 25 chmoth = 'DC4' x = -11.5287 y = 11.5287 z = 0 irot = 71 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 72 theta1 = 90 phi1 = 140.625 theta2 = 96 phi2 = -129.375 theta3 = 6 phi3 = -129.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 26 chmoth = 'DC4' x = -12.6032 y = 10.3431 z = 0 irot = 72 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 73 theta1 = 90 phi1 = 146.25 theta2 = 96 phi2 = -123.75 theta3 = 6 phi3 = -123.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 27 chmoth = 'DC4' x = -13.5563 y = 9.05802 z = 0 irot = 73 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 74 theta1 = 90 phi1 = 151.875 theta2 = 96 phi2 = -118.125 theta3 = 6 phi3 = -118.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 28 chmoth = 'DC4' x = -14.3788 y = 7.68565 z = 0 irot = 74 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 75 theta1 = 90 phi1 = 157.5 theta2 = 96 phi2 = -112.5 theta3 = 6 phi3 = -112.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 29 chmoth = 'DC4' x = -15.0629 y = 6.23927 z = 0 irot = 75 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 76 theta1 = 90 phi1 = 163.125 theta2 = 96 phi2 = -106.875 theta3 = 6 phi3 = -106.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 30 chmoth = 'DC4' x = -15.602 y = 4.7328 z = 0 irot = 76 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 77 theta1 = 90 phi1 = 168.75 theta2 = 96 phi2 = -101.25 theta3 = 6 phi3 = -101.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 31 chmoth = 'DC4' x = -15.9907 y = 3.18075 z = 0 irot = 77 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 78 theta1 = 90 phi1 = 174.375 theta2 = 96 phi2 = -95.625 theta3 = 6 phi3 = -95.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 32 chmoth = 'DC4' x = -16.2255 y = 1.59807 z = 0 irot = 78 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 79 theta1 = 90 phi1 = -180 theta2 = 96 phi2 = -90 theta3 = 6 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 33 chmoth = 'DC4' x = -16.304 y = 1.9966e-15 z = 0 irot = 79 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 80 theta1 = 90 phi1 = -174.375 theta2 = 96 phi2 = -84.375 theta3 = 6 phi3 = -84.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 34 chmoth = 'DC4' x = -16.2255 y = -1.59807 z = 0 irot = 80 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 81 theta1 = 90 phi1 = -168.75 theta2 = 96 phi2 = -78.75 theta3 = 6 phi3 = -78.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 35 chmoth = 'DC4' x = -15.9907 y = -3.18075 z = 0 irot = 81 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 82 theta1 = 90 phi1 = -163.125 theta2 = 96 phi2 = -73.125 theta3 = 6 phi3 = -73.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 36 chmoth = 'DC4' x = -15.602 y = -4.7328 z = 0 irot = 82 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 83 theta1 = 90 phi1 = -157.5 theta2 = 96 phi2 = -67.5 theta3 = 6 phi3 = -67.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 37 chmoth = 'DC4' x = -15.0629 y = -6.23927 z = 0 irot = 83 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 84 theta1 = 90 phi1 = -151.875 theta2 = 96 phi2 = -61.875 theta3 = 6 phi3 = -61.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 38 chmoth = 'DC4' x = -14.3788 y = -7.68565 z = 0 irot = 84 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 85 theta1 = 90 phi1 = -146.25 theta2 = 96 phi2 = -56.25 theta3 = 6 phi3 = -56.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 39 chmoth = 'DC4' x = -13.5563 y = -9.05802 z = 0 irot = 85 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 86 theta1 = 90 phi1 = -140.625 theta2 = 96 phi2 = -50.625 theta3 = 6 phi3 = -50.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 40 chmoth = 'DC4' x = -12.6032 y = -10.3431 z = 0 irot = 86 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 87 theta1 = 90 phi1 = -135 theta2 = 96 phi2 = -45 theta3 = 6 phi3 = -45 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 41 chmoth = 'DC4' x = -11.5287 y = -11.5287 z = 0 irot = 87 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 88 theta1 = 90 phi1 = -129.375 theta2 = 96 phi2 = -39.375 theta3 = 6 phi3 = -39.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 42 chmoth = 'DC4' x = -10.3431 y = -12.6032 z = 0 irot = 88 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 89 theta1 = 90 phi1 = -123.75 theta2 = 96 phi2 = -33.75 theta3 = 6 phi3 = -33.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 43 chmoth = 'DC4' x = -9.05802 y = -13.5563 z = 0 irot = 89 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 90 theta1 = 90 phi1 = -118.125 theta2 = 96 phi2 = -28.125 theta3 = 6 phi3 = -28.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 44 chmoth = 'DC4' x = -7.68565 y = -14.3788 z = 0 irot = 90 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 91 theta1 = 90 phi1 = -112.5 theta2 = 96 phi2 = -22.5 theta3 = 6 phi3 = -22.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 45 chmoth = 'DC4' x = -6.23927 y = -15.0629 z = 0 irot = 91 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 92 theta1 = 90 phi1 = -106.875 theta2 = 96 phi2 = -16.875 theta3 = 6 phi3 = -16.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 46 chmoth = 'DC4' x = -4.7328 y = -15.602 z = 0 irot = 92 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 93 theta1 = 90 phi1 = -101.25 theta2 = 96 phi2 = -11.25 theta3 = 6 phi3 = -11.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 47 chmoth = 'DC4' x = -3.18075 y = -15.9907 z = 0 irot = 93 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 94 theta1 = 90 phi1 = -95.625 theta2 = 96 phi2 = -5.625 theta3 = 6 phi3 = -5.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 48 chmoth = 'DC4' x = -1.59807 y = -16.2255 z = 0 irot = 94 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 95 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 = 49 chmoth = 'DC4' x = -2.9949e-15 y = -16.304 z = 0 irot = 95 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 96 theta1 = 90 phi1 = -84.375 theta2 = 96 phi2 = 5.625 theta3 = 6 phi3 = 5.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 50 chmoth = 'DC4' x = 1.59807 y = -16.2255 z = 0 irot = 96 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 97 theta1 = 90 phi1 = -78.75 theta2 = 96 phi2 = 11.25 theta3 = 6 phi3 = 11.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 51 chmoth = 'DC4' x = 3.18075 y = -15.9907 z = 0 irot = 97 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 98 theta1 = 90 phi1 = -73.125 theta2 = 96 phi2 = 16.875 theta3 = 6 phi3 = 16.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 52 chmoth = 'DC4' x = 4.7328 y = -15.602 z = 0 irot = 98 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 99 theta1 = 90 phi1 = -67.5 theta2 = 96 phi2 = 22.5 theta3 = 6 phi3 = 22.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 53 chmoth = 'DC4' x = 6.23927 y = -15.0629 z = 0 irot = 99 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 100 theta1 = 90 phi1 = -61.875 theta2 = 96 phi2 = 28.125 theta3 = 6 phi3 = 28.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 54 chmoth = 'DC4' x = 7.68565 y = -14.3788 z = 0 irot = 100 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 101 theta1 = 90 phi1 = -56.25 theta2 = 96 phi2 = 33.75 theta3 = 6 phi3 = 33.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 55 chmoth = 'DC4' x = 9.05802 y = -13.5563 z = 0 irot = 101 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 102 theta1 = 90 phi1 = -50.625 theta2 = 96 phi2 = 39.375 theta3 = 6 phi3 = 39.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 56 chmoth = 'DC4' x = 10.3431 y = -12.6032 z = 0 irot = 102 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 103 theta1 = 90 phi1 = -45 theta2 = 96 phi2 = 45 theta3 = 6 phi3 = 45 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 57 chmoth = 'DC4' x = 11.5287 y = -11.5287 z = 0 irot = 103 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 104 theta1 = 90 phi1 = -39.375 theta2 = 96 phi2 = 50.625 theta3 = 6 phi3 = 50.625 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 58 chmoth = 'DC4' x = 12.6032 y = -10.3431 z = 0 irot = 104 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 105 theta1 = 90 phi1 = -33.75 theta2 = 96 phi2 = 56.25 theta3 = 6 phi3 = 56.25 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 59 chmoth = 'DC4' x = 13.5563 y = -9.05802 z = 0 irot = 105 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 106 theta1 = 90 phi1 = -28.125 theta2 = 96 phi2 = 61.875 theta3 = 6 phi3 = 61.875 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 60 chmoth = 'DC4' x = 14.3788 y = -7.68565 z = 0 irot = 106 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 107 theta1 = 90 phi1 = -22.5 theta2 = 96 phi2 = 67.5 theta3 = 6 phi3 = 67.5 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 61 chmoth = 'DC4' x = 15.0629 y = -6.23927 z = 0 irot = 107 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 108 theta1 = 90 phi1 = -16.875 theta2 = 96 phi2 = 73.125 theta3 = 6 phi3 = 73.125 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 62 chmoth = 'DC4' x = 15.602 y = -4.7328 z = 0 irot = 108 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 109 theta1 = 90 phi1 = -11.25 theta2 = 96 phi2 = 78.75 theta3 = 6 phi3 = 78.75 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 63 chmoth = 'DC4' x = 15.9907 y = -3.18075 z = 0 irot = 109 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 110 theta1 = 90 phi1 = -5.625 theta2 = 96 phi2 = 84.375 theta3 = 6 phi3 = 84.375 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 64 chmoth = 'DC4' x = 16.2255 y = -1.59807 z = 0 irot = 110 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 111 theta1 = 90 phi1 = 0 theta2 = 96 phi2 = 90 theta3 = 6 phi3 = 90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 65 chmoth = 'DC4' x = 18.086 y = 0 z = 0 irot = 111 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 112 theta1 = 90 phi1 = 5.07042 theta2 = 96 phi2 = 95.0704 theta3 = 6 phi3 = 95.0704 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 66 chmoth = 'DC4' x = 18.0152 y = 1.59844 z = 0 irot = 112 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 113 theta1 = 90 phi1 = 10.1408 theta2 = 96 phi2 = 100.141 theta3 = 6 phi3 = 100.141 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 67 chmoth = 'DC4' x = 17.8035 y = 3.18438 z = 0 irot = 113 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 114 theta1 = 90 phi1 = 15.2113 theta2 = 96 phi2 = 105.211 theta3 = 6 phi3 = 105.211 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 68 chmoth = 'DC4' x = 17.4524 y = 4.74539 z = 0 irot = 114 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 115 theta1 = 90 phi1 = 20.2817 theta2 = 96 phi2 = 110.282 theta3 = 6 phi3 = 110.282 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 69 chmoth = 'DC4' x = 16.9647 y = 6.26926 z = 0 irot = 115 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 116 theta1 = 90 phi1 = 25.3521 theta2 = 96 phi2 = 115.352 theta3 = 6 phi3 = 115.352 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 70 chmoth = 'DC4' x = 16.3442 y = 7.74406 z = 0 irot = 116 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 117 theta1 = 90 phi1 = 30.4225 theta2 = 96 phi2 = 120.423 theta3 = 6 phi3 = 120.423 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 71 chmoth = 'DC4' x = 15.5958 y = 9.15826 z = 0 irot = 117 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 118 theta1 = 90 phi1 = 35.493 theta2 = 96 phi2 = 125.493 theta3 = 6 phi3 = 125.493 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 72 chmoth = 'DC4' x = 14.7254 y = 10.5008 z = 0 irot = 118 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 119 theta1 = 90 phi1 = 40.5634 theta2 = 96 phi2 = 130.563 theta3 = 6 phi3 = 130.563 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 73 chmoth = 'DC4' x = 13.7397 y = 11.7611 z = 0 irot = 119 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 120 theta1 = 90 phi1 = 45.6338 theta2 = 96 phi2 = 135.634 theta3 = 6 phi3 = 135.634 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 74 chmoth = 'DC4' x = 12.6465 y = 12.9294 z = 0 irot = 120 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 121 theta1 = 90 phi1 = 50.7042 theta2 = 96 phi2 = 140.704 theta3 = 6 phi3 = 140.704 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 75 chmoth = 'DC4' x = 11.4543 y = 13.9965 z = 0 irot = 121 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 122 theta1 = 90 phi1 = 55.7746 theta2 = 96 phi2 = 145.775 theta3 = 6 phi3 = 145.775 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 76 chmoth = 'DC4' x = 10.1725 y = 14.9541 z = 0 irot = 122 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 123 theta1 = 90 phi1 = 60.8451 theta2 = 96 phi2 = 150.845 theta3 = 6 phi3 = 150.845 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 77 chmoth = 'DC4' x = 8.81101 y = 15.7946 z = 0 irot = 123 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 124 theta1 = 90 phi1 = 65.9155 theta2 = 96 phi2 = 155.915 theta3 = 6 phi3 = 155.915 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 78 chmoth = 'DC4' x = 7.3806 y = 16.5115 z = 0 irot = 124 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 125 theta1 = 90 phi1 = 70.9859 theta2 = 96 phi2 = 160.986 theta3 = 6 phi3 = 160.986 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 79 chmoth = 'DC4' x = 5.89243 y = 17.0992 z = 0 irot = 125 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 126 theta1 = 90 phi1 = 76.0563 theta2 = 96 phi2 = 166.056 theta3 = 6 phi3 = 166.056 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 80 chmoth = 'DC4' x = 4.35814 y = 17.5531 z = 0 irot = 126 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 127 theta1 = 90 phi1 = 81.1268 theta2 = 96 phi2 = 171.127 theta3 = 6 phi3 = 171.127 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 81 chmoth = 'DC4' x = 2.78975 y = 17.8695 z = 0 irot = 127 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 128 theta1 = 90 phi1 = 86.1972 theta2 = 96 phi2 = 176.197 theta3 = 6 phi3 = 176.197 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 82 chmoth = 'DC4' x = 1.19952 y = 18.0462 z = 0 irot = 128 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 129 theta1 = 90 phi1 = 91.2676 theta2 = 96 phi2 = -178.732 theta3 = 6 phi3 = -178.732 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 83 chmoth = 'DC4' x = -0.4001 y = 18.0816 z = 0 irot = 129 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 130 theta1 = 90 phi1 = 96.338 theta2 = 96 phi2 = -173.662 theta3 = 6 phi3 = -173.662 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 84 chmoth = 'DC4' x = -1.99659 y = 17.9755 z = 0 irot = 130 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 131 theta1 = 90 phi1 = 101.408 theta2 = 96 phi2 = -168.592 theta3 = 6 phi3 = -168.592 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 85 chmoth = 'DC4' x = -3.57745 y = 17.7287 z = 0 irot = 131 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 132 theta1 = 90 phi1 = 106.479 theta2 = 96 phi2 = -163.521 theta3 = 6 phi3 = -163.521 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 86 chmoth = 'DC4' x = -5.13031 y = 17.3431 z = 0 irot = 132 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 133 theta1 = 90 phi1 = 111.549 theta2 = 96 phi2 = -158.451 theta3 = 6 phi3 = -158.451 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 87 chmoth = 'DC4' x = -6.64302 y = 16.8218 z = 0 irot = 133 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 134 theta1 = 90 phi1 = 116.62 theta2 = 96 phi2 = -153.38 theta3 = 6 phi3 = -153.38 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 88 chmoth = 'DC4' x = -8.10374 y = 16.1689 z = 0 irot = 134 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 135 theta1 = 90 phi1 = 121.69 theta2 = 96 phi2 = -148.31 theta3 = 6 phi3 = -148.31 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 89 chmoth = 'DC4' x = -9.50103 y = 15.3894 z = 0 irot = 135 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 136 theta1 = 90 phi1 = 126.761 theta2 = 96 phi2 = -143.239 theta3 = 6 phi3 = -143.239 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 90 chmoth = 'DC4' x = -10.824 y = 14.4895 z = 0 irot = 136 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 137 theta1 = 90 phi1 = 131.831 theta2 = 96 phi2 = -138.169 theta3 = 6 phi3 = -138.169 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 91 chmoth = 'DC4' x = -12.0622 y = 13.4762 z = 0 irot = 137 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 138 theta1 = 90 phi1 = 136.901 theta2 = 96 phi2 = -133.099 theta3 = 6 phi3 = -133.099 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 92 chmoth = 'DC4' x = -13.206 y = 12.3574 z = 0 irot = 138 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 139 theta1 = 90 phi1 = 141.972 theta2 = 96 phi2 = -128.028 theta3 = 6 phi3 = -128.028 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 93 chmoth = 'DC4' x = -14.2465 y = 11.1419 z = 0 irot = 139 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 140 theta1 = 90 phi1 = 147.042 theta2 = 96 phi2 = -122.958 theta3 = 6 phi3 = -122.958 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 94 chmoth = 'DC4' x = -15.1755 y = 9.83915 z = 0 irot = 140 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 141 theta1 = 90 phi1 = 152.113 theta2 = 96 phi2 = -117.887 theta3 = 6 phi3 = -117.887 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 95 chmoth = 'DC4' x = -15.9857 y = 8.45944 z = 0 irot = 141 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 142 theta1 = 90 phi1 = 157.183 theta2 = 96 phi2 = -112.817 theta3 = 6 phi3 = -112.817 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 96 chmoth = 'DC4' x = -16.6707 y = 7.01352 z = 0 irot = 142 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 143 theta1 = 90 phi1 = 162.254 theta2 = 96 phi2 = -107.746 theta3 = 6 phi3 = -107.746 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 97 chmoth = 'DC4' x = -17.2254 y = 5.51272 z = 0 irot = 143 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 144 theta1 = 90 phi1 = 167.324 theta2 = 96 phi2 = -102.676 theta3 = 6 phi3 = -102.676 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 98 chmoth = 'DC4' x = -17.6452 y = 3.96876 z = 0 irot = 144 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 145 theta1 = 90 phi1 = 172.394 theta2 = 96 phi2 = -97.6056 theta3 = 6 phi3 = -97.6056 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 99 chmoth = 'DC4' x = -17.9269 y = 2.39375 z = 0 irot = 145 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 146 theta1 = 90 phi1 = 177.465 theta2 = 96 phi2 = -92.5352 theta3 = 6 phi3 = -92.5352 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 100 chmoth = 'DC4' x = -18.0683 y = 0.800004 z = 0 irot = 146 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 147 theta1 = 90 phi1 = -177.465 theta2 = 96 phi2 = -87.4648 theta3 = 6 phi3 = -87.4648 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 101 chmoth = 'DC4' x = -18.0683 y = -0.800004 z = 0 irot = 147 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 148 theta1 = 90 phi1 = -172.394 theta2 = 96 phi2 = -82.3944 theta3 = 6 phi3 = -82.3944 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 102 chmoth = 'DC4' x = -17.9269 y = -2.39375 z = 0 irot = 148 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 149 theta1 = 90 phi1 = -167.324 theta2 = 96 phi2 = -77.3239 theta3 = 6 phi3 = -77.3239 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 103 chmoth = 'DC4' x = -17.6452 y = -3.96876 z = 0 irot = 149 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 150 theta1 = 90 phi1 = -162.254 theta2 = 96 phi2 = -72.2535 theta3 = 6 phi3 = -72.2535 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 104 chmoth = 'DC4' x = -17.2254 y = -5.51272 z = 0 irot = 150 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 151 theta1 = 90 phi1 = -157.183 theta2 = 96 phi2 = -67.1831 theta3 = 6 phi3 = -67.1831 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 105 chmoth = 'DC4' x = -16.6707 y = -7.01352 z = 0 irot = 151 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 152 theta1 = 90 phi1 = -152.113 theta2 = 96 phi2 = -62.1127 theta3 = 6 phi3 = -62.1127 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 106 chmoth = 'DC4' x = -15.9857 y = -8.45944 z = 0 irot = 152 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 153 theta1 = 90 phi1 = -147.042 theta2 = 96 phi2 = -57.0423 theta3 = 6 phi3 = -57.0423 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 107 chmoth = 'DC4' x = -15.1755 y = -9.83915 z = 0 irot = 153 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 154 theta1 = 90 phi1 = -141.972 theta2 = 96 phi2 = -51.9718 theta3 = 6 phi3 = -51.9718 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 108 chmoth = 'DC4' x = -14.2465 y = -11.1419 z = 0 irot = 154 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 155 theta1 = 90 phi1 = -136.901 theta2 = 96 phi2 = -46.9014 theta3 = 6 phi3 = -46.9014 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 109 chmoth = 'DC4' x = -13.206 y = -12.3574 z = 0 irot = 155 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 156 theta1 = 90 phi1 = -131.831 theta2 = 96 phi2 = -41.831 theta3 = 6 phi3 = -41.831 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 110 chmoth = 'DC4' x = -12.0622 y = -13.4762 z = 0 irot = 156 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 157 theta1 = 90 phi1 = -126.761 theta2 = 96 phi2 = -36.7606 theta3 = 6 phi3 = -36.7606 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 111 chmoth = 'DC4' x = -10.824 y = -14.4895 z = 0 irot = 157 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 158 theta1 = 90 phi1 = -121.69 theta2 = 96 phi2 = -31.6901 theta3 = 6 phi3 = -31.6901 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 112 chmoth = 'DC4' x = -9.50103 y = -15.3894 z = 0 irot = 158 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 159 theta1 = 90 phi1 = -116.62 theta2 = 96 phi2 = -26.6197 theta3 = 6 phi3 = -26.6197 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 113 chmoth = 'DC4' x = -8.10374 y = -16.1689 z = 0 irot = 159 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 160 theta1 = 90 phi1 = -111.549 theta2 = 96 phi2 = -21.5493 theta3 = 6 phi3 = -21.5493 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 114 chmoth = 'DC4' x = -6.64302 y = -16.8218 z = 0 irot = 160 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 161 theta1 = 90 phi1 = -106.479 theta2 = 96 phi2 = -16.4789 theta3 = 6 phi3 = -16.4789 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 115 chmoth = 'DC4' x = -5.13031 y = -17.3431 z = 0 irot = 161 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 162 theta1 = 90 phi1 = -101.408 theta2 = 96 phi2 = -11.4085 theta3 = 6 phi3 = -11.4085 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 116 chmoth = 'DC4' x = -3.57745 y = -17.7287 z = 0 irot = 162 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 163 theta1 = 90 phi1 = -96.338 theta2 = 96 phi2 = -6.33803 theta3 = 6 phi3 = -6.33803 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 117 chmoth = 'DC4' x = -1.99659 y = -17.9755 z = 0 irot = 163 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 164 theta1 = 90 phi1 = -91.2676 theta2 = 96 phi2 = -1.26761 theta3 = 6 phi3 = -1.26761 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 118 chmoth = 'DC4' x = -0.4001 y = -18.0816 z = 0 irot = 164 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 165 theta1 = 90 phi1 = -86.1972 theta2 = 96 phi2 = 3.80282 theta3 = 6 phi3 = 3.80282 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 119 chmoth = 'DC4' x = 1.19952 y = -18.0462 z = 0 irot = 165 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 166 theta1 = 90 phi1 = -81.1268 theta2 = 96 phi2 = 8.87324 theta3 = 6 phi3 = 8.87324 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 120 chmoth = 'DC4' x = 2.78975 y = -17.8695 z = 0 irot = 166 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 167 theta1 = 90 phi1 = -76.0563 theta2 = 96 phi2 = 13.9437 theta3 = 6 phi3 = 13.9437 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 121 chmoth = 'DC4' x = 4.35814 y = -17.5531 z = 0 irot = 167 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 168 theta1 = 90 phi1 = -70.9859 theta2 = 96 phi2 = 19.0141 theta3 = 6 phi3 = 19.0141 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 122 chmoth = 'DC4' x = 5.89243 y = -17.0992 z = 0 irot = 168 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 169 theta1 = 90 phi1 = -65.9155 theta2 = 96 phi2 = 24.0845 theta3 = 6 phi3 = 24.0845 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 123 chmoth = 'DC4' x = 7.3806 y = -16.5115 z = 0 irot = 169 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 170 theta1 = 90 phi1 = -60.8451 theta2 = 96 phi2 = 29.1549 theta3 = 6 phi3 = 29.1549 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 124 chmoth = 'DC4' x = 8.81101 y = -15.7946 z = 0 irot = 170 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 171 theta1 = 90 phi1 = -55.7746 theta2 = 96 phi2 = 34.2254 theta3 = 6 phi3 = 34.2254 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 125 chmoth = 'DC4' x = 10.1725 y = -14.9541 z = 0 irot = 171 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 172 theta1 = 90 phi1 = -50.7042 theta2 = 96 phi2 = 39.2958 theta3 = 6 phi3 = 39.2958 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 126 chmoth = 'DC4' x = 11.4543 y = -13.9965 z = 0 irot = 172 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 173 theta1 = 90 phi1 = -45.6338 theta2 = 96 phi2 = 44.3662 theta3 = 6 phi3 = 44.3662 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 127 chmoth = 'DC4' x = 12.6465 y = -12.9294 z = 0 irot = 173 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 174 theta1 = 90 phi1 = -40.5634 theta2 = 96 phi2 = 49.4366 theta3 = 6 phi3 = 49.4366 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 128 chmoth = 'DC4' x = 13.7397 y = -11.7611 z = 0 irot = 174 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 175 theta1 = 90 phi1 = -35.493 theta2 = 96 phi2 = 54.507 theta3 = 6 phi3 = 54.507 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 129 chmoth = 'DC4' x = 14.7254 y = -10.5008 z = 0 irot = 175 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 176 theta1 = 90 phi1 = -30.4225 theta2 = 96 phi2 = 59.5775 theta3 = 6 phi3 = 59.5775 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 130 chmoth = 'DC4' x = 15.5958 y = -9.15826 z = 0 irot = 176 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 177 theta1 = 90 phi1 = -25.3521 theta2 = 96 phi2 = 64.6479 theta3 = 6 phi3 = 64.6479 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 131 chmoth = 'DC4' x = 16.3442 y = -7.74406 z = 0 irot = 177 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 178 theta1 = 90 phi1 = -20.2817 theta2 = 96 phi2 = 69.7183 theta3 = 6 phi3 = 69.7183 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 132 chmoth = 'DC4' x = 16.9647 y = -6.26926 z = 0 irot = 178 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 179 theta1 = 90 phi1 = -15.2113 theta2 = 96 phi2 = 74.7887 theta3 = 6 phi3 = 74.7887 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 133 chmoth = 'DC4' x = 17.4524 y = -4.74539 z = 0 irot = 179 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 180 theta1 = 90 phi1 = -10.1408 theta2 = 96 phi2 = 79.8592 theta3 = 6 phi3 = 79.8592 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 134 chmoth = 'DC4' x = 17.8035 y = -3.18438 z = 0 irot = 180 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 181 theta1 = 90 phi1 = -5.07042 theta2 = 96 phi2 = 84.9296 theta3 = 6 phi3 = 84.9296 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 135 chmoth = 'DC4' x = 18.0152 y = -1.59844 z = 0 irot = 181 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 182 theta1 = 90 phi1 = 0 theta2 = 84 phi2 = 90 theta3 = 6 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 136 chmoth = 'DC4' x = 19.868 y = 0 z = 0 irot = 182 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 183 theta1 = 90 phi1 = 4.61538 theta2 = 84 phi2 = 94.6154 theta3 = 6 phi3 = -85.3846 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 137 chmoth = 'DC4' x = 19.8036 y = 1.59871 z = 0 irot = 183 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 184 theta1 = 90 phi1 = 9.23077 theta2 = 84 phi2 = 99.2308 theta3 = 6 phi3 = -80.7692 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 138 chmoth = 'DC4' x = 19.6107 y = 3.18705 z = 0 irot = 184 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 185 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 = 139 chmoth = 'DC4' x = 19.2907 y = 4.75472 z = 0 irot = 185 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 186 theta1 = 90 phi1 = 18.4615 theta2 = 84 phi2 = 108.462 theta3 = 6 phi3 = -71.5385 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 140 chmoth = 'DC4' x = 18.8455 y = 6.29156 z = 0 irot = 186 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 187 theta1 = 90 phi1 = 23.0769 theta2 = 84 phi2 = 113.077 theta3 = 6 phi3 = -66.9231 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 141 chmoth = 'DC4' x = 18.2782 y = 7.78759 z = 0 irot = 187 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 188 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 = 142 chmoth = 'DC4' x = 17.5922 y = 9.23312 z = 0 irot = 188 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 189 theta1 = 90 phi1 = 32.3077 theta2 = 84 phi2 = 122.308 theta3 = 6 phi3 = -57.6923 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 143 chmoth = 'DC4' x = 16.7922 y = 10.6188 z = 0 irot = 189 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 190 theta1 = 90 phi1 = 36.9231 theta2 = 84 phi2 = 126.923 theta3 = 6 phi3 = -53.0769 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 144 chmoth = 'DC4' x = 15.8833 y = 11.9355 z = 0 irot = 190 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 191 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 = 145 chmoth = 'DC4' x = 14.8714 y = 13.1749 z = 0 irot = 191 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 192 theta1 = 90 phi1 = 46.1538 theta2 = 84 phi2 = 136.154 theta3 = 6 phi3 = -43.8462 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 146 chmoth = 'DC4' x = 13.763 y = 14.3289 z = 0 irot = 192 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 193 theta1 = 90 phi1 = 50.7692 theta2 = 84 phi2 = 140.769 theta3 = 6 phi3 = -39.2308 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 147 chmoth = 'DC4' x = 12.5654 y = 15.3899 z = 0 irot = 193 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 194 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 = 148 chmoth = 'DC4' x = 11.2863 y = 16.351 z = 0 irot = 194 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 195 theta1 = 90 phi1 = 60 theta2 = 84 phi2 = 150 theta3 = 6 phi3 = -30 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 149 chmoth = 'DC4' x = 9.934 y = 17.2062 z = 0 irot = 195 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 196 theta1 = 90 phi1 = 64.6154 theta2 = 84 phi2 = 154.615 theta3 = 6 phi3 = -25.3846 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 150 chmoth = 'DC4' x = 8.51726 y = 17.9498 z = 0 irot = 196 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 197 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 = 151 chmoth = 'DC4' x = 7.04529 y = 18.5769 z = 0 irot = 197 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 198 theta1 = 90 phi1 = 73.8462 theta2 = 84 phi2 = 163.846 theta3 = 6 phi3 = -16.1538 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 152 chmoth = 'DC4' x = 5.52762 y = 19.0836 z = 0 irot = 198 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 199 theta1 = 90 phi1 = 78.4615 theta2 = 84 phi2 = 168.462 theta3 = 6 phi3 = -11.5385 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 153 chmoth = 'DC4' x = 3.97411 y = 19.4665 z = 0 irot = 199 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 200 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 = 154 chmoth = 'DC4' x = 2.39482 y = 19.7231 z = 0 irot = 200 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 201 theta1 = 90 phi1 = 87.6923 theta2 = 84 phi2 = 177.692 theta3 = 6 phi3 = -2.30769 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 155 chmoth = 'DC4' x = 0.800004 y = 19.8519 z = 0 irot = 201 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 202 theta1 = 90 phi1 = 92.3077 theta2 = 84 phi2 = -177.692 theta3 = 6 phi3 = 2.30769 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 156 chmoth = 'DC4' x = -0.800004 y = 19.8519 z = 0 irot = 202 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 203 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 = 157 chmoth = 'DC4' x = -2.39482 y = 19.7231 z = 0 irot = 203 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 204 theta1 = 90 phi1 = 101.538 theta2 = 84 phi2 = -168.462 theta3 = 6 phi3 = 11.5385 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 158 chmoth = 'DC4' x = -3.97411 y = 19.4665 z = 0 irot = 204 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 205 theta1 = 90 phi1 = 106.154 theta2 = 84 phi2 = -163.846 theta3 = 6 phi3 = 16.1538 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 159 chmoth = 'DC4' x = -5.52762 y = 19.0836 z = 0 irot = 205 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 206 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 = 160 chmoth = 'DC4' x = -7.04529 y = 18.5769 z = 0 irot = 206 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 207 theta1 = 90 phi1 = 115.385 theta2 = 84 phi2 = -154.615 theta3 = 6 phi3 = 25.3846 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 161 chmoth = 'DC4' x = -8.51726 y = 17.9498 z = 0 irot = 207 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 208 theta1 = 90 phi1 = 120 theta2 = 84 phi2 = -150 theta3 = 6 phi3 = 30 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 162 chmoth = 'DC4' x = -9.934 y = 17.2062 z = 0 irot = 208 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 209 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 = 163 chmoth = 'DC4' x = -11.2863 y = 16.351 z = 0 irot = 209 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 210 theta1 = 90 phi1 = 129.231 theta2 = 84 phi2 = -140.769 theta3 = 6 phi3 = 39.2308 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 164 chmoth = 'DC4' x = -12.5654 y = 15.3899 z = 0 irot = 210 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 211 theta1 = 90 phi1 = 133.846 theta2 = 84 phi2 = -136.154 theta3 = 6 phi3 = 43.8462 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 165 chmoth = 'DC4' x = -13.763 y = 14.3289 z = 0 irot = 211 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 212 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 = 166 chmoth = 'DC4' x = -14.8714 y = 13.1749 z = 0 irot = 212 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 213 theta1 = 90 phi1 = 143.077 theta2 = 84 phi2 = -126.923 theta3 = 6 phi3 = 53.0769 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 167 chmoth = 'DC4' x = -15.8833 y = 11.9355 z = 0 irot = 213 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 214 theta1 = 90 phi1 = 147.692 theta2 = 84 phi2 = -122.308 theta3 = 6 phi3 = 57.6923 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 168 chmoth = 'DC4' x = -16.7922 y = 10.6188 z = 0 irot = 214 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 215 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 = 169 chmoth = 'DC4' x = -17.5922 y = 9.23312 z = 0 irot = 215 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 216 theta1 = 90 phi1 = 156.923 theta2 = 84 phi2 = -113.077 theta3 = 6 phi3 = 66.9231 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 170 chmoth = 'DC4' x = -18.2782 y = 7.78759 z = 0 irot = 216 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 217 theta1 = 90 phi1 = 161.538 theta2 = 84 phi2 = -108.462 theta3 = 6 phi3 = 71.5385 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 171 chmoth = 'DC4' x = -18.8455 y = 6.29156 z = 0 irot = 217 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 218 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 = 172 chmoth = 'DC4' x = -19.2907 y = 4.75472 z = 0 irot = 218 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 219 theta1 = 90 phi1 = 170.769 theta2 = 84 phi2 = -99.2308 theta3 = 6 phi3 = 80.7692 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 173 chmoth = 'DC4' x = -19.6107 y = 3.18705 z = 0 irot = 219 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 220 theta1 = 90 phi1 = 175.385 theta2 = 84 phi2 = -94.6154 theta3 = 6 phi3 = 85.3846 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 174 chmoth = 'DC4' x = -19.8036 y = 1.59871 z = 0 irot = 220 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 221 theta1 = 90 phi1 = -180 theta2 = 84 phi2 = -90 theta3 = 6 phi3 = 90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 175 chmoth = 'DC4' x = -19.868 y = 2.43305e-15 z = 0 irot = 221 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 222 theta1 = 90 phi1 = -175.385 theta2 = 84 phi2 = -85.3846 theta3 = 6 phi3 = 94.6154 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 176 chmoth = 'DC4' x = -19.8036 y = -1.59871 z = 0 irot = 222 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 223 theta1 = 90 phi1 = -170.769 theta2 = 84 phi2 = -80.7692 theta3 = 6 phi3 = 99.2308 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 177 chmoth = 'DC4' x = -19.6107 y = -3.18705 z = 0 irot = 223 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 224 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 = 178 chmoth = 'DC4' x = -19.2907 y = -4.75472 z = 0 irot = 224 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 225 theta1 = 90 phi1 = -161.538 theta2 = 84 phi2 = -71.5385 theta3 = 6 phi3 = 108.462 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 179 chmoth = 'DC4' x = -18.8455 y = -6.29156 z = 0 irot = 225 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 226 theta1 = 90 phi1 = -156.923 theta2 = 84 phi2 = -66.9231 theta3 = 6 phi3 = 113.077 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 180 chmoth = 'DC4' x = -18.2782 y = -7.78759 z = 0 irot = 226 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 227 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 = 181 chmoth = 'DC4' x = -17.5922 y = -9.23312 z = 0 irot = 227 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 228 theta1 = 90 phi1 = -147.692 theta2 = 84 phi2 = -57.6923 theta3 = 6 phi3 = 122.308 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 182 chmoth = 'DC4' x = -16.7922 y = -10.6188 z = 0 irot = 228 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 229 theta1 = 90 phi1 = -143.077 theta2 = 84 phi2 = -53.0769 theta3 = 6 phi3 = 126.923 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 183 chmoth = 'DC4' x = -15.8833 y = -11.9355 z = 0 irot = 229 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 230 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 = 184 chmoth = 'DC4' x = -14.8714 y = -13.1749 z = 0 irot = 230 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 231 theta1 = 90 phi1 = -133.846 theta2 = 84 phi2 = -43.8462 theta3 = 6 phi3 = 136.154 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 185 chmoth = 'DC4' x = -13.763 y = -14.3289 z = 0 irot = 231 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 232 theta1 = 90 phi1 = -129.231 theta2 = 84 phi2 = -39.2308 theta3 = 6 phi3 = 140.769 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 186 chmoth = 'DC4' x = -12.5654 y = -15.3899 z = 0 irot = 232 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 233 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 = 187 chmoth = 'DC4' x = -11.2863 y = -16.351 z = 0 irot = 233 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 234 theta1 = 90 phi1 = -120 theta2 = 84 phi2 = -30 theta3 = 6 phi3 = 150 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 188 chmoth = 'DC4' x = -9.934 y = -17.2062 z = 0 irot = 234 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 235 theta1 = 90 phi1 = -115.385 theta2 = 84 phi2 = -25.3846 theta3 = 6 phi3 = 154.615 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 189 chmoth = 'DC4' x = -8.51726 y = -17.9498 z = 0 irot = 235 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 236 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 = 190 chmoth = 'DC4' x = -7.04529 y = -18.5769 z = 0 irot = 236 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 237 theta1 = 90 phi1 = -106.154 theta2 = 84 phi2 = -16.1538 theta3 = 6 phi3 = 163.846 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 191 chmoth = 'DC4' x = -5.52762 y = -19.0836 z = 0 irot = 237 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 238 theta1 = 90 phi1 = -101.538 theta2 = 84 phi2 = -11.5385 theta3 = 6 phi3 = 168.462 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 192 chmoth = 'DC4' x = -3.97411 y = -19.4665 z = 0 irot = 238 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 239 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 = 193 chmoth = 'DC4' x = -2.39482 y = -19.7231 z = 0 irot = 239 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 240 theta1 = 90 phi1 = -92.3077 theta2 = 84 phi2 = -2.30769 theta3 = 6 phi3 = 177.692 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 194 chmoth = 'DC4' x = -0.800004 y = -19.8519 z = 0 irot = 240 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 241 theta1 = 90 phi1 = -87.6923 theta2 = 84 phi2 = 2.30769 theta3 = 6 phi3 = -177.692 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 195 chmoth = 'DC4' x = 0.800004 y = -19.8519 z = 0 irot = 241 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 242 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 = 196 chmoth = 'DC4' x = 2.39482 y = -19.7231 z = 0 irot = 242 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 243 theta1 = 90 phi1 = -78.4615 theta2 = 84 phi2 = 11.5385 theta3 = 6 phi3 = -168.462 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 197 chmoth = 'DC4' x = 3.97411 y = -19.4665 z = 0 irot = 243 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 244 theta1 = 90 phi1 = -73.8462 theta2 = 84 phi2 = 16.1538 theta3 = 6 phi3 = -163.846 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 198 chmoth = 'DC4' x = 5.52762 y = -19.0836 z = 0 irot = 244 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 245 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 = 199 chmoth = 'DC4' x = 7.04529 y = -18.5769 z = 0 irot = 245 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 246 theta1 = 90 phi1 = -64.6154 theta2 = 84 phi2 = 25.3846 theta3 = 6 phi3 = -154.615 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 200 chmoth = 'DC4' x = 8.51726 y = -17.9498 z = 0 irot = 246 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 247 theta1 = 90 phi1 = -60 theta2 = 84 phi2 = 30 theta3 = 6 phi3 = -150 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 201 chmoth = 'DC4' x = 9.934 y = -17.2062 z = 0 irot = 247 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 248 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 = 202 chmoth = 'DC4' x = 11.2863 y = -16.351 z = 0 irot = 248 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 249 theta1 = 90 phi1 = -50.7692 theta2 = 84 phi2 = 39.2308 theta3 = 6 phi3 = -140.769 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 203 chmoth = 'DC4' x = 12.5654 y = -15.3899 z = 0 irot = 249 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 250 theta1 = 90 phi1 = -46.1538 theta2 = 84 phi2 = 43.8462 theta3 = 6 phi3 = -136.154 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 204 chmoth = 'DC4' x = 13.763 y = -14.3289 z = 0 irot = 250 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 251 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 = 205 chmoth = 'DC4' x = 14.8714 y = -13.1749 z = 0 irot = 251 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 252 theta1 = 90 phi1 = -36.9231 theta2 = 84 phi2 = 53.0769 theta3 = 6 phi3 = -126.923 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 206 chmoth = 'DC4' x = 15.8833 y = -11.9355 z = 0 irot = 252 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 253 theta1 = 90 phi1 = -32.3077 theta2 = 84 phi2 = 57.6923 theta3 = 6 phi3 = -122.308 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 207 chmoth = 'DC4' x = 16.7922 y = -10.6188 z = 0 irot = 253 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 254 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 = 208 chmoth = 'DC4' x = 17.5922 y = -9.23312 z = 0 irot = 254 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 255 theta1 = 90 phi1 = -23.0769 theta2 = 84 phi2 = 66.9231 theta3 = 6 phi3 = -113.077 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 209 chmoth = 'DC4' x = 18.2782 y = -7.78759 z = 0 irot = 255 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 256 theta1 = 90 phi1 = -18.4615 theta2 = 84 phi2 = 71.5385 theta3 = 6 phi3 = -108.462 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 210 chmoth = 'DC4' x = 18.8455 y = -6.29156 z = 0 irot = 256 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 257 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 = 211 chmoth = 'DC4' x = 19.2907 y = -4.75472 z = 0 irot = 257 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 258 theta1 = 90 phi1 = -9.23077 theta2 = 84 phi2 = 80.7692 theta3 = 6 phi3 = -99.2308 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 212 chmoth = 'DC4' x = 19.6107 y = -3.18705 z = 0 irot = 258 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 259 theta1 = 90 phi1 = -4.61538 theta2 = 84 phi2 = 85.3846 theta3 = 6 phi3 = -94.6154 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 213 chmoth = 'DC4' x = 19.8036 y = -1.59871 z = 0 irot = 259 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 260 theta1 = 90 phi1 = 0 theta2 = 84 phi2 = 90 theta3 = 6 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 214 chmoth = 'DC4' x = 21.65 y = 0 z = 0 irot = 260 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 261 theta1 = 90 phi1 = 4.23529 theta2 = 84 phi2 = 94.2353 theta3 = 6 phi3 = -85.7647 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 215 chmoth = 'DC4' x = 21.5909 y = 1.59891 z = 0 irot = 261 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 262 theta1 = 90 phi1 = 8.47059 theta2 = 84 phi2 = 98.4706 theta3 = 6 phi3 = -81.5294 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 216 chmoth = 'DC4' x = 21.4138 y = 3.18908 z = 0 irot = 262 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 263 theta1 = 90 phi1 = 12.7059 theta2 = 84 phi2 = 102.706 theta3 = 6 phi3 = -77.2941 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 217 chmoth = 'DC4' x = 21.1198 y = 4.76184 z = 0 irot = 263 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 264 theta1 = 90 phi1 = 16.9412 theta2 = 84 phi2 = 106.941 theta3 = 6 phi3 = -73.0588 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 218 chmoth = 'DC4' x = 20.7105 y = 6.30859 z = 0 irot = 264 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 265 theta1 = 90 phi1 = 21.1765 theta2 = 84 phi2 = 111.176 theta3 = 6 phi3 = -68.8235 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 219 chmoth = 'DC4' x = 20.188 y = 7.82088 z = 0 irot = 265 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 266 theta1 = 90 phi1 = 25.4118 theta2 = 84 phi2 = 115.412 theta3 = 6 phi3 = -64.5882 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 220 chmoth = 'DC4' x = 19.5553 y = 9.29046 z = 0 irot = 266 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 267 theta1 = 90 phi1 = 29.6471 theta2 = 84 phi2 = 119.647 theta3 = 6 phi3 = -60.3529 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 221 chmoth = 'DC4' x = 18.8158 y = 10.7093 z = 0 irot = 267 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 268 theta1 = 90 phi1 = 33.8824 theta2 = 84 phi2 = 123.882 theta3 = 6 phi3 = -56.1176 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 222 chmoth = 'DC4' x = 17.9735 y = 12.0696 z = 0 irot = 268 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 269 theta1 = 90 phi1 = 38.1176 theta2 = 84 phi2 = 128.118 theta3 = 6 phi3 = -51.8824 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 223 chmoth = 'DC4' x = 17.033 y = 13.3641 z = 0 irot = 269 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 270 theta1 = 90 phi1 = 42.3529 theta2 = 84 phi2 = 132.353 theta3 = 6 phi3 = -47.6471 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 224 chmoth = 'DC4' x = 15.9995 y = 14.5855 z = 0 irot = 270 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 271 theta1 = 90 phi1 = 46.5882 theta2 = 84 phi2 = 136.588 theta3 = 6 phi3 = -43.4118 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 225 chmoth = 'DC4' x = 14.8787 y = 15.7273 z = 0 irot = 271 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 272 theta1 = 90 phi1 = 50.8235 theta2 = 84 phi2 = 140.824 theta3 = 6 phi3 = -39.1765 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 226 chmoth = 'DC4' x = 13.6765 y = 16.7832 z = 0 irot = 272 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 273 theta1 = 90 phi1 = 55.0588 theta2 = 84 phi2 = 145.059 theta3 = 6 phi3 = -34.9412 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 227 chmoth = 'DC4' x = 12.3997 y = 17.7474 z = 0 irot = 273 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 274 theta1 = 90 phi1 = 59.2941 theta2 = 84 phi2 = 149.294 theta3 = 6 phi3 = -30.7059 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 228 chmoth = 'DC4' x = 11.0552 y = 18.6147 z = 0 irot = 274 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 275 theta1 = 90 phi1 = 63.5294 theta2 = 84 phi2 = 153.529 theta3 = 6 phi3 = -26.4706 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 229 chmoth = 'DC4' x = 9.65024 y = 19.3803 z = 0 irot = 275 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 276 theta1 = 90 phi1 = 67.7647 theta2 = 84 phi2 = 157.765 theta3 = 6 phi3 = -22.2353 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 230 chmoth = 'DC4' x = 8.1926 y = 20.0401 z = 0 irot = 276 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 277 theta1 = 90 phi1 = 72 theta2 = 84 phi2 = 162 theta3 = 6 phi3 = -18 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 231 chmoth = 'DC4' x = 6.69022 y = 20.5904 z = 0 irot = 277 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 278 theta1 = 90 phi1 = 76.2353 theta2 = 84 phi2 = 166.235 theta3 = 6 phi3 = -13.7647 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 232 chmoth = 'DC4' x = 5.1513 y = 21.0282 z = 0 irot = 278 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 279 theta1 = 90 phi1 = 80.4706 theta2 = 84 phi2 = 170.471 theta3 = 6 phi3 = -9.52941 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 233 chmoth = 'DC4' x = 3.58424 y = 21.3512 z = 0 irot = 279 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 280 theta1 = 90 phi1 = 84.7059 theta2 = 84 phi2 = 174.706 theta3 = 6 phi3 = -5.29412 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 234 chmoth = 'DC4' x = 1.99761 y = 21.5576 z = 0 irot = 280 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 281 theta1 = 90 phi1 = 88.9412 theta2 = 84 phi2 = 178.941 theta3 = 6 phi3 = -1.05882 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 235 chmoth = 'DC4' x = 0.400068 y = 21.6463 z = 0 irot = 281 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 282 theta1 = 90 phi1 = 93.1765 theta2 = 84 phi2 = -176.824 theta3 = 6 phi3 = 3.17647 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 236 chmoth = 'DC4' x = -1.19966 y = 21.6167 z = 0 irot = 282 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 283 theta1 = 90 phi1 = 97.4118 theta2 = 84 phi2 = -172.588 theta3 = 6 phi3 = 7.41176 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 237 chmoth = 'DC4' x = -2.79283 y = 21.4691 z = 0 irot = 283 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 284 theta1 = 90 phi1 = 101.647 theta2 = 84 phi2 = -168.353 theta3 = 6 phi3 = 11.6471 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 238 chmoth = 'DC4' x = -4.37075 y = 21.2042 z = 0 irot = 284 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 285 theta1 = 90 phi1 = 105.882 theta2 = 84 phi2 = -164.118 theta3 = 6 phi3 = 15.8824 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 239 chmoth = 'DC4' x = -5.9248 y = 20.8235 z = 0 irot = 285 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 286 theta1 = 90 phi1 = 110.118 theta2 = 84 phi2 = -159.882 theta3 = 6 phi3 = 20.1176 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 240 chmoth = 'DC4' x = -7.44649 y = 20.3291 z = 0 irot = 286 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 287 theta1 = 90 phi1 = 114.353 theta2 = 84 phi2 = -155.647 theta3 = 6 phi3 = 24.3529 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 241 chmoth = 'DC4' x = -8.92751 y = 19.7236 z = 0 irot = 287 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 288 theta1 = 90 phi1 = 118.588 theta2 = 84 phi2 = -151.412 theta3 = 6 phi3 = 28.5882 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 242 chmoth = 'DC4' x = -10.3598 y = 19.0105 z = 0 irot = 288 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 289 theta1 = 90 phi1 = 122.824 theta2 = 84 phi2 = -147.176 theta3 = 6 phi3 = 32.8235 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 243 chmoth = 'DC4' x = -11.7355 y = 18.1934 z = 0 irot = 289 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 290 theta1 = 90 phi1 = 127.059 theta2 = 84 phi2 = -142.941 theta3 = 6 phi3 = 37.0588 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 244 chmoth = 'DC4' x = -13.047 y = 17.2771 z = 0 irot = 290 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 291 theta1 = 90 phi1 = 131.294 theta2 = 84 phi2 = -138.706 theta3 = 6 phi3 = 41.2941 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 245 chmoth = 'DC4' x = -14.2874 y = 16.2663 z = 0 irot = 291 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 292 theta1 = 90 phi1 = 135.529 theta2 = 84 phi2 = -134.471 theta3 = 6 phi3 = 45.5294 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 246 chmoth = 'DC4' x = -15.4497 y = 15.1668 z = 0 irot = 292 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 293 theta1 = 90 phi1 = 139.765 theta2 = 84 phi2 = -130.235 theta3 = 6 phi3 = 49.7647 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 247 chmoth = 'DC4' x = -16.5276 y = 13.9843 z = 0 irot = 293 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 294 theta1 = 90 phi1 = 144 theta2 = 84 phi2 = -126 theta3 = 6 phi3 = 54 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 248 chmoth = 'DC4' x = -17.5152 y = 12.7256 z = 0 irot = 294 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 295 theta1 = 90 phi1 = 148.235 theta2 = 84 phi2 = -121.765 theta3 = 6 phi3 = 58.2353 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 249 chmoth = 'DC4' x = -18.4072 y = 11.3973 z = 0 irot = 295 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 296 theta1 = 90 phi1 = 152.471 theta2 = 84 phi2 = -117.529 theta3 = 6 phi3 = 62.4706 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 250 chmoth = 'DC4' x = -19.1987 y = 10.0067 z = 0 irot = 296 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 297 theta1 = 90 phi1 = 156.706 theta2 = 84 phi2 = -113.294 theta3 = 6 phi3 = 66.7059 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 251 chmoth = 'DC4' x = -19.8852 y = 8.56152 z = 0 irot = 297 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 298 theta1 = 90 phi1 = 160.941 theta2 = 84 phi2 = -109.059 theta3 = 6 phi3 = 70.9412 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 252 chmoth = 'DC4' x = -20.4632 y = 7.06956 z = 0 irot = 298 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 299 theta1 = 90 phi1 = 165.176 theta2 = 84 phi2 = -104.824 theta3 = 6 phi3 = 75.1765 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 253 chmoth = 'DC4' x = -20.9295 y = 5.539 z = 0 irot = 299 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 300 theta1 = 90 phi1 = 169.412 theta2 = 84 phi2 = -100.588 theta3 = 6 phi3 = 79.4118 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 254 chmoth = 'DC4' x = -21.2814 y = 3.97818 z = 0 irot = 300 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 301 theta1 = 90 phi1 = 173.647 theta2 = 84 phi2 = -96.3529 theta3 = 6 phi3 = 83.6471 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 255 chmoth = 'DC4' x = -21.5171 y = 2.39563 z = 0 irot = 301 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 302 theta1 = 90 phi1 = 177.882 theta2 = 84 phi2 = -92.1176 theta3 = 6 phi3 = 87.8824 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 256 chmoth = 'DC4' x = -21.6352 y = 0.8 z = 0 irot = 302 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 303 theta1 = 90 phi1 = -177.882 theta2 = 84 phi2 = -87.8824 theta3 = 6 phi3 = 92.1176 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 257 chmoth = 'DC4' x = -21.6352 y = -0.8 z = 0 irot = 303 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 304 theta1 = 90 phi1 = -173.647 theta2 = 84 phi2 = -83.6471 theta3 = 6 phi3 = 96.3529 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 258 chmoth = 'DC4' x = -21.5171 y = -2.39563 z = 0 irot = 304 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 305 theta1 = 90 phi1 = -169.412 theta2 = 84 phi2 = -79.4118 theta3 = 6 phi3 = 100.588 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 259 chmoth = 'DC4' x = -21.2814 y = -3.97818 z = 0 irot = 305 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 306 theta1 = 90 phi1 = -165.176 theta2 = 84 phi2 = -75.1765 theta3 = 6 phi3 = 104.824 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 260 chmoth = 'DC4' x = -20.9295 y = -5.539 z = 0 irot = 306 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 307 theta1 = 90 phi1 = -160.941 theta2 = 84 phi2 = -70.9412 theta3 = 6 phi3 = 109.059 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 261 chmoth = 'DC4' x = -20.4632 y = -7.06956 z = 0 irot = 307 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 308 theta1 = 90 phi1 = -156.706 theta2 = 84 phi2 = -66.7059 theta3 = 6 phi3 = 113.294 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 262 chmoth = 'DC4' x = -19.8852 y = -8.56152 z = 0 irot = 308 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 309 theta1 = 90 phi1 = -152.471 theta2 = 84 phi2 = -62.4706 theta3 = 6 phi3 = 117.529 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 263 chmoth = 'DC4' x = -19.1987 y = -10.0067 z = 0 irot = 309 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 310 theta1 = 90 phi1 = -148.235 theta2 = 84 phi2 = -58.2353 theta3 = 6 phi3 = 121.765 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 264 chmoth = 'DC4' x = -18.4072 y = -11.3973 z = 0 irot = 310 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 311 theta1 = 90 phi1 = -144 theta2 = 84 phi2 = -54 theta3 = 6 phi3 = 126 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 265 chmoth = 'DC4' x = -17.5152 y = -12.7256 z = 0 irot = 311 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 312 theta1 = 90 phi1 = -139.765 theta2 = 84 phi2 = -49.7647 theta3 = 6 phi3 = 130.235 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 266 chmoth = 'DC4' x = -16.5276 y = -13.9843 z = 0 irot = 312 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 313 theta1 = 90 phi1 = -135.529 theta2 = 84 phi2 = -45.5294 theta3 = 6 phi3 = 134.471 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 267 chmoth = 'DC4' x = -15.4497 y = -15.1668 z = 0 irot = 313 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 314 theta1 = 90 phi1 = -131.294 theta2 = 84 phi2 = -41.2941 theta3 = 6 phi3 = 138.706 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 268 chmoth = 'DC4' x = -14.2874 y = -16.2663 z = 0 irot = 314 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 315 theta1 = 90 phi1 = -127.059 theta2 = 84 phi2 = -37.0588 theta3 = 6 phi3 = 142.941 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 269 chmoth = 'DC4' x = -13.047 y = -17.2771 z = 0 irot = 315 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 316 theta1 = 90 phi1 = -122.824 theta2 = 84 phi2 = -32.8235 theta3 = 6 phi3 = 147.176 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 270 chmoth = 'DC4' x = -11.7355 y = -18.1934 z = 0 irot = 316 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 317 theta1 = 90 phi1 = -118.588 theta2 = 84 phi2 = -28.5882 theta3 = 6 phi3 = 151.412 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 271 chmoth = 'DC4' x = -10.3598 y = -19.0105 z = 0 irot = 317 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 318 theta1 = 90 phi1 = -114.353 theta2 = 84 phi2 = -24.3529 theta3 = 6 phi3 = 155.647 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 272 chmoth = 'DC4' x = -8.92751 y = -19.7236 z = 0 irot = 318 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 319 theta1 = 90 phi1 = -110.118 theta2 = 84 phi2 = -20.1176 theta3 = 6 phi3 = 159.882 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 273 chmoth = 'DC4' x = -7.44649 y = -20.3291 z = 0 irot = 319 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 320 theta1 = 90 phi1 = -105.882 theta2 = 84 phi2 = -15.8824 theta3 = 6 phi3 = 164.118 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 274 chmoth = 'DC4' x = -5.9248 y = -20.8235 z = 0 irot = 320 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 321 theta1 = 90 phi1 = -101.647 theta2 = 84 phi2 = -11.6471 theta3 = 6 phi3 = 168.353 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 275 chmoth = 'DC4' x = -4.37075 y = -21.2042 z = 0 irot = 321 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 322 theta1 = 90 phi1 = -97.4118 theta2 = 84 phi2 = -7.41176 theta3 = 6 phi3 = 172.588 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 276 chmoth = 'DC4' x = -2.79283 y = -21.4691 z = 0 irot = 322 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 323 theta1 = 90 phi1 = -93.1765 theta2 = 84 phi2 = -3.17647 theta3 = 6 phi3 = 176.824 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 277 chmoth = 'DC4' x = -1.19966 y = -21.6167 z = 0 irot = 323 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 324 theta1 = 90 phi1 = -88.9412 theta2 = 84 phi2 = 1.05882 theta3 = 6 phi3 = -178.941 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 278 chmoth = 'DC4' x = 0.400068 y = -21.6463 z = 0 irot = 324 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 325 theta1 = 90 phi1 = -84.7059 theta2 = 84 phi2 = 5.29412 theta3 = 6 phi3 = -174.706 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 279 chmoth = 'DC4' x = 1.99761 y = -21.5576 z = 0 irot = 325 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 326 theta1 = 90 phi1 = -80.4706 theta2 = 84 phi2 = 9.52941 theta3 = 6 phi3 = -170.471 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 280 chmoth = 'DC4' x = 3.58424 y = -21.3512 z = 0 irot = 326 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 327 theta1 = 90 phi1 = -76.2353 theta2 = 84 phi2 = 13.7647 theta3 = 6 phi3 = -166.235 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 281 chmoth = 'DC4' x = 5.1513 y = -21.0282 z = 0 irot = 327 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 328 theta1 = 90 phi1 = -72 theta2 = 84 phi2 = 18 theta3 = 6 phi3 = -162 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 282 chmoth = 'DC4' x = 6.69022 y = -20.5904 z = 0 irot = 328 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 329 theta1 = 90 phi1 = -67.7647 theta2 = 84 phi2 = 22.2353 theta3 = 6 phi3 = -157.765 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 283 chmoth = 'DC4' x = 8.1926 y = -20.0401 z = 0 irot = 329 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 330 theta1 = 90 phi1 = -63.5294 theta2 = 84 phi2 = 26.4706 theta3 = 6 phi3 = -153.529 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 284 chmoth = 'DC4' x = 9.65024 y = -19.3803 z = 0 irot = 330 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 331 theta1 = 90 phi1 = -59.2941 theta2 = 84 phi2 = 30.7059 theta3 = 6 phi3 = -149.294 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 285 chmoth = 'DC4' x = 11.0552 y = -18.6147 z = 0 irot = 331 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 332 theta1 = 90 phi1 = -55.0588 theta2 = 84 phi2 = 34.9412 theta3 = 6 phi3 = -145.059 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 286 chmoth = 'DC4' x = 12.3997 y = -17.7474 z = 0 irot = 332 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 333 theta1 = 90 phi1 = -50.8235 theta2 = 84 phi2 = 39.1765 theta3 = 6 phi3 = -140.824 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 287 chmoth = 'DC4' x = 13.6765 y = -16.7832 z = 0 irot = 333 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 334 theta1 = 90 phi1 = -46.5882 theta2 = 84 phi2 = 43.4118 theta3 = 6 phi3 = -136.588 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 288 chmoth = 'DC4' x = 14.8787 y = -15.7273 z = 0 irot = 334 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 335 theta1 = 90 phi1 = -42.3529 theta2 = 84 phi2 = 47.6471 theta3 = 6 phi3 = -132.353 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 289 chmoth = 'DC4' x = 15.9995 y = -14.5855 z = 0 irot = 335 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 336 theta1 = 90 phi1 = -38.1176 theta2 = 84 phi2 = 51.8824 theta3 = 6 phi3 = -128.118 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 290 chmoth = 'DC4' x = 17.033 y = -13.3641 z = 0 irot = 336 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 337 theta1 = 90 phi1 = -33.8824 theta2 = 84 phi2 = 56.1176 theta3 = 6 phi3 = -123.882 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 291 chmoth = 'DC4' x = 17.9735 y = -12.0696 z = 0 irot = 337 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 338 theta1 = 90 phi1 = -29.6471 theta2 = 84 phi2 = 60.3529 theta3 = 6 phi3 = -119.647 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 292 chmoth = 'DC4' x = 18.8158 y = -10.7093 z = 0 irot = 338 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 339 theta1 = 90 phi1 = -25.4118 theta2 = 84 phi2 = 64.5882 theta3 = 6 phi3 = -115.412 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 293 chmoth = 'DC4' x = 19.5553 y = -9.29046 z = 0 irot = 339 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 340 theta1 = 90 phi1 = -21.1765 theta2 = 84 phi2 = 68.8235 theta3 = 6 phi3 = -111.176 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 294 chmoth = 'DC4' x = 20.188 y = -7.82088 z = 0 irot = 340 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 341 theta1 = 90 phi1 = -16.9412 theta2 = 84 phi2 = 73.0588 theta3 = 6 phi3 = -106.941 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 295 chmoth = 'DC4' x = 20.7105 y = -6.30859 z = 0 irot = 341 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 342 theta1 = 90 phi1 = -12.7059 theta2 = 84 phi2 = 77.2941 theta3 = 6 phi3 = -102.706 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 296 chmoth = 'DC4' x = 21.1198 y = -4.76184 z = 0 irot = 342 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 343 theta1 = 90 phi1 = -8.47059 theta2 = 84 phi2 = 81.5294 theta3 = 6 phi3 = -98.4706 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 297 chmoth = 'DC4' x = 21.4138 y = -3.18908 z = 0 irot = 343 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 344 theta1 = 90 phi1 = -4.23529 theta2 = 84 phi2 = 85.7647 theta3 = 6 phi3 = -94.2353 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 298 chmoth = 'DC4' x = 21.5909 y = -1.59891 z = 0 irot = 344 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 4 chmoth = 'DC4' x = 0 y = 0 z = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 4 chmoth = 'DC4' x = 0 y = 0 z = 75.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 121 natmed = 'DC8 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 = 'DC8' chshap = 'TUBE' nmed = 121 npar = 3 par(1) = 24.374 par(2) = 26.054 par(3) = 76.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.141) stop 'consistency check #1 failed' chname = 'DC8' 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 = 'DC8' ndiv = 99 iaxis = 2 step = 3.63636 c0 = -1.818 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 122 natmed = 'DS8 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 = 'DS8' chshap = 'TUBS' nmed = 122 npar = 5 par(1) = 24.37 par(2) = 26.05 par(3) = 76.25 par(4) = -1.818 par(5) = 1.818 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.143) stop 'consistency check #1 failed' chname = 'DS8' 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 = 'DS8' x = 25.214 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 5 chmoth = 'DS8' x = 0 y = 0 z = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 5 chmoth = 'DS8' x = 0 y = 0 z = 75.2 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) = 26.157 par(2) = 27.837 par(3) = 76.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 = 106 iaxis = 2 step = 3.39623 c0 = -1.698 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) = 26.15 par(2) = 27.83 par(3) = 76.25 par(4) = -1.698 par(5) = 1.698 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 = 26.997 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 = -75.45 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 = 75.2 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) = 27.939 par(2) = 29.619 par(3) = 76.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 = 113 iaxis = 2 step = 3.18584 c0 = -1.593 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) = 27.94 par(2) = 29.62 par(3) = 76.25 par(4) = -1.593 par(5) = 1.593 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 = 28.779 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 = -75.45 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 = 75.2 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) = 29.721 par(2) = 31.401 par(3) = 76.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 = 120 iaxis = 2 step = 3 c0 = -1.5 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) = 29.72 par(2) = 31.4 par(3) = 76.25 par(4) = -1.5 par(5) = 1.5 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 = 30.561 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 = -75.45 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 = 75.2 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) = 31.504 par(2) = 33.184 par(3) = 76.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 = 127 iaxis = 2 step = 2.83465 c0 = -1.417 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) = 31.5 par(2) = 33.18 par(3) = 76.25 par(4) = -1.417 par(5) = 1.418 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 = 32.344 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 = -75.45 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 = 75.2 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) = 33.286 par(2) = 41.092 par(3) = 76.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) irot = 345 theta1 = 90 phi1 = 0 theta2 = 96 phi2 = 90 theta3 = 6 phi3 = 90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 299 chmoth = 'DC13' x = 34.126 y = 0 z = 0 irot = 345 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 346 theta1 = 90 phi1 = 2.68657 theta2 = 96 phi2 = 92.6866 theta3 = 6 phi3 = 92.6866 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 300 chmoth = 'DC13' x = 34.0885 y = 1.59956 z = 0 irot = 346 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 347 theta1 = 90 phi1 = 5.37313 theta2 = 96 phi2 = 95.3731 theta3 = 6 phi3 = 95.3731 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 301 chmoth = 'DC13' x = 33.976 y = 3.19561 z = 0 irot = 347 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 348 theta1 = 90 phi1 = 8.0597 theta2 = 96 phi2 = 98.0597 theta3 = 6 phi3 = 98.0597 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 302 chmoth = 'DC13' x = 33.7889 y = 4.78463 z = 0 irot = 348 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 349 theta1 = 90 phi1 = 10.7463 theta2 = 96 phi2 = 100.746 theta3 = 6 phi3 = 100.746 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 303 chmoth = 'DC13' x = 33.5275 y = 6.36314 z = 0 irot = 349 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 350 theta1 = 90 phi1 = 13.4328 theta2 = 96 phi2 = 103.433 theta3 = 6 phi3 = 103.433 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 304 chmoth = 'DC13' x = 33.1924 y = 7.92765 z = 0 irot = 350 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 351 theta1 = 90 phi1 = 16.1194 theta2 = 96 phi2 = 106.119 theta3 = 6 phi3 = 106.119 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 305 chmoth = 'DC13' x = 32.7843 y = 9.47474 z = 0 irot = 351 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 352 theta1 = 90 phi1 = 18.806 theta2 = 96 phi2 = 108.806 theta3 = 6 phi3 = 108.806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 306 chmoth = 'DC13' x = 32.3042 y = 11.001 z = 0 irot = 352 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 353 theta1 = 90 phi1 = 21.4925 theta2 = 96 phi2 = 111.493 theta3 = 6 phi3 = 111.493 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 307 chmoth = 'DC13' x = 31.7531 y = 12.5031 z = 0 irot = 353 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 354 theta1 = 90 phi1 = 24.1791 theta2 = 96 phi2 = 114.179 theta3 = 6 phi3 = 114.179 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 308 chmoth = 'DC13' x = 31.1321 y = 13.9777 z = 0 irot = 354 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 355 theta1 = 90 phi1 = 26.8657 theta2 = 96 phi2 = 116.866 theta3 = 6 phi3 = 116.866 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 309 chmoth = 'DC13' x = 30.4427 y = 15.4216 z = 0 irot = 355 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 356 theta1 = 90 phi1 = 29.5522 theta2 = 96 phi2 = 119.552 theta3 = 6 phi3 = 119.552 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 310 chmoth = 'DC13' x = 29.6864 y = 16.8315 z = 0 irot = 356 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 357 theta1 = 90 phi1 = 32.2388 theta2 = 96 phi2 = 122.239 theta3 = 6 phi3 = 122.239 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 311 chmoth = 'DC13' x = 28.8649 y = 18.2045 z = 0 irot = 357 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 358 theta1 = 90 phi1 = 34.9254 theta2 = 96 phi2 = 124.925 theta3 = 6 phi3 = 124.925 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 312 chmoth = 'DC13' x = 27.9799 y = 19.5374 z = 0 irot = 358 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 359 theta1 = 90 phi1 = 37.6119 theta2 = 96 phi2 = 127.612 theta3 = 6 phi3 = 127.612 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 313 chmoth = 'DC13' x = 27.0333 y = 20.8274 z = 0 irot = 359 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 360 theta1 = 90 phi1 = 40.2985 theta2 = 96 phi2 = 130.299 theta3 = 6 phi3 = 130.299 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 314 chmoth = 'DC13' x = 26.0274 y = 22.0717 z = 0 irot = 360 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 361 theta1 = 90 phi1 = 42.9851 theta2 = 96 phi2 = 132.985 theta3 = 6 phi3 = 132.985 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 315 chmoth = 'DC13' x = 24.9642 y = 23.2674 z = 0 irot = 361 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 362 theta1 = 90 phi1 = 45.6716 theta2 = 96 phi2 = 135.672 theta3 = 6 phi3 = 135.672 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 316 chmoth = 'DC13' x = 23.8462 y = 24.4119 z = 0 irot = 362 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 363 theta1 = 90 phi1 = 48.3582 theta2 = 96 phi2 = 138.358 theta3 = 6 phi3 = 138.358 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 317 chmoth = 'DC13' x = 22.6758 y = 25.5028 z = 0 irot = 363 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 364 theta1 = 90 phi1 = 51.0448 theta2 = 96 phi2 = 141.045 theta3 = 6 phi3 = 141.045 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 318 chmoth = 'DC13' x = 21.4555 y = 26.5377 z = 0 irot = 364 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 365 theta1 = 90 phi1 = 53.7313 theta2 = 96 phi2 = 143.731 theta3 = 6 phi3 = 143.731 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 319 chmoth = 'DC13' x = 20.188 y = 27.5142 z = 0 irot = 365 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 366 theta1 = 90 phi1 = 56.4179 theta2 = 96 phi2 = 146.418 theta3 = 6 phi3 = 146.418 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 320 chmoth = 'DC13' x = 18.8762 y = 28.4302 z = 0 irot = 366 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 367 theta1 = 90 phi1 = 59.1045 theta2 = 96 phi2 = 149.104 theta3 = 6 phi3 = 149.104 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 321 chmoth = 'DC13' x = 17.5228 y = 29.2837 z = 0 irot = 367 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 368 theta1 = 90 phi1 = 61.791 theta2 = 96 phi2 = 151.791 theta3 = 6 phi3 = 151.791 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 322 chmoth = 'DC13' x = 16.131 y = 30.0728 z = 0 irot = 368 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 369 theta1 = 90 phi1 = 64.4776 theta2 = 96 phi2 = 154.478 theta3 = 6 phi3 = 154.478 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 323 chmoth = 'DC13' x = 14.7037 y = 30.7959 z = 0 irot = 369 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 370 theta1 = 90 phi1 = 67.1642 theta2 = 96 phi2 = 157.164 theta3 = 6 phi3 = 157.164 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 324 chmoth = 'DC13' x = 13.244 y = 31.4512 z = 0 irot = 370 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 371 theta1 = 90 phi1 = 69.8507 theta2 = 96 phi2 = 159.851 theta3 = 6 phi3 = 159.851 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 325 chmoth = 'DC13' x = 11.7553 y = 32.0374 z = 0 irot = 371 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 372 theta1 = 90 phi1 = 72.5373 theta2 = 96 phi2 = 162.537 theta3 = 6 phi3 = 162.537 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 326 chmoth = 'DC13' x = 10.2407 y = 32.5532 z = 0 irot = 372 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 373 theta1 = 90 phi1 = 75.2239 theta2 = 96 phi2 = 165.224 theta3 = 6 phi3 = 165.224 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 327 chmoth = 'DC13' x = 8.70359 y = 32.9974 z = 0 irot = 373 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 374 theta1 = 90 phi1 = 77.9104 theta2 = 96 phi2 = 167.91 theta3 = 6 phi3 = 167.91 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 328 chmoth = 'DC13' x = 7.14736 y = 33.3691 z = 0 irot = 374 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 375 theta1 = 90 phi1 = 80.597 theta2 = 96 phi2 = 170.597 theta3 = 6 phi3 = 170.597 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 329 chmoth = 'DC13' x = 5.57542 y = 33.6675 z = 0 irot = 375 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 376 theta1 = 90 phi1 = 83.2836 theta2 = 96 phi2 = 173.284 theta3 = 6 phi3 = 173.284 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 330 chmoth = 'DC13' x = 3.99122 y = 33.8918 z = 0 irot = 376 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 377 theta1 = 90 phi1 = 85.9701 theta2 = 96 phi2 = 175.97 theta3 = 6 phi3 = 175.97 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 331 chmoth = 'DC13' x = 2.39825 y = 34.0416 z = 0 irot = 377 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 378 theta1 = 90 phi1 = 88.6567 theta2 = 96 phi2 = 178.657 theta3 = 6 phi3 = 178.657 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 332 chmoth = 'DC13' x = 0.800001 y = 34.1166 z = 0 irot = 378 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 379 theta1 = 90 phi1 = 91.3433 theta2 = 96 phi2 = -178.657 theta3 = 6 phi3 = -178.657 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 333 chmoth = 'DC13' x = -0.800001 y = 34.1166 z = 0 irot = 379 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 380 theta1 = 90 phi1 = 94.0299 theta2 = 96 phi2 = -175.97 theta3 = 6 phi3 = -175.97 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 334 chmoth = 'DC13' x = -2.39825 y = 34.0416 z = 0 irot = 380 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 381 theta1 = 90 phi1 = 96.7164 theta2 = 96 phi2 = -173.284 theta3 = 6 phi3 = -173.284 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 335 chmoth = 'DC13' x = -3.99122 y = 33.8918 z = 0 irot = 381 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 382 theta1 = 90 phi1 = 99.403 theta2 = 96 phi2 = -170.597 theta3 = 6 phi3 = -170.597 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 336 chmoth = 'DC13' x = -5.57542 y = 33.6675 z = 0 irot = 382 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 383 theta1 = 90 phi1 = 102.09 theta2 = 96 phi2 = -167.91 theta3 = 6 phi3 = -167.91 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 337 chmoth = 'DC13' x = -7.14736 y = 33.3691 z = 0 irot = 383 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 384 theta1 = 90 phi1 = 104.776 theta2 = 96 phi2 = -165.224 theta3 = 6 phi3 = -165.224 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 338 chmoth = 'DC13' x = -8.70359 y = 32.9974 z = 0 irot = 384 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 385 theta1 = 90 phi1 = 107.463 theta2 = 96 phi2 = -162.537 theta3 = 6 phi3 = -162.537 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 339 chmoth = 'DC13' x = -10.2407 y = 32.5532 z = 0 irot = 385 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 386 theta1 = 90 phi1 = 110.149 theta2 = 96 phi2 = -159.851 theta3 = 6 phi3 = -159.851 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 340 chmoth = 'DC13' x = -11.7553 y = 32.0374 z = 0 irot = 386 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 387 theta1 = 90 phi1 = 112.836 theta2 = 96 phi2 = -157.164 theta3 = 6 phi3 = -157.164 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 341 chmoth = 'DC13' x = -13.244 y = 31.4512 z = 0 irot = 387 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 388 theta1 = 90 phi1 = 115.522 theta2 = 96 phi2 = -154.478 theta3 = 6 phi3 = -154.478 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 342 chmoth = 'DC13' x = -14.7037 y = 30.7959 z = 0 irot = 388 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 389 theta1 = 90 phi1 = 118.209 theta2 = 96 phi2 = -151.791 theta3 = 6 phi3 = -151.791 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 343 chmoth = 'DC13' x = -16.131 y = 30.0728 z = 0 irot = 389 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 390 theta1 = 90 phi1 = 120.896 theta2 = 96 phi2 = -149.104 theta3 = 6 phi3 = -149.104 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 344 chmoth = 'DC13' x = -17.5228 y = 29.2837 z = 0 irot = 390 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 391 theta1 = 90 phi1 = 123.582 theta2 = 96 phi2 = -146.418 theta3 = 6 phi3 = -146.418 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 345 chmoth = 'DC13' x = -18.8762 y = 28.4302 z = 0 irot = 391 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 392 theta1 = 90 phi1 = 126.269 theta2 = 96 phi2 = -143.731 theta3 = 6 phi3 = -143.731 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 346 chmoth = 'DC13' x = -20.188 y = 27.5142 z = 0 irot = 392 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 393 theta1 = 90 phi1 = 128.955 theta2 = 96 phi2 = -141.045 theta3 = 6 phi3 = -141.045 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 347 chmoth = 'DC13' x = -21.4555 y = 26.5377 z = 0 irot = 393 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 394 theta1 = 90 phi1 = 131.642 theta2 = 96 phi2 = -138.358 theta3 = 6 phi3 = -138.358 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 348 chmoth = 'DC13' x = -22.6758 y = 25.5028 z = 0 irot = 394 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 395 theta1 = 90 phi1 = 134.328 theta2 = 96 phi2 = -135.672 theta3 = 6 phi3 = -135.672 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 349 chmoth = 'DC13' x = -23.8462 y = 24.4119 z = 0 irot = 395 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 396 theta1 = 90 phi1 = 137.015 theta2 = 96 phi2 = -132.985 theta3 = 6 phi3 = -132.985 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 350 chmoth = 'DC13' x = -24.9642 y = 23.2674 z = 0 irot = 396 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 397 theta1 = 90 phi1 = 139.701 theta2 = 96 phi2 = -130.299 theta3 = 6 phi3 = -130.299 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 351 chmoth = 'DC13' x = -26.0274 y = 22.0717 z = 0 irot = 397 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 398 theta1 = 90 phi1 = 142.388 theta2 = 96 phi2 = -127.612 theta3 = 6 phi3 = -127.612 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 352 chmoth = 'DC13' x = -27.0333 y = 20.8274 z = 0 irot = 398 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 399 theta1 = 90 phi1 = 145.075 theta2 = 96 phi2 = -124.925 theta3 = 6 phi3 = -124.925 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 353 chmoth = 'DC13' x = -27.9799 y = 19.5374 z = 0 irot = 399 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 400 theta1 = 90 phi1 = 147.761 theta2 = 96 phi2 = -122.239 theta3 = 6 phi3 = -122.239 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 354 chmoth = 'DC13' x = -28.8649 y = 18.2045 z = 0 irot = 400 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 401 theta1 = 90 phi1 = 150.448 theta2 = 96 phi2 = -119.552 theta3 = 6 phi3 = -119.552 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 355 chmoth = 'DC13' x = -29.6864 y = 16.8315 z = 0 irot = 401 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 402 theta1 = 90 phi1 = 153.134 theta2 = 96 phi2 = -116.866 theta3 = 6 phi3 = -116.866 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 356 chmoth = 'DC13' x = -30.4427 y = 15.4216 z = 0 irot = 402 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 403 theta1 = 90 phi1 = 155.821 theta2 = 96 phi2 = -114.179 theta3 = 6 phi3 = -114.179 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 357 chmoth = 'DC13' x = -31.1321 y = 13.9777 z = 0 irot = 403 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 404 theta1 = 90 phi1 = 158.507 theta2 = 96 phi2 = -111.493 theta3 = 6 phi3 = -111.493 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 358 chmoth = 'DC13' x = -31.7531 y = 12.5031 z = 0 irot = 404 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 405 theta1 = 90 phi1 = 161.194 theta2 = 96 phi2 = -108.806 theta3 = 6 phi3 = -108.806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 359 chmoth = 'DC13' x = -32.3042 y = 11.001 z = 0 irot = 405 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 406 theta1 = 90 phi1 = 163.881 theta2 = 96 phi2 = -106.119 theta3 = 6 phi3 = -106.119 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 360 chmoth = 'DC13' x = -32.7843 y = 9.47474 z = 0 irot = 406 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 407 theta1 = 90 phi1 = 166.567 theta2 = 96 phi2 = -103.433 theta3 = 6 phi3 = -103.433 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 361 chmoth = 'DC13' x = -33.1924 y = 7.92765 z = 0 irot = 407 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 408 theta1 = 90 phi1 = 169.254 theta2 = 96 phi2 = -100.746 theta3 = 6 phi3 = -100.746 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 362 chmoth = 'DC13' x = -33.5275 y = 6.36314 z = 0 irot = 408 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 409 theta1 = 90 phi1 = 171.94 theta2 = 96 phi2 = -98.0597 theta3 = 6 phi3 = -98.0597 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 363 chmoth = 'DC13' x = -33.7889 y = 4.78463 z = 0 irot = 409 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 410 theta1 = 90 phi1 = 174.627 theta2 = 96 phi2 = -95.3731 theta3 = 6 phi3 = -95.3731 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 364 chmoth = 'DC13' x = -33.976 y = 3.19561 z = 0 irot = 410 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 411 theta1 = 90 phi1 = 177.313 theta2 = 96 phi2 = -92.6866 theta3 = 6 phi3 = -92.6866 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 365 chmoth = 'DC13' x = -34.0885 y = 1.59956 z = 0 irot = 411 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 412 theta1 = 90 phi1 = -180 theta2 = 96 phi2 = -90 theta3 = 6 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 366 chmoth = 'DC13' x = -34.126 y = 4.17909e-15 z = 0 irot = 412 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 413 theta1 = 90 phi1 = -177.313 theta2 = 96 phi2 = -87.3134 theta3 = 6 phi3 = -87.3134 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 367 chmoth = 'DC13' x = -34.0885 y = -1.59956 z = 0 irot = 413 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 414 theta1 = 90 phi1 = -174.627 theta2 = 96 phi2 = -84.6269 theta3 = 6 phi3 = -84.6269 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 368 chmoth = 'DC13' x = -33.976 y = -3.19561 z = 0 irot = 414 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 415 theta1 = 90 phi1 = -171.94 theta2 = 96 phi2 = -81.9403 theta3 = 6 phi3 = -81.9403 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 369 chmoth = 'DC13' x = -33.7889 y = -4.78463 z = 0 irot = 415 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 416 theta1 = 90 phi1 = -169.254 theta2 = 96 phi2 = -79.2537 theta3 = 6 phi3 = -79.2537 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 370 chmoth = 'DC13' x = -33.5275 y = -6.36314 z = 0 irot = 416 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 417 theta1 = 90 phi1 = -166.567 theta2 = 96 phi2 = -76.5672 theta3 = 6 phi3 = -76.5672 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 371 chmoth = 'DC13' x = -33.1924 y = -7.92765 z = 0 irot = 417 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 418 theta1 = 90 phi1 = -163.881 theta2 = 96 phi2 = -73.8806 theta3 = 6 phi3 = -73.8806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 372 chmoth = 'DC13' x = -32.7843 y = -9.47474 z = 0 irot = 418 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 419 theta1 = 90 phi1 = -161.194 theta2 = 96 phi2 = -71.194 theta3 = 6 phi3 = -71.194 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 373 chmoth = 'DC13' x = -32.3042 y = -11.001 z = 0 irot = 419 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 420 theta1 = 90 phi1 = -158.507 theta2 = 96 phi2 = -68.5075 theta3 = 6 phi3 = -68.5075 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 374 chmoth = 'DC13' x = -31.7531 y = -12.5031 z = 0 irot = 420 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 421 theta1 = 90 phi1 = -155.821 theta2 = 96 phi2 = -65.8209 theta3 = 6 phi3 = -65.8209 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 375 chmoth = 'DC13' x = -31.1321 y = -13.9777 z = 0 irot = 421 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 422 theta1 = 90 phi1 = -153.134 theta2 = 96 phi2 = -63.1343 theta3 = 6 phi3 = -63.1343 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 376 chmoth = 'DC13' x = -30.4427 y = -15.4216 z = 0 irot = 422 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 423 theta1 = 90 phi1 = -150.448 theta2 = 96 phi2 = -60.4478 theta3 = 6 phi3 = -60.4478 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 377 chmoth = 'DC13' x = -29.6864 y = -16.8315 z = 0 irot = 423 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 424 theta1 = 90 phi1 = -147.761 theta2 = 96 phi2 = -57.7612 theta3 = 6 phi3 = -57.7612 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 378 chmoth = 'DC13' x = -28.8649 y = -18.2045 z = 0 irot = 424 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 425 theta1 = 90 phi1 = -145.075 theta2 = 96 phi2 = -55.0746 theta3 = 6 phi3 = -55.0746 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 379 chmoth = 'DC13' x = -27.9799 y = -19.5374 z = 0 irot = 425 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 426 theta1 = 90 phi1 = -142.388 theta2 = 96 phi2 = -52.3881 theta3 = 6 phi3 = -52.3881 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 380 chmoth = 'DC13' x = -27.0333 y = -20.8274 z = 0 irot = 426 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 427 theta1 = 90 phi1 = -139.701 theta2 = 96 phi2 = -49.7015 theta3 = 6 phi3 = -49.7015 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 381 chmoth = 'DC13' x = -26.0274 y = -22.0717 z = 0 irot = 427 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 428 theta1 = 90 phi1 = -137.015 theta2 = 96 phi2 = -47.0149 theta3 = 6 phi3 = -47.0149 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 382 chmoth = 'DC13' x = -24.9642 y = -23.2674 z = 0 irot = 428 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 429 theta1 = 90 phi1 = -134.328 theta2 = 96 phi2 = -44.3284 theta3 = 6 phi3 = -44.3284 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 383 chmoth = 'DC13' x = -23.8462 y = -24.4119 z = 0 irot = 429 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 430 theta1 = 90 phi1 = -131.642 theta2 = 96 phi2 = -41.6418 theta3 = 6 phi3 = -41.6418 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 384 chmoth = 'DC13' x = -22.6758 y = -25.5028 z = 0 irot = 430 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 431 theta1 = 90 phi1 = -128.955 theta2 = 96 phi2 = -38.9552 theta3 = 6 phi3 = -38.9552 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 385 chmoth = 'DC13' x = -21.4555 y = -26.5377 z = 0 irot = 431 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 432 theta1 = 90 phi1 = -126.269 theta2 = 96 phi2 = -36.2687 theta3 = 6 phi3 = -36.2687 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 386 chmoth = 'DC13' x = -20.188 y = -27.5142 z = 0 irot = 432 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 433 theta1 = 90 phi1 = -123.582 theta2 = 96 phi2 = -33.5821 theta3 = 6 phi3 = -33.5821 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 387 chmoth = 'DC13' x = -18.8762 y = -28.4302 z = 0 irot = 433 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 434 theta1 = 90 phi1 = -120.896 theta2 = 96 phi2 = -30.8955 theta3 = 6 phi3 = -30.8955 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 388 chmoth = 'DC13' x = -17.5228 y = -29.2837 z = 0 irot = 434 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 435 theta1 = 90 phi1 = -118.209 theta2 = 96 phi2 = -28.209 theta3 = 6 phi3 = -28.209 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 389 chmoth = 'DC13' x = -16.131 y = -30.0728 z = 0 irot = 435 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 436 theta1 = 90 phi1 = -115.522 theta2 = 96 phi2 = -25.5224 theta3 = 6 phi3 = -25.5224 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 390 chmoth = 'DC13' x = -14.7037 y = -30.7959 z = 0 irot = 436 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 437 theta1 = 90 phi1 = -112.836 theta2 = 96 phi2 = -22.8358 theta3 = 6 phi3 = -22.8358 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 391 chmoth = 'DC13' x = -13.244 y = -31.4512 z = 0 irot = 437 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 438 theta1 = 90 phi1 = -110.149 theta2 = 96 phi2 = -20.1493 theta3 = 6 phi3 = -20.1493 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 392 chmoth = 'DC13' x = -11.7553 y = -32.0374 z = 0 irot = 438 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 439 theta1 = 90 phi1 = -107.463 theta2 = 96 phi2 = -17.4627 theta3 = 6 phi3 = -17.4627 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 393 chmoth = 'DC13' x = -10.2407 y = -32.5532 z = 0 irot = 439 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 440 theta1 = 90 phi1 = -104.776 theta2 = 96 phi2 = -14.7761 theta3 = 6 phi3 = -14.7761 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 394 chmoth = 'DC13' x = -8.70359 y = -32.9974 z = 0 irot = 440 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 441 theta1 = 90 phi1 = -102.09 theta2 = 96 phi2 = -12.0896 theta3 = 6 phi3 = -12.0896 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 395 chmoth = 'DC13' x = -7.14736 y = -33.3691 z = 0 irot = 441 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 442 theta1 = 90 phi1 = -99.403 theta2 = 96 phi2 = -9.40299 theta3 = 6 phi3 = -9.40299 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 396 chmoth = 'DC13' x = -5.57542 y = -33.6675 z = 0 irot = 442 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 443 theta1 = 90 phi1 = -96.7164 theta2 = 96 phi2 = -6.71642 theta3 = 6 phi3 = -6.71642 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 397 chmoth = 'DC13' x = -3.99122 y = -33.8918 z = 0 irot = 443 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 444 theta1 = 90 phi1 = -94.0299 theta2 = 96 phi2 = -4.02985 theta3 = 6 phi3 = -4.02985 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 398 chmoth = 'DC13' x = -2.39825 y = -34.0416 z = 0 irot = 444 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 445 theta1 = 90 phi1 = -91.3433 theta2 = 96 phi2 = -1.34328 theta3 = 6 phi3 = -1.34328 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 399 chmoth = 'DC13' x = -0.800001 y = -34.1166 z = 0 irot = 445 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 446 theta1 = 90 phi1 = -88.6567 theta2 = 96 phi2 = 1.34328 theta3 = 6 phi3 = 1.34328 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 400 chmoth = 'DC13' x = 0.800001 y = -34.1166 z = 0 irot = 446 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 447 theta1 = 90 phi1 = -85.9701 theta2 = 96 phi2 = 4.02985 theta3 = 6 phi3 = 4.02985 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 401 chmoth = 'DC13' x = 2.39825 y = -34.0416 z = 0 irot = 447 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 448 theta1 = 90 phi1 = -83.2836 theta2 = 96 phi2 = 6.71642 theta3 = 6 phi3 = 6.71642 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 402 chmoth = 'DC13' x = 3.99122 y = -33.8918 z = 0 irot = 448 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 449 theta1 = 90 phi1 = -80.597 theta2 = 96 phi2 = 9.40299 theta3 = 6 phi3 = 9.40299 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 403 chmoth = 'DC13' x = 5.57542 y = -33.6675 z = 0 irot = 449 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 450 theta1 = 90 phi1 = -77.9104 theta2 = 96 phi2 = 12.0896 theta3 = 6 phi3 = 12.0896 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 404 chmoth = 'DC13' x = 7.14736 y = -33.3691 z = 0 irot = 450 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 451 theta1 = 90 phi1 = -75.2239 theta2 = 96 phi2 = 14.7761 theta3 = 6 phi3 = 14.7761 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 405 chmoth = 'DC13' x = 8.70359 y = -32.9974 z = 0 irot = 451 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 452 theta1 = 90 phi1 = -72.5373 theta2 = 96 phi2 = 17.4627 theta3 = 6 phi3 = 17.4627 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 406 chmoth = 'DC13' x = 10.2407 y = -32.5532 z = 0 irot = 452 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 453 theta1 = 90 phi1 = -69.8507 theta2 = 96 phi2 = 20.1493 theta3 = 6 phi3 = 20.1493 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 407 chmoth = 'DC13' x = 11.7553 y = -32.0374 z = 0 irot = 453 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 454 theta1 = 90 phi1 = -67.1642 theta2 = 96 phi2 = 22.8358 theta3 = 6 phi3 = 22.8358 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 408 chmoth = 'DC13' x = 13.244 y = -31.4512 z = 0 irot = 454 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 455 theta1 = 90 phi1 = -64.4776 theta2 = 96 phi2 = 25.5224 theta3 = 6 phi3 = 25.5224 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 409 chmoth = 'DC13' x = 14.7037 y = -30.7959 z = 0 irot = 455 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 456 theta1 = 90 phi1 = -61.791 theta2 = 96 phi2 = 28.209 theta3 = 6 phi3 = 28.209 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 410 chmoth = 'DC13' x = 16.131 y = -30.0728 z = 0 irot = 456 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 457 theta1 = 90 phi1 = -59.1045 theta2 = 96 phi2 = 30.8955 theta3 = 6 phi3 = 30.8955 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 411 chmoth = 'DC13' x = 17.5228 y = -29.2837 z = 0 irot = 457 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 458 theta1 = 90 phi1 = -56.4179 theta2 = 96 phi2 = 33.5821 theta3 = 6 phi3 = 33.5821 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 412 chmoth = 'DC13' x = 18.8762 y = -28.4302 z = 0 irot = 458 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 459 theta1 = 90 phi1 = -53.7313 theta2 = 96 phi2 = 36.2687 theta3 = 6 phi3 = 36.2687 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 413 chmoth = 'DC13' x = 20.188 y = -27.5142 z = 0 irot = 459 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 460 theta1 = 90 phi1 = -51.0448 theta2 = 96 phi2 = 38.9552 theta3 = 6 phi3 = 38.9552 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 414 chmoth = 'DC13' x = 21.4555 y = -26.5377 z = 0 irot = 460 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 461 theta1 = 90 phi1 = -48.3582 theta2 = 96 phi2 = 41.6418 theta3 = 6 phi3 = 41.6418 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 415 chmoth = 'DC13' x = 22.6758 y = -25.5028 z = 0 irot = 461 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 462 theta1 = 90 phi1 = -45.6716 theta2 = 96 phi2 = 44.3284 theta3 = 6 phi3 = 44.3284 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 416 chmoth = 'DC13' x = 23.8462 y = -24.4119 z = 0 irot = 462 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 463 theta1 = 90 phi1 = -42.9851 theta2 = 96 phi2 = 47.0149 theta3 = 6 phi3 = 47.0149 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 417 chmoth = 'DC13' x = 24.9642 y = -23.2674 z = 0 irot = 463 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 464 theta1 = 90 phi1 = -40.2985 theta2 = 96 phi2 = 49.7015 theta3 = 6 phi3 = 49.7015 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 418 chmoth = 'DC13' x = 26.0274 y = -22.0717 z = 0 irot = 464 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 465 theta1 = 90 phi1 = -37.6119 theta2 = 96 phi2 = 52.3881 theta3 = 6 phi3 = 52.3881 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 419 chmoth = 'DC13' x = 27.0333 y = -20.8274 z = 0 irot = 465 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 466 theta1 = 90 phi1 = -34.9254 theta2 = 96 phi2 = 55.0746 theta3 = 6 phi3 = 55.0746 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 420 chmoth = 'DC13' x = 27.9799 y = -19.5374 z = 0 irot = 466 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 467 theta1 = 90 phi1 = -32.2388 theta2 = 96 phi2 = 57.7612 theta3 = 6 phi3 = 57.7612 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 421 chmoth = 'DC13' x = 28.8649 y = -18.2045 z = 0 irot = 467 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 468 theta1 = 90 phi1 = -29.5522 theta2 = 96 phi2 = 60.4478 theta3 = 6 phi3 = 60.4478 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 422 chmoth = 'DC13' x = 29.6864 y = -16.8315 z = 0 irot = 468 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 469 theta1 = 90 phi1 = -26.8657 theta2 = 96 phi2 = 63.1343 theta3 = 6 phi3 = 63.1343 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 423 chmoth = 'DC13' x = 30.4427 y = -15.4216 z = 0 irot = 469 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 470 theta1 = 90 phi1 = -24.1791 theta2 = 96 phi2 = 65.8209 theta3 = 6 phi3 = 65.8209 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 424 chmoth = 'DC13' x = 31.1321 y = -13.9777 z = 0 irot = 470 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 471 theta1 = 90 phi1 = -21.4925 theta2 = 96 phi2 = 68.5075 theta3 = 6 phi3 = 68.5075 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 425 chmoth = 'DC13' x = 31.7531 y = -12.5031 z = 0 irot = 471 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 472 theta1 = 90 phi1 = -18.806 theta2 = 96 phi2 = 71.194 theta3 = 6 phi3 = 71.194 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 426 chmoth = 'DC13' x = 32.3042 y = -11.001 z = 0 irot = 472 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 473 theta1 = 90 phi1 = -16.1194 theta2 = 96 phi2 = 73.8806 theta3 = 6 phi3 = 73.8806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 427 chmoth = 'DC13' x = 32.7843 y = -9.47474 z = 0 irot = 473 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 474 theta1 = 90 phi1 = -13.4328 theta2 = 96 phi2 = 76.5672 theta3 = 6 phi3 = 76.5672 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 428 chmoth = 'DC13' x = 33.1924 y = -7.92765 z = 0 irot = 474 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 475 theta1 = 90 phi1 = -10.7463 theta2 = 96 phi2 = 79.2537 theta3 = 6 phi3 = 79.2537 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 429 chmoth = 'DC13' x = 33.5275 y = -6.36314 z = 0 irot = 475 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 476 theta1 = 90 phi1 = -8.0597 theta2 = 96 phi2 = 81.9403 theta3 = 6 phi3 = 81.9403 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 430 chmoth = 'DC13' x = 33.7889 y = -4.78463 z = 0 irot = 476 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 477 theta1 = 90 phi1 = -5.37313 theta2 = 96 phi2 = 84.6269 theta3 = 6 phi3 = 84.6269 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 431 chmoth = 'DC13' x = 33.976 y = -3.19561 z = 0 irot = 477 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 478 theta1 = 90 phi1 = -2.68657 theta2 = 96 phi2 = 87.3134 theta3 = 6 phi3 = 87.3134 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 432 chmoth = 'DC13' x = 34.0885 y = -1.59956 z = 0 irot = 478 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 479 theta1 = 90 phi1 = 0 theta2 = 96 phi2 = 90 theta3 = 6 phi3 = 90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 433 chmoth = 'DC13' x = 35.908 y = 0 z = 0 irot = 479 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 480 theta1 = 90 phi1 = 2.55319 theta2 = 96 phi2 = 92.5532 theta3 = 6 phi3 = 92.5532 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 434 chmoth = 'DC13' x = 35.8724 y = 1.59959 z = 0 irot = 480 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 481 theta1 = 90 phi1 = 5.10638 theta2 = 96 phi2 = 95.1064 theta3 = 6 phi3 = 95.1064 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 435 chmoth = 'DC13' x = 35.7655 y = 3.196 z = 0 irot = 481 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 482 theta1 = 90 phi1 = 7.65957 theta2 = 96 phi2 = 97.6596 theta3 = 6 phi3 = 97.6596 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 436 chmoth = 'DC13' x = 35.5876 y = 4.78607 z = 0 irot = 482 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 483 theta1 = 90 phi1 = 10.2128 theta2 = 96 phi2 = 100.213 theta3 = 6 phi3 = 100.213 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 437 chmoth = 'DC13' x = 35.3391 y = 6.36663 z = 0 irot = 483 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 484 theta1 = 90 phi1 = 12.766 theta2 = 96 phi2 = 102.766 theta3 = 6 phi3 = 102.766 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 438 chmoth = 'DC13' x = 35.0204 y = 7.93456 z = 0 irot = 484 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 485 theta1 = 90 phi1 = 15.3191 theta2 = 96 phi2 = 105.319 theta3 = 6 phi3 = 105.319 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 439 chmoth = 'DC13' x = 34.6322 y = 9.48673 z = 0 irot = 485 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 486 theta1 = 90 phi1 = 17.8723 theta2 = 96 phi2 = 107.872 theta3 = 6 phi3 = 107.872 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 440 chmoth = 'DC13' x = 34.1752 y = 11.0201 z = 0 irot = 486 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 487 theta1 = 90 phi1 = 20.4255 theta2 = 96 phi2 = 110.426 theta3 = 6 phi3 = 110.426 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 441 chmoth = 'DC13' x = 33.6503 y = 12.5315 z = 0 irot = 487 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 488 theta1 = 90 phi1 = 22.9787 theta2 = 96 phi2 = 112.979 theta3 = 6 phi3 = 112.979 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 442 chmoth = 'DC13' x = 33.0587 y = 14.0181 z = 0 irot = 488 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 489 theta1 = 90 phi1 = 25.5319 theta2 = 96 phi2 = 115.532 theta3 = 6 phi3 = 115.532 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 443 chmoth = 'DC13' x = 32.4014 y = 15.4768 z = 0 irot = 489 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 490 theta1 = 90 phi1 = 28.0851 theta2 = 96 phi2 = 118.085 theta3 = 6 phi3 = 118.085 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 444 chmoth = 'DC13' x = 31.6798 y = 16.9049 z = 0 irot = 490 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 491 theta1 = 90 phi1 = 30.6383 theta2 = 96 phi2 = 120.638 theta3 = 6 phi3 = 120.638 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 445 chmoth = 'DC13' x = 30.8953 y = 18.2993 z = 0 irot = 491 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 492 theta1 = 90 phi1 = 33.1915 theta2 = 96 phi2 = 123.191 theta3 = 6 phi3 = 123.191 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 446 chmoth = 'DC13' x = 30.0495 y = 19.6574 z = 0 irot = 492 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 493 theta1 = 90 phi1 = 35.7447 theta2 = 96 phi2 = 125.745 theta3 = 6 phi3 = 125.745 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 447 chmoth = 'DC13' x = 29.1439 y = 20.9765 z = 0 irot = 493 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 494 theta1 = 90 phi1 = 38.2979 theta2 = 96 phi2 = 128.298 theta3 = 6 phi3 = 128.298 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 448 chmoth = 'DC13' x = 28.1806 y = 22.254 z = 0 irot = 494 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 495 theta1 = 90 phi1 = 40.8511 theta2 = 96 phi2 = 130.851 theta3 = 6 phi3 = 130.851 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 449 chmoth = 'DC13' x = 27.1613 y = 23.4872 z = 0 irot = 495 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 496 theta1 = 90 phi1 = 43.4043 theta2 = 96 phi2 = 133.404 theta3 = 6 phi3 = 133.404 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 450 chmoth = 'DC13' x = 26.088 y = 24.6739 z = 0 irot = 496 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 497 theta1 = 90 phi1 = 45.9574 theta2 = 96 phi2 = 135.957 theta3 = 6 phi3 = 135.957 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 451 chmoth = 'DC13' x = 24.963 y = 25.8115 z = 0 irot = 497 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 498 theta1 = 90 phi1 = 48.5106 theta2 = 96 phi2 = 138.511 theta3 = 6 phi3 = 138.511 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 452 chmoth = 'DC13' x = 23.7884 y = 26.8979 z = 0 irot = 498 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 499 theta1 = 90 phi1 = 51.0638 theta2 = 96 phi2 = 141.064 theta3 = 6 phi3 = 141.064 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 453 chmoth = 'DC13' x = 22.5665 y = 27.9309 z = 0 irot = 499 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 500 theta1 = 90 phi1 = 53.617 theta2 = 96 phi2 = 143.617 theta3 = 6 phi3 = 143.617 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 454 chmoth = 'DC13' x = 21.2999 y = 28.9085 z = 0 irot = 500 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 501 theta1 = 90 phi1 = 56.1702 theta2 = 96 phi2 = 146.17 theta3 = 6 phi3 = 146.17 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 455 chmoth = 'DC13' x = 19.991 y = 29.8286 z = 0 irot = 501 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 502 theta1 = 90 phi1 = 58.7234 theta2 = 96 phi2 = 148.723 theta3 = 6 phi3 = 148.723 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 456 chmoth = 'DC13' x = 18.6424 y = 30.6895 z = 0 irot = 502 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 503 theta1 = 90 phi1 = 61.2766 theta2 = 96 phi2 = 151.277 theta3 = 6 phi3 = 151.277 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 457 chmoth = 'DC13' x = 17.2567 y = 31.4895 z = 0 irot = 503 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 504 theta1 = 90 phi1 = 63.8298 theta2 = 96 phi2 = 153.83 theta3 = 6 phi3 = 153.83 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 458 chmoth = 'DC13' x = 15.8368 y = 32.227 z = 0 irot = 504 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 505 theta1 = 90 phi1 = 66.383 theta2 = 96 phi2 = 156.383 theta3 = 6 phi3 = 156.383 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 459 chmoth = 'DC13' x = 14.3855 y = 32.9005 z = 0 irot = 505 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 506 theta1 = 90 phi1 = 68.9362 theta2 = 96 phi2 = 158.936 theta3 = 6 phi3 = 158.936 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 460 chmoth = 'DC13' x = 12.9056 y = 33.5086 z = 0 irot = 506 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 507 theta1 = 90 phi1 = 71.4894 theta2 = 96 phi2 = 161.489 theta3 = 6 phi3 = 161.489 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 461 chmoth = 'DC13' x = 11.4001 y = 34.0503 z = 0 irot = 507 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 508 theta1 = 90 phi1 = 74.0426 theta2 = 96 phi2 = 164.043 theta3 = 6 phi3 = 164.043 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 462 chmoth = 'DC13' x = 9.87195 y = 34.5243 z = 0 irot = 508 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 509 theta1 = 90 phi1 = 76.5957 theta2 = 96 phi2 = 166.596 theta3 = 6 phi3 = 166.596 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 463 chmoth = 'DC13' x = 8.3242 y = 34.9298 z = 0 irot = 509 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 510 theta1 = 90 phi1 = 79.1489 theta2 = 96 phi2 = 169.149 theta3 = 6 phi3 = 169.149 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 464 chmoth = 'DC13' x = 6.75992 y = 35.266 z = 0 irot = 510 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 511 theta1 = 90 phi1 = 81.7021 theta2 = 96 phi2 = 171.702 theta3 = 6 phi3 = 171.702 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 465 chmoth = 'DC13' x = 5.18222 y = 35.5321 z = 0 irot = 511 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 512 theta1 = 90 phi1 = 84.2553 theta2 = 96 phi2 = 174.255 theta3 = 6 phi3 = 174.255 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 466 chmoth = 'DC13' x = 3.59424 y = 35.7277 z = 0 irot = 512 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 513 theta1 = 90 phi1 = 86.8085 theta2 = 96 phi2 = 176.809 theta3 = 6 phi3 = 176.809 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 467 chmoth = 'DC13' x = 1.99911 y = 35.8523 z = 0 irot = 513 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 514 theta1 = 90 phi1 = 89.3617 theta2 = 96 phi2 = 179.362 theta3 = 6 phi3 = 179.362 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 468 chmoth = 'DC13' x = 0.400021 y = 35.9058 z = 0 irot = 514 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 515 theta1 = 90 phi1 = 91.9149 theta2 = 96 phi2 = -178.085 theta3 = 6 phi3 = -178.085 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 469 chmoth = 'DC13' x = -1.19986 y = 35.8879 z = 0 irot = 515 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 516 theta1 = 90 phi1 = 94.4681 theta2 = 96 phi2 = -175.532 theta3 = 6 phi3 = -175.532 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 470 chmoth = 'DC13' x = -2.79737 y = 35.7989 z = 0 irot = 516 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 517 theta1 = 90 phi1 = 97.0213 theta2 = 96 phi2 = -172.979 theta3 = 6 phi3 = -172.979 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 471 chmoth = 'DC13' x = -4.38932 y = 35.6387 z = 0 irot = 517 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 518 theta1 = 90 phi1 = 99.5745 theta2 = 96 phi2 = -170.426 theta3 = 6 phi3 = -170.426 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 472 chmoth = 'DC13' x = -5.97255 y = 35.4078 z = 0 irot = 518 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 519 theta1 = 90 phi1 = 102.128 theta2 = 96 phi2 = -167.872 theta3 = 6 phi3 = -167.872 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 473 chmoth = 'DC13' x = -7.54393 y = 35.1066 z = 0 irot = 519 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 520 theta1 = 90 phi1 = 104.681 theta2 = 96 phi2 = -165.319 theta3 = 6 phi3 = -165.319 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 474 chmoth = 'DC13' x = -9.10033 y = 34.7357 z = 0 irot = 520 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 521 theta1 = 90 phi1 = 107.234 theta2 = 96 phi2 = -162.766 theta3 = 6 phi3 = -162.766 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 475 chmoth = 'DC13' x = -10.6387 y = 34.2958 z = 0 irot = 521 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 522 theta1 = 90 phi1 = 109.787 theta2 = 96 phi2 = -160.213 theta3 = 6 phi3 = -160.213 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 476 chmoth = 'DC13' x = -12.1559 y = 33.7879 z = 0 irot = 522 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 523 theta1 = 90 phi1 = 112.34 theta2 = 96 phi2 = -157.66 theta3 = 6 phi3 = -157.66 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 477 chmoth = 'DC13' x = -13.6489 y = 33.2128 z = 0 irot = 523 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 524 theta1 = 90 phi1 = 114.894 theta2 = 96 phi2 = -155.106 theta3 = 6 phi3 = -155.106 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 478 chmoth = 'DC13' x = -15.1149 y = 32.5718 z = 0 irot = 524 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 525 theta1 = 90 phi1 = 117.447 theta2 = 96 phi2 = -152.553 theta3 = 6 phi3 = -152.553 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 479 chmoth = 'DC13' x = -16.5509 y = 31.8662 z = 0 irot = 525 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 526 theta1 = 90 phi1 = 120 theta2 = 96 phi2 = -150 theta3 = 6 phi3 = -150 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 480 chmoth = 'DC13' x = -17.954 y = 31.0972 z = 0 irot = 526 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 527 theta1 = 90 phi1 = 122.553 theta2 = 96 phi2 = -147.447 theta3 = 6 phi3 = -147.447 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 481 chmoth = 'DC13' x = -19.3215 y = 30.2666 z = 0 irot = 527 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 528 theta1 = 90 phi1 = 125.106 theta2 = 96 phi2 = -144.894 theta3 = 6 phi3 = -144.894 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 482 chmoth = 'DC13' x = -20.6506 y = 29.3758 z = 0 irot = 528 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 529 theta1 = 90 phi1 = 127.66 theta2 = 96 phi2 = -142.34 theta3 = 6 phi3 = -142.34 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 483 chmoth = 'DC13' x = -21.9387 y = 28.4267 z = 0 irot = 529 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 530 theta1 = 90 phi1 = 130.213 theta2 = 96 phi2 = -139.787 theta3 = 6 phi3 = -139.787 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 484 chmoth = 'DC13' x = -23.1832 y = 27.4212 z = 0 irot = 530 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 531 theta1 = 90 phi1 = 132.766 theta2 = 96 phi2 = -137.234 theta3 = 6 phi3 = -137.234 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 485 chmoth = 'DC13' x = -24.3817 y = 26.3613 z = 0 irot = 531 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 532 theta1 = 90 phi1 = 135.319 theta2 = 96 phi2 = -134.681 theta3 = 6 phi3 = -134.681 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 486 chmoth = 'DC13' x = -25.5318 y = 25.249 z = 0 irot = 532 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 533 theta1 = 90 phi1 = 137.872 theta2 = 96 phi2 = -132.128 theta3 = 6 phi3 = -132.128 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 487 chmoth = 'DC13' x = -26.6312 y = 24.0865 z = 0 irot = 533 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 534 theta1 = 90 phi1 = 140.426 theta2 = 96 phi2 = -129.574 theta3 = 6 phi3 = -129.574 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 488 chmoth = 'DC13' x = -27.6778 y = 22.8763 z = 0 irot = 534 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 535 theta1 = 90 phi1 = 142.979 theta2 = 96 phi2 = -127.021 theta3 = 6 phi3 = -127.021 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 489 chmoth = 'DC13' x = -28.6694 y = 21.6206 z = 0 irot = 535 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 536 theta1 = 90 phi1 = 145.532 theta2 = 96 phi2 = -124.468 theta3 = 6 phi3 = -124.468 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 490 chmoth = 'DC13' x = -29.604 y = 20.322 z = 0 irot = 536 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 537 theta1 = 90 phi1 = 148.085 theta2 = 96 phi2 = -121.915 theta3 = 6 phi3 = -121.915 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 491 chmoth = 'DC13' x = -30.4799 y = 18.9831 z = 0 irot = 537 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 538 theta1 = 90 phi1 = 150.638 theta2 = 96 phi2 = -119.362 theta3 = 6 phi3 = -119.362 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 492 chmoth = 'DC13' x = -31.2953 y = 17.6065 z = 0 irot = 538 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 539 theta1 = 90 phi1 = 153.191 theta2 = 96 phi2 = -116.809 theta3 = 6 phi3 = -116.809 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 493 chmoth = 'DC13' x = -32.0486 y = 16.1949 z = 0 irot = 539 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 540 theta1 = 90 phi1 = 155.745 theta2 = 96 phi2 = -114.255 theta3 = 6 phi3 = -114.255 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 494 chmoth = 'DC13' x = -32.7382 y = 14.7511 z = 0 irot = 540 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 541 theta1 = 90 phi1 = 158.298 theta2 = 96 phi2 = -111.702 theta3 = 6 phi3 = -111.702 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 495 chmoth = 'DC13' x = -33.3628 y = 13.2781 z = 0 irot = 541 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 542 theta1 = 90 phi1 = 160.851 theta2 = 96 phi2 = -109.149 theta3 = 6 phi3 = -109.149 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 496 chmoth = 'DC13' x = -33.9212 y = 11.7787 z = 0 irot = 542 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 543 theta1 = 90 phi1 = 163.404 theta2 = 96 phi2 = -106.596 theta3 = 6 phi3 = -106.596 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 497 chmoth = 'DC13' x = -34.4122 y = 10.2559 z = 0 irot = 543 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 544 theta1 = 90 phi1 = 165.957 theta2 = 96 phi2 = -104.043 theta3 = 6 phi3 = -104.043 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 498 chmoth = 'DC13' x = -34.8349 y = 8.71281 z = 0 irot = 544 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 545 theta1 = 90 phi1 = 168.511 theta2 = 96 phi2 = -101.489 theta3 = 6 phi3 = -101.489 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 499 chmoth = 'DC13' x = -35.1885 y = 7.15237 z = 0 irot = 545 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 546 theta1 = 90 phi1 = 171.064 theta2 = 96 phi2 = -98.9362 theta3 = 6 phi3 = -98.9362 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 500 chmoth = 'DC13' x = -35.4721 y = 5.57773 z = 0 irot = 546 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 547 theta1 = 90 phi1 = 173.617 theta2 = 96 phi2 = -96.383 theta3 = 6 phi3 = -96.383 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 501 chmoth = 'DC13' x = -35.6854 y = 3.99203 z = 0 irot = 547 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 548 theta1 = 90 phi1 = 176.17 theta2 = 96 phi2 = -93.8298 theta3 = 6 phi3 = -93.8298 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 502 chmoth = 'DC13' x = -35.8278 y = 2.39839 z = 0 irot = 548 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 549 theta1 = 90 phi1 = 178.723 theta2 = 96 phi2 = -91.2766 theta3 = 6 phi3 = -91.2766 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 503 chmoth = 'DC13' x = -35.8991 y = 0.799993 z = 0 irot = 549 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 550 theta1 = 90 phi1 = -178.723 theta2 = 96 phi2 = -88.7234 theta3 = 6 phi3 = -88.7234 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 504 chmoth = 'DC13' x = -35.8991 y = -0.799993 z = 0 irot = 550 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 551 theta1 = 90 phi1 = -176.17 theta2 = 96 phi2 = -86.1702 theta3 = 6 phi3 = -86.1702 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 505 chmoth = 'DC13' x = -35.8278 y = -2.39839 z = 0 irot = 551 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 552 theta1 = 90 phi1 = -173.617 theta2 = 96 phi2 = -83.617 theta3 = 6 phi3 = -83.617 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 506 chmoth = 'DC13' x = -35.6854 y = -3.99203 z = 0 irot = 552 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 553 theta1 = 90 phi1 = -171.064 theta2 = 96 phi2 = -81.0638 theta3 = 6 phi3 = -81.0638 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 507 chmoth = 'DC13' x = -35.4721 y = -5.57773 z = 0 irot = 553 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 554 theta1 = 90 phi1 = -168.511 theta2 = 96 phi2 = -78.5106 theta3 = 6 phi3 = -78.5106 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 508 chmoth = 'DC13' x = -35.1885 y = -7.15237 z = 0 irot = 554 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 555 theta1 = 90 phi1 = -165.957 theta2 = 96 phi2 = -75.9574 theta3 = 6 phi3 = -75.9574 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 509 chmoth = 'DC13' x = -34.8349 y = -8.71281 z = 0 irot = 555 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 556 theta1 = 90 phi1 = -163.404 theta2 = 96 phi2 = -73.4043 theta3 = 6 phi3 = -73.4043 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 510 chmoth = 'DC13' x = -34.4122 y = -10.2559 z = 0 irot = 556 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 557 theta1 = 90 phi1 = -160.851 theta2 = 96 phi2 = -70.8511 theta3 = 6 phi3 = -70.8511 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 511 chmoth = 'DC13' x = -33.9212 y = -11.7787 z = 0 irot = 557 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 558 theta1 = 90 phi1 = -158.298 theta2 = 96 phi2 = -68.2979 theta3 = 6 phi3 = -68.2979 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 512 chmoth = 'DC13' x = -33.3628 y = -13.2781 z = 0 irot = 558 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 559 theta1 = 90 phi1 = -155.745 theta2 = 96 phi2 = -65.7447 theta3 = 6 phi3 = -65.7447 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 513 chmoth = 'DC13' x = -32.7382 y = -14.7511 z = 0 irot = 559 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 560 theta1 = 90 phi1 = -153.191 theta2 = 96 phi2 = -63.1915 theta3 = 6 phi3 = -63.1915 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 514 chmoth = 'DC13' x = -32.0486 y = -16.1949 z = 0 irot = 560 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 561 theta1 = 90 phi1 = -150.638 theta2 = 96 phi2 = -60.6383 theta3 = 6 phi3 = -60.6383 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 515 chmoth = 'DC13' x = -31.2953 y = -17.6065 z = 0 irot = 561 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 562 theta1 = 90 phi1 = -148.085 theta2 = 96 phi2 = -58.0851 theta3 = 6 phi3 = -58.0851 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 516 chmoth = 'DC13' x = -30.4799 y = -18.9831 z = 0 irot = 562 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 563 theta1 = 90 phi1 = -145.532 theta2 = 96 phi2 = -55.5319 theta3 = 6 phi3 = -55.5319 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 517 chmoth = 'DC13' x = -29.604 y = -20.322 z = 0 irot = 563 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 564 theta1 = 90 phi1 = -142.979 theta2 = 96 phi2 = -52.9787 theta3 = 6 phi3 = -52.9787 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 518 chmoth = 'DC13' x = -28.6694 y = -21.6206 z = 0 irot = 564 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 565 theta1 = 90 phi1 = -140.426 theta2 = 96 phi2 = -50.4255 theta3 = 6 phi3 = -50.4255 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 519 chmoth = 'DC13' x = -27.6778 y = -22.8763 z = 0 irot = 565 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 566 theta1 = 90 phi1 = -137.872 theta2 = 96 phi2 = -47.8723 theta3 = 6 phi3 = -47.8723 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 520 chmoth = 'DC13' x = -26.6312 y = -24.0865 z = 0 irot = 566 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 567 theta1 = 90 phi1 = -135.319 theta2 = 96 phi2 = -45.3191 theta3 = 6 phi3 = -45.3191 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 521 chmoth = 'DC13' x = -25.5318 y = -25.249 z = 0 irot = 567 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 568 theta1 = 90 phi1 = -132.766 theta2 = 96 phi2 = -42.766 theta3 = 6 phi3 = -42.766 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 522 chmoth = 'DC13' x = -24.3817 y = -26.3613 z = 0 irot = 568 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 569 theta1 = 90 phi1 = -130.213 theta2 = 96 phi2 = -40.2128 theta3 = 6 phi3 = -40.2128 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 523 chmoth = 'DC13' x = -23.1832 y = -27.4212 z = 0 irot = 569 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 570 theta1 = 90 phi1 = -127.66 theta2 = 96 phi2 = -37.6596 theta3 = 6 phi3 = -37.6596 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 524 chmoth = 'DC13' x = -21.9387 y = -28.4267 z = 0 irot = 570 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 571 theta1 = 90 phi1 = -125.106 theta2 = 96 phi2 = -35.1064 theta3 = 6 phi3 = -35.1064 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 525 chmoth = 'DC13' x = -20.6506 y = -29.3758 z = 0 irot = 571 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 572 theta1 = 90 phi1 = -122.553 theta2 = 96 phi2 = -32.5532 theta3 = 6 phi3 = -32.5532 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 526 chmoth = 'DC13' x = -19.3215 y = -30.2666 z = 0 irot = 572 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 573 theta1 = 90 phi1 = -120 theta2 = 96 phi2 = -30 theta3 = 6 phi3 = -30 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 527 chmoth = 'DC13' x = -17.954 y = -31.0972 z = 0 irot = 573 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 574 theta1 = 90 phi1 = -117.447 theta2 = 96 phi2 = -27.4468 theta3 = 6 phi3 = -27.4468 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 528 chmoth = 'DC13' x = -16.5509 y = -31.8662 z = 0 irot = 574 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 575 theta1 = 90 phi1 = -114.894 theta2 = 96 phi2 = -24.8936 theta3 = 6 phi3 = -24.8936 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 529 chmoth = 'DC13' x = -15.1149 y = -32.5718 z = 0 irot = 575 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 576 theta1 = 90 phi1 = -112.34 theta2 = 96 phi2 = -22.3404 theta3 = 6 phi3 = -22.3404 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 530 chmoth = 'DC13' x = -13.6489 y = -33.2128 z = 0 irot = 576 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 577 theta1 = 90 phi1 = -109.787 theta2 = 96 phi2 = -19.7872 theta3 = 6 phi3 = -19.7872 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 531 chmoth = 'DC13' x = -12.1559 y = -33.7879 z = 0 irot = 577 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 578 theta1 = 90 phi1 = -107.234 theta2 = 96 phi2 = -17.234 theta3 = 6 phi3 = -17.234 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 532 chmoth = 'DC13' x = -10.6387 y = -34.2958 z = 0 irot = 578 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 579 theta1 = 90 phi1 = -104.681 theta2 = 96 phi2 = -14.6809 theta3 = 6 phi3 = -14.6809 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 533 chmoth = 'DC13' x = -9.10033 y = -34.7357 z = 0 irot = 579 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 580 theta1 = 90 phi1 = -102.128 theta2 = 96 phi2 = -12.1277 theta3 = 6 phi3 = -12.1277 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 534 chmoth = 'DC13' x = -7.54393 y = -35.1066 z = 0 irot = 580 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 581 theta1 = 90 phi1 = -99.5745 theta2 = 96 phi2 = -9.57447 theta3 = 6 phi3 = -9.57447 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 535 chmoth = 'DC13' x = -5.97255 y = -35.4078 z = 0 irot = 581 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 582 theta1 = 90 phi1 = -97.0213 theta2 = 96 phi2 = -7.02128 theta3 = 6 phi3 = -7.02128 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 536 chmoth = 'DC13' x = -4.38932 y = -35.6387 z = 0 irot = 582 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 583 theta1 = 90 phi1 = -94.4681 theta2 = 96 phi2 = -4.46809 theta3 = 6 phi3 = -4.46809 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 537 chmoth = 'DC13' x = -2.79737 y = -35.7989 z = 0 irot = 583 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 584 theta1 = 90 phi1 = -91.9149 theta2 = 96 phi2 = -1.91489 theta3 = 6 phi3 = -1.91489 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 538 chmoth = 'DC13' x = -1.19986 y = -35.8879 z = 0 irot = 584 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 585 theta1 = 90 phi1 = -89.3617 theta2 = 96 phi2 = 0.638298 theta3 = 6 phi3 = 0.638298 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 539 chmoth = 'DC13' x = 0.400021 y = -35.9058 z = 0 irot = 585 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 586 theta1 = 90 phi1 = -86.8085 theta2 = 96 phi2 = 3.19149 theta3 = 6 phi3 = 3.19149 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 540 chmoth = 'DC13' x = 1.99911 y = -35.8523 z = 0 irot = 586 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 587 theta1 = 90 phi1 = -84.2553 theta2 = 96 phi2 = 5.74468 theta3 = 6 phi3 = 5.74468 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 541 chmoth = 'DC13' x = 3.59424 y = -35.7277 z = 0 irot = 587 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 588 theta1 = 90 phi1 = -81.7021 theta2 = 96 phi2 = 8.29787 theta3 = 6 phi3 = 8.29787 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 542 chmoth = 'DC13' x = 5.18222 y = -35.5321 z = 0 irot = 588 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 589 theta1 = 90 phi1 = -79.1489 theta2 = 96 phi2 = 10.8511 theta3 = 6 phi3 = 10.8511 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 543 chmoth = 'DC13' x = 6.75992 y = -35.266 z = 0 irot = 589 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 590 theta1 = 90 phi1 = -76.5957 theta2 = 96 phi2 = 13.4043 theta3 = 6 phi3 = 13.4043 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 544 chmoth = 'DC13' x = 8.3242 y = -34.9298 z = 0 irot = 590 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 591 theta1 = 90 phi1 = -74.0426 theta2 = 96 phi2 = 15.9574 theta3 = 6 phi3 = 15.9574 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 545 chmoth = 'DC13' x = 9.87195 y = -34.5243 z = 0 irot = 591 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 592 theta1 = 90 phi1 = -71.4894 theta2 = 96 phi2 = 18.5106 theta3 = 6 phi3 = 18.5106 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 546 chmoth = 'DC13' x = 11.4001 y = -34.0503 z = 0 irot = 592 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 593 theta1 = 90 phi1 = -68.9362 theta2 = 96 phi2 = 21.0638 theta3 = 6 phi3 = 21.0638 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 547 chmoth = 'DC13' x = 12.9056 y = -33.5086 z = 0 irot = 593 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 594 theta1 = 90 phi1 = -66.383 theta2 = 96 phi2 = 23.617 theta3 = 6 phi3 = 23.617 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 548 chmoth = 'DC13' x = 14.3855 y = -32.9005 z = 0 irot = 594 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 595 theta1 = 90 phi1 = -63.8298 theta2 = 96 phi2 = 26.1702 theta3 = 6 phi3 = 26.1702 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 549 chmoth = 'DC13' x = 15.8368 y = -32.227 z = 0 irot = 595 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 596 theta1 = 90 phi1 = -61.2766 theta2 = 96 phi2 = 28.7234 theta3 = 6 phi3 = 28.7234 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 550 chmoth = 'DC13' x = 17.2567 y = -31.4895 z = 0 irot = 596 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 597 theta1 = 90 phi1 = -58.7234 theta2 = 96 phi2 = 31.2766 theta3 = 6 phi3 = 31.2766 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 551 chmoth = 'DC13' x = 18.6424 y = -30.6895 z = 0 irot = 597 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 598 theta1 = 90 phi1 = -56.1702 theta2 = 96 phi2 = 33.8298 theta3 = 6 phi3 = 33.8298 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 552 chmoth = 'DC13' x = 19.991 y = -29.8286 z = 0 irot = 598 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 599 theta1 = 90 phi1 = -53.617 theta2 = 96 phi2 = 36.383 theta3 = 6 phi3 = 36.383 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 553 chmoth = 'DC13' x = 21.2999 y = -28.9085 z = 0 irot = 599 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 600 theta1 = 90 phi1 = -51.0638 theta2 = 96 phi2 = 38.9362 theta3 = 6 phi3 = 38.9362 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 554 chmoth = 'DC13' x = 22.5665 y = -27.9309 z = 0 irot = 600 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 601 theta1 = 90 phi1 = -48.5106 theta2 = 96 phi2 = 41.4894 theta3 = 6 phi3 = 41.4894 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 555 chmoth = 'DC13' x = 23.7884 y = -26.8979 z = 0 irot = 601 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 602 theta1 = 90 phi1 = -45.9574 theta2 = 96 phi2 = 44.0426 theta3 = 6 phi3 = 44.0426 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 556 chmoth = 'DC13' x = 24.963 y = -25.8115 z = 0 irot = 602 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 603 theta1 = 90 phi1 = -43.4043 theta2 = 96 phi2 = 46.5957 theta3 = 6 phi3 = 46.5957 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 557 chmoth = 'DC13' x = 26.088 y = -24.6739 z = 0 irot = 603 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 604 theta1 = 90 phi1 = -40.8511 theta2 = 96 phi2 = 49.1489 theta3 = 6 phi3 = 49.1489 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 558 chmoth = 'DC13' x = 27.1613 y = -23.4872 z = 0 irot = 604 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 605 theta1 = 90 phi1 = -38.2979 theta2 = 96 phi2 = 51.7021 theta3 = 6 phi3 = 51.7021 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 559 chmoth = 'DC13' x = 28.1806 y = -22.254 z = 0 irot = 605 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 606 theta1 = 90 phi1 = -35.7447 theta2 = 96 phi2 = 54.2553 theta3 = 6 phi3 = 54.2553 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 560 chmoth = 'DC13' x = 29.1439 y = -20.9765 z = 0 irot = 606 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 607 theta1 = 90 phi1 = -33.1915 theta2 = 96 phi2 = 56.8085 theta3 = 6 phi3 = 56.8085 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 561 chmoth = 'DC13' x = 30.0495 y = -19.6574 z = 0 irot = 607 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 608 theta1 = 90 phi1 = -30.6383 theta2 = 96 phi2 = 59.3617 theta3 = 6 phi3 = 59.3617 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 562 chmoth = 'DC13' x = 30.8953 y = -18.2993 z = 0 irot = 608 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 609 theta1 = 90 phi1 = -28.0851 theta2 = 96 phi2 = 61.9149 theta3 = 6 phi3 = 61.9149 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 563 chmoth = 'DC13' x = 31.6798 y = -16.9049 z = 0 irot = 609 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 610 theta1 = 90 phi1 = -25.5319 theta2 = 96 phi2 = 64.4681 theta3 = 6 phi3 = 64.4681 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 564 chmoth = 'DC13' x = 32.4014 y = -15.4768 z = 0 irot = 610 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 611 theta1 = 90 phi1 = -22.9787 theta2 = 96 phi2 = 67.0213 theta3 = 6 phi3 = 67.0213 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 565 chmoth = 'DC13' x = 33.0587 y = -14.0181 z = 0 irot = 611 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 612 theta1 = 90 phi1 = -20.4255 theta2 = 96 phi2 = 69.5745 theta3 = 6 phi3 = 69.5745 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 566 chmoth = 'DC13' x = 33.6503 y = -12.5315 z = 0 irot = 612 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 613 theta1 = 90 phi1 = -17.8723 theta2 = 96 phi2 = 72.1277 theta3 = 6 phi3 = 72.1277 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 567 chmoth = 'DC13' x = 34.1752 y = -11.0201 z = 0 irot = 613 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 614 theta1 = 90 phi1 = -15.3191 theta2 = 96 phi2 = 74.6809 theta3 = 6 phi3 = 74.6809 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 568 chmoth = 'DC13' x = 34.6322 y = -9.48673 z = 0 irot = 614 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 615 theta1 = 90 phi1 = -12.766 theta2 = 96 phi2 = 77.234 theta3 = 6 phi3 = 77.234 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 569 chmoth = 'DC13' x = 35.0204 y = -7.93456 z = 0 irot = 615 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 616 theta1 = 90 phi1 = -10.2128 theta2 = 96 phi2 = 79.7872 theta3 = 6 phi3 = 79.7872 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 570 chmoth = 'DC13' x = 35.3391 y = -6.36663 z = 0 irot = 616 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 617 theta1 = 90 phi1 = -7.65957 theta2 = 96 phi2 = 82.3404 theta3 = 6 phi3 = 82.3404 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 571 chmoth = 'DC13' x = 35.5876 y = -4.78607 z = 0 irot = 617 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 618 theta1 = 90 phi1 = -5.10638 theta2 = 96 phi2 = 84.8936 theta3 = 6 phi3 = 84.8936 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 572 chmoth = 'DC13' x = 35.7655 y = -3.196 z = 0 irot = 618 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 619 theta1 = 90 phi1 = -2.55319 theta2 = 96 phi2 = 87.4468 theta3 = 6 phi3 = 87.4468 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 573 chmoth = 'DC13' x = 35.8724 y = -1.59959 z = 0 irot = 619 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 620 theta1 = 90 phi1 = 0 theta2 = 84 phi2 = 90 theta3 = 6 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 574 chmoth = 'DC13' x = 37.691 y = 0 z = 0 irot = 620 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 621 theta1 = 90 phi1 = 2.43243 theta2 = 84 phi2 = 92.4324 theta3 = 6 phi3 = -87.5676 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 575 chmoth = 'DC13' x = 37.657 y = 1.59965 z = 0 irot = 621 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 622 theta1 = 90 phi1 = 4.86486 theta2 = 84 phi2 = 94.8649 theta3 = 6 phi3 = -85.1351 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 576 chmoth = 'DC13' x = 37.5552 y = 3.19642 z = 0 irot = 622 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 623 theta1 = 90 phi1 = 7.2973 theta2 = 84 phi2 = 97.2973 theta3 = 6 phi3 = -82.7027 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 577 chmoth = 'DC13' x = 37.3857 y = 4.78743 z = 0 irot = 623 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 624 theta1 = 90 phi1 = 9.72973 theta2 = 84 phi2 = 99.7297 theta3 = 6 phi3 = -80.2703 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 578 chmoth = 'DC13' x = 37.1488 y = 6.36981 z = 0 irot = 624 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 625 theta1 = 90 phi1 = 12.1622 theta2 = 84 phi2 = 102.162 theta3 = 6 phi3 = -77.8378 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 579 chmoth = 'DC13' x = 36.845 y = 7.94071 z = 0 irot = 625 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 626 theta1 = 90 phi1 = 14.5946 theta2 = 84 phi2 = 104.595 theta3 = 6 phi3 = -75.4054 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 580 chmoth = 'DC13' x = 36.4748 y = 9.49731 z = 0 irot = 626 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 627 theta1 = 90 phi1 = 17.027 theta2 = 84 phi2 = 107.027 theta3 = 6 phi3 = -72.973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 581 chmoth = 'DC13' x = 36.0389 y = 11.0368 z = 0 irot = 627 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 628 theta1 = 90 phi1 = 19.4595 theta2 = 84 phi2 = 109.459 theta3 = 6 phi3 = -70.5405 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 582 chmoth = 'DC13' x = 35.538 y = 12.5564 z = 0 irot = 628 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 629 theta1 = 90 phi1 = 21.8919 theta2 = 84 phi2 = 111.892 theta3 = 6 phi3 = -68.1081 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 583 chmoth = 'DC13' x = 34.9731 y = 14.0533 z = 0 irot = 629 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 630 theta1 = 90 phi1 = 24.3243 theta2 = 84 phi2 = 114.324 theta3 = 6 phi3 = -65.6757 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 584 chmoth = 'DC13' x = 34.3451 y = 15.525 z = 0 irot = 630 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 631 theta1 = 90 phi1 = 26.7568 theta2 = 84 phi2 = 116.757 theta3 = 6 phi3 = -63.2432 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 585 chmoth = 'DC13' x = 33.6553 y = 16.9686 z = 0 irot = 631 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 632 theta1 = 90 phi1 = 29.1892 theta2 = 84 phi2 = 119.189 theta3 = 6 phi3 = -60.8108 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 586 chmoth = 'DC13' x = 32.9048 y = 18.3817 z = 0 irot = 632 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 633 theta1 = 90 phi1 = 31.6216 theta2 = 84 phi2 = 121.622 theta3 = 6 phi3 = -58.3784 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 587 chmoth = 'DC13' x = 32.095 y = 19.7617 z = 0 irot = 633 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 634 theta1 = 90 phi1 = 34.0541 theta2 = 84 phi2 = 124.054 theta3 = 6 phi3 = -55.9459 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 588 chmoth = 'DC13' x = 31.2274 y = 21.106 z = 0 irot = 634 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 635 theta1 = 90 phi1 = 36.4865 theta2 = 84 phi2 = 126.486 theta3 = 6 phi3 = -53.5135 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 589 chmoth = 'DC13' x = 30.3035 y = 22.4123 z = 0 irot = 635 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 636 theta1 = 90 phi1 = 38.9189 theta2 = 84 phi2 = 128.919 theta3 = 6 phi3 = -51.0811 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 590 chmoth = 'DC13' x = 29.3249 y = 23.6782 z = 0 irot = 636 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 637 theta1 = 90 phi1 = 41.3514 theta2 = 84 phi2 = 131.351 theta3 = 6 phi3 = -48.6486 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 591 chmoth = 'DC13' x = 28.2936 y = 24.9015 z = 0 irot = 637 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 638 theta1 = 90 phi1 = 43.7838 theta2 = 84 phi2 = 133.784 theta3 = 6 phi3 = -46.2162 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 592 chmoth = 'DC13' x = 27.2112 y = 26.0799 z = 0 irot = 638 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 639 theta1 = 90 phi1 = 46.2162 theta2 = 84 phi2 = 136.216 theta3 = 6 phi3 = -43.7838 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 593 chmoth = 'DC13' x = 26.0799 y = 27.2112 z = 0 irot = 639 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 640 theta1 = 90 phi1 = 48.6486 theta2 = 84 phi2 = 138.649 theta3 = 6 phi3 = -41.3514 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 594 chmoth = 'DC13' x = 24.9015 y = 28.2936 z = 0 irot = 640 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 641 theta1 = 90 phi1 = 51.0811 theta2 = 84 phi2 = 141.081 theta3 = 6 phi3 = -38.9189 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 595 chmoth = 'DC13' x = 23.6782 y = 29.3249 z = 0 irot = 641 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 642 theta1 = 90 phi1 = 53.5135 theta2 = 84 phi2 = 143.514 theta3 = 6 phi3 = -36.4865 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 596 chmoth = 'DC13' x = 22.4123 y = 30.3035 z = 0 irot = 642 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 643 theta1 = 90 phi1 = 55.9459 theta2 = 84 phi2 = 145.946 theta3 = 6 phi3 = -34.0541 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 597 chmoth = 'DC13' x = 21.106 y = 31.2274 z = 0 irot = 643 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 644 theta1 = 90 phi1 = 58.3784 theta2 = 84 phi2 = 148.378 theta3 = 6 phi3 = -31.6216 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 598 chmoth = 'DC13' x = 19.7617 y = 32.095 z = 0 irot = 644 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 645 theta1 = 90 phi1 = 60.8108 theta2 = 84 phi2 = 150.811 theta3 = 6 phi3 = -29.1892 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 599 chmoth = 'DC13' x = 18.3817 y = 32.9048 z = 0 irot = 645 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 646 theta1 = 90 phi1 = 63.2432 theta2 = 84 phi2 = 153.243 theta3 = 6 phi3 = -26.7568 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 600 chmoth = 'DC13' x = 16.9686 y = 33.6553 z = 0 irot = 646 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 647 theta1 = 90 phi1 = 65.6757 theta2 = 84 phi2 = 155.676 theta3 = 6 phi3 = -24.3243 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 601 chmoth = 'DC13' x = 15.525 y = 34.3451 z = 0 irot = 647 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 648 theta1 = 90 phi1 = 68.1081 theta2 = 84 phi2 = 158.108 theta3 = 6 phi3 = -21.8919 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 602 chmoth = 'DC13' x = 14.0533 y = 34.9731 z = 0 irot = 648 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 649 theta1 = 90 phi1 = 70.5405 theta2 = 84 phi2 = 160.541 theta3 = 6 phi3 = -19.4595 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 603 chmoth = 'DC13' x = 12.5564 y = 35.538 z = 0 irot = 649 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 650 theta1 = 90 phi1 = 72.973 theta2 = 84 phi2 = 162.973 theta3 = 6 phi3 = -17.027 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 604 chmoth = 'DC13' x = 11.0368 y = 36.0389 z = 0 irot = 650 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 651 theta1 = 90 phi1 = 75.4054 theta2 = 84 phi2 = 165.405 theta3 = 6 phi3 = -14.5946 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 605 chmoth = 'DC13' x = 9.49731 y = 36.4748 z = 0 irot = 651 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 652 theta1 = 90 phi1 = 77.8378 theta2 = 84 phi2 = 167.838 theta3 = 6 phi3 = -12.1622 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 606 chmoth = 'DC13' x = 7.94071 y = 36.845 z = 0 irot = 652 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 653 theta1 = 90 phi1 = 80.2703 theta2 = 84 phi2 = 170.27 theta3 = 6 phi3 = -9.72973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 607 chmoth = 'DC13' x = 6.36981 y = 37.1488 z = 0 irot = 653 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 654 theta1 = 90 phi1 = 82.7027 theta2 = 84 phi2 = 172.703 theta3 = 6 phi3 = -7.2973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 608 chmoth = 'DC13' x = 4.78743 y = 37.3857 z = 0 irot = 654 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 655 theta1 = 90 phi1 = 85.1351 theta2 = 84 phi2 = 175.135 theta3 = 6 phi3 = -4.86486 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 609 chmoth = 'DC13' x = 3.19642 y = 37.5552 z = 0 irot = 655 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 656 theta1 = 90 phi1 = 87.5676 theta2 = 84 phi2 = 177.568 theta3 = 6 phi3 = -2.43243 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 610 chmoth = 'DC13' x = 1.59965 y = 37.657 z = 0 irot = 656 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 657 theta1 = 90 phi1 = 90 theta2 = 84 phi2 = -180 theta3 = 6 phi3 = 6.01029e-14 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 611 chmoth = 'DC13' x = 2.30783e-15 y = 37.691 z = 0 irot = 657 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 658 theta1 = 90 phi1 = 92.4324 theta2 = 84 phi2 = -177.568 theta3 = 6 phi3 = 2.43243 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 612 chmoth = 'DC13' x = -1.59965 y = 37.657 z = 0 irot = 658 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 659 theta1 = 90 phi1 = 94.8649 theta2 = 84 phi2 = -175.135 theta3 = 6 phi3 = 4.86486 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 613 chmoth = 'DC13' x = -3.19642 y = 37.5552 z = 0 irot = 659 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 660 theta1 = 90 phi1 = 97.2973 theta2 = 84 phi2 = -172.703 theta3 = 6 phi3 = 7.2973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 614 chmoth = 'DC13' x = -4.78743 y = 37.3857 z = 0 irot = 660 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 661 theta1 = 90 phi1 = 99.7297 theta2 = 84 phi2 = -170.27 theta3 = 6 phi3 = 9.72973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 615 chmoth = 'DC13' x = -6.36981 y = 37.1488 z = 0 irot = 661 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 662 theta1 = 90 phi1 = 102.162 theta2 = 84 phi2 = -167.838 theta3 = 6 phi3 = 12.1622 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 616 chmoth = 'DC13' x = -7.94071 y = 36.845 z = 0 irot = 662 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 663 theta1 = 90 phi1 = 104.595 theta2 = 84 phi2 = -165.405 theta3 = 6 phi3 = 14.5946 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 617 chmoth = 'DC13' x = -9.49731 y = 36.4748 z = 0 irot = 663 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 664 theta1 = 90 phi1 = 107.027 theta2 = 84 phi2 = -162.973 theta3 = 6 phi3 = 17.027 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 618 chmoth = 'DC13' x = -11.0368 y = 36.0389 z = 0 irot = 664 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 665 theta1 = 90 phi1 = 109.459 theta2 = 84 phi2 = -160.541 theta3 = 6 phi3 = 19.4595 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 619 chmoth = 'DC13' x = -12.5564 y = 35.538 z = 0 irot = 665 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 666 theta1 = 90 phi1 = 111.892 theta2 = 84 phi2 = -158.108 theta3 = 6 phi3 = 21.8919 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 620 chmoth = 'DC13' x = -14.0533 y = 34.9731 z = 0 irot = 666 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 667 theta1 = 90 phi1 = 114.324 theta2 = 84 phi2 = -155.676 theta3 = 6 phi3 = 24.3243 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 621 chmoth = 'DC13' x = -15.525 y = 34.3451 z = 0 irot = 667 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 668 theta1 = 90 phi1 = 116.757 theta2 = 84 phi2 = -153.243 theta3 = 6 phi3 = 26.7568 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 622 chmoth = 'DC13' x = -16.9686 y = 33.6553 z = 0 irot = 668 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 669 theta1 = 90 phi1 = 119.189 theta2 = 84 phi2 = -150.811 theta3 = 6 phi3 = 29.1892 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 623 chmoth = 'DC13' x = -18.3817 y = 32.9048 z = 0 irot = 669 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 670 theta1 = 90 phi1 = 121.622 theta2 = 84 phi2 = -148.378 theta3 = 6 phi3 = 31.6216 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 624 chmoth = 'DC13' x = -19.7617 y = 32.095 z = 0 irot = 670 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 671 theta1 = 90 phi1 = 124.054 theta2 = 84 phi2 = -145.946 theta3 = 6 phi3 = 34.0541 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 625 chmoth = 'DC13' x = -21.106 y = 31.2274 z = 0 irot = 671 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 672 theta1 = 90 phi1 = 126.486 theta2 = 84 phi2 = -143.514 theta3 = 6 phi3 = 36.4865 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 626 chmoth = 'DC13' x = -22.4123 y = 30.3035 z = 0 irot = 672 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 673 theta1 = 90 phi1 = 128.919 theta2 = 84 phi2 = -141.081 theta3 = 6 phi3 = 38.9189 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 627 chmoth = 'DC13' x = -23.6782 y = 29.3249 z = 0 irot = 673 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 674 theta1 = 90 phi1 = 131.351 theta2 = 84 phi2 = -138.649 theta3 = 6 phi3 = 41.3514 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 628 chmoth = 'DC13' x = -24.9015 y = 28.2936 z = 0 irot = 674 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 675 theta1 = 90 phi1 = 133.784 theta2 = 84 phi2 = -136.216 theta3 = 6 phi3 = 43.7838 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 629 chmoth = 'DC13' x = -26.0799 y = 27.2112 z = 0 irot = 675 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 676 theta1 = 90 phi1 = 136.216 theta2 = 84 phi2 = -133.784 theta3 = 6 phi3 = 46.2162 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 630 chmoth = 'DC13' x = -27.2112 y = 26.0799 z = 0 irot = 676 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 677 theta1 = 90 phi1 = 138.649 theta2 = 84 phi2 = -131.351 theta3 = 6 phi3 = 48.6486 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 631 chmoth = 'DC13' x = -28.2936 y = 24.9015 z = 0 irot = 677 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 678 theta1 = 90 phi1 = 141.081 theta2 = 84 phi2 = -128.919 theta3 = 6 phi3 = 51.0811 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 632 chmoth = 'DC13' x = -29.3249 y = 23.6782 z = 0 irot = 678 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 679 theta1 = 90 phi1 = 143.514 theta2 = 84 phi2 = -126.486 theta3 = 6 phi3 = 53.5135 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 633 chmoth = 'DC13' x = -30.3035 y = 22.4123 z = 0 irot = 679 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 680 theta1 = 90 phi1 = 145.946 theta2 = 84 phi2 = -124.054 theta3 = 6 phi3 = 55.9459 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 634 chmoth = 'DC13' x = -31.2274 y = 21.106 z = 0 irot = 680 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 681 theta1 = 90 phi1 = 148.378 theta2 = 84 phi2 = -121.622 theta3 = 6 phi3 = 58.3784 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 635 chmoth = 'DC13' x = -32.095 y = 19.7617 z = 0 irot = 681 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 682 theta1 = 90 phi1 = 150.811 theta2 = 84 phi2 = -119.189 theta3 = 6 phi3 = 60.8108 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 636 chmoth = 'DC13' x = -32.9048 y = 18.3817 z = 0 irot = 682 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 683 theta1 = 90 phi1 = 153.243 theta2 = 84 phi2 = -116.757 theta3 = 6 phi3 = 63.2432 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 637 chmoth = 'DC13' x = -33.6553 y = 16.9686 z = 0 irot = 683 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 684 theta1 = 90 phi1 = 155.676 theta2 = 84 phi2 = -114.324 theta3 = 6 phi3 = 65.6757 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 638 chmoth = 'DC13' x = -34.3451 y = 15.525 z = 0 irot = 684 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 685 theta1 = 90 phi1 = 158.108 theta2 = 84 phi2 = -111.892 theta3 = 6 phi3 = 68.1081 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 639 chmoth = 'DC13' x = -34.9731 y = 14.0533 z = 0 irot = 685 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 686 theta1 = 90 phi1 = 160.541 theta2 = 84 phi2 = -109.459 theta3 = 6 phi3 = 70.5405 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 640 chmoth = 'DC13' x = -35.538 y = 12.5564 z = 0 irot = 686 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 687 theta1 = 90 phi1 = 162.973 theta2 = 84 phi2 = -107.027 theta3 = 6 phi3 = 72.973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 641 chmoth = 'DC13' x = -36.0389 y = 11.0368 z = 0 irot = 687 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 688 theta1 = 90 phi1 = 165.405 theta2 = 84 phi2 = -104.595 theta3 = 6 phi3 = 75.4054 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 642 chmoth = 'DC13' x = -36.4748 y = 9.49731 z = 0 irot = 688 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 689 theta1 = 90 phi1 = 167.838 theta2 = 84 phi2 = -102.162 theta3 = 6 phi3 = 77.8378 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 643 chmoth = 'DC13' x = -36.845 y = 7.94071 z = 0 irot = 689 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 690 theta1 = 90 phi1 = 170.27 theta2 = 84 phi2 = -99.7297 theta3 = 6 phi3 = 80.2703 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 644 chmoth = 'DC13' x = -37.1488 y = 6.36981 z = 0 irot = 690 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 691 theta1 = 90 phi1 = 172.703 theta2 = 84 phi2 = -97.2973 theta3 = 6 phi3 = 82.7027 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 645 chmoth = 'DC13' x = -37.3857 y = 4.78743 z = 0 irot = 691 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 692 theta1 = 90 phi1 = 175.135 theta2 = 84 phi2 = -94.8649 theta3 = 6 phi3 = 85.1351 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 646 chmoth = 'DC13' x = -37.5552 y = 3.19642 z = 0 irot = 692 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 693 theta1 = 90 phi1 = 177.568 theta2 = 84 phi2 = -92.4324 theta3 = 6 phi3 = 87.5676 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 647 chmoth = 'DC13' x = -37.657 y = 1.59965 z = 0 irot = 693 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 694 theta1 = 90 phi1 = -180 theta2 = 84 phi2 = -90 theta3 = 6 phi3 = 90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 648 chmoth = 'DC13' x = -37.691 y = 4.61566e-15 z = 0 irot = 694 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 695 theta1 = 90 phi1 = -177.568 theta2 = 84 phi2 = -87.5676 theta3 = 6 phi3 = 92.4324 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 649 chmoth = 'DC13' x = -37.657 y = -1.59965 z = 0 irot = 695 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 696 theta1 = 90 phi1 = -175.135 theta2 = 84 phi2 = -85.1351 theta3 = 6 phi3 = 94.8649 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 650 chmoth = 'DC13' x = -37.5552 y = -3.19642 z = 0 irot = 696 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 697 theta1 = 90 phi1 = -172.703 theta2 = 84 phi2 = -82.7027 theta3 = 6 phi3 = 97.2973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 651 chmoth = 'DC13' x = -37.3857 y = -4.78743 z = 0 irot = 697 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 698 theta1 = 90 phi1 = -170.27 theta2 = 84 phi2 = -80.2703 theta3 = 6 phi3 = 99.7297 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 652 chmoth = 'DC13' x = -37.1488 y = -6.36981 z = 0 irot = 698 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 699 theta1 = 90 phi1 = -167.838 theta2 = 84 phi2 = -77.8378 theta3 = 6 phi3 = 102.162 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 653 chmoth = 'DC13' x = -36.845 y = -7.94071 z = 0 irot = 699 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 700 theta1 = 90 phi1 = -165.405 theta2 = 84 phi2 = -75.4054 theta3 = 6 phi3 = 104.595 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 654 chmoth = 'DC13' x = -36.4748 y = -9.49731 z = 0 irot = 700 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 701 theta1 = 90 phi1 = -162.973 theta2 = 84 phi2 = -72.973 theta3 = 6 phi3 = 107.027 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 655 chmoth = 'DC13' x = -36.0389 y = -11.0368 z = 0 irot = 701 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 702 theta1 = 90 phi1 = -160.541 theta2 = 84 phi2 = -70.5405 theta3 = 6 phi3 = 109.459 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 656 chmoth = 'DC13' x = -35.538 y = -12.5564 z = 0 irot = 702 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 703 theta1 = 90 phi1 = -158.108 theta2 = 84 phi2 = -68.1081 theta3 = 6 phi3 = 111.892 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 657 chmoth = 'DC13' x = -34.9731 y = -14.0533 z = 0 irot = 703 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 704 theta1 = 90 phi1 = -155.676 theta2 = 84 phi2 = -65.6757 theta3 = 6 phi3 = 114.324 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 658 chmoth = 'DC13' x = -34.3451 y = -15.525 z = 0 irot = 704 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 705 theta1 = 90 phi1 = -153.243 theta2 = 84 phi2 = -63.2432 theta3 = 6 phi3 = 116.757 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 659 chmoth = 'DC13' x = -33.6553 y = -16.9686 z = 0 irot = 705 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 706 theta1 = 90 phi1 = -150.811 theta2 = 84 phi2 = -60.8108 theta3 = 6 phi3 = 119.189 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 660 chmoth = 'DC13' x = -32.9048 y = -18.3817 z = 0 irot = 706 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 707 theta1 = 90 phi1 = -148.378 theta2 = 84 phi2 = -58.3784 theta3 = 6 phi3 = 121.622 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 661 chmoth = 'DC13' x = -32.095 y = -19.7617 z = 0 irot = 707 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 708 theta1 = 90 phi1 = -145.946 theta2 = 84 phi2 = -55.9459 theta3 = 6 phi3 = 124.054 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 662 chmoth = 'DC13' x = -31.2274 y = -21.106 z = 0 irot = 708 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 709 theta1 = 90 phi1 = -143.514 theta2 = 84 phi2 = -53.5135 theta3 = 6 phi3 = 126.486 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 663 chmoth = 'DC13' x = -30.3035 y = -22.4123 z = 0 irot = 709 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 710 theta1 = 90 phi1 = -141.081 theta2 = 84 phi2 = -51.0811 theta3 = 6 phi3 = 128.919 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 664 chmoth = 'DC13' x = -29.3249 y = -23.6782 z = 0 irot = 710 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 711 theta1 = 90 phi1 = -138.649 theta2 = 84 phi2 = -48.6486 theta3 = 6 phi3 = 131.351 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 665 chmoth = 'DC13' x = -28.2936 y = -24.9015 z = 0 irot = 711 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 712 theta1 = 90 phi1 = -136.216 theta2 = 84 phi2 = -46.2162 theta3 = 6 phi3 = 133.784 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 666 chmoth = 'DC13' x = -27.2112 y = -26.0799 z = 0 irot = 712 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 713 theta1 = 90 phi1 = -133.784 theta2 = 84 phi2 = -43.7838 theta3 = 6 phi3 = 136.216 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 667 chmoth = 'DC13' x = -26.0799 y = -27.2112 z = 0 irot = 713 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 714 theta1 = 90 phi1 = -131.351 theta2 = 84 phi2 = -41.3514 theta3 = 6 phi3 = 138.649 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 668 chmoth = 'DC13' x = -24.9015 y = -28.2936 z = 0 irot = 714 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 715 theta1 = 90 phi1 = -128.919 theta2 = 84 phi2 = -38.9189 theta3 = 6 phi3 = 141.081 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 669 chmoth = 'DC13' x = -23.6782 y = -29.3249 z = 0 irot = 715 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 716 theta1 = 90 phi1 = -126.486 theta2 = 84 phi2 = -36.4865 theta3 = 6 phi3 = 143.514 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 670 chmoth = 'DC13' x = -22.4123 y = -30.3035 z = 0 irot = 716 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 717 theta1 = 90 phi1 = -124.054 theta2 = 84 phi2 = -34.0541 theta3 = 6 phi3 = 145.946 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 671 chmoth = 'DC13' x = -21.106 y = -31.2274 z = 0 irot = 717 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 718 theta1 = 90 phi1 = -121.622 theta2 = 84 phi2 = -31.6216 theta3 = 6 phi3 = 148.378 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 672 chmoth = 'DC13' x = -19.7617 y = -32.095 z = 0 irot = 718 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 719 theta1 = 90 phi1 = -119.189 theta2 = 84 phi2 = -29.1892 theta3 = 6 phi3 = 150.811 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 673 chmoth = 'DC13' x = -18.3817 y = -32.9048 z = 0 irot = 719 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 720 theta1 = 90 phi1 = -116.757 theta2 = 84 phi2 = -26.7568 theta3 = 6 phi3 = 153.243 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 674 chmoth = 'DC13' x = -16.9686 y = -33.6553 z = 0 irot = 720 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 721 theta1 = 90 phi1 = -114.324 theta2 = 84 phi2 = -24.3243 theta3 = 6 phi3 = 155.676 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 675 chmoth = 'DC13' x = -15.525 y = -34.3451 z = 0 irot = 721 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 722 theta1 = 90 phi1 = -111.892 theta2 = 84 phi2 = -21.8919 theta3 = 6 phi3 = 158.108 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 676 chmoth = 'DC13' x = -14.0533 y = -34.9731 z = 0 irot = 722 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 723 theta1 = 90 phi1 = -109.459 theta2 = 84 phi2 = -19.4595 theta3 = 6 phi3 = 160.541 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 677 chmoth = 'DC13' x = -12.5564 y = -35.538 z = 0 irot = 723 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 724 theta1 = 90 phi1 = -107.027 theta2 = 84 phi2 = -17.027 theta3 = 6 phi3 = 162.973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 678 chmoth = 'DC13' x = -11.0368 y = -36.0389 z = 0 irot = 724 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 725 theta1 = 90 phi1 = -104.595 theta2 = 84 phi2 = -14.5946 theta3 = 6 phi3 = 165.405 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 679 chmoth = 'DC13' x = -9.49731 y = -36.4748 z = 0 irot = 725 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 726 theta1 = 90 phi1 = -102.162 theta2 = 84 phi2 = -12.1622 theta3 = 6 phi3 = 167.838 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 680 chmoth = 'DC13' x = -7.94071 y = -36.845 z = 0 irot = 726 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 727 theta1 = 90 phi1 = -99.7297 theta2 = 84 phi2 = -9.72973 theta3 = 6 phi3 = 170.27 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 681 chmoth = 'DC13' x = -6.36981 y = -37.1488 z = 0 irot = 727 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 728 theta1 = 90 phi1 = -97.2973 theta2 = 84 phi2 = -7.2973 theta3 = 6 phi3 = 172.703 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 682 chmoth = 'DC13' x = -4.78743 y = -37.3857 z = 0 irot = 728 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 729 theta1 = 90 phi1 = -94.8649 theta2 = 84 phi2 = -4.86486 theta3 = 6 phi3 = 175.135 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 683 chmoth = 'DC13' x = -3.19642 y = -37.5552 z = 0 irot = 729 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 730 theta1 = 90 phi1 = -92.4324 theta2 = 84 phi2 = -2.43243 theta3 = 6 phi3 = 177.568 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 684 chmoth = 'DC13' x = -1.59965 y = -37.657 z = 0 irot = 730 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 731 theta1 = 90 phi1 = -90 theta2 = 84 phi2 = 4.47475e-13 theta3 = 6 phi3 = -180 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 685 chmoth = 'DC13' x = -6.9235e-15 y = -37.691 z = 0 irot = 731 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 732 theta1 = 90 phi1 = -87.5676 theta2 = 84 phi2 = 2.43243 theta3 = 6 phi3 = -177.568 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 686 chmoth = 'DC13' x = 1.59965 y = -37.657 z = 0 irot = 732 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 733 theta1 = 90 phi1 = -85.1351 theta2 = 84 phi2 = 4.86486 theta3 = 6 phi3 = -175.135 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 687 chmoth = 'DC13' x = 3.19642 y = -37.5552 z = 0 irot = 733 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 734 theta1 = 90 phi1 = -82.7027 theta2 = 84 phi2 = 7.2973 theta3 = 6 phi3 = -172.703 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 688 chmoth = 'DC13' x = 4.78743 y = -37.3857 z = 0 irot = 734 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 735 theta1 = 90 phi1 = -80.2703 theta2 = 84 phi2 = 9.72973 theta3 = 6 phi3 = -170.27 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 689 chmoth = 'DC13' x = 6.36981 y = -37.1488 z = 0 irot = 735 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 736 theta1 = 90 phi1 = -77.8378 theta2 = 84 phi2 = 12.1622 theta3 = 6 phi3 = -167.838 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 690 chmoth = 'DC13' x = 7.94071 y = -36.845 z = 0 irot = 736 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 737 theta1 = 90 phi1 = -75.4054 theta2 = 84 phi2 = 14.5946 theta3 = 6 phi3 = -165.405 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 691 chmoth = 'DC13' x = 9.49731 y = -36.4748 z = 0 irot = 737 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 738 theta1 = 90 phi1 = -72.973 theta2 = 84 phi2 = 17.027 theta3 = 6 phi3 = -162.973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 692 chmoth = 'DC13' x = 11.0368 y = -36.0389 z = 0 irot = 738 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 739 theta1 = 90 phi1 = -70.5405 theta2 = 84 phi2 = 19.4595 theta3 = 6 phi3 = -160.541 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 693 chmoth = 'DC13' x = 12.5564 y = -35.538 z = 0 irot = 739 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 740 theta1 = 90 phi1 = -68.1081 theta2 = 84 phi2 = 21.8919 theta3 = 6 phi3 = -158.108 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 694 chmoth = 'DC13' x = 14.0533 y = -34.9731 z = 0 irot = 740 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 741 theta1 = 90 phi1 = -65.6757 theta2 = 84 phi2 = 24.3243 theta3 = 6 phi3 = -155.676 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 695 chmoth = 'DC13' x = 15.525 y = -34.3451 z = 0 irot = 741 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 742 theta1 = 90 phi1 = -63.2432 theta2 = 84 phi2 = 26.7568 theta3 = 6 phi3 = -153.243 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 696 chmoth = 'DC13' x = 16.9686 y = -33.6553 z = 0 irot = 742 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 743 theta1 = 90 phi1 = -60.8108 theta2 = 84 phi2 = 29.1892 theta3 = 6 phi3 = -150.811 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 697 chmoth = 'DC13' x = 18.3817 y = -32.9048 z = 0 irot = 743 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 744 theta1 = 90 phi1 = -58.3784 theta2 = 84 phi2 = 31.6216 theta3 = 6 phi3 = -148.378 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 698 chmoth = 'DC13' x = 19.7617 y = -32.095 z = 0 irot = 744 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 745 theta1 = 90 phi1 = -55.9459 theta2 = 84 phi2 = 34.0541 theta3 = 6 phi3 = -145.946 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 699 chmoth = 'DC13' x = 21.106 y = -31.2274 z = 0 irot = 745 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 746 theta1 = 90 phi1 = -53.5135 theta2 = 84 phi2 = 36.4865 theta3 = 6 phi3 = -143.514 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 700 chmoth = 'DC13' x = 22.4123 y = -30.3035 z = 0 irot = 746 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 747 theta1 = 90 phi1 = -51.0811 theta2 = 84 phi2 = 38.9189 theta3 = 6 phi3 = -141.081 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 701 chmoth = 'DC13' x = 23.6782 y = -29.3249 z = 0 irot = 747 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 748 theta1 = 90 phi1 = -48.6486 theta2 = 84 phi2 = 41.3514 theta3 = 6 phi3 = -138.649 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 702 chmoth = 'DC13' x = 24.9015 y = -28.2936 z = 0 irot = 748 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 749 theta1 = 90 phi1 = -46.2162 theta2 = 84 phi2 = 43.7838 theta3 = 6 phi3 = -136.216 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 703 chmoth = 'DC13' x = 26.0799 y = -27.2112 z = 0 irot = 749 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 750 theta1 = 90 phi1 = -43.7838 theta2 = 84 phi2 = 46.2162 theta3 = 6 phi3 = -133.784 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 704 chmoth = 'DC13' x = 27.2112 y = -26.0799 z = 0 irot = 750 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 751 theta1 = 90 phi1 = -41.3514 theta2 = 84 phi2 = 48.6486 theta3 = 6 phi3 = -131.351 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 705 chmoth = 'DC13' x = 28.2936 y = -24.9015 z = 0 irot = 751 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 752 theta1 = 90 phi1 = -38.9189 theta2 = 84 phi2 = 51.0811 theta3 = 6 phi3 = -128.919 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 706 chmoth = 'DC13' x = 29.3249 y = -23.6782 z = 0 irot = 752 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 753 theta1 = 90 phi1 = -36.4865 theta2 = 84 phi2 = 53.5135 theta3 = 6 phi3 = -126.486 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 707 chmoth = 'DC13' x = 30.3035 y = -22.4123 z = 0 irot = 753 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 754 theta1 = 90 phi1 = -34.0541 theta2 = 84 phi2 = 55.9459 theta3 = 6 phi3 = -124.054 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 708 chmoth = 'DC13' x = 31.2274 y = -21.106 z = 0 irot = 754 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 755 theta1 = 90 phi1 = -31.6216 theta2 = 84 phi2 = 58.3784 theta3 = 6 phi3 = -121.622 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 709 chmoth = 'DC13' x = 32.095 y = -19.7617 z = 0 irot = 755 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 756 theta1 = 90 phi1 = -29.1892 theta2 = 84 phi2 = 60.8108 theta3 = 6 phi3 = -119.189 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 710 chmoth = 'DC13' x = 32.9048 y = -18.3817 z = 0 irot = 756 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 757 theta1 = 90 phi1 = -26.7568 theta2 = 84 phi2 = 63.2432 theta3 = 6 phi3 = -116.757 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 711 chmoth = 'DC13' x = 33.6553 y = -16.9686 z = 0 irot = 757 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 758 theta1 = 90 phi1 = -24.3243 theta2 = 84 phi2 = 65.6757 theta3 = 6 phi3 = -114.324 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 712 chmoth = 'DC13' x = 34.3451 y = -15.525 z = 0 irot = 758 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 759 theta1 = 90 phi1 = -21.8919 theta2 = 84 phi2 = 68.1081 theta3 = 6 phi3 = -111.892 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 713 chmoth = 'DC13' x = 34.9731 y = -14.0533 z = 0 irot = 759 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 760 theta1 = 90 phi1 = -19.4595 theta2 = 84 phi2 = 70.5405 theta3 = 6 phi3 = -109.459 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 714 chmoth = 'DC13' x = 35.538 y = -12.5564 z = 0 irot = 760 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 761 theta1 = 90 phi1 = -17.027 theta2 = 84 phi2 = 72.973 theta3 = 6 phi3 = -107.027 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 715 chmoth = 'DC13' x = 36.0389 y = -11.0368 z = 0 irot = 761 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 762 theta1 = 90 phi1 = -14.5946 theta2 = 84 phi2 = 75.4054 theta3 = 6 phi3 = -104.595 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 716 chmoth = 'DC13' x = 36.4748 y = -9.49731 z = 0 irot = 762 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 763 theta1 = 90 phi1 = -12.1622 theta2 = 84 phi2 = 77.8378 theta3 = 6 phi3 = -102.162 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 717 chmoth = 'DC13' x = 36.845 y = -7.94071 z = 0 irot = 763 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 764 theta1 = 90 phi1 = -9.72973 theta2 = 84 phi2 = 80.2703 theta3 = 6 phi3 = -99.7297 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 718 chmoth = 'DC13' x = 37.1488 y = -6.36981 z = 0 irot = 764 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 765 theta1 = 90 phi1 = -7.2973 theta2 = 84 phi2 = 82.7027 theta3 = 6 phi3 = -97.2973 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 719 chmoth = 'DC13' x = 37.3857 y = -4.78743 z = 0 irot = 765 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 766 theta1 = 90 phi1 = -4.86486 theta2 = 84 phi2 = 85.1351 theta3 = 6 phi3 = -94.8649 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 720 chmoth = 'DC13' x = 37.5552 y = -3.19642 z = 0 irot = 766 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 767 theta1 = 90 phi1 = -2.43243 theta2 = 84 phi2 = 87.5676 theta3 = 6 phi3 = -92.4324 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 721 chmoth = 'DC13' x = 37.657 y = -1.59965 z = 0 irot = 767 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 768 theta1 = 90 phi1 = 0 theta2 = 84 phi2 = 90 theta3 = 6 phi3 = -90 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 722 chmoth = 'DC13' x = 39.473 y = 0 z = 0 irot = 768 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 769 theta1 = 90 phi1 = 2.32258 theta2 = 84 phi2 = 92.3226 theta3 = 6 phi3 = -87.6774 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 723 chmoth = 'DC13' x = 39.4406 y = 1.59967 z = 0 irot = 769 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 770 theta1 = 90 phi1 = 4.64516 theta2 = 84 phi2 = 94.6452 theta3 = 6 phi3 = -85.3548 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 724 chmoth = 'DC13' x = 39.3433 y = 3.1967 z = 0 irot = 770 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 771 theta1 = 90 phi1 = 6.96774 theta2 = 84 phi2 = 96.9677 theta3 = 6 phi3 = -83.0323 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 725 chmoth = 'DC13' x = 39.1815 y = 4.78849 z = 0 irot = 771 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 772 theta1 = 90 phi1 = 9.29032 theta2 = 84 phi2 = 99.2903 theta3 = 6 phi3 = -80.7097 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 726 chmoth = 'DC13' x = 38.9552 y = 6.37241 z = 0 irot = 772 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 773 theta1 = 90 phi1 = 11.6129 theta2 = 84 phi2 = 101.613 theta3 = 6 phi3 = -78.3871 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 727 chmoth = 'DC13' x = 38.665 y = 7.94586 z = 0 irot = 773 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 774 theta1 = 90 phi1 = 13.9355 theta2 = 84 phi2 = 103.935 theta3 = 6 phi3 = -76.0645 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 728 chmoth = 'DC13' x = 38.3112 y = 9.50625 z = 0 irot = 774 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 775 theta1 = 90 phi1 = 16.2581 theta2 = 84 phi2 = 106.258 theta3 = 6 phi3 = -73.7419 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 729 chmoth = 'DC13' x = 37.8945 y = 11.051 z = 0 irot = 775 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 776 theta1 = 90 phi1 = 18.5806 theta2 = 84 phi2 = 108.581 theta3 = 6 phi3 = -71.4194 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 730 chmoth = 'DC13' x = 37.4155 y = 12.5776 z = 0 irot = 776 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 777 theta1 = 90 phi1 = 20.9032 theta2 = 84 phi2 = 110.903 theta3 = 6 phi3 = -69.0968 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 731 chmoth = 'DC13' x = 36.8751 y = 14.0836 z = 0 irot = 777 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 778 theta1 = 90 phi1 = 23.2258 theta2 = 84 phi2 = 113.226 theta3 = 6 phi3 = -66.7742 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 732 chmoth = 'DC13' x = 36.274 y = 15.5664 z = 0 irot = 778 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 779 theta1 = 90 phi1 = 25.5484 theta2 = 84 phi2 = 115.548 theta3 = 6 phi3 = -64.4516 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 733 chmoth = 'DC13' x = 35.6134 y = 17.0236 z = 0 irot = 779 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 780 theta1 = 90 phi1 = 27.871 theta2 = 84 phi2 = 117.871 theta3 = 6 phi3 = -62.129 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 734 chmoth = 'DC13' x = 34.8942 y = 18.4529 z = 0 irot = 780 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 781 theta1 = 90 phi1 = 30.1935 theta2 = 84 phi2 = 120.194 theta3 = 6 phi3 = -59.8065 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 735 chmoth = 'DC13' x = 34.1178 y = 19.8519 z = 0 irot = 781 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 782 theta1 = 90 phi1 = 32.5161 theta2 = 84 phi2 = 122.516 theta3 = 6 phi3 = -57.4839 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 736 chmoth = 'DC13' x = 33.2852 y = 21.2182 z = 0 irot = 782 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 783 theta1 = 90 phi1 = 34.8387 theta2 = 84 phi2 = 124.839 theta3 = 6 phi3 = -55.1613 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 737 chmoth = 'DC13' x = 32.398 y = 22.5497 z = 0 irot = 783 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 784 theta1 = 90 phi1 = 37.1613 theta2 = 84 phi2 = 127.161 theta3 = 6 phi3 = -52.8387 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 738 chmoth = 'DC13' x = 31.4575 y = 23.8441 z = 0 irot = 784 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 785 theta1 = 90 phi1 = 39.4839 theta2 = 84 phi2 = 129.484 theta3 = 6 phi3 = -50.5161 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 739 chmoth = 'DC13' x = 30.4654 y = 25.0993 z = 0 irot = 785 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 786 theta1 = 90 phi1 = 41.8065 theta2 = 84 phi2 = 131.806 theta3 = 6 phi3 = -48.1935 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 740 chmoth = 'DC13' x = 29.4232 y = 26.3133 z = 0 irot = 786 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 787 theta1 = 90 phi1 = 44.129 theta2 = 84 phi2 = 134.129 theta3 = 6 phi3 = -45.871 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 741 chmoth = 'DC13' x = 28.3327 y = 27.4841 z = 0 irot = 787 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 788 theta1 = 90 phi1 = 46.4516 theta2 = 84 phi2 = 136.452 theta3 = 6 phi3 = -43.5484 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 742 chmoth = 'DC13' x = 27.1956 y = 28.6097 z = 0 irot = 788 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 789 theta1 = 90 phi1 = 48.7742 theta2 = 84 phi2 = 138.774 theta3 = 6 phi3 = -41.2258 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 743 chmoth = 'DC13' x = 26.0138 y = 29.6884 z = 0 irot = 789 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 790 theta1 = 90 phi1 = 51.0968 theta2 = 84 phi2 = 141.097 theta3 = 6 phi3 = -38.9032 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 744 chmoth = 'DC13' x = 24.7893 y = 30.7182 z = 0 irot = 790 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 791 theta1 = 90 phi1 = 53.4194 theta2 = 84 phi2 = 143.419 theta3 = 6 phi3 = -36.5806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 745 chmoth = 'DC13' x = 23.5241 y = 31.6976 z = 0 irot = 791 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 792 theta1 = 90 phi1 = 55.7419 theta2 = 84 phi2 = 145.742 theta3 = 6 phi3 = -34.2581 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 746 chmoth = 'DC13' x = 22.2202 y = 32.6248 z = 0 irot = 792 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 793 theta1 = 90 phi1 = 58.0645 theta2 = 84 phi2 = 148.065 theta3 = 6 phi3 = -31.9355 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 747 chmoth = 'DC13' x = 20.8798 y = 33.4985 z = 0 irot = 793 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 794 theta1 = 90 phi1 = 60.3871 theta2 = 84 phi2 = 150.387 theta3 = 6 phi3 = -29.6129 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 748 chmoth = 'DC13' x = 19.5051 y = 34.3172 z = 0 irot = 794 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 795 theta1 = 90 phi1 = 62.7097 theta2 = 84 phi2 = 152.71 theta3 = 6 phi3 = -27.2903 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 749 chmoth = 'DC13' x = 18.0983 y = 35.0794 z = 0 irot = 795 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 796 theta1 = 90 phi1 = 65.0323 theta2 = 84 phi2 = 155.032 theta3 = 6 phi3 = -24.9677 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 750 chmoth = 'DC13' x = 16.6619 y = 35.7841 z = 0 irot = 796 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 797 theta1 = 90 phi1 = 67.3548 theta2 = 84 phi2 = 157.355 theta3 = 6 phi3 = -22.6452 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 751 chmoth = 'DC13' x = 15.198 y = 36.4299 z = 0 irot = 797 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 798 theta1 = 90 phi1 = 69.6774 theta2 = 84 phi2 = 159.677 theta3 = 6 phi3 = -20.3226 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 752 chmoth = 'DC13' x = 13.7092 y = 37.0159 z = 0 irot = 798 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 799 theta1 = 90 phi1 = 72 theta2 = 84 phi2 = 162 theta3 = 6 phi3 = -18 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 753 chmoth = 'DC13' x = 12.1978 y = 37.5411 z = 0 irot = 799 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 800 theta1 = 90 phi1 = 74.3226 theta2 = 84 phi2 = 164.323 theta3 = 6 phi3 = -15.6774 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 754 chmoth = 'DC13' x = 10.6664 y = 38.0045 z = 0 irot = 800 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 801 theta1 = 90 phi1 = 76.6452 theta2 = 84 phi2 = 166.645 theta3 = 6 phi3 = -13.3548 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 755 chmoth = 'DC13' x = 9.11752 y = 38.4056 z = 0 irot = 801 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 802 theta1 = 90 phi1 = 78.9677 theta2 = 84 phi2 = 168.968 theta3 = 6 phi3 = -11.0323 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 756 chmoth = 'DC13' x = 7.55362 y = 38.7435 z = 0 irot = 802 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 803 theta1 = 90 phi1 = 81.2903 theta2 = 84 phi2 = 171.29 theta3 = 6 phi3 = -8.70968 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 757 chmoth = 'DC13' x = 5.97731 y = 39.0178 z = 0 irot = 803 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 804 theta1 = 90 phi1 = 83.6129 theta2 = 84 phi2 = 173.613 theta3 = 6 phi3 = -6.3871 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 758 chmoth = 'DC13' x = 4.39118 y = 39.228 z = 0 irot = 804 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 805 theta1 = 90 phi1 = 85.9355 theta2 = 84 phi2 = 175.935 theta3 = 6 phi3 = -4.06452 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 759 chmoth = 'DC13' x = 2.79783 y = 39.3737 z = 0 irot = 805 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 806 theta1 = 90 phi1 = 88.2581 theta2 = 84 phi2 = 178.258 theta3 = 6 phi3 = -1.74194 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 760 chmoth = 'DC13' x = 1.19989 y = 39.4548 z = 0 irot = 806 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 807 theta1 = 90 phi1 = 90.5806 theta2 = 84 phi2 = -179.419 theta3 = 6 phi3 = 0.580645 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 761 chmoth = 'DC13' x = -0.400019 y = 39.471 z = 0 irot = 807 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 808 theta1 = 90 phi1 = 92.9032 theta2 = 84 phi2 = -177.097 theta3 = 6 phi3 = 2.90323 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 762 chmoth = 'DC13' x = -1.99927 y = 39.4223 z = 0 irot = 808 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 809 theta1 = 90 phi1 = 95.2258 theta2 = 84 phi2 = -174.774 theta3 = 6 phi3 = 5.22581 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 763 chmoth = 'DC13' x = -3.59525 y = 39.3089 z = 0 irot = 809 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 810 theta1 = 90 phi1 = 97.5484 theta2 = 84 phi2 = -172.452 theta3 = 6 phi3 = 7.54839 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 764 chmoth = 'DC13' x = -5.18531 y = 39.1309 z = 0 irot = 810 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 811 theta1 = 90 phi1 = 99.871 theta2 = 84 phi2 = -170.129 theta3 = 6 phi3 = 9.87097 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 765 chmoth = 'DC13' x = -6.76685 y = 38.8887 z = 0 irot = 811 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 812 theta1 = 90 phi1 = 102.194 theta2 = 84 phi2 = -167.806 theta3 = 6 phi3 = 12.1935 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 766 chmoth = 'DC13' x = -8.33728 y = 38.5825 z = 0 irot = 812 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 813 theta1 = 90 phi1 = 104.516 theta2 = 84 phi2 = -165.484 theta3 = 6 phi3 = 14.5161 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 767 chmoth = 'DC13' x = -9.89401 y = 38.2129 z = 0 irot = 813 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 814 theta1 = 90 phi1 = 106.839 theta2 = 84 phi2 = -163.161 theta3 = 6 phi3 = 16.8387 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 768 chmoth = 'DC13' x = -11.4345 y = 37.7806 z = 0 irot = 814 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 815 theta1 = 90 phi1 = 109.161 theta2 = 84 phi2 = -160.839 theta3 = 6 phi3 = 19.1613 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 769 chmoth = 'DC13' x = -12.9562 y = 37.2861 z = 0 irot = 815 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 816 theta1 = 90 phi1 = 111.484 theta2 = 84 phi2 = -158.516 theta3 = 6 phi3 = 21.4839 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 770 chmoth = 'DC13' x = -14.4566 y = 36.7304 z = 0 irot = 816 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 817 theta1 = 90 phi1 = 113.806 theta2 = 84 phi2 = -156.194 theta3 = 6 phi3 = 23.8065 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 771 chmoth = 'DC13' x = -15.9332 y = 36.1144 z = 0 irot = 817 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 818 theta1 = 90 phi1 = 116.129 theta2 = 84 phi2 = -153.871 theta3 = 6 phi3 = 26.129 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 772 chmoth = 'DC13' x = -17.3837 y = 35.439 z = 0 irot = 818 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 819 theta1 = 90 phi1 = 118.452 theta2 = 84 phi2 = -151.548 theta3 = 6 phi3 = 28.4516 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 773 chmoth = 'DC13' x = -18.8056 y = 34.7054 z = 0 irot = 819 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 820 theta1 = 90 phi1 = 120.774 theta2 = 84 phi2 = -149.226 theta3 = 6 phi3 = 30.7742 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 774 chmoth = 'DC13' x = -20.1966 y = 33.9148 z = 0 irot = 820 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 821 theta1 = 90 phi1 = 123.097 theta2 = 84 phi2 = -146.903 theta3 = 6 phi3 = 33.0968 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 775 chmoth = 'DC13' x = -21.5544 y = 33.0685 z = 0 irot = 821 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 822 theta1 = 90 phi1 = 125.419 theta2 = 84 phi2 = -144.581 theta3 = 6 phi3 = 35.4194 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 776 chmoth = 'DC13' x = -22.8768 y = 32.1678 z = 0 irot = 822 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 823 theta1 = 90 phi1 = 127.742 theta2 = 84 phi2 = -142.258 theta3 = 6 phi3 = 37.7419 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 777 chmoth = 'DC13' x = -24.1617 y = 31.2143 z = 0 irot = 823 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 824 theta1 = 90 phi1 = 130.065 theta2 = 84 phi2 = -139.935 theta3 = 6 phi3 = 40.0645 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 778 chmoth = 'DC13' x = -25.4068 y = 30.2095 z = 0 irot = 824 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 825 theta1 = 90 phi1 = 132.387 theta2 = 84 phi2 = -137.613 theta3 = 6 phi3 = 42.3871 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 779 chmoth = 'DC13' x = -26.6102 y = 29.155 z = 0 irot = 825 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 826 theta1 = 90 phi1 = 134.71 theta2 = 84 phi2 = -135.29 theta3 = 6 phi3 = 44.7097 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 780 chmoth = 'DC13' x = -27.7698 y = 28.0527 z = 0 irot = 826 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 827 theta1 = 90 phi1 = 137.032 theta2 = 84 phi2 = -132.968 theta3 = 6 phi3 = 47.0323 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 781 chmoth = 'DC13' x = -28.8839 y = 26.9043 z = 0 irot = 827 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 828 theta1 = 90 phi1 = 139.355 theta2 = 84 phi2 = -130.645 theta3 = 6 phi3 = 49.3548 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 782 chmoth = 'DC13' x = -29.9505 y = 25.7116 z = 0 irot = 828 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 829 theta1 = 90 phi1 = 141.677 theta2 = 84 phi2 = -128.323 theta3 = 6 phi3 = 51.6774 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 783 chmoth = 'DC13' x = -30.9678 y = 24.4767 z = 0 irot = 829 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 830 theta1 = 90 phi1 = 144 theta2 = 84 phi2 = -126 theta3 = 6 phi3 = 54 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 784 chmoth = 'DC13' x = -31.9343 y = 23.2016 z = 0 irot = 830 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 831 theta1 = 90 phi1 = 146.323 theta2 = 84 phi2 = -123.677 theta3 = 6 phi3 = 56.3226 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 785 chmoth = 'DC13' x = -32.8484 y = 21.8884 z = 0 irot = 831 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 832 theta1 = 90 phi1 = 148.645 theta2 = 84 phi2 = -121.355 theta3 = 6 phi3 = 58.6452 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 786 chmoth = 'DC13' x = -33.7084 y = 20.5393 z = 0 irot = 832 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 833 theta1 = 90 phi1 = 150.968 theta2 = 84 phi2 = -119.032 theta3 = 6 phi3 = 60.9677 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 787 chmoth = 'DC13' x = -34.5131 y = 19.1563 z = 0 irot = 833 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 834 theta1 = 90 phi1 = 153.29 theta2 = 84 phi2 = -116.71 theta3 = 6 phi3 = 63.2903 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 788 chmoth = 'DC13' x = -35.2611 y = 17.7419 z = 0 irot = 834 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 835 theta1 = 90 phi1 = 155.613 theta2 = 84 phi2 = -114.387 theta3 = 6 phi3 = 65.6129 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 789 chmoth = 'DC13' x = -35.9511 y = 16.2984 z = 0 irot = 835 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 836 theta1 = 90 phi1 = 157.935 theta2 = 84 phi2 = -112.065 theta3 = 6 phi3 = 67.9355 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 790 chmoth = 'DC13' x = -36.5821 y = 14.828 z = 0 irot = 836 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 837 theta1 = 90 phi1 = 160.258 theta2 = 84 phi2 = -109.742 theta3 = 6 phi3 = 70.2581 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 791 chmoth = 'DC13' x = -37.1529 y = 13.3334 z = 0 irot = 837 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 838 theta1 = 90 phi1 = 162.581 theta2 = 84 phi2 = -107.419 theta3 = 6 phi3 = 72.5806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 792 chmoth = 'DC13' x = -37.6627 y = 11.8168 z = 0 irot = 838 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 839 theta1 = 90 phi1 = 164.903 theta2 = 84 phi2 = -105.097 theta3 = 6 phi3 = 74.9032 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 793 chmoth = 'DC13' x = -38.1107 y = 10.2807 z = 0 irot = 839 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 840 theta1 = 90 phi1 = 167.226 theta2 = 84 phi2 = -102.774 theta3 = 6 phi3 = 77.2258 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 794 chmoth = 'DC13' x = -38.496 y = 8.72785 z = 0 irot = 840 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 841 theta1 = 90 phi1 = 169.548 theta2 = 84 phi2 = -100.452 theta3 = 6 phi3 = 79.5484 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 795 chmoth = 'DC13' x = -38.8181 y = 7.1606 z = 0 irot = 841 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 842 theta1 = 90 phi1 = 171.871 theta2 = 84 phi2 = -98.129 theta3 = 6 phi3 = 81.871 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 796 chmoth = 'DC13' x = -39.0764 y = 5.5816 z = 0 irot = 842 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 843 theta1 = 90 phi1 = 174.194 theta2 = 84 phi2 = -95.8065 theta3 = 6 phi3 = 84.1935 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 797 chmoth = 'DC13' x = -39.2705 y = 3.99342 z = 0 irot = 843 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 844 theta1 = 90 phi1 = 176.516 theta2 = 84 phi2 = -93.4839 theta3 = 6 phi3 = 86.5161 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 798 chmoth = 'DC13' x = -39.4001 y = 2.39868 z = 0 irot = 844 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 845 theta1 = 90 phi1 = 178.839 theta2 = 84 phi2 = -91.1613 theta3 = 6 phi3 = 88.8387 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 799 chmoth = 'DC13' x = -39.4649 y = 0.799997 z = 0 irot = 845 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 846 theta1 = 90 phi1 = -178.839 theta2 = 84 phi2 = -88.8387 theta3 = 6 phi3 = 91.1613 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 800 chmoth = 'DC13' x = -39.4649 y = -0.799997 z = 0 irot = 846 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 847 theta1 = 90 phi1 = -176.516 theta2 = 84 phi2 = -86.5161 theta3 = 6 phi3 = 93.4839 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 801 chmoth = 'DC13' x = -39.4001 y = -2.39868 z = 0 irot = 847 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 848 theta1 = 90 phi1 = -174.194 theta2 = 84 phi2 = -84.1935 theta3 = 6 phi3 = 95.8065 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 802 chmoth = 'DC13' x = -39.2705 y = -3.99342 z = 0 irot = 848 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 849 theta1 = 90 phi1 = -171.871 theta2 = 84 phi2 = -81.871 theta3 = 6 phi3 = 98.129 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 803 chmoth = 'DC13' x = -39.0764 y = -5.5816 z = 0 irot = 849 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 850 theta1 = 90 phi1 = -169.548 theta2 = 84 phi2 = -79.5484 theta3 = 6 phi3 = 100.452 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 804 chmoth = 'DC13' x = -38.8181 y = -7.1606 z = 0 irot = 850 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 851 theta1 = 90 phi1 = -167.226 theta2 = 84 phi2 = -77.2258 theta3 = 6 phi3 = 102.774 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 805 chmoth = 'DC13' x = -38.496 y = -8.72785 z = 0 irot = 851 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 852 theta1 = 90 phi1 = -164.903 theta2 = 84 phi2 = -74.9032 theta3 = 6 phi3 = 105.097 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 806 chmoth = 'DC13' x = -38.1107 y = -10.2807 z = 0 irot = 852 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 853 theta1 = 90 phi1 = -162.581 theta2 = 84 phi2 = -72.5806 theta3 = 6 phi3 = 107.419 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 807 chmoth = 'DC13' x = -37.6627 y = -11.8168 z = 0 irot = 853 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 854 theta1 = 90 phi1 = -160.258 theta2 = 84 phi2 = -70.2581 theta3 = 6 phi3 = 109.742 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 808 chmoth = 'DC13' x = -37.1529 y = -13.3334 z = 0 irot = 854 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 855 theta1 = 90 phi1 = -157.935 theta2 = 84 phi2 = -67.9355 theta3 = 6 phi3 = 112.065 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 809 chmoth = 'DC13' x = -36.5821 y = -14.828 z = 0 irot = 855 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 856 theta1 = 90 phi1 = -155.613 theta2 = 84 phi2 = -65.6129 theta3 = 6 phi3 = 114.387 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 810 chmoth = 'DC13' x = -35.9511 y = -16.2984 z = 0 irot = 856 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 857 theta1 = 90 phi1 = -153.29 theta2 = 84 phi2 = -63.2903 theta3 = 6 phi3 = 116.71 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 811 chmoth = 'DC13' x = -35.2611 y = -17.7419 z = 0 irot = 857 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 858 theta1 = 90 phi1 = -150.968 theta2 = 84 phi2 = -60.9677 theta3 = 6 phi3 = 119.032 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 812 chmoth = 'DC13' x = -34.5131 y = -19.1563 z = 0 irot = 858 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 859 theta1 = 90 phi1 = -148.645 theta2 = 84 phi2 = -58.6452 theta3 = 6 phi3 = 121.355 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 813 chmoth = 'DC13' x = -33.7084 y = -20.5393 z = 0 irot = 859 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 860 theta1 = 90 phi1 = -146.323 theta2 = 84 phi2 = -56.3226 theta3 = 6 phi3 = 123.677 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 814 chmoth = 'DC13' x = -32.8484 y = -21.8884 z = 0 irot = 860 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 861 theta1 = 90 phi1 = -144 theta2 = 84 phi2 = -54 theta3 = 6 phi3 = 126 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 815 chmoth = 'DC13' x = -31.9343 y = -23.2016 z = 0 irot = 861 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 862 theta1 = 90 phi1 = -141.677 theta2 = 84 phi2 = -51.6774 theta3 = 6 phi3 = 128.323 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 816 chmoth = 'DC13' x = -30.9678 y = -24.4767 z = 0 irot = 862 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 863 theta1 = 90 phi1 = -139.355 theta2 = 84 phi2 = -49.3548 theta3 = 6 phi3 = 130.645 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 817 chmoth = 'DC13' x = -29.9505 y = -25.7116 z = 0 irot = 863 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 864 theta1 = 90 phi1 = -137.032 theta2 = 84 phi2 = -47.0323 theta3 = 6 phi3 = 132.968 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 818 chmoth = 'DC13' x = -28.8839 y = -26.9043 z = 0 irot = 864 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 865 theta1 = 90 phi1 = -134.71 theta2 = 84 phi2 = -44.7097 theta3 = 6 phi3 = 135.29 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 819 chmoth = 'DC13' x = -27.7698 y = -28.0527 z = 0 irot = 865 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 866 theta1 = 90 phi1 = -132.387 theta2 = 84 phi2 = -42.3871 theta3 = 6 phi3 = 137.613 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 820 chmoth = 'DC13' x = -26.6102 y = -29.155 z = 0 irot = 866 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 867 theta1 = 90 phi1 = -130.065 theta2 = 84 phi2 = -40.0645 theta3 = 6 phi3 = 139.935 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 821 chmoth = 'DC13' x = -25.4068 y = -30.2095 z = 0 irot = 867 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 868 theta1 = 90 phi1 = -127.742 theta2 = 84 phi2 = -37.7419 theta3 = 6 phi3 = 142.258 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 822 chmoth = 'DC13' x = -24.1617 y = -31.2143 z = 0 irot = 868 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 869 theta1 = 90 phi1 = -125.419 theta2 = 84 phi2 = -35.4194 theta3 = 6 phi3 = 144.581 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 823 chmoth = 'DC13' x = -22.8768 y = -32.1678 z = 0 irot = 869 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 870 theta1 = 90 phi1 = -123.097 theta2 = 84 phi2 = -33.0968 theta3 = 6 phi3 = 146.903 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 824 chmoth = 'DC13' x = -21.5544 y = -33.0685 z = 0 irot = 870 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 871 theta1 = 90 phi1 = -120.774 theta2 = 84 phi2 = -30.7742 theta3 = 6 phi3 = 149.226 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 825 chmoth = 'DC13' x = -20.1966 y = -33.9148 z = 0 irot = 871 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 872 theta1 = 90 phi1 = -118.452 theta2 = 84 phi2 = -28.4516 theta3 = 6 phi3 = 151.548 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 826 chmoth = 'DC13' x = -18.8056 y = -34.7054 z = 0 irot = 872 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 873 theta1 = 90 phi1 = -116.129 theta2 = 84 phi2 = -26.129 theta3 = 6 phi3 = 153.871 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 827 chmoth = 'DC13' x = -17.3837 y = -35.439 z = 0 irot = 873 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 874 theta1 = 90 phi1 = -113.806 theta2 = 84 phi2 = -23.8065 theta3 = 6 phi3 = 156.194 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 828 chmoth = 'DC13' x = -15.9332 y = -36.1144 z = 0 irot = 874 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 875 theta1 = 90 phi1 = -111.484 theta2 = 84 phi2 = -21.4839 theta3 = 6 phi3 = 158.516 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 829 chmoth = 'DC13' x = -14.4566 y = -36.7304 z = 0 irot = 875 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 876 theta1 = 90 phi1 = -109.161 theta2 = 84 phi2 = -19.1613 theta3 = 6 phi3 = 160.839 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 830 chmoth = 'DC13' x = -12.9562 y = -37.2861 z = 0 irot = 876 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 877 theta1 = 90 phi1 = -106.839 theta2 = 84 phi2 = -16.8387 theta3 = 6 phi3 = 163.161 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 831 chmoth = 'DC13' x = -11.4345 y = -37.7806 z = 0 irot = 877 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 878 theta1 = 90 phi1 = -104.516 theta2 = 84 phi2 = -14.5161 theta3 = 6 phi3 = 165.484 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 832 chmoth = 'DC13' x = -9.89401 y = -38.2129 z = 0 irot = 878 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 879 theta1 = 90 phi1 = -102.194 theta2 = 84 phi2 = -12.1935 theta3 = 6 phi3 = 167.806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 833 chmoth = 'DC13' x = -8.33728 y = -38.5825 z = 0 irot = 879 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 880 theta1 = 90 phi1 = -99.871 theta2 = 84 phi2 = -9.87097 theta3 = 6 phi3 = 170.129 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 834 chmoth = 'DC13' x = -6.76685 y = -38.8887 z = 0 irot = 880 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 881 theta1 = 90 phi1 = -97.5484 theta2 = 84 phi2 = -7.54839 theta3 = 6 phi3 = 172.452 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 835 chmoth = 'DC13' x = -5.18531 y = -39.1309 z = 0 irot = 881 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 882 theta1 = 90 phi1 = -95.2258 theta2 = 84 phi2 = -5.22581 theta3 = 6 phi3 = 174.774 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 836 chmoth = 'DC13' x = -3.59525 y = -39.3089 z = 0 irot = 882 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 883 theta1 = 90 phi1 = -92.9032 theta2 = 84 phi2 = -2.90323 theta3 = 6 phi3 = 177.097 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 837 chmoth = 'DC13' x = -1.99927 y = -39.4223 z = 0 irot = 883 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 884 theta1 = 90 phi1 = -90.5806 theta2 = 84 phi2 = -0.580645 theta3 = 6 phi3 = 179.419 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 838 chmoth = 'DC13' x = -0.400019 y = -39.471 z = 0 irot = 884 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 885 theta1 = 90 phi1 = -88.2581 theta2 = 84 phi2 = 1.74194 theta3 = 6 phi3 = -178.258 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 839 chmoth = 'DC13' x = 1.19989 y = -39.4548 z = 0 irot = 885 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 886 theta1 = 90 phi1 = -85.9355 theta2 = 84 phi2 = 4.06452 theta3 = 6 phi3 = -175.935 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 840 chmoth = 'DC13' x = 2.79783 y = -39.3737 z = 0 irot = 886 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 887 theta1 = 90 phi1 = -83.6129 theta2 = 84 phi2 = 6.3871 theta3 = 6 phi3 = -173.613 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 841 chmoth = 'DC13' x = 4.39118 y = -39.228 z = 0 irot = 887 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 888 theta1 = 90 phi1 = -81.2903 theta2 = 84 phi2 = 8.70968 theta3 = 6 phi3 = -171.29 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 842 chmoth = 'DC13' x = 5.97731 y = -39.0178 z = 0 irot = 888 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 889 theta1 = 90 phi1 = -78.9677 theta2 = 84 phi2 = 11.0323 theta3 = 6 phi3 = -168.968 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 843 chmoth = 'DC13' x = 7.55362 y = -38.7435 z = 0 irot = 889 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 890 theta1 = 90 phi1 = -76.6452 theta2 = 84 phi2 = 13.3548 theta3 = 6 phi3 = -166.645 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 844 chmoth = 'DC13' x = 9.11752 y = -38.4056 z = 0 irot = 890 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 891 theta1 = 90 phi1 = -74.3226 theta2 = 84 phi2 = 15.6774 theta3 = 6 phi3 = -164.323 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 845 chmoth = 'DC13' x = 10.6664 y = -38.0045 z = 0 irot = 891 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 892 theta1 = 90 phi1 = -72 theta2 = 84 phi2 = 18 theta3 = 6 phi3 = -162 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 846 chmoth = 'DC13' x = 12.1978 y = -37.5411 z = 0 irot = 892 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 893 theta1 = 90 phi1 = -69.6774 theta2 = 84 phi2 = 20.3226 theta3 = 6 phi3 = -159.677 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 847 chmoth = 'DC13' x = 13.7092 y = -37.0159 z = 0 irot = 893 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 894 theta1 = 90 phi1 = -67.3548 theta2 = 84 phi2 = 22.6452 theta3 = 6 phi3 = -157.355 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 848 chmoth = 'DC13' x = 15.198 y = -36.4299 z = 0 irot = 894 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 895 theta1 = 90 phi1 = -65.0323 theta2 = 84 phi2 = 24.9677 theta3 = 6 phi3 = -155.032 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 849 chmoth = 'DC13' x = 16.6619 y = -35.7841 z = 0 irot = 895 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 896 theta1 = 90 phi1 = -62.7097 theta2 = 84 phi2 = 27.2903 theta3 = 6 phi3 = -152.71 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 850 chmoth = 'DC13' x = 18.0983 y = -35.0794 z = 0 irot = 896 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 897 theta1 = 90 phi1 = -60.3871 theta2 = 84 phi2 = 29.6129 theta3 = 6 phi3 = -150.387 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 851 chmoth = 'DC13' x = 19.5051 y = -34.3172 z = 0 irot = 897 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 898 theta1 = 90 phi1 = -58.0645 theta2 = 84 phi2 = 31.9355 theta3 = 6 phi3 = -148.065 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 852 chmoth = 'DC13' x = 20.8798 y = -33.4985 z = 0 irot = 898 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 899 theta1 = 90 phi1 = -55.7419 theta2 = 84 phi2 = 34.2581 theta3 = 6 phi3 = -145.742 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 853 chmoth = 'DC13' x = 22.2202 y = -32.6248 z = 0 irot = 899 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 900 theta1 = 90 phi1 = -53.4194 theta2 = 84 phi2 = 36.5806 theta3 = 6 phi3 = -143.419 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 854 chmoth = 'DC13' x = 23.5241 y = -31.6976 z = 0 irot = 900 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 901 theta1 = 90 phi1 = -51.0968 theta2 = 84 phi2 = 38.9032 theta3 = 6 phi3 = -141.097 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 855 chmoth = 'DC13' x = 24.7893 y = -30.7182 z = 0 irot = 901 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 902 theta1 = 90 phi1 = -48.7742 theta2 = 84 phi2 = 41.2258 theta3 = 6 phi3 = -138.774 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 856 chmoth = 'DC13' x = 26.0138 y = -29.6884 z = 0 irot = 902 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 903 theta1 = 90 phi1 = -46.4516 theta2 = 84 phi2 = 43.5484 theta3 = 6 phi3 = -136.452 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 857 chmoth = 'DC13' x = 27.1956 y = -28.6097 z = 0 irot = 903 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 904 theta1 = 90 phi1 = -44.129 theta2 = 84 phi2 = 45.871 theta3 = 6 phi3 = -134.129 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 858 chmoth = 'DC13' x = 28.3327 y = -27.4841 z = 0 irot = 904 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 905 theta1 = 90 phi1 = -41.8065 theta2 = 84 phi2 = 48.1935 theta3 = 6 phi3 = -131.806 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 859 chmoth = 'DC13' x = 29.4232 y = -26.3133 z = 0 irot = 905 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 906 theta1 = 90 phi1 = -39.4839 theta2 = 84 phi2 = 50.5161 theta3 = 6 phi3 = -129.484 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 860 chmoth = 'DC13' x = 30.4654 y = -25.0993 z = 0 irot = 906 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 907 theta1 = 90 phi1 = -37.1613 theta2 = 84 phi2 = 52.8387 theta3 = 6 phi3 = -127.161 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 861 chmoth = 'DC13' x = 31.4575 y = -23.8441 z = 0 irot = 907 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 908 theta1 = 90 phi1 = -34.8387 theta2 = 84 phi2 = 55.1613 theta3 = 6 phi3 = -124.839 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 862 chmoth = 'DC13' x = 32.398 y = -22.5497 z = 0 irot = 908 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 909 theta1 = 90 phi1 = -32.5161 theta2 = 84 phi2 = 57.4839 theta3 = 6 phi3 = -122.516 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 863 chmoth = 'DC13' x = 33.2852 y = -21.2182 z = 0 irot = 909 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 910 theta1 = 90 phi1 = -30.1935 theta2 = 84 phi2 = 59.8065 theta3 = 6 phi3 = -120.194 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 864 chmoth = 'DC13' x = 34.1178 y = -19.8519 z = 0 irot = 910 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 911 theta1 = 90 phi1 = -27.871 theta2 = 84 phi2 = 62.129 theta3 = 6 phi3 = -117.871 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 865 chmoth = 'DC13' x = 34.8942 y = -18.4529 z = 0 irot = 911 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 912 theta1 = 90 phi1 = -25.5484 theta2 = 84 phi2 = 64.4516 theta3 = 6 phi3 = -115.548 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 866 chmoth = 'DC13' x = 35.6134 y = -17.0236 z = 0 irot = 912 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 913 theta1 = 90 phi1 = -23.2258 theta2 = 84 phi2 = 66.7742 theta3 = 6 phi3 = -113.226 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 867 chmoth = 'DC13' x = 36.274 y = -15.5664 z = 0 irot = 913 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 914 theta1 = 90 phi1 = -20.9032 theta2 = 84 phi2 = 69.0968 theta3 = 6 phi3 = -110.903 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 868 chmoth = 'DC13' x = 36.8751 y = -14.0836 z = 0 irot = 914 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 915 theta1 = 90 phi1 = -18.5806 theta2 = 84 phi2 = 71.4194 theta3 = 6 phi3 = -108.581 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 869 chmoth = 'DC13' x = 37.4155 y = -12.5776 z = 0 irot = 915 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 916 theta1 = 90 phi1 = -16.2581 theta2 = 84 phi2 = 73.7419 theta3 = 6 phi3 = -106.258 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 870 chmoth = 'DC13' x = 37.8945 y = -11.051 z = 0 irot = 916 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 917 theta1 = 90 phi1 = -13.9355 theta2 = 84 phi2 = 76.0645 theta3 = 6 phi3 = -103.935 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 871 chmoth = 'DC13' x = 38.3112 y = -9.50625 z = 0 irot = 917 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 918 theta1 = 90 phi1 = -11.6129 theta2 = 84 phi2 = 78.3871 theta3 = 6 phi3 = -101.613 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 872 chmoth = 'DC13' x = 38.665 y = -7.94586 z = 0 irot = 918 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 919 theta1 = 90 phi1 = -9.29032 theta2 = 84 phi2 = 80.7097 theta3 = 6 phi3 = -99.2903 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 873 chmoth = 'DC13' x = 38.9552 y = -6.37241 z = 0 irot = 919 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 920 theta1 = 90 phi1 = -6.96774 theta2 = 84 phi2 = 83.0323 theta3 = 6 phi3 = -96.9677 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 874 chmoth = 'DC13' x = 39.1815 y = -4.78849 z = 0 irot = 920 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 921 theta1 = 90 phi1 = -4.64516 theta2 = 84 phi2 = 85.3548 theta3 = 6 phi3 = -94.6452 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 875 chmoth = 'DC13' x = 39.3433 y = -3.1967 z = 0 irot = 921 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 922 theta1 = 90 phi1 = -2.32258 theta2 = 84 phi2 = 87.6774 theta3 = 6 phi3 = -92.3226 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'STLA' nr = 876 chmoth = 'DC13' x = 39.4406 y = -1.59967 z = 0 irot = 922 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 10 chmoth = 'DC13' x = 0 y = 0 z = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 10 chmoth = 'DC13' x = 0 y = 0 z = 75.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 132 natmed = 'DC17 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 = 'DC17' chshap = 'TUBE' nmed = 132 npar = 3 par(1) = 41.434 par(2) = 43.114 par(3) = 76.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.157) stop 'consistency check #1 failed' chname = 'DC17' 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 = 'DC17' ndiv = 166 iaxis = 2 step = 2.16867 c0 = -1.084 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 133 natmed = 'DS17 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 = 'DS17' chshap = 'TUBS' nmed = 133 npar = 5 par(1) = 41.43 par(2) = 43.11 par(3) = 76.25 par(4) = -1.084 par(5) = 1.085 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.159) stop 'consistency check #1 failed' chname = 'DS17' 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 = 'DS17' x = 42.274 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 11 chmoth = 'DS17' x = 0 y = 0 z = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 11 chmoth = 'DS17' x = 0 y = 0 z = 75.2 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) = 43.217 par(2) = 44.897 par(3) = 76.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 = 173 iaxis = 2 step = 2.08092 c0 = -1.04 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) = 43.22 par(2) = 44.9 par(3) = 76.25 par(4) = -1.04 par(5) = 1.041 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 = 44.057 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 = -75.45 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 = 75.2 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) = 44.999 par(2) = 46.679 par(3) = 76.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 = 180 iaxis = 2 step = 2 c0 = -1 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) = 45 par(2) = 46.68 par(3) = 76.25 par(4) = -1 par(5) = 1 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 = 45.839 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 = -75.45 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 = 75.2 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) = 46.781 par(2) = 48.461 par(3) = 76.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 = 187 iaxis = 2 step = 1.92513 c0 = -0.963 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) = 46.78 par(2) = 48.46 par(3) = 76.25 par(4) = -0.963 par(5) = 0.962 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 = 47.621 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 = -75.45 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 = 75.2 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) = 48.564 par(2) = 50.244 par(3) = 76.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 = 194 iaxis = 2 step = 1.85567 c0 = -0.928 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) = 48.56 par(2) = 50.24 par(3) = 76.25 par(4) = -0.928 par(5) = 0.928 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 = 49.404 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 = -75.45 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 = 75.2 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) = 50.346 par(2) = 52.026 par(3) = 76.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 = 201 iaxis = 2 step = 1.79104 c0 = -0.896 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) = 50.35 par(2) = 52.03 par(3) = 76.25 par(4) = -0.896 par(5) = 0.895 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 = 51.186 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 = -75.45 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 = 75.2 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) = 52.129 par(2) = 53.809 par(3) = 76.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 = 208 iaxis = 2 step = 1.73077 c0 = -0.865 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) = 52.13 par(2) = 53.81 par(3) = 76.25 par(4) = -0.865 par(5) = 0.866 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 = 52.969 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 = -75.45 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 = 75.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 146 natmed = 'DC24 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 = 'DC24' chshap = 'TUBE' nmed = 146 npar = 3 par(1) = 53.911 par(2) = 55.591 par(3) = 76.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.178) stop 'consistency check #1 failed' chname = 'DC24' 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 = 'SD21' chmoth = 'DC24' ndiv = 215 iaxis = 2 step = 1.67442 c0 = -0.837 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 147 natmed = 'DS24 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 = 'DS24' chshap = 'TUBS' nmed = 147 npar = 5 par(1) = 53.91 par(2) = 55.59 par(3) = 76.25 par(4) = -0.837 par(5) = 0.837 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.180) stop 'consistency check #1 failed' chname = 'DS24' nr = 1 chmoth = 'SD21' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 16 chmoth = 'DS24' x = 54.751 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 18 chmoth = 'DS24' x = 0 y = 0 z = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 18 chmoth = 'DS24' x = 0 y = 0 z = 75.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 148 natmed = 'DC25 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 = 'DC25' chshap = 'TUBE' nmed = 148 npar = 3 par(1) = 55.694 par(2) = 57.374 par(3) = 76.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.181) stop 'consistency check #1 failed' chname = 'DC25' 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 = 'SD22' chmoth = 'DC25' ndiv = 222 iaxis = 2 step = 1.62162 c0 = -0.811 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 149 natmed = 'DS25 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 = 'DS25' chshap = 'TUBS' nmed = 149 npar = 5 par(1) = 55.69 par(2) = 57.37 par(3) = 76.25 par(4) = -0.811 par(5) = 0.811 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.183) stop 'consistency check #1 failed' chname = 'DS25' nr = 1 chmoth = 'SD22' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'STRA' nr = 17 chmoth = 'DS25' x = 56.534 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPU' nr = 19 chmoth = 'DS25' x = 0 y = 0 z = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 19 chmoth = 'DS25' x = 0 y = 0 z = 75.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 35 namate = 'AluminizedMylar' wmat(1) = 0.071 call gfmate(7,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.929 call gfmate(19,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 1.47 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 150 natmed = 'CDCI AluminizedMylar' nmat = 35 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDCI' chshap = 'TUBE' nmed = 150 npar = 3 par(1) = 9 par(2) = 9.0026 par(3) = 86 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.184) 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 = 151 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 = 151 npar = 3 par(1) = 58.8 par(2) = 59 par(3) = 86 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.185) 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 = 20 chmoth = 'CDC' x = 0 y = 0 z = -75.45 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'CDPD' nr = 20 chmoth = 'CDC' x = 0 y = 0 z = 75.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 38 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 = 39 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 = 41 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 = 40 namate = 'SodiumOxide' wmat(1) = 2 call gfmate(41,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 = 43 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 = 42 namate = 'PotassiumOxide' wmat(1) = 2 call gfmate(43,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 = 44 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 = 45 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 = 37 namate = 'BorosilicateGlass' wmat(1) = 0.7 call gfmate(38,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.1 call gfmate(39,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.08 call gfmate(40,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.08 call gfmate(42,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) wmat(5) = 0.025 call gfmate(44,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf) wmat(6) = 0.015 call gfmate(45,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 = 36 namate = 'FR-4' wmat(1) = 0.7 call gfmate(37,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.3 call gfmate(34,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 = 152 natmed = 'CDBD FR-4' nmat = 36 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDBD' chshap = 'TUBE' nmed = 152 npar = 3 par(1) = 9 par(2) = 59 par(3) = 0.05 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.186) stop 'consistency check #1 failed' chname = 'CDBD' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 168.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 153 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 = 153 npar = 3 par(1) = 9 par(2) = 59 par(3) = 0.15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.187) stop 'consistency check #1 failed' chname = 'CDGD' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 177.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 154 natmed = 'CDBU FR-4' nmat = 36 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDBU' chshap = 'TUBE' nmed = 154 npar = 3 par(1) = 9 par(2) = 59 par(3) = 0.1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.188) stop 'consistency check #1 failed' chname = 'CDBU' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 5.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 155 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 = 155 npar = 3 par(1) = 9 par(2) = 59 par(3) = 0.15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.189) stop 'consistency check #1 failed' chname = 'CDGU' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 6 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 48 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 = 47 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(48,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 = 46 namate = 'SignalCables' wmat(1) = 0.4 call gfmate(16,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.6 call gfmate(47,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 2.00325 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 156 natmed = 'CDCA SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDCA' chshap = 'TUBE' nmed = 156 npar = 3 par(1) = 9 par(2) = 59 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.190) stop 'consistency check #1 failed' chname = 'CDCA' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 14.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 157 natmed = 'CDCB SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'CDCB' chshap = 'PCON' nmed = 157 npar = 27 par(1) = 0 par(2) = 360 par(3) = 8 par(4) = -65.2 par(5) = 74 par(6) = 120 par(7) = -62.2 par(8) = 71 par(9) = 120 par(10) = -62.2 par(11) = 71 par(12) = 75.2 par(13) = -56.2 par(14) = 65 par(15) = 69.2 par(16) = -55 par(17) = 65 par(18) = 68 par(19) = -3.31 par(20) = 56.4 par(21) = 59 par(22) = -0.53 par(23) = 23 par(24) = 59 par(25) = 0 par(26) = 9 par(27) = 59 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.191) stop 'consistency check #1 failed' chname = 'CDCB' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 158 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 = 158 npar = 3 par(1) = 0 par(2) = 60.8 par(3) = 86 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.192) stop 'consistency check #1 failed' chname = 'FDC' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 273.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 159 natmed = 'FDP1 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDP1' chshap = 'TUBE' nmed = 159 npar = 3 par(1) = 0 par(2) = 60.8 par(3) = 9.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.193) stop 'consistency check #1 failed' chname = 'FDP1' nr = 1 chmoth = 'FDC' x = 0 y = 0 z = -76 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 160 natmed = 'FDM1 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 = 'FDM1' chshap = 'TUBE' nmed = 160 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 4.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.194) stop 'consistency check #1 failed' chname = 'FDM1' nr = 1 chmoth = 'FDP1' x = 0 y = 0 z = -4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 161 natmed = 'FDC1 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 = 'FDC1' chshap = 'TUBE' nmed = 161 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.195) stop 'consistency check #1 failed' chname = 'FDC1' nr = 1 chmoth = 'FDM1' x = 0 y = 0 z = -3 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 49 namate = 'AluminizedMylarFilm' wmat(1) = 0.967 call gfmate(19,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.03 call gfmate(7,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0 call gfmate(34,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.003 call gfmate(1,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) dens = 0.35 nlmat = 4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 162 natmed = 'FDCG AluminizedMylarFilm' 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 = 'FDCG' chshap = 'TUBE' nmed = 162 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 0.0013 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.196) stop 'consistency check #1 failed' chname = 'FDCG' nr = 1 chmoth = 'FDC1' x = 0 y = 0 z = -0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 2 chmoth = 'FDC1' x = 0 y = 0 z = 0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 163 natmed = 'FDRO 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 = 'FDRO' chshap = 'TUBE' nmed = 163 npar = 3 par(1) = 5 par(2) = 50.25 par(3) = 0.1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.197) stop 'consistency check #1 failed' chname = 'FDRO' nr = 1 chmoth = 'FDC1' x = 0 y = 0 z = -0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRO' nr = 2 chmoth = 'FDC1' x = 0 y = 0 z = 0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 50 namate = 'CopperKaptonEpoxy' wmat(1) = 0.21 call gfmate(16,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.38 call gfmate(22,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.41 call gfmate(34,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 1.649 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 164 natmed = 'FDK1 CopperKaptonEpoxy' 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 = 'FDK1' chshap = 'TUBE' nmed = 164 npar = 3 par(1) = 2.3 par(2) = 50.25 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.198) stop 'consistency check #1 failed' chname = 'FDK1' nr = 1 chmoth = 'FDC1' x = 0 y = 0 z = -0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDK1' nr = 2 chmoth = 'FDC1' x = 0 y = 0 z = 0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 165 natmed = 'FDJ1 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 = 'FDJ1' chshap = 'TUBE' nmed = 165 npar = 3 par(1) = 0 par(2) = 2.3 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.199) stop 'consistency check #1 failed' chname = 'FDJ1' nr = 1 chmoth = 'FDC1' x = 0 y = 0 z = -0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDJ1' nr = 2 chmoth = 'FDC1' x = 0 y = 0 z = 0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 51 namate = 'FDchamberGas' wmat(1) = 0.38 call gfmate(4,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.62 call gfmate(29,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 0.001899 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 166 natmed = 'FDG1 FDchamberGas' nmat = 51 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDG1' chshap = 'TUBE' nmed = 166 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.200) stop 'consistency check #1 failed' chname = 'FDG1' nr = 1 chmoth = 'FDC1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 167 natmed = 'FDAP FR-4' nmat = 36 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDAP' chshap = 'TUBE' nmed = 167 npar = 3 par(1) = 48.5 par(2) = 60 par(3) = 0.04 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.201) stop 'consistency check #1 failed' chname = 'FDAP' nr = 1 chmoth = 'FDG1' x = 0 y = 0 z = 0.0635 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 54 chnama = 'Titanium' a = 47.9 z = 22 dens = 4.53 radl = 3.56954 absl = 27.5717 nwbuf = 0 call gsmate(imate,chnama,a,z,dens,radl,absl,ubuf,nwbuf) imate = 53 namate = 'CalciumTitanate' wmat(1) = 1 call gfmate(8,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 1 call gfmate(54,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 3 call gfmate(3,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 3.7 nlmat = -3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 55 namate = 'Silver' a = 107.868 z = 47 dens = 10.48 nlmat = 1 wmat(1) = 1 call gsmixt(imate,namate,a,z,dens,nlmat,wmat) imate = 52 namate = 'HVcapacitorSolder' wmat(1) = 0.9 call gfmate(53,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.1 call gfmate(55,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) dens = 3.95593 nlmat = 2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 168 natmed = 'FDBC HVcapacitorSolder' 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 = 'FDBC' chshap = 'TUBE' nmed = 168 npar = 3 par(1) = 50.16 par(2) = 50.25 par(3) = 0.062 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.202) stop 'consistency check #1 failed' chname = 'FDBC' nr = 1 chmoth = 'FDG1' x = 0 y = 0 z = 0.189 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 169 natmed = 'FDA1 FDchamberGas' nmat = 51 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDA1' chshap = 'TUBE' nmed = 169 npar = 3 par(1) = 2.3 par(2) = 48.5 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.203) stop 'consistency check #1 failed' chname = 'FDA1' nr = 1 chmoth = 'FDG1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 56 namate = 'FDCwirePlaneComposite' wmat(1) = 0.21 call gfmate(15,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.72 call gfmate(7,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.07 call gfmate(51,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 0.0263 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 170 natmed = 'FDAW FDCwirePlaneComposite' nmat = 56 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 = 'FDAW' chshap = 'TUBE' nmed = 170 npar = 3 par(1) = 2.3 par(2) = 50.25 par(3) = 0.005 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.204) stop 'consistency check #1 failed' chname = 'FDAW' nr = 1 chmoth = 'FDA1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 171 natmed = 'FDCW FDCwirePlaneComposite' nmat = 56 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCW' chshap = 'TUBE' nmed = 171 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 0.005 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.205) stop 'consistency check #1 failed' chname = 'FDCW' nr = 1 chmoth = 'FDG1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 923 theta1 = 90 phi1 = 60 theta2 = 90 phi2 = 150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC1' nr = 2 chmoth = 'FDM1' x = 0 y = 0 z = 0 irot = 923 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 924 theta1 = 90 phi1 = -60 theta2 = 90 phi2 = 30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC1' nr = 3 chmoth = 'FDM1' x = 0 y = 0 z = 3 irot = 924 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDM1' nr = 2 chmoth = 'FDP1' x = 0 y = 0 z = 4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 172 natmed = 'FDSF Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDSF' chshap = 'TUBE' nmed = 172 npar = 3 par(1) = 50.25 par(2) = 60.8 par(3) = 9.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.206) stop 'consistency check #1 failed' chname = 'FDSF' nr = 1 chmoth = 'FDP1' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 173 natmed = 'FDFP Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDFP' chshap = 'TUBE' nmed = 173 npar = 3 par(1) = 50.25 par(2) = 60 par(3) = 1.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.207) stop 'consistency check #1 failed' chname = 'FDFP' nr = 1 chmoth = 'FDSF' x = 0 y = 0 z = -7.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 57 namate = 'MediumDensityROHACELL' 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.075 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 174 natmed = 'FDUS MediumDensityROHACELL' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDUS' chshap = 'TUBE' nmed = 174 npar = 3 par(1) = 50.25 par(2) = 52.79 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.208) stop 'consistency check #1 failed' chname = 'FDUS' nr = 1 chmoth = 'FDFP' x = 0 y = 0 z = -1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD23' chmoth = 'FDUS' ndiv = 24 iaxis = 2 step = 15 c0 = 0 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 175 natmed = 'FDRU CarbonFiber' nmat = 33 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDRU' chshap = 'TUBE' nmed = 175 npar = 3 par(1) = 0 par(2) = 0.24 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.210) stop 'consistency check #1 failed' irot = 925 theta1 = 90 phi1 = -7.5 theta2 = 90 phi2 = 82.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 1 chmoth = 'SD23' x = 51.803 y = -6.81999 z = 0 irot = 925 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 176 natmed = 'FDWS MediumDensityROHACELL' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDWS' chshap = 'TUBE' nmed = 176 npar = 3 par(1) = 50.25 par(2) = 60 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.211) stop 'consistency check #1 failed' chname = 'FDWS' nr = 1 chmoth = 'FDFP' x = 0 y = 0 z = -0.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 177 natmed = 'FDWC FR-4' nmat = 36 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDWC' chshap = 'TUBE' nmed = 177 npar = 3 par(1) = 50.25 par(2) = 60 par(3) = 0.04 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.212) stop 'consistency check #1 failed' chname = 'FDWC' nr = 1 chmoth = 'FDWS' x = 0 y = 0 z = -0.21 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD24' chmoth = 'FDWC' ndiv = 24 iaxis = 2 step = 15 c0 = 0 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) itmed = 178 natmed = 'FDRV CarbonFiber' nmat = 33 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDRV' chshap = 'TUBE' nmed = 178 npar = 3 par(1) = 0 par(2) = 0.24 par(3) = 0.04 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.214) stop 'consistency check #1 failed' irot = 926 theta1 = 90 phi1 = -7.5 theta2 = 90 phi2 = 82.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRV' nr = 1 chmoth = 'SD24' x = 51.803 y = -6.81999 z = 0 irot = 926 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDWC' nr = 2 chmoth = 'FDWS' x = 0 y = 0 z = 0.21 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRU' nr = 2 chmoth = 'FDWS' x = 52.25 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 927 theta1 = 90 phi1 = 15 theta2 = 90 phi2 = 105 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 3 chmoth = 'FDWS' x = 50.4696 y = 13.5233 z = 0 irot = 927 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 928 theta1 = 90 phi1 = 30 theta2 = 90 phi2 = 120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 4 chmoth = 'FDWS' x = 45.2498 y = 26.125 z = 0 irot = 928 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 929 theta1 = 90 phi1 = 45 theta2 = 90 phi2 = 135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 5 chmoth = 'FDWS' x = 36.9463 y = 36.9463 z = 0 irot = 929 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 930 theta1 = 90 phi1 = 60 theta2 = 90 phi2 = 150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 6 chmoth = 'FDWS' x = 26.125 y = 45.2498 z = 0 irot = 930 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 931 theta1 = 90 phi1 = 75 theta2 = 90 phi2 = 165 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 7 chmoth = 'FDWS' x = 13.5233 y = 50.4696 z = 0 irot = 931 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 932 theta1 = 90 phi1 = 90 theta2 = 90 phi2 = 180 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 8 chmoth = 'FDWS' x = 3.19928e-15 y = 52.25 z = 0 irot = 932 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 933 theta1 = 90 phi1 = 105 theta2 = 90 phi2 = -165 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 9 chmoth = 'FDWS' x = -13.5233 y = 50.4696 z = 0 irot = 933 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 934 theta1 = 90 phi1 = 120 theta2 = 90 phi2 = -150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 10 chmoth = 'FDWS' x = -26.125 y = 45.2498 z = 0 irot = 934 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 935 theta1 = 90 phi1 = 135 theta2 = 90 phi2 = -135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 11 chmoth = 'FDWS' x = -36.9463 y = 36.9463 z = 0 irot = 935 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 936 theta1 = 90 phi1 = 150 theta2 = 90 phi2 = -120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 12 chmoth = 'FDWS' x = -45.2498 y = 26.125 z = 0 irot = 936 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 937 theta1 = 90 phi1 = 165 theta2 = 90 phi2 = -105 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 13 chmoth = 'FDWS' x = -50.4696 y = 13.5233 z = 0 irot = 937 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 938 theta1 = 90 phi1 = -180 theta2 = 90 phi2 = -90 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 14 chmoth = 'FDWS' x = -52.25 y = 6.39857e-15 z = 0 irot = 938 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 939 theta1 = 90 phi1 = -165 theta2 = 90 phi2 = -75 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 15 chmoth = 'FDWS' x = -50.4696 y = -13.5233 z = 0 irot = 939 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 940 theta1 = 90 phi1 = -150 theta2 = 90 phi2 = -60 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 16 chmoth = 'FDWS' x = -45.2498 y = -26.125 z = 0 irot = 940 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 941 theta1 = 90 phi1 = -135 theta2 = 90 phi2 = -45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 17 chmoth = 'FDWS' x = -36.9463 y = -36.9463 z = 0 irot = 941 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 942 theta1 = 90 phi1 = -120 theta2 = 90 phi2 = -30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 18 chmoth = 'FDWS' x = -26.125 y = -45.2498 z = 0 irot = 942 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 943 theta1 = 90 phi1 = -105 theta2 = 90 phi2 = -15 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 19 chmoth = 'FDWS' x = -13.5233 y = -50.4696 z = 0 irot = 943 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 944 theta1 = 90 phi1 = -90 theta2 = 90 phi2 = -1.05247e-14 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 20 chmoth = 'FDWS' x = -9.59785e-15 y = -52.25 z = 0 irot = 944 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 945 theta1 = 90 phi1 = -75 theta2 = 90 phi2 = 15 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 21 chmoth = 'FDWS' x = 13.5233 y = -50.4696 z = 0 irot = 945 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 946 theta1 = 90 phi1 = -60 theta2 = 90 phi2 = 30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 22 chmoth = 'FDWS' x = 26.125 y = -45.2498 z = 0 irot = 946 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 947 theta1 = 90 phi1 = -45 theta2 = 90 phi2 = 45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 23 chmoth = 'FDWS' x = 36.9463 y = -36.9463 z = 0 irot = 947 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 948 theta1 = 90 phi1 = -30 theta2 = 90 phi2 = 60 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 24 chmoth = 'FDWS' x = 45.2498 y = -26.125 z = 0 irot = 948 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 949 theta1 = 90 phi1 = -15 theta2 = 90 phi2 = 75 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 25 chmoth = 'FDWS' x = 50.4696 y = -13.5233 z = 0 irot = 949 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 179 natmed = 'FDNS MediumDensityROHACELL' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDNS' chshap = 'TUBE' nmed = 179 npar = 3 par(1) = 50.25 par(2) = 52.79 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.215) stop 'consistency check #1 failed' chname = 'FDNS' nr = 1 chmoth = 'FDFP' x = 0 y = 0 z = -0.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 180 natmed = 'FDNC MediumDensityROHACELL' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDNC' chshap = 'TUBE' nmed = 180 npar = 3 par(1) = 50.25 par(2) = 52.79 par(3) = 0.04 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.216) stop 'consistency check #1 failed' chname = 'FDNC' nr = 1 chmoth = 'FDNS' x = 0 y = 0 z = -0.21 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD25' chmoth = 'FDNC' ndiv = 24 iaxis = 2 step = 15 c0 = 0 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) irot = 950 theta1 = 90 phi1 = -7.5 theta2 = 90 phi2 = 82.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRV' nr = 2 chmoth = 'SD25' x = 51.803 y = -6.81999 z = 0 irot = 950 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDNC' nr = 2 chmoth = 'FDNS' x = 0 y = 0 z = 0.21 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRU' nr = 26 chmoth = 'FDNS' x = 52.25 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 951 theta1 = 90 phi1 = 15 theta2 = 90 phi2 = 105 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 27 chmoth = 'FDNS' x = 50.4696 y = 13.5233 z = 0 irot = 951 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 952 theta1 = 90 phi1 = 30 theta2 = 90 phi2 = 120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 28 chmoth = 'FDNS' x = 45.2498 y = 26.125 z = 0 irot = 952 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 953 theta1 = 90 phi1 = 45 theta2 = 90 phi2 = 135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 29 chmoth = 'FDNS' x = 36.9463 y = 36.9463 z = 0 irot = 953 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 954 theta1 = 90 phi1 = 60 theta2 = 90 phi2 = 150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 30 chmoth = 'FDNS' x = 26.125 y = 45.2498 z = 0 irot = 954 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 955 theta1 = 90 phi1 = 75 theta2 = 90 phi2 = 165 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 31 chmoth = 'FDNS' x = 13.5233 y = 50.4696 z = 0 irot = 955 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 956 theta1 = 90 phi1 = 90 theta2 = 90 phi2 = 180 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 32 chmoth = 'FDNS' x = 3.19928e-15 y = 52.25 z = 0 irot = 956 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 957 theta1 = 90 phi1 = 105 theta2 = 90 phi2 = -165 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 33 chmoth = 'FDNS' x = -13.5233 y = 50.4696 z = 0 irot = 957 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 958 theta1 = 90 phi1 = 120 theta2 = 90 phi2 = -150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 34 chmoth = 'FDNS' x = -26.125 y = 45.2498 z = 0 irot = 958 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 959 theta1 = 90 phi1 = 135 theta2 = 90 phi2 = -135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 35 chmoth = 'FDNS' x = -36.9463 y = 36.9463 z = 0 irot = 959 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 960 theta1 = 90 phi1 = 150 theta2 = 90 phi2 = -120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 36 chmoth = 'FDNS' x = -45.2498 y = 26.125 z = 0 irot = 960 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 961 theta1 = 90 phi1 = 165 theta2 = 90 phi2 = -105 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 37 chmoth = 'FDNS' x = -50.4696 y = 13.5233 z = 0 irot = 961 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 962 theta1 = 90 phi1 = -180 theta2 = 90 phi2 = -90 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 38 chmoth = 'FDNS' x = -52.25 y = 6.39857e-15 z = 0 irot = 962 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 963 theta1 = 90 phi1 = -165 theta2 = 90 phi2 = -75 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 39 chmoth = 'FDNS' x = -50.4696 y = -13.5233 z = 0 irot = 963 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 964 theta1 = 90 phi1 = -150 theta2 = 90 phi2 = -60 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 40 chmoth = 'FDNS' x = -45.2498 y = -26.125 z = 0 irot = 964 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 965 theta1 = 90 phi1 = -135 theta2 = 90 phi2 = -45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 41 chmoth = 'FDNS' x = -36.9463 y = -36.9463 z = 0 irot = 965 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 966 theta1 = 90 phi1 = -120 theta2 = 90 phi2 = -30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 42 chmoth = 'FDNS' x = -26.125 y = -45.2498 z = 0 irot = 966 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 967 theta1 = 90 phi1 = -105 theta2 = 90 phi2 = -15 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 43 chmoth = 'FDNS' x = -13.5233 y = -50.4696 z = 0 irot = 967 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 968 theta1 = 90 phi1 = -90 theta2 = 90 phi2 = -1.05247e-14 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 44 chmoth = 'FDNS' x = -9.59785e-15 y = -52.25 z = 0 irot = 968 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 969 theta1 = 90 phi1 = -75 theta2 = 90 phi2 = 15 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 45 chmoth = 'FDNS' x = 13.5233 y = -50.4696 z = 0 irot = 969 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 970 theta1 = 90 phi1 = -60 theta2 = 90 phi2 = 30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 46 chmoth = 'FDNS' x = 26.125 y = -45.2498 z = 0 irot = 970 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 971 theta1 = 90 phi1 = -45 theta2 = 90 phi2 = 45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 47 chmoth = 'FDNS' x = 36.9463 y = -36.9463 z = 0 irot = 971 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 972 theta1 = 90 phi1 = -30 theta2 = 90 phi2 = 60 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 48 chmoth = 'FDNS' x = 45.2498 y = -26.125 z = 0 irot = 972 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 973 theta1 = 90 phi1 = -15 theta2 = 90 phi2 = 75 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 49 chmoth = 'FDNS' x = 50.4696 y = -13.5233 z = 0 irot = 973 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDWS' nr = 2 chmoth = 'FDFP' x = 0 y = 0 z = 0.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDWS' nr = 3 chmoth = 'FDFP' x = 0 y = 0 z = 0.75 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 181 natmed = 'FDDS MediumDensityROHACELL' nmat = 57 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDDS' chshap = 'TUBE' nmed = 181 npar = 3 par(1) = 50.25 par(2) = 52.79 par(3) = 0.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.218) stop 'consistency check #1 failed' chname = 'FDDS' nr = 1 chmoth = 'FDFP' x = 0 y = 0 z = 1.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'SD26' chmoth = 'FDDS' ndiv = 24 iaxis = 2 step = 15 c0 = 0 numed = 0 ndvmax = 0 call gsdvx(chname,chmoth,ndiv,iaxis,step,c0,numed,ndvmax) irot = 974 theta1 = 90 phi1 = -7.5 theta2 = 90 phi2 = 82.5 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRU' nr = 50 chmoth = 'SD26' x = 51.803 y = -6.81999 z = 0 irot = 974 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 59 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 = 58 namate = 'CircuitBoards' wmat(1) = 0.35 call gfmate(59,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.58 call gfmate(16,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.07 call gfmate(36,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 2.12855 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 182 natmed = 'FDCP CircuitBoards' nmat = 58 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCP' chshap = 'TUBE' nmed = 182 npar = 3 par(1) = 54.7 par(2) = 60 par(3) = 0.0135 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.220) stop 'consistency check #1 failed' chname = 'FDCP' nr = 1 chmoth = 'FDFP' x = 0 y = 0 z = -1.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCP' nr = 2 chmoth = 'FDFP' x = 0 y = 0 z = -1.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCP' nr = 3 chmoth = 'FDFP' x = 0 y = 0 z = -0.25 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCP' nr = 4 chmoth = 'FDFP' x = 0 y = 0 z = 1.2 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCP' nr = 5 chmoth = 'FDFP' x = 0 y = 0 z = 1.4 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDFP' nr = 2 chmoth = 'FDSF' x = 0 y = 0 z = -4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDFP' nr = 3 chmoth = 'FDSF' x = 0 y = 0 z = -1.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDFP' nr = 4 chmoth = 'FDSF' x = 0 y = 0 z = 1.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDFP' nr = 5 chmoth = 'FDSF' x = 0 y = 0 z = 4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDFP' nr = 6 chmoth = 'FDSF' x = 0 y = 0 z = 7.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 183 natmed = 'FDRS CarbonFiber' nmat = 33 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDRS' chshap = 'TUBE' nmed = 183 npar = 3 par(1) = 0 par(2) = 0.24 par(3) = 9.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.221) stop 'consistency check #1 failed' chname = 'FDRS' nr = 1 chmoth = 'FDSF' x = 52.25 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 975 theta1 = 90 phi1 = 15 theta2 = 90 phi2 = 105 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 2 chmoth = 'FDSF' x = 50.4696 y = 13.5233 z = 0 irot = 975 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 976 theta1 = 90 phi1 = 30 theta2 = 90 phi2 = 120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 3 chmoth = 'FDSF' x = 45.2498 y = 26.125 z = 0 irot = 976 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 977 theta1 = 90 phi1 = 45 theta2 = 90 phi2 = 135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 4 chmoth = 'FDSF' x = 36.9463 y = 36.9463 z = 0 irot = 977 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 978 theta1 = 90 phi1 = 60 theta2 = 90 phi2 = 150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 5 chmoth = 'FDSF' x = 26.125 y = 45.2498 z = 0 irot = 978 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 979 theta1 = 90 phi1 = 75 theta2 = 90 phi2 = 165 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 6 chmoth = 'FDSF' x = 13.5233 y = 50.4696 z = 0 irot = 979 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 980 theta1 = 90 phi1 = 90 theta2 = 90 phi2 = 180 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 7 chmoth = 'FDSF' x = 3.19928e-15 y = 52.25 z = 0 irot = 980 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 981 theta1 = 90 phi1 = 105 theta2 = 90 phi2 = -165 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 8 chmoth = 'FDSF' x = -13.5233 y = 50.4696 z = 0 irot = 981 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 982 theta1 = 90 phi1 = 120 theta2 = 90 phi2 = -150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 9 chmoth = 'FDSF' x = -26.125 y = 45.2498 z = 0 irot = 982 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 983 theta1 = 90 phi1 = 135 theta2 = 90 phi2 = -135 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 10 chmoth = 'FDSF' x = -36.9463 y = 36.9463 z = 0 irot = 983 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 984 theta1 = 90 phi1 = 150 theta2 = 90 phi2 = -120 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 11 chmoth = 'FDSF' x = -45.2498 y = 26.125 z = 0 irot = 984 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 985 theta1 = 90 phi1 = 165 theta2 = 90 phi2 = -105 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 12 chmoth = 'FDSF' x = -50.4696 y = 13.5233 z = 0 irot = 985 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 986 theta1 = 90 phi1 = -180 theta2 = 90 phi2 = -90 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 13 chmoth = 'FDSF' x = -52.25 y = 6.39857e-15 z = 0 irot = 986 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 987 theta1 = 90 phi1 = -165 theta2 = 90 phi2 = -75 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 14 chmoth = 'FDSF' x = -50.4696 y = -13.5233 z = 0 irot = 987 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 988 theta1 = 90 phi1 = -150 theta2 = 90 phi2 = -60 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 15 chmoth = 'FDSF' x = -45.2498 y = -26.125 z = 0 irot = 988 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 989 theta1 = 90 phi1 = -135 theta2 = 90 phi2 = -45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 16 chmoth = 'FDSF' x = -36.9463 y = -36.9463 z = 0 irot = 989 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 990 theta1 = 90 phi1 = -120 theta2 = 90 phi2 = -30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 17 chmoth = 'FDSF' x = -26.125 y = -45.2498 z = 0 irot = 990 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 991 theta1 = 90 phi1 = -105 theta2 = 90 phi2 = -15 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 18 chmoth = 'FDSF' x = -13.5233 y = -50.4696 z = 0 irot = 991 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 992 theta1 = 90 phi1 = -90 theta2 = 90 phi2 = -1.05247e-14 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 19 chmoth = 'FDSF' x = -9.59785e-15 y = -52.25 z = 0 irot = 992 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 993 theta1 = 90 phi1 = -75 theta2 = 90 phi2 = 15 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 20 chmoth = 'FDSF' x = 13.5233 y = -50.4696 z = 0 irot = 993 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 994 theta1 = 90 phi1 = -60 theta2 = 90 phi2 = 30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 21 chmoth = 'FDSF' x = 26.125 y = -45.2498 z = 0 irot = 994 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 995 theta1 = 90 phi1 = -45 theta2 = 90 phi2 = 45 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 22 chmoth = 'FDSF' x = 36.9463 y = -36.9463 z = 0 irot = 995 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 996 theta1 = 90 phi1 = -30 theta2 = 90 phi2 = 60 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 23 chmoth = 'FDSF' x = 45.2498 y = -26.125 z = 0 irot = 996 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 997 theta1 = 90 phi1 = -15 theta2 = 90 phi2 = 75 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRS' nr = 24 chmoth = 'FDSF' x = 50.4696 y = -13.5233 z = 0 irot = 997 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 184 natmed = 'FDCM Copper' nmat = 16 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDCM' chshap = 'TUBE' nmed = 184 npar = 3 par(1) = 60 par(2) = 60.05 par(3) = 9.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.222) stop 'consistency check #1 failed' chname = 'FDCM' nr = 1 chmoth = 'FDSF' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 185 natmed = 'FDP2 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDP2' chshap = 'TUBE' nmed = 185 npar = 3 par(1) = 0 par(2) = 60.8 par(3) = 9.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.223) stop 'consistency check #1 failed' chname = 'FDP2' nr = 1 chmoth = 'FDC' x = 0 y = 0 z = -25.33 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 186 natmed = 'FDM2 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 = 'FDM2' chshap = 'TUBE' nmed = 186 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 4.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.224) stop 'consistency check #1 failed' chname = 'FDM2' nr = 1 chmoth = 'FDP2' x = 0 y = 0 z = -4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 187 natmed = 'FDC2 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 = 'FDC2' chshap = 'TUBE' nmed = 187 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.225) stop 'consistency check #1 failed' chname = 'FDC2' nr = 1 chmoth = 'FDM2' x = 0 y = 0 z = -3 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 3 chmoth = 'FDC2' x = 0 y = 0 z = -0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 4 chmoth = 'FDC2' x = 0 y = 0 z = 0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRO' nr = 3 chmoth = 'FDC2' x = 0 y = 0 z = -0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRO' nr = 4 chmoth = 'FDC2' x = 0 y = 0 z = 0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 188 natmed = 'FDK2 CopperKaptonEpoxy' 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 = 'FDK2' chshap = 'TUBE' nmed = 188 npar = 3 par(1) = 3.2 par(2) = 50.25 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.226) stop 'consistency check #1 failed' chname = 'FDK2' nr = 1 chmoth = 'FDC2' x = 0 y = 0 z = -0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDK2' nr = 2 chmoth = 'FDC2' x = 0 y = 0 z = 0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 189 natmed = 'FDJ2 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 = 'FDJ2' chshap = 'TUBE' nmed = 189 npar = 3 par(1) = 0 par(2) = 3.2 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.227) stop 'consistency check #1 failed' chname = 'FDJ2' nr = 1 chmoth = 'FDC2' x = 0 y = 0 z = -0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDJ2' nr = 2 chmoth = 'FDC2' x = 0 y = 0 z = 0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 190 natmed = 'FDG2 FDchamberGas' nmat = 51 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDG2' chshap = 'TUBE' nmed = 190 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.228) stop 'consistency check #1 failed' chname = 'FDG2' nr = 1 chmoth = 'FDC2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAP' nr = 2 chmoth = 'FDG2' x = 0 y = 0 z = 0.0635 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDBC' nr = 2 chmoth = 'FDG2' x = 0 y = 0 z = 0.189 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 191 natmed = 'FDA2 FDchamberGas' nmat = 51 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDA2' chshap = 'TUBE' nmed = 191 npar = 3 par(1) = 3.2 par(2) = 48.5 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.229) stop 'consistency check #1 failed' chname = 'FDA2' nr = 1 chmoth = 'FDG2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAW' nr = 2 chmoth = 'FDA2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCW' nr = 2 chmoth = 'FDG2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 998 theta1 = 90 phi1 = 60 theta2 = 90 phi2 = 150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC2' nr = 2 chmoth = 'FDM2' x = 0 y = 0 z = 0 irot = 998 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 999 theta1 = 90 phi1 = -60 theta2 = 90 phi2 = 30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC2' nr = 3 chmoth = 'FDM2' x = 0 y = 0 z = 3 irot = 999 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDM2' nr = 2 chmoth = 'FDP2' x = 0 y = 0 z = 4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSF' nr = 2 chmoth = 'FDP2' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 192 natmed = 'FDP3 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDP3' chshap = 'TUBE' nmed = 192 npar = 3 par(1) = 0 par(2) = 60.8 par(3) = 9.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.230) stop 'consistency check #1 failed' chname = 'FDP3' nr = 1 chmoth = 'FDC' x = 0 y = 0 z = 25.33 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 193 natmed = 'FDM3 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 = 'FDM3' chshap = 'TUBE' nmed = 193 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 4.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.231) stop 'consistency check #1 failed' chname = 'FDM3' nr = 1 chmoth = 'FDP3' x = 0 y = 0 z = -4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 194 natmed = 'FDC3 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 = 'FDC3' chshap = 'TUBE' nmed = 194 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.232) stop 'consistency check #1 failed' chname = 'FDC3' nr = 1 chmoth = 'FDM3' x = 0 y = 0 z = -3 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 5 chmoth = 'FDC3' x = 0 y = 0 z = -0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 6 chmoth = 'FDC3' x = 0 y = 0 z = 0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRO' nr = 5 chmoth = 'FDC3' x = 0 y = 0 z = -0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRO' nr = 6 chmoth = 'FDC3' x = 0 y = 0 z = 0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 195 natmed = 'FDK3 CopperKaptonEpoxy' 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 = 'FDK3' chshap = 'TUBE' nmed = 195 npar = 3 par(1) = 3.9 par(2) = 50.25 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.233) stop 'consistency check #1 failed' chname = 'FDK3' nr = 1 chmoth = 'FDC3' x = 0 y = 0 z = -0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDK3' nr = 2 chmoth = 'FDC3' x = 0 y = 0 z = 0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 196 natmed = 'FDJ3 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 = 'FDJ3' chshap = 'TUBE' nmed = 196 npar = 3 par(1) = 0 par(2) = 3.9 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.234) stop 'consistency check #1 failed' chname = 'FDJ3' nr = 1 chmoth = 'FDC3' x = 0 y = 0 z = -0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDJ3' nr = 2 chmoth = 'FDC3' x = 0 y = 0 z = 0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 197 natmed = 'FDG3 FDchamberGas' nmat = 51 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDG3' chshap = 'TUBE' nmed = 197 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.235) stop 'consistency check #1 failed' chname = 'FDG3' nr = 1 chmoth = 'FDC3' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAP' nr = 3 chmoth = 'FDG3' x = 0 y = 0 z = 0.0635 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDBC' nr = 3 chmoth = 'FDG3' x = 0 y = 0 z = 0.189 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 198 natmed = 'FDA3 FDchamberGas' nmat = 51 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDA3' chshap = 'TUBE' nmed = 198 npar = 3 par(1) = 3.9 par(2) = 48.5 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.236) stop 'consistency check #1 failed' chname = 'FDA3' nr = 1 chmoth = 'FDG3' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAW' nr = 3 chmoth = 'FDA3' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCW' nr = 3 chmoth = 'FDG3' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1000 theta1 = 90 phi1 = 60 theta2 = 90 phi2 = 150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC3' nr = 2 chmoth = 'FDM3' x = 0 y = 0 z = 0 irot = 1000 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1001 theta1 = 90 phi1 = -60 theta2 = 90 phi2 = 30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC3' nr = 3 chmoth = 'FDM3' x = 0 y = 0 z = 3 irot = 1001 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDM3' nr = 2 chmoth = 'FDP3' x = 0 y = 0 z = 4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSF' nr = 3 chmoth = 'FDP3' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 199 natmed = 'FDP4 Air' nmat = 1 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDP4' chshap = 'TUBE' nmed = 199 npar = 3 par(1) = 0 par(2) = 60.8 par(3) = 9.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.237) stop 'consistency check #1 failed' chname = 'FDP4' nr = 1 chmoth = 'FDC' x = 0 y = 0 z = 76 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 200 natmed = 'FDM4 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 = 'FDM4' chshap = 'TUBE' nmed = 200 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 4.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.238) stop 'consistency check #1 failed' chname = 'FDM4' nr = 1 chmoth = 'FDP4' x = 0 y = 0 z = -4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 201 natmed = 'FDC4 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 = 'FDC4' chshap = 'TUBE' nmed = 201 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.239) stop 'consistency check #1 failed' chname = 'FDC4' nr = 1 chmoth = 'FDM4' x = 0 y = 0 z = -3 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 7 chmoth = 'FDC4' x = 0 y = 0 z = -0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCG' nr = 8 chmoth = 'FDC4' x = 0 y = 0 z = 0.9987 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRO' nr = 7 chmoth = 'FDC4' x = 0 y = 0 z = -0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDRO' nr = 8 chmoth = 'FDC4' x = 0 y = 0 z = 0.6052 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 202 natmed = 'FDK4 CopperKaptonEpoxy' 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 = 'FDK4' chshap = 'TUBE' nmed = 202 npar = 3 par(1) = 4.6 par(2) = 50.25 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.240) stop 'consistency check #1 failed' chname = 'FDK4' nr = 1 chmoth = 'FDC4' x = 0 y = 0 z = -0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDK4' nr = 2 chmoth = 'FDC4' x = 0 y = 0 z = 0.5026 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 203 natmed = 'FDJ4 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 = 'FDJ4' chshap = 'TUBE' nmed = 203 npar = 3 par(1) = 0 par(2) = 4.6 par(3) = 0.0026 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.241) stop 'consistency check #1 failed' chname = 'FDJ4' nr = 1 chmoth = 'FDC4' x = 0 y = 0 z = -0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDJ4' nr = 2 chmoth = 'FDC4' x = 0 y = 0 z = 0.5027 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 204 natmed = 'FDG4 FDchamberGas' nmat = 51 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDG4' chshap = 'TUBE' nmed = 204 npar = 3 par(1) = 0 par(2) = 50.25 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.242) stop 'consistency check #1 failed' chname = 'FDG4' nr = 1 chmoth = 'FDC4' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAP' nr = 4 chmoth = 'FDG4' x = 0 y = 0 z = 0.0635 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDBC' nr = 4 chmoth = 'FDG4' x = 0 y = 0 z = 0.189 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 205 natmed = 'FDA4 FDchamberGas' nmat = 51 isvol = 1 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDA4' chshap = 'TUBE' nmed = 205 npar = 3 par(1) = 4.6 par(2) = 48.5 par(3) = 0.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.243) stop 'consistency check #1 failed' chname = 'FDA4' nr = 1 chmoth = 'FDG4' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAW' nr = 4 chmoth = 'FDA4' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDCW' nr = 4 chmoth = 'FDG4' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1002 theta1 = 90 phi1 = 60 theta2 = 90 phi2 = 150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC4' nr = 2 chmoth = 'FDM4' x = 0 y = 0 z = 0 irot = 1002 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1003 theta1 = 90 phi1 = -60 theta2 = 90 phi2 = 30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDC4' nr = 3 chmoth = 'FDM4' x = 0 y = 0 z = 3 irot = 1003 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDM4' nr = 2 chmoth = 'FDP4' x = 0 y = 0 z = 4.5 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDSF' nr = 4 chmoth = 'FDP4' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 206 natmed = 'FDRL CarbonFiber' nmat = 33 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDRL' chshap = 'TUBE' nmed = 206 npar = 3 par(1) = 0 par(2) = 0.24 par(3) = 86 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.244) stop 'consistency check #1 failed' chname = 'FDRL' nr = 1 chmoth = 'FDC' x = 52.25 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1004 theta1 = 90 phi1 = 90 theta2 = 90 phi2 = 180 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRL' nr = 2 chmoth = 'FDC' x = 3.19928e-15 y = 52.25 z = 0 irot = 1004 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1005 theta1 = 90 phi1 = 180 theta2 = 90 phi2 = -90 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRL' nr = 3 chmoth = 'FDC' x = -52.25 y = 6.39857e-15 z = 0 irot = 1005 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1006 theta1 = 90 phi1 = -90 theta2 = 90 phi2 = -1.05247e-14 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'FDRL' nr = 4 chmoth = 'FDC' x = -9.59785e-15 y = -52.25 z = 0 irot = 1006 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 207 natmed = 'FDAM 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 = 'FDAM' chshap = 'TUBE' nmed = 207 npar = 3 par(1) = 60 par(2) = 60.07 par(3) = 16 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.245) stop 'consistency check #1 failed' chname = 'FDAM' nr = 1 chmoth = 'FDC' x = 0 y = 0 z = -50.67 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAM' nr = 2 chmoth = 'FDC' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) chname = 'FDAM' nr = 3 chmoth = 'FDC' x = 0 y = 0 z = 50.67 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 208 natmed = 'FDE1 SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDE1' chshap = 'PCON' nmed = 208 npar = 30 par(1) = 0 par(2) = 360 par(3) = 9 par(4) = 0 par(5) = 62.5 par(6) = 62.61 par(7) = 233.22 par(8) = 62.5 par(9) = 62.61 par(10) = 233.25 par(11) = 62.5 par(12) = 62.62 par(13) = 261.23 par(14) = 78.65 par(15) = 78.77 par(16) = 261.3 par(17) = 78.7 par(18) = 78.91 par(19) = 265.68 par(20) = 86.28 par(21) = 86.49 par(22) = 265.79 par(23) = 86.46 par(24) = 87.7 par(25) = 270.13 par(26) = 136.11 par(27) = 137.35 par(28) = 270.24 par(29) = 137.34 par(30) = 137.34 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.246) stop 'consistency check #1 failed' chname = 'FDE1' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 190 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 209 natmed = 'FDE2 SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDE2' chshap = 'PCON' nmed = 209 npar = 30 par(1) = 0 par(2) = 360 par(3) = 9 par(4) = 50.67 par(5) = 62 par(6) = 62.11 par(7) = 233.36 par(8) = 62 par(9) = 62.11 par(10) = 233.39 par(11) = 62 par(12) = 62.13 par(13) = 261.59 par(14) = 78.28 par(15) = 78.41 par(16) = 261.67 par(17) = 78.33 par(18) = 78.55 par(19) = 266.17 par(20) = 86.12 par(21) = 86.34 par(22) = 266.28 par(23) = 86.31 par(24) = 87.56 par(25) = 270.63 par(26) = 136.05 par(27) = 137.3 par(28) = 270.74 par(29) = 137.29 par(30) = 137.29 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.247) stop 'consistency check #1 failed' chname = 'FDE2' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 190 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 210 natmed = 'FDE3 SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDE3' chshap = 'PCON' nmed = 210 npar = 30 par(1) = 0 par(2) = 360 par(3) = 9 par(4) = 101.34 par(5) = 61.5 par(6) = 61.61 par(7) = 233.49 par(8) = 61.5 par(9) = 61.61 par(10) = 233.52 par(11) = 61.5 par(12) = 61.63 par(13) = 261.96 par(14) = 77.92 par(15) = 78.04 par(16) = 262.04 par(17) = 77.96 par(18) = 78.18 par(19) = 266.66 par(20) = 85.97 par(21) = 86.18 par(22) = 266.76 par(23) = 86.15 par(24) = 87.41 par(25) = 271.12 par(26) = 136 par(27) = 137.26 par(28) = 271.23 par(29) = 137.25 par(30) = 137.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.248) stop 'consistency check #1 failed' chname = 'FDE3' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 190 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 211 natmed = 'FDE4 SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'FDE4' chshap = 'PCON' nmed = 211 npar = 30 par(1) = 0 par(2) = 360 par(3) = 9 par(4) = 152.01 par(5) = 61 par(6) = 61.11 par(7) = 233.63 par(8) = 61 par(9) = 61.11 par(10) = 233.66 par(11) = 61 par(12) = 61.13 par(13) = 262.32 par(14) = 77.55 par(15) = 77.68 par(16) = 262.4 par(17) = 77.6 par(18) = 77.82 par(19) = 267.14 par(20) = 85.81 par(21) = 86.03 par(22) = 267.25 par(23) = 86 par(24) = 87.27 par(25) = 271.62 par(26) = 135.94 par(27) = 137.22 par(28) = 271.73 par(29) = 137.21 par(30) = 137.21 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.249) stop 'consistency check #1 failed' chname = 'FDE4' nr = 1 chmoth = 'LASS' x = 0 y = 0 z = 190 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 212 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 = 212 npar = 3 par(1) = 65 par(2) = 90 par(3) = 210 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.250) 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 = 'SD27' 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 = 213 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 = 213 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.252) stop 'consistency check #1 failed' chname = 'BCAM' 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 = 214 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 = 214 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.253) 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 = 'SD28' 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 = 215 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 = 215 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.255) stop 'consistency check #1 failed' chname = 'BCS1' nr = 1 chmoth = 'SD28' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 61 namate = 'BCF-12' wmat(1) = 8 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) dens = 1.049 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 62 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.18 nlmat = -4 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) imate = 60 namate = 'leadScint' wmat(1) = 0.1036 call gfmate(61,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.8619 call gfmate(17,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.0345 call gfmate(62,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) dens = 4.87 nlmat = 3 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 216 natmed = 'BCM1 leadScint' nmat = 60 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 = 216 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.256) 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 = 217 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 = 217 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.257) 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 = 1007 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 = 1007 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 218 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 = 218 npar = 3 par(1) = 1 par(2) = 1 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.258) 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 = 1008 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 = 1008 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 219 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 = 219 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.259) 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 = 'SD29' 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 = 220 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 = 220 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.261) stop 'consistency check #1 failed' chname = 'BCS2' 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 = 221 natmed = 'BCM2 leadScint' nmat = 60 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 = 221 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.262) 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 = 222 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 = 222 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.263) 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 = 1009 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 = 1009 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 = 1010 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 = 1010 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 223 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 = 223 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.264) 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 = 'SD2A' 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 = 224 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 = 224 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.266) stop 'consistency check #1 failed' chname = 'BCS3' 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 = 225 natmed = 'BCM3 leadScint' nmat = 60 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 = 225 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.267) 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 = 226 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 = 226 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.268) 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 = 1011 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 = 1011 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 = 1012 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 = 1012 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 227 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 = 227 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.269) 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 = 'SD2B' 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 = 228 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 = 228 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.271) stop 'consistency check #1 failed' chname = 'BCS4' nr = 1 chmoth = 'SD2B' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 229 natmed = 'BCM4 leadScint' nmat = 60 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 = 229 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.272) 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 = 230 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 = 230 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.273) 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 = 1013 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 = 1013 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 = 1014 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 = 1014 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 231 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 = 231 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.274) 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 = 'SD2C' 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 = 232 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 = 232 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.276) stop 'consistency check #1 failed' chname = 'BCS5' nr = 1 chmoth = 'SD2C' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 233 natmed = 'BCM5 leadScint' nmat = 60 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 = 233 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.277) 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 = 234 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 = 234 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.278) 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 = 1015 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 = 1015 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 = 1016 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 = 1016 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 235 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 = 235 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.279) 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 = 'SD2D' 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 = 236 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 = 236 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.281) stop 'consistency check #1 failed' chname = 'BCS6' nr = 1 chmoth = 'SD2D' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 237 natmed = 'BCM6 leadScint' nmat = 60 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 = 237 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.282) 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 = 238 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 = 238 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.283) 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 = 1017 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 = 1017 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 = 1018 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 = 1018 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 239 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 = 239 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.284) 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 = 'SD2E' 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 = 240 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 = 240 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.286) stop 'consistency check #1 failed' chname = 'BCS7' nr = 1 chmoth = 'SD2E' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 241 natmed = 'BCM7 leadScint' nmat = 60 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 = 241 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.287) 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 = 242 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 = 242 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.288) 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 = 1019 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 = 1019 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 = 1020 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 = 1020 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 243 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 = 243 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.289) 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 = 'SD2F' 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 = 244 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 = 244 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.291) stop 'consistency check #1 failed' chname = 'BCS8' nr = 1 chmoth = 'SD2F' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 245 natmed = 'BCM8 leadScint' nmat = 60 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 = 245 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.292) 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 = 246 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 = 246 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.293) 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 = 1021 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 = 1021 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 = 1022 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 = 1022 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 247 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 = 247 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.294) 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 = 'SD30' 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 = 248 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 = 248 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.296) stop 'consistency check #1 failed' chname = 'BCS9' nr = 1 chmoth = 'SD30' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 249 natmed = 'BCM9 leadScint' nmat = 60 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 = 249 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.297) 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 = 250 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 = 250 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.298) 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 = 1023 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 = 1023 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 = 1024 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 = 1024 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 251 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 = 251 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.299) 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 = 252 natmed = 'BCSU SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCSU' chshap = 'PCON' nmed = 252 npar = 24 par(1) = 0 par(2) = 360 par(3) = 7 par(4) = -57 par(5) = 91.8 par(6) = 120 par(7) = -54 par(8) = 88.8 par(9) = 120 par(10) = -54 par(11) = 88.8 par(12) = 93 par(13) = -50.2 par(14) = 85 par(15) = 89.2 par(16) = -49 par(17) = 85 par(18) = 88 par(19) = -10 par(20) = 85 par(21) = 88 par(22) = 0 par(23) = 65 par(24) = 88 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.300) 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 = 253 natmed = 'BCSD SignalCables' nmat = 46 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'BCSD' chshap = 'PCON' nmed = 253 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.301) 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 = 254 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 = 254 npar = 15 par(1) = 0 par(2) = 360 par(3) = 4 par(4) = 0 par(5) = 5 par(6) = 80 par(7) = 4.9 par(8) = 5 par(9) = 80 par(10) = 4.9 par(11) = 5 par(12) = 220 par(13) = 145 par(14) = 5 par(15) = 220 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.302) stop 'consistency check #1 failed' chname = 'CERE' nr = 1 chmoth = 'HALL' x = 150 y = -350 z = -34 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 64 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 = 63 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(64,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 = 255 natmed = 'CERW Tedlar' nmat = 63 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 = 255 npar = 3 par(1) = 0 par(2) = 79 par(3) = 0.002 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.303) 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 = 65 namate = 'CerenkovGas' wmat(1) = 4 call gfmate(20,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 10 call gfmate(64,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 = 256 natmed = 'CERI CerenkovGas' nmat = 65 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical65(itmed) chname = 'CERI' chshap = 'TUBE' nmed = 256 npar = 3 par(1) = 5.1 par(2) = 79 par(3) = 2.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.304) stop 'consistency check #1 failed' chname = 'CERI' nr = 1 chmoth = 'CERE' x = 0 y = 0 z = 2.504 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 257 natmed = 'CGAS CerenkovGas' nmat = 65 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical65(itmed) chname = 'CGAS' chshap = 'TUBE' nmed = 257 npar = 3 par(1) = 5.1 par(2) = 219.9 par(3) = 69.95 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.305) stop 'consistency check #1 failed' chname = 'CGAS' nr = 1 chmoth = 'CERE' x = 0 y = 0 z = 74.95 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 258 natmed = 'CESI CerenkovGas' nmat = 65 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical65(itmed) chname = 'CESI' chshap = 'TUBS' nmed = 258 npar = 5 par(1) = 5.1 par(2) = 100 par(3) = 69.95 par(4) = -36 par(5) = 36 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.306) stop 'consistency check #1 failed' chname = 'CESI' nr = 1 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 66 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 = 259 natmed = 'CM01 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM01' chshap = 'PCON' nmed = 259 npar = 9 par(1) = 176.14 par(2) = 7.72 par(3) = 2 par(4) = -13.34 par(5) = 106.14 par(6) = 112 par(7) = -11.34 par(8) = 104.67 par(9) = 110.58 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.307) stop 'consistency check #1 failed' irot = 1025 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM01' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1025 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 260 natmed = 'CM02 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM02' chshap = 'PCON' nmed = 260 npar = 9 par(1) = 175.28 par(2) = 9.43 par(3) = 2 par(4) = -11.34 par(5) = 104.67 par(6) = 110.58 par(7) = -9.34 par(8) = 103.17 par(9) = 109.12 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.308) stop 'consistency check #1 failed' irot = 1026 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM02' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1026 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 261 natmed = 'CM03 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM03' chshap = 'PCON' nmed = 261 npar = 9 par(1) = 174.37 par(2) = 11.26 par(3) = 2 par(4) = -9.34 par(5) = 103.17 par(6) = 109.12 par(7) = -7.34 par(8) = 101.64 par(9) = 107.63 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.309) stop 'consistency check #1 failed' irot = 1027 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM03' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1027 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 262 natmed = 'CM04 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM04' chshap = 'PCON' nmed = 262 npar = 9 par(1) = 173.4 par(2) = 13.2 par(3) = 2 par(4) = -7.34 par(5) = 101.64 par(6) = 107.63 par(7) = -5.34 par(8) = 100.07 par(9) = 106.12 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.310) stop 'consistency check #1 failed' irot = 1028 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM04' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1028 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 263 natmed = 'CM05 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM05' chshap = 'PCON' nmed = 263 npar = 9 par(1) = 172.36 par(2) = 15.27 par(3) = 2 par(4) = -5.34 par(5) = 100.07 par(6) = 106.12 par(7) = -3.34 par(8) = 98.46 par(9) = 104.56 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.311) stop 'consistency check #1 failed' irot = 1029 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM05' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1029 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 264 natmed = 'CM06 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM06' chshap = 'PCON' nmed = 264 npar = 9 par(1) = 171.25 par(2) = 17.49 par(3) = 2 par(4) = -3.34 par(5) = 98.46 par(6) = 104.56 par(7) = -1.34 par(8) = 96.82 par(9) = 102.98 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.312) stop 'consistency check #1 failed' irot = 1030 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM06' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1030 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 265 natmed = 'CM07 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM07' chshap = 'PCON' nmed = 265 npar = 9 par(1) = 170.05 par(2) = 19.89 par(3) = 2 par(4) = -1.34 par(5) = 96.82 par(6) = 102.98 par(7) = 0.66 par(8) = 95.14 par(9) = 101.36 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.313) stop 'consistency check #1 failed' irot = 1031 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM07' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1031 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 266 natmed = 'CM08 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM08' chshap = 'PCON' nmed = 266 npar = 9 par(1) = 168.76 par(2) = 22.48 par(3) = 2 par(4) = 0.66 par(5) = 95.14 par(6) = 101.36 par(7) = 2.66 par(8) = 93.41 par(9) = 99.7 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.314) stop 'consistency check #1 failed' irot = 1032 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM08' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1032 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 267 natmed = 'CM09 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM09' chshap = 'PCON' nmed = 267 npar = 9 par(1) = 167.65 par(2) = 24.7 par(3) = 2 par(4) = 2.66 par(5) = 93.41 par(6) = 99.7 par(7) = 4.25 par(8) = 92.01 par(9) = 98.35 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.315) stop 'consistency check #1 failed' irot = 1033 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM09' nr = 1 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1033 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 268 natmed = 'CM11 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM11' chshap = 'PCON' nmed = 268 npar = 9 par(1) = 176.23 par(2) = 7.55 par(3) = 2 par(4) = 4.25 par(5) = 92.01 par(6) = 98.35 par(7) = 6.66 par(8) = 89.82 par(9) = 96.25 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.316) stop 'consistency check #1 failed' irot = 1034 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM11' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1034 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 269 natmed = 'CM12 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM12' chshap = 'PCON' nmed = 269 npar = 9 par(1) = 175.62 par(2) = 8.76 par(3) = 2 par(4) = 6.66 par(5) = 89.82 par(6) = 96.25 par(7) = 9.66 par(8) = 87 par(9) = 93.55 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.317) stop 'consistency check #1 failed' irot = 1035 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM12' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1035 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 270 natmed = 'CM13 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM13' chshap = 'PCON' nmed = 270 npar = 9 par(1) = 174.95 par(2) = 10.1 par(3) = 2 par(4) = 9.66 par(5) = 87 par(6) = 93.55 par(7) = 12.66 par(8) = 84.05 par(9) = 90.75 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.318) stop 'consistency check #1 failed' irot = 1036 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM13' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1036 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 271 natmed = 'CM14 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM14' chshap = 'PCON' nmed = 271 npar = 9 par(1) = 174.19 par(2) = 11.61 par(3) = 2 par(4) = 12.66 par(5) = 84.05 par(6) = 90.75 par(7) = 15.66 par(8) = 80.96 par(9) = 87.82 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.319) stop 'consistency check #1 failed' irot = 1037 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM14' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1037 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 272 natmed = 'CM15 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM15' chshap = 'PCON' nmed = 272 npar = 9 par(1) = 173.34 par(2) = 13.32 par(3) = 2 par(4) = 15.66 par(5) = 80.96 par(6) = 87.82 par(7) = 18.66 par(8) = 77.71 par(9) = 84.76 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.320) stop 'consistency check #1 failed' irot = 1038 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM15' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1038 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 273 natmed = 'CM16 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM16' chshap = 'PCON' nmed = 273 npar = 9 par(1) = 172.35 par(2) = 15.29 par(3) = 2 par(4) = 18.66 par(5) = 77.71 par(6) = 84.76 par(7) = 21.66 par(8) = 74.29 par(9) = 81.55 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.321) stop 'consistency check #1 failed' irot = 1039 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM16' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1039 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 274 natmed = 'CM17 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM17' chshap = 'PCON' nmed = 274 npar = 9 par(1) = 171.21 par(2) = 17.58 par(3) = 2 par(4) = 21.66 par(5) = 74.29 par(6) = 81.55 par(7) = 24.66 par(8) = 70.67 par(9) = 78.18 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.322) stop 'consistency check #1 failed' irot = 1040 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM17' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1040 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 275 natmed = 'CM18 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM18' chshap = 'PCON' nmed = 275 npar = 9 par(1) = 169.85 par(2) = 20.3 par(3) = 2 par(4) = 24.66 par(5) = 70.67 par(6) = 78.18 par(7) = 27.66 par(8) = 66.82 par(9) = 74.62 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.323) stop 'consistency check #1 failed' irot = 1041 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM18' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1041 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 276 natmed = 'CM19 ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM19' chshap = 'PCON' nmed = 276 npar = 9 par(1) = 168.19 par(2) = 23.61 par(3) = 2 par(4) = 27.66 par(5) = 66.82 par(6) = 74.62 par(7) = 30.66 par(8) = 62.68 par(9) = 70.85 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.324) stop 'consistency check #1 failed' irot = 1042 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM19' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1042 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 277 natmed = 'CM1A ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM1A' chshap = 'PCON' nmed = 277 npar = 9 par(1) = 166.12 par(2) = 27.75 par(3) = 2 par(4) = 30.66 par(5) = 62.68 par(6) = 70.85 par(7) = 33.66 par(8) = 58.21 par(9) = 66.82 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.325) stop 'consistency check #1 failed' irot = 1043 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1A' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1043 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 278 natmed = 'CM1B ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM1B' chshap = 'PCON' nmed = 278 npar = 9 par(1) = 163.42 par(2) = 33.16 par(3) = 2 par(4) = 33.66 par(5) = 58.21 par(6) = 66.82 par(7) = 36.66 par(8) = 53.32 par(9) = 62.49 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.326) stop 'consistency check #1 failed' irot = 1044 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1B' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1044 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 279 natmed = 'CM1C ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM1C' chshap = 'PCON' nmed = 279 npar = 9 par(1) = 159.67 par(2) = 40.66 par(3) = 2 par(4) = 36.66 par(5) = 53.32 par(6) = 62.49 par(7) = 39.66 par(8) = 47.88 par(9) = 57.8 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.327) stop 'consistency check #1 failed' irot = 1045 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1C' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1045 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 280 natmed = 'CM1D ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM1D' chshap = 'PCON' nmed = 280 npar = 9 par(1) = 153.92 par(2) = 52.16 par(3) = 2 par(4) = 39.66 par(5) = 47.88 par(6) = 57.8 par(7) = 42.66 par(8) = 41.67 par(9) = 52.63 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.328) stop 'consistency check #1 failed' irot = 1046 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1D' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1046 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 281 natmed = 'CM1E ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM1E' chshap = 'PCON' nmed = 281 npar = 9 par(1) = 143.24 par(2) = 73.53 par(3) = 2 par(4) = 42.66 par(5) = 41.67 par(6) = 52.63 par(7) = 45.66 par(8) = 34.29 par(9) = 46.85 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.329) stop 'consistency check #1 failed' irot = 1047 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1E' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1047 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 282 natmed = 'CM1F ThinCerenkovMirror' nmat = 66 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical66(itmed) chname = 'CM1F' chshap = 'PCON' nmed = 282 npar = 9 par(1) = 125.99 par(2) = 108.02 par(3) = 2 par(4) = 45.66 par(5) = 34.29 par(6) = 46.85 par(7) = 47.66 par(8) = 28.26 par(9) = 42.52 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.330) stop 'consistency check #1 failed' irot = 1048 theta1 = 101.6 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 11.6 phi3 = -24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1F' nr = 1 chmoth = 'CESI' x = 104.5 y = -46.5266 z = 14.09 irot = 1048 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1049 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM11' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1049 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1050 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM12' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1050 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1051 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM13' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1051 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1052 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM14' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1052 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1053 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM15' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1053 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1054 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM16' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1054 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1055 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM17' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1055 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1056 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM18' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1056 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1057 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM19' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1057 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1058 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1A' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1058 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1059 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1B' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1059 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1060 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1C' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1060 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1061 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1D' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1061 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1062 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1E' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1062 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1063 theta1 = 101.6 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 11.6 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1F' nr = 2 chmoth = 'CESI' x = 114.39 y = 0 z = 14.09 irot = 1063 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1064 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM11' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1064 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1065 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM12' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1065 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1066 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM13' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1066 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1067 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM14' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1067 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1068 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM15' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1068 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1069 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM16' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1069 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1070 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM17' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1070 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1071 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM18' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1071 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1072 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM19' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1072 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1073 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1A' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1073 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1074 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1B' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1074 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1075 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1C' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1075 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1076 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1D' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1076 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1077 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1E' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1077 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1078 theta1 = 101.6 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 11.6 phi3 = 24 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM1F' nr = 3 chmoth = 'CESI' x = 104.5 y = 46.5266 z = 14.09 irot = 1078 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1079 theta1 = 90 phi1 = 72 theta2 = 90 phi2 = 162 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESI' nr = 2 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1079 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1080 theta1 = 90 phi1 = 144 theta2 = 90 phi2 = -126 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESI' nr = 3 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1080 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1081 theta1 = 90 phi1 = -144 theta2 = 90 phi2 = -54 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESI' nr = 4 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1081 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1082 theta1 = 90 phi1 = -72 theta2 = 90 phi2 = 18 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESI' nr = 5 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1082 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 283 natmed = 'CESO CerenkovGas' nmat = 65 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical65(itmed) chname = 'CESO' chshap = 'TUBS' nmed = 283 npar = 5 par(1) = 100 par(2) = 219.9 par(3) = 69.95 par(4) = -12 par(5) = 12 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.331) stop 'consistency check #1 failed' chname = 'CESO' nr = 1 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 67 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 = 284 natmed = 'CM21 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM21' chshap = 'PCON' nmed = 284 npar = 9 par(1) = -25.12 par(2) = 50.24 par(3) = 2 par(4) = -45.72 par(5) = 70.61 par(6) = 76.99 par(7) = -40.72 par(8) = 74.48 par(9) = 80.56 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.332) stop 'consistency check #1 failed' irot = 1083 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM21' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1083 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 285 natmed = 'CM22 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM22' chshap = 'PCON' nmed = 285 npar = 9 par(1) = -24.89 par(2) = 49.78 par(3) = 2 par(4) = -40.72 par(5) = 74.48 par(6) = 80.56 par(7) = -35.72 par(8) = 77.84 par(9) = 83.69 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.333) stop 'consistency check #1 failed' irot = 1084 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM22' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1084 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 286 natmed = 'CM23 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM23' chshap = 'PCON' nmed = 286 npar = 9 par(1) = -24.76 par(2) = 49.53 par(3) = 2 par(4) = -35.72 par(5) = 77.84 par(6) = 83.69 par(7) = -30.72 par(8) = 80.77 par(9) = 86.42 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.334) stop 'consistency check #1 failed' irot = 1085 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM23' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1085 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 287 natmed = 'CM24 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM24' chshap = 'PCON' nmed = 287 npar = 9 par(1) = -24.71 par(2) = 49.43 par(3) = 2 par(4) = -30.72 par(5) = 80.77 par(6) = 86.42 par(7) = -25.72 par(8) = 83.3 par(9) = 88.79 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.335) stop 'consistency check #1 failed' irot = 1086 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM24' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1086 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 288 natmed = 'CM25 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM25' chshap = 'PCON' nmed = 288 npar = 9 par(1) = -24.73 par(2) = 49.46 par(3) = 2 par(4) = -25.72 par(5) = 83.3 par(6) = 88.79 par(7) = -20.72 par(8) = 85.47 par(9) = 90.83 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.336) stop 'consistency check #1 failed' irot = 1087 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM25' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1087 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 289 natmed = 'CM26 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM26' chshap = 'PCON' nmed = 289 npar = 9 par(1) = -24.8 par(2) = 49.61 par(3) = 2 par(4) = -20.72 par(5) = 85.47 par(6) = 90.83 par(7) = -15.72 par(8) = 87.3 par(9) = 92.56 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.337) stop 'consistency check #1 failed' irot = 1088 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM26' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1088 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 290 natmed = 'CM27 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM27' chshap = 'PCON' nmed = 290 npar = 9 par(1) = -24.93 par(2) = 49.85 par(3) = 2 par(4) = -15.72 par(5) = 87.3 par(6) = 92.56 par(7) = -10.72 par(8) = 88.83 par(9) = 94 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.338) stop 'consistency check #1 failed' irot = 1089 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM27' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1089 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 291 natmed = 'CM28 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM28' chshap = 'PCON' nmed = 291 npar = 9 par(1) = -25.1 par(2) = 50.19 par(3) = 2 par(4) = -10.72 par(5) = 88.83 par(6) = 94 par(7) = -5.72 par(8) = 90.06 par(9) = 95.17 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.339) stop 'consistency check #1 failed' irot = 1090 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM28' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1090 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 292 natmed = 'CM29 ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM29' chshap = 'PCON' nmed = 292 npar = 9 par(1) = -25.31 par(2) = 50.62 par(3) = 2 par(4) = -5.72 par(5) = 90.06 par(6) = 95.17 par(7) = -0.72 par(8) = 91 par(9) = 96.06 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.340) stop 'consistency check #1 failed' irot = 1091 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM29' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1091 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 293 natmed = 'CM2A ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2A' chshap = 'PCON' nmed = 293 npar = 9 par(1) = -25.57 par(2) = 51.13 par(3) = 2 par(4) = -0.72 par(5) = 91 par(6) = 96.06 par(7) = 4.28 par(8) = 91.67 par(9) = 96.7 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.341) stop 'consistency check #1 failed' irot = 1092 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2A' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1092 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 294 natmed = 'CM2B ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2B' chshap = 'PCON' nmed = 294 npar = 9 par(1) = -25.87 par(2) = 51.73 par(3) = 2 par(4) = 4.28 par(5) = 91.67 par(6) = 96.7 par(7) = 9.28 par(8) = 92.07 par(9) = 97.07 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.342) stop 'consistency check #1 failed' irot = 1093 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2B' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1093 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 295 natmed = 'CM2C ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2C' chshap = 'PCON' nmed = 295 npar = 9 par(1) = -26.21 par(2) = 52.42 par(3) = 2 par(4) = 9.28 par(5) = 92.07 par(6) = 97.07 par(7) = 14.28 par(8) = 92.2 par(9) = 97.2 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.343) stop 'consistency check #1 failed' irot = 1094 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2C' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1094 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 296 natmed = 'CM2D ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2D' chshap = 'PCON' nmed = 296 npar = 9 par(1) = -26.61 par(2) = 53.21 par(3) = 2 par(4) = 14.28 par(5) = 92.2 par(6) = 97.2 par(7) = 19.28 par(8) = 92.07 par(9) = 97.07 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.344) stop 'consistency check #1 failed' irot = 1095 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2D' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1095 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 297 natmed = 'CM2E ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2E' chshap = 'PCON' nmed = 297 npar = 9 par(1) = -27.05 par(2) = 54.11 par(3) = 2 par(4) = 19.28 par(5) = 92.07 par(6) = 97.07 par(7) = 24.28 par(8) = 91.67 par(9) = 96.7 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.345) stop 'consistency check #1 failed' irot = 1096 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2E' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1096 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 298 natmed = 'CM2F ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2F' chshap = 'PCON' nmed = 298 npar = 9 par(1) = -27.56 par(2) = 55.12 par(3) = 2 par(4) = 24.28 par(5) = 91.67 par(6) = 96.7 par(7) = 29.28 par(8) = 91 par(9) = 96.06 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.346) stop 'consistency check #1 failed' irot = 1097 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2F' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1097 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 299 natmed = 'CM2G ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2G' chshap = 'PCON' nmed = 299 npar = 9 par(1) = -28.13 par(2) = 56.26 par(3) = 2 par(4) = 29.28 par(5) = 91 par(6) = 96.06 par(7) = 34.28 par(8) = 90.06 par(9) = 95.17 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.347) stop 'consistency check #1 failed' irot = 1098 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2G' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1098 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 300 natmed = 'CM2H ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2H' chshap = 'PCON' nmed = 300 npar = 9 par(1) = -28.78 par(2) = 57.55 par(3) = 2 par(4) = 34.28 par(5) = 90.06 par(6) = 95.17 par(7) = 39.28 par(8) = 88.83 par(9) = 94 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.348) stop 'consistency check #1 failed' irot = 1099 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2H' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1099 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 301 natmed = 'CM2I ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2I' chshap = 'PCON' nmed = 301 npar = 9 par(1) = -29.51 par(2) = 59.02 par(3) = 2 par(4) = 39.28 par(5) = 88.83 par(6) = 94 par(7) = 44.28 par(8) = 87.3 par(9) = 92.56 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.349) stop 'consistency check #1 failed' irot = 1100 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2I' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1100 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 302 natmed = 'CM2J ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2J' chshap = 'PCON' nmed = 302 npar = 9 par(1) = -30.35 par(2) = 60.71 par(3) = 2 par(4) = 44.28 par(5) = 87.3 par(6) = 92.56 par(7) = 49.28 par(8) = 85.47 par(9) = 90.83 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.350) stop 'consistency check #1 failed' irot = 1101 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2J' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1101 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 303 natmed = 'CM2K ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2K' chshap = 'PCON' nmed = 303 npar = 9 par(1) = -31.33 par(2) = 62.66 par(3) = 2 par(4) = 49.28 par(5) = 85.47 par(6) = 90.83 par(7) = 54.28 par(8) = 83.3 par(9) = 88.79 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.351) stop 'consistency check #1 failed' irot = 1102 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2K' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1102 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 304 natmed = 'CM2L ThickCerenkovMirror' nmat = 67 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical67(itmed) chname = 'CM2L' chshap = 'PCON' nmed = 304 npar = 9 par(1) = -32.46 par(2) = 64.93 par(3) = 2 par(4) = 54.28 par(5) = 83.3 par(6) = 88.79 par(7) = 59.28 par(8) = 80.77 par(9) = 86.42 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.352) stop 'consistency check #1 failed' irot = 1103 theta1 = 123.1 phi1 = 0 theta2 = 90 phi2 = 90 theta3 = 33.1 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CM2L' nr = 1 chmoth = 'CESO' x = 114.39 y = 0 z = 14.09 irot = 1103 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 68 namate = 'fusedSilica' 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.2 nlmat = -2 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 305 natmed = 'CPMT fusedSilica' nmat = 68 isvol = 0 ifield = 2 fieldm = 22.4 tmaxfd = 1 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) call setoptical68(itmed) chname = 'CPMT' chshap = 'TUBE' nmed = 305 npar = 3 par(1) = 0 par(2) = 10 par(3) = 15 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.353) stop 'consistency check #1 failed' irot = 1104 theta1 = 132 phi1 = -180 theta2 = 90 phi2 = 90 theta3 = 138 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CPMT' nr = 1 chmoth = 'CESO' x = 118.39 y = 0 z = 51.02 irot = 1104 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) imate = 70 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 = 69 namate = 'CerenkovPhotocathode' wmat(1) = 1 call gfmate(70,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) dens = 1.87 nlmat = 1 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 306 natmed = 'CPPC CerenkovPhotocathode' nmat = 69 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 setoptical69(itmed) chname = 'CPPC' chshap = 'TUBE' nmed = 306 npar = 3 par(1) = 0 par(2) = 9 par(3) = 0.05 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.354) stop 'consistency check #1 failed' chname = 'CPPC' nr = 1 chmoth = 'CPMT' x = 0 y = 0 z = 14.8 irot = 0 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1105 theta1 = 90 phi1 = 24 theta2 = 90 phi2 = 114 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 2 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1105 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1106 theta1 = 90 phi1 = 48 theta2 = 90 phi2 = 138 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 3 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1106 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1107 theta1 = 90 phi1 = 72 theta2 = 90 phi2 = 162 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 4 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1107 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1108 theta1 = 90 phi1 = 96 theta2 = 90 phi2 = -174 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 5 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1108 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1109 theta1 = 90 phi1 = 120 theta2 = 90 phi2 = -150 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 6 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1109 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1110 theta1 = 90 phi1 = 144 theta2 = 90 phi2 = -126 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 7 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1110 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1111 theta1 = 90 phi1 = 168 theta2 = 90 phi2 = -102 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 8 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1111 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1112 theta1 = 90 phi1 = -168 theta2 = 90 phi2 = -78 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 9 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1112 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1113 theta1 = 90 phi1 = -144 theta2 = 90 phi2 = -54 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 10 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1113 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1114 theta1 = 90 phi1 = -120 theta2 = 90 phi2 = -30 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 11 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1114 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1115 theta1 = 90 phi1 = -96 theta2 = 90 phi2 = -6 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 12 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1115 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1116 theta1 = 90 phi1 = -72 theta2 = 90 phi2 = 18 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 13 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1116 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1117 theta1 = 90 phi1 = -48 theta2 = 90 phi2 = 42 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 14 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1117 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) irot = 1118 theta1 = 90 phi1 = -24 theta2 = 90 phi2 = 66 theta3 = 0 phi3 = 0 call gsrotm(irot,theta1,phi1,theta2,phi2,theta3,phi3) chname = 'CESO' nr = 15 chmoth = 'CGAS' x = 0 y = 0 z = 0 irot = 1118 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 307 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 = 307 npar = 3 par(1) = 126 par(2) = 126 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.355) stop 'consistency check #1 failed' irot = 1119 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 = 1119 chonly = 'ONLY' call gspos(chname,nr,chmoth,x,y,z,irot,chonly) itmed = 308 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 = 308 npar = 3 par(1) = 126 par(2) = 60 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.356) 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 = 309 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 = 309 npar = 3 par(1) = 126 par(2) = 3 par(3) = 1.27 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.358) 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 = 310 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 = 310 npar = 3 par(1) = 60 par(2) = 6 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.359) 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 = 311 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 = 311 npar = 3 par(1) = 60 par(2) = 3 par(3) = 1.27 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.361) 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 = 312 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 = 312 npar = 3 par(1) = 60 par(2) = 6 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.362) 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 = 313 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 = 313 npar = 3 par(1) = 126 par(2) = 60 par(3) = 1.275 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.364) 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 = 314 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 = 314 npar = 3 par(1) = 118 par(2) = 118 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.366) 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 = 315 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 = 315 npar = 3 par(1) = 118 par(2) = 56 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.367) 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 = 71 namate = 'leadGlassF800' wmat(1) = 0.6803 call gfmate(17,chnama,amat(1),zmat(1),dens,radl,absl,ubuf,nwbuf) wmat(2) = 0.0877 call gfmate(9,chnama,amat(2),zmat(2),dens,radl,absl,ubuf,nwbuf) wmat(3) = 0.0593 call gfmate(43,chnama,amat(3),zmat(3),dens,radl,absl,ubuf,nwbuf) wmat(4) = 0.006 call gfmate(41,chnama,amat(4),zmat(4),dens,radl,absl,ubuf,nwbuf) wmat(5) = 0.1667 call gfmate(3,chnama,amat(5),zmat(5),dens,radl,absl,ubuf,nwbuf) dens = 3.61 nlmat = 5 call gsmixt(imate,namate,amat,zmat,dens,nlmat,wmat) itmed = 316 natmed = 'LGBL leadGlassF800' nmat = 71 isvol = 1 ifield = 0 fieldm = 0 tmaxfd = 0 stemax = 1 deemax = 0 epsil = 0.001 stmin = 0 nwbuf = 0 call gstmed(itmed,natmed,nmat,isvol,ifield,fieldm,tmaxfd, + stemax,deemax,epsil,stmin,ubuf,nwbuf) chname = 'LGBL' chshap = 'BOX ' nmed = 316 npar = 3 par(1) = 2 par(2) = 2 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.370) 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 = 317 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 = 317 npar = 3 par(1) = 56 par(2) = 6 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.371) 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 = 318 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 = 318 npar = 3 par(1) = 56 par(2) = 6 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.374) 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 = 319 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 = 319 npar = 3 par(1) = 118 par(2) = 56 par(3) = 22.5 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.377) 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 = 320 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 = 320 npar = 3 par(1) = 850 par(2) = 600 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.380) 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 = 321 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 = 321 npar = 3 par(1) = 850 par(2) = 600 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.381) 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 = 322 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 = 322 npar = 3 par(1) = 850 par(2) = 1 par(3) = 1500 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.382) 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 = 323 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 = 323 npar = 3 par(1) = 850 par(2) = 600 par(3) = 1 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.383) 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 = 324 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 = 324 npar = 3 par(1) = 0 par(2) = 2.5 par(3) = 454 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.384) 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 = 325 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 = 325 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 454 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.385) 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 = 326 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 = 326 npar = 3 par(1) = 0 par(2) = 2.2 par(3) = 0.025 call gsvolu(chname,chshap,nmed,par,npar,ivolu) if (ivolu.ne.386) 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 setoptical65(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 /optical65/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 getoptical65(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 /optical65/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 setoptical66(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 /optical66/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 getoptical66(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 /optical66/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 setoptical67(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 /optical67/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 getoptical67(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 /optical67/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 setoptical68(itmed) implicit none integer itmed integer nbins real Ephot(14) real abslen(14) real effic(14) real rindex(14) real smooth(14) real refloss(14) common /optical68/nbins,Ephot,rindex,abslen,refloss,smooth,effic integer i data nbins/14/ data (Ephot(i),i=1,14) / + 1.5e-09,2e-09,2.5e-09,3e-09,3.5e-09,4e-09, + 4.5e-09,5e-09,5.5e-09,6e-09,6.5e-09,7e-09, + 7.5e-09,8e-09/ data (rindex(i),i=1,14) / + 1.452,1.457,1.462,1.468,1.475,1.484, + 1.495,1.508,1.508,1.523,1.541,1.563, + 1.591,1.625/ data (abslen(i),i=1,14) / + 300,300,300,300,300,300, + 300,200,100,50,20,10, + 0.1,0.05/ data (smooth(i),i=1,14) / + 0,0,0,0,0,0, + 0,0,0,0,0,0, + 0,0/ data (refloss(i),i=1,14) / + 1,1,1,1,1,1, + 1,1,1,1,1,1, + 1,1/ data (effic(i),i=1,14) / + 0,0,0,0,0,0, + 0,0,0,0,0,0, + 0,0/ call GSCKOV(itmed,nbins,Ephot,abslen,effic,rindex) end subroutine getoptical68(E,refl,absl,rind,plsh,eff) implicit none real E,refl,absl,rind,plsh,eff integer n real x integer nbins real Ephot(14) real abslen(14) real effic(14) real rindex(14) real smooth(14) real refloss(14) common /optical68/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 setoptical69(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 /optical69/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 getoptical69(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 /optical69/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(386) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 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, 0, 0, 0/ integer lookup(218) 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,218) / + 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, + 7, 6, 5, 4, 3, 2, 1, 0/ 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(386) 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, 1, 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, 4, 0, 0, 0, 0, 0, + 0, 7, 0, 0, 0, 0, 0, 0, 10, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 13, 0, 0, 0, 0, 0, 17, + 0, 0, 0, 0, 21, 0, 0, 0, 0, 25, + 0, 0, 0, 0, 29, 0, 0, 0, 0, 33, + 0, 0, 0, 0, 36, 0, 0, 0, 0, 39, + 0, 0, 0, 0, 42, 0, 0, 0, 0, 0/ data (istart(i),i=301,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0/ integer lookup(44) data (lookup(i),i=1,44) / + 1, 2, 3, 1, 2, 3, 1, 2, 3, 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/ 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(386) 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) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 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, 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/ data (istart(i),i=301,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 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/ 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(386) 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, 1, 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, 3, 0, 0, 0, 0, 0, 0, + 5, 0, 0, 0, 0, 0, 0, 7, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0/ integer lookup(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 getPackage() implicit none integer getPackage integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(386) 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, 1, 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, 2, 0, 0, 0, 0, 0, 0, 3, + 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 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,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0/ integer lookup(4) data (lookup(i),i=1,4) / + 1, 2, 3, 4/ integer level,index integer package getPackage = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then package = lookup(index + number(level) - 1) if (package.gt.0) then getPackage = package endif endif enddo end function getPlane() implicit none integer getPlane integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(386) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0/ integer lookup(2) data (lookup(i),i=1,2) / + 0, 1/ integer level,index integer plane getPlane = 0 do level=1,nlevel index = istart(lvolum(level)) if (index.gt.0) then plane = lookup(index + number(level) - 1) if (plane.gt.0) then getPlane = plane endif endif enddo end function getRing() implicit none integer getRing integer nlevel,names,number,lvolum common /gcvolu/nlevel,names(15),number(15),lvolum(15) integer i,istart(386) 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, 44, 0, 0, 94, 0, 0, 151, 0, 0, + 0, 1027, 0, 0, 1126, 0, 0, 1232, 0, 0, + 1345, 0, 0, 1465, 0, 0, 0, 1592, 0, 0, + 1758, 0, 0, 1931, 0, 0, 2111, 0, 0, 2298, + 0, 0, 2492, 0, 0, 2693, 0, 0, 2901, 0, + 0, 3116, 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,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0/ integer lookup(3337) 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, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, + 2, 2, 2, 3, 3, 3, 3, 3, 3, 3/ data (lookup(i),i=101,200) / + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4/ data (lookup(i),i=201,300) / + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 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=301,400) / + 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, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7/ data (lookup(i),i=401,500) / + 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, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 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=501,600) / + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 13, 13, 13, 13, 13, 13, 13, 13, + 13, 13, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14/ data (lookup(i),i=601,700) / + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 14, 14, 14, 14, + 14, 14, 14, 14, 14, 14, 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=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, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 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=801,900) / + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, + 15, 15, 15, 15, 15, 15, 15, 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/ data (lookup(i),i=901,1000) / + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 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=1001,1100) / + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, + 16, 16, 16, 16, 16, 16, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 8, 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=1101,1200) / + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, + 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9/ data (lookup(i),i=1201,1300) / + 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, + 9, 9, 9, 9, 9, 9, 9, 9, 9, 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/ data (lookup(i),i=1301,1400) / + 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, + 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, + 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, 11/ data (lookup(i),i=1401,1500) / + 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, + 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, + 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, + 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, + 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, 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=1501,1600) / + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, + 12, 17, 17, 17, 17, 17, 17, 17, 17, 17/ data (lookup(i),i=1601,1700) / + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 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=1701,1800) / + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, + 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18/ data (lookup(i),i=1801,1900) / + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, + 18, 18, 18, 18, 18, 18, 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=1901,2000) / + 18, 18, 18, 18, 18, 18, 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, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 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=2001,2100) / + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 19, 19, 19, 19, 19, 19, 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=2101,2200) / + 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 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=2201,2300) / + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, + 20, 20, 20, 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/ data (lookup(i),i=2301,2400) / + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 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=2401,2500) / + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 21, 21, 21, 21, 21, 21, 21, 21, 21, + 21, 22, 22, 22, 22, 22, 22, 22, 22, 22/ data (lookup(i),i=2501,2600) / + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 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=2601,2700) / + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, + 22, 22, 23, 23, 23, 23, 23, 23, 23, 23/ data (lookup(i),i=2701,2800) / + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 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=2801,2900) / + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, + 23, 23, 23, 23, 23, 23, 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=2901,3000) / + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24/ data (lookup(i),i=3001,3100) / + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24/ data (lookup(i),i=3101,3200) / + 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, + 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25/ data (lookup(i),i=3201,3300) / + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25/ data (lookup(i),i=3301,3337) / + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, + 25, 25, 25, 25, 25, 25, 25/ 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(386) data (istart(i),i=1,100) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=101,200) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=201,300) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ data (istart(i),i=301,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 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, 0, 0, 0/ integer lookup(106) 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,106) / + 53, 54, 55, 56, 57, 58/ 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(386) 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, 1, 0, 0, 0, 0, 0, + 0, 25, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 68, 0, 0, 118, 0, 0, 175, 0, 0, + 0, 1051, 0, 0, 1150, 0, 0, 1256, 0, 0, + 1369, 0, 0, 1489, 0, 0, 0, 1616, 0, 0, + 1782, 0, 0, 1955, 0, 0, 2135, 0, 0, 2322, + 0, 0, 2516, 0, 0, 2717, 0, 0, 2925, 0, + 0, 3140, 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, 3362, 0, 0, 0, 0, 0, 3366, + 0, 0, 0, 0, 3370, 0, 0, 0, 0, 3374, + 0, 0, 0, 0, 3378, 0, 0, 0, 0, 3382, + 0, 0, 0, 0, 3385, 0, 0, 0, 0, 3388, + 0, 0, 0, 0, 3391, 0, 0, 0, 0, 0/ data (istart(i),i=301,386) / + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 3394, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0/ integer lookup(3408) 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, 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/ data (lookup(i),i=101,200) / + 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, + 44, 45, 46, 47, 48, 49, 50, 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, 1, 2, 3, 4, 5, 6, + 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, + 17, 18, 19, 20, 21, 22, 23, 24, 25, 26/ data (lookup(i),i=201,300) / + 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, 1, 2, + 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, + 53, 54, 55, 56, 57, 58, 59, 60, 61, 62/ data (lookup(i),i=301,400) / + 63, 64, 65, 66, 67, 68, 69, 70, 71, 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, 1, 2, 3, + 4, 5, 6, 7, 8, 9, 10, 11, 12, 13/ data (lookup(i),i=401,500) / + 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, 1, 2, 3, 4, 5, 6, 7, 8, + 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28/ data (lookup(i),i=501,600) / + 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, + 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, + 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, + 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, + 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, + 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, + 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, + 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, + 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, + 119, 120, 121, 122, 123, 124, 125, 126, 127, 128/ data (lookup(i),i=601,700) / + 129, 130, 131, 132, 133, 134, 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/ data (lookup(i),i=701,800) / + 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, 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/ data (lookup(i),i=801,900) / + 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, + 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, + 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, + 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, + 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, + 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, + 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, + 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, + 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, + 144, 145, 146, 147, 148, 1, 2, 3, 4, 5/ data (lookup(i),i=901,1000) / + 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, + 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, + 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, + 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, + 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, + 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, + 96, 97, 98, 99, 100, 101, 102, 103, 104, 105/ data (lookup(i),i=1001,1100) / + 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, + 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, + 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, + 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50/ data (lookup(i),i=1101,1200) / + 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, 1, + 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, + 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, + 42, 43, 44, 45, 46, 47, 48, 49, 50, 51/ data (lookup(i),i=1201,1300) / + 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, 1, 2, 3, 4, 5, + 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 41, 42, 43, 44, 45/ data (lookup(i),i=1301,1400) / + 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, 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/ data (lookup(i),i=1401,1500) / + 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, 1, 2, + 3, 4, 5, 6, 7, 8, 9, 10, 11, 12/ data (lookup(i),i=1501,1600) / + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, + 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, + 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, + 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, + 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, + 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, + 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, + 103, 104, 105, 106, 107, 108, 109, 110, 111, 112/ data (lookup(i),i=1601,1700) / + 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, + 123, 124, 125, 126, 127, 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/ data (lookup(i),i=1701,1800) / + 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, 1, 2, 3, 4, 5, 6, 7, 8, 9, + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19/ data (lookup(i),i=1801,1900) / + 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, 116, 117, 118, 119/ data (lookup(i),i=1901,2000) / + 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, 1, 2, 3, 4, 5, 6, + 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, + 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, + 37, 38, 39, 40, 41, 42, 43, 44, 45, 46/ data (lookup(i),i=2001,2100) / + 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, + 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, + 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, + 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, + 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, + 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, + 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, + 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, + 137, 138, 139, 140, 141, 142, 143, 144, 145, 146/ data (lookup(i),i=2101,2200) / + 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, 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=2201,2300) / + 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, + 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, + 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, + 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, + 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, + 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, + 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, + 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, + 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, + 157, 158, 159, 160, 161, 162, 163, 164, 165, 166/ data (lookup(i),i=2301,2400) / + 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, + 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, + 187, 1, 2, 3, 4, 5, 6, 7, 8, 9, + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, + 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, + 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, + 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, + 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, + 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, + 70, 71, 72, 73, 74, 75, 76, 77, 78, 79/ data (lookup(i),i=2401,2500) / + 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, + 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, + 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, + 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, + 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, + 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, + 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, + 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, + 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, + 170, 171, 172, 173, 174, 175, 176, 177, 178, 179/ data (lookup(i),i=2501,2600) / + 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, + 190, 191, 192, 193, 194, 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/ data (lookup(i),i=2601,2700) / + 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, + 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, + 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, + 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, + 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, + 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, + 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, + 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, + 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, + 176, 177, 178, 179, 180, 181, 182, 183, 184, 185/ data (lookup(i),i=2701,2800) / + 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, + 196, 197, 198, 199, 200, 201, 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/ data (lookup(i),i=2801,2900) / + 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, + 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, + 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, + 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, + 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, + 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, + 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, + 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, + 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, + 175, 176, 177, 178, 179, 180, 181, 182, 183, 184/ data (lookup(i),i=2901,3000) / + 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, + 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, + 205, 206, 207, 208, 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, 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/ data (lookup(i),i=3201,3300) / + 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, + 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, + 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, + 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, + 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, + 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, + 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, + 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, + 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, + 152, 153, 154, 155, 156, 157, 158, 159, 160, 161/ data (lookup(i),i=3301,3400) / + 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, 1, 2, 3, 4, 1, 2, 3, 4, 1, + 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, + 4, 1, 2, 3, 1, 2, 3, 1, 2, 3, + 1, 2, 3, 1, 2, 3, 4, 5, 6, 7/ data (lookup(i),i=3401,3408) / + 8, 9, 10, 11, 12, 13, 14, 15/ 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.65) then call getoptical65(E,refl,absl,rind,plsh,eff) elseif (imat.eq.66) then call getoptical66(E,refl,absl,rind,plsh,eff) elseif (imat.eq.67) then call getoptical67(E,refl,absl,rind,plsh,eff) elseif (imat.eq.68) then call getoptical68(E,refl,absl,rind,plsh,eff) elseif (imat.eq.69) then call getoptical69(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