ࡱ> !xwRsCompObj#9aVBFrame6BananaForm<8"8f = -540 ClientWidth = 7440 StartUpPosition = 1 'CenterOwner TypeInfoVer = 307 End S(H  j@}( R KQ:Tahoma<K EFҋB `EFx, b4AlBeNeRefEditH$1Tahoma4(Help"qTahoma4( Plot Banana "qTahoma4@F T8\pPieter Ba= ThisWorkbook=]Z-8X@"1Calibri1Calibri1Calibri1Calibri1Calibri1*h6 Calibri Light1,6Calibri16Calibri16Calibri1Calibri1Calibri1<Calibri1>Calibri1?Calibri14Calibri14Calibri1 Calibri1 Calibri1Calibri1Calibri1 Calibri""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.005*0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-                                                                       ff + ) , *     P  P        `            a  ||>-܍}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-} _-;_-* "}-}  _-;_-* "}-}  _-;_-* "}-}  _-;_-* "}-}  _-;_-* "}-}  _-;_-* "}-} _-;_-* "}-} _-;_-* "}-}+ _-;_-* "}-}, _-;_-* "}-}- _-;_-* "}-}. _-;_-* "}-}: _-;_-* "}-}; _-;_-* "}A}1 _-;_-* "-@_- }A}2 _-;_-* "?-@_- }A}3 _-;_-* "23-@_- }-}4 _-;_-* "}A}0 a_-;_-* "-@_- }A}( _-;_-* "-@_- }A}7 e_-;_-* "-@_- }}5 ??v_-;_-* "̙-@_-    }}9 ???_-;_-* "-@_- ??? ??? ??? ???}}) }_-;_-* "-@_-    }A}6 }_-;_-* "-@_- }}* _-;_-* "-@_- ??? ??? ??? ???}-}= _-;_-* "}}8 _-;_-* "-@_-    }-}/ _-;_-* "}U}< _-;_-* "-@_-  }A}" _-;_-* "-@_- }A} _-;_-* "ef-@_- }A} _-;_-* "L-@_- }A} _-;_-* "23-@_- }A}# _-;_-* "-@_- }A} _-;_-* "ef-@_- }A} _-;_-* "L-@_- }A} _-;_-* "23-@_- }A}$ _-;_-* "-@_- }A} _-;_-* "ef-@_- }A} _-;_-* "L-@_- }A} _-;_-* "23-@_- }A}% _-;_-* "-@_- }A} _-;_-* "ef-@_- }A} _-;_-* "L-@_- }A} _-;_-* "23-@_- }A}& _-;_-* "-@_- }A} _-;_-* "ef-@_- }A} _-;_-* "L-@_- }A}  _-;_-* "23-@_- }A}' _-;_-* " -@_- }A} _-;_-* "ef -@_- }A} _-;_-* "L -@_- }A}! _-;_-* "23 -@_-  20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L˭ % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  L % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23 % 60% - Accent3M( 60% - Accent3 23 % 60% - Accent4M, 60% - Accent4 23f % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23Ў % "Accent1AAccent1 [ % #Accent2A!Accent2 }1 % $Accent3A%Accent3  % %Accent4A)Accent4  % &Accent5A-Accent5 Dr % 'Accent6A1Accent6  pG %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text % 0Good;Good  a%1 Heading 1G Heading 1 DTj%[2 Heading 2G Heading 2 DTj%?3 Heading 3G Heading 3 DTj%234 Heading 49 Heading 4 DTj% 5InputuInput ̙ ??v% 6 Linked CellK Linked Cell }% 7NeutralANeutral  e%3Normal % 8Noteb Note   9OutputwOutput  ???%????????? ???:$Percent ;Title1Title DTj% <TotalMTotal %[[= Warning Text? Warning Text %XTableStyleMedium2PivotStyleLight16`b:Sheet1,Scc@ VPK![Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,3;rØJB+$G]7O٭V@ Sheet1ggD ThisWorkbookSheet1AgeForm.OBananaFormP} !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\]^_`abcdefghijklmnopqrstuvwxz{|}~5<~#xME(SLSS<N0{00020819-0000-0000-C000-000000000046}H 0%@88xWxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD25<~#xME(SLSS<N0{00020820-0000-0000-C000-000000000046}H 0%@88xWxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2p 0(2* 4(2* 6(2o@ 0(2 4(2V 6(2Sto  !<26AlC@>10BeC@>21NeC@>3HeC@>36ClC@>14CC@>q !@26AlC@>10BeC@>21NeC@>3HeC@>36ClC@>14CC@>q !B26AlC@>10BeC@>21NeC@>3HeC@>36ClC@>14CC@>q !D26AlC@>10BeC@>21NeC@>3HeC@>36ClC@>14CC@>q !FBurial-ErosionC@>Burial-ExposureC@> Age-ErosionC@>q0 L!N H(J L!N P(JX R(dinf T(d?X V(dX X(dox]]]] ]8 .\ D!J \Bh !V!dX'b !X!dX'f !R!dX'j j \Bl !T!dinf !T!d'd b d f \$n'`d !T!dX'd b d f \$n'`k` `X !p(J .\o8P(] .\ ](.t !H!J tBh <!J \Bh x \ tAz |e \ tA~k.\.t A@r oh ! Ad@ B@ k( A@r o@ single nuclide age calculation t! t! t%$5 Age (ka)7(JErr (1s)7(JkXqP  t!0  t%'  $  \Bl  t%'  t%' 0!dX'b  \ b$'   \  b$'X  t! t%$ 7(J 7(J0.07(0.07(q !''kk dh#Please select three columns of dataA@k0o( t! t! t%$5 Erosion rate (cm/kyr)7(JErr (1s)7(Jkq  t!`  t%'  $  \Bl  t%'  t%'  \$'   \$'  t! t%$ 7(J 7(J0.0007(0.0007(q !''kk d"Please select four columns of dataA@ko Bo` A@ro@@ A@ro  A@ro]H]`]x]]](.t !P!J tBh . . ,!@!J Bh ,!B!J Bh t!!Please select six columns of dataA@d  t!F  t%'  $  Bl  t%'  t%'  t%'  Bl  t%'  t%' !F!J Age-Erosion; two nuclide exposure age (Y) - erosion rate X) calculation          A !F!JBurial-Erosione: two nuclide burial age (Y) - erosion rate (X) calculation          A !F!JBurial-Exposuree: two nuclide burial age (Y) - exposure age (X) calculation          A k80  t! t%$  t ;<~xME0 (PSPSSS <^>8P>"F:H@@"P0N<JD`PL8H7(J0.07( 7(J0.07( !F!JBurial-Exposure 7(J0.07(G 7(J0.07(d 7(J0.0007( 7(J0.0007(kXqPH !kNMsgBox ("Newton method did not converge. Try again or use Metropolis option.")'''' k k   print header:Z t! t%$!  t! t%$ ,!F!J Age-ErosionExposure Age (ka)7(JErosion Rate (cm/ka)7(J ,!F!JBurial-ErosioneBurial Age (ka)7(JErosion Rate (cm/ka)7(J ,!F!JBurial-ExposureeBurial Age (ka)7(JExposure Age (ka)7(Jk 1 sigma7(J1 sigma7(Jq` kX kP .t.. A@r| o 8]' *Select a range of cells, six columns wide   ' 1 S1(1) N1(1) N1err(1) S2(1) N2(1) N2err(1) ' G : : : : : :  ' 1 S1(n) N1(n) N1err(n) S2(n) N2(n) N2err(n)  ' with:  ' 6 - S1 = Composite scaling factor for Nuclide 1, i.e. 'G 6 the combined effects of latitude, elevation, '> " snow- and self-shielding ' . - N1 = Concentration of Nuclide 1 (atoms/g) ' 2 - N1err = 1-sigma measurement uncertainty of N1 ' % - S2 = Scaling factor of Nuclide 2 '* . - N2 = Concentration of Nuclide 2 (atoms/g) 'c 2 - N2err = 1-sigma measurement uncertainty of N2  ' /If the output consists of only zeros, try using ' 3the Metropolis algorithm instead of Newton's method ' (see 'Options' menu)  ' 3N.B: N1 and N2 must be topography-corrected, unless ' 2 the topographic shielding correction is small '  (S_t > 0.95) '   A@Go]' ,The forward modeling tool calculates the TCN ' ,concentration expected for a given nuclide,  ' *scaling + shielding factor, exposure age,  ' )erosion rate and/or burial age. To model  ' $steady state conditions, enter 'inf' ' )(without apostrophes) as the exposure age '   A@o]p' ,Select a range of cells, three columns wide   ' % S(1) N(1) Nerr(1)  ' + : : :  ' % S(n) N(n) Nerr(n)   ' with:  ' ; - S = Composite scaling factor; the product of latitude, ' 9 elevation, snow- and self-shielding corrections. ' ( - N = Nuclide concentration (atoms/g) ' 0 - Nerr = 1-sigma measurement uncertainty of N  ' /N.B: N must be topography-corrected, unless the ' < topographic shielding correction is small (S_t > 0.95). ' 7 In that case, the topographic shielding correction ' # can be lumped together with S. '   A@ o`XAttribute VB_Name = "AgeForm" Basx0{A1E32FC4-2F90-4516-A584-B48EB7C0BAE0}{6D434D94-6BCD-4B79-BF70-5102C1826B32} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub ageButton_Click() ComboBoxE.V8isieSLabelE1 2 End8>erosion@C  !!userf_initi alizeBWith Me.DGA .AddItem "26AlC 10Be2$1N3H6C4CD6A+C(-^1?.:?.M1$.2 G1?.4'?."H Bg3K?./_E[E4Burc-EvZEaŽ% 9A$ Unloadk/ I R j g.p?OpVo lX c0MetAolis.Showd0, S)c#d+$y' J a Acuc#1&%numcolsP?3R((0CellQh(1.)T!1.row > 1.Offset(-1)c)" (ka)v702Pd (1si% 1 G  o yRowtwUqCGoTo elhandlerZM(|, v5@<@> "" A$sBNrric()F*kv qN1 2N1P3&suEҊ)h Q"= @k(NP$SJE_2D" ,24, 0, xr:_o2h2$Q72 .-(0, 1).Value = A ge .Offset2 ErrbNumberFormat"0.0"!#7End With errorhandler:Q`If .Y <> 0 ThenY0(Resume `Label$bIf Next @rownumElsMsgBox ("Please select three columns of data")HS"Sub Privat e OosionCalc(nucl As MyBN@ide,eRangeHi_th./ sM3P`s (F CellAddr`ess(1E)n.I > 61x-@"Er8 r=(cm/kyr)r (1s rî,@wG@/oU;RowsGk Onor G0oTo I Scaling+~(K`*e@g"(" AaEsieric(d)-AGl G.SetAN12 ?a [3Te$@= 1000 * getB(NETCN1`,!=a5&9ka"W˿0]?0ack-_!h_ DA_ā_ģ_/b"bfourb#qbtwo`OptbButton_Click(D3R@!.Show ub Co,mm}1 Unload M p2'oz3/7 cDi m optArStNrXaS1QVariantgG7v2Q xAqDoublyyX1YuEyMy"y[~= New3~Properties(Me.RefEditc"34%2]QfxR& bo1Jf2oj2j# q-X6p77six70oo &=/D 1 _1 ;~1e}+}sO}̆M}SQ"_4, k oqf526ue&6,02*V4S'"p,-e"sϖ' 6 exposure a(Y) - oSX) 0cula!['%q2@tiN2,< N @x, qF, y, F -?"Bu0Ploi kb2O_U@clre$C al g etBurialExposure(N1, N1e4rr02(nucl`Px, BXXy, Y) End If Label: 6With Range(the.CellAddress(rownum,  cols) cn.Offset(0, 1).Value = y / 1000 w/NumberFormat"0.0"21z!3#3If Me.ComboBox4f"-" TXhenS o3UxS* 4C Else+<*"<0Q<$< orhandler(ErrD@ <> 0)Ԍ'Msg ("Newton method did not converge. Try again or use`Utropolis option.:"sxjpD= 0ymResume kD (`Next 'print he|ad*)ؔ`/.` > 1-]r Ageaq@-Eros0EV- h" ` p(ka)Xa"Dte (cm/aw{!t(nd/ d$u_AI@H"1 sigmapKu} cIQS et6}P>NothxingS.t "Unload`H ASub Priva(A twoNideHelpButM_ClickB(tJDim O As St?!8= "Q& "Select a rы of Rcps,xRl@umns w  " & vbCr|Lf1S1(1) S]|S2TCg"r:dW ?6 n R  2(RCwPw _g0- S1iscal$ factif0 Ni.e~./+ 0]pmbined effmf latitude,  ; &`V,// snow- z self-shielnd - Bncentry' (atomsx/g)1V->`~am urt}ty-LN1S2S;K 2 Coտ l32 Lo#*t `2 P̿ f N 90 4&j outpuBsist only zej usBE=R*Me algor.m pinstІ2—'s(seeH 'O"s'nu _ W N.B:A%(N2 mus@t be tPgraphy-coDrr /ed,P!l7؟ ]ic^ -p42 0s0mall(S_t0.95o-˳0,UIn`>p8 APPNAME` `@war~d`N` `g5" A modeGtool 01cuBesxTCN?8=exp@fgiveno01,Ys=P+P KagLg = Msg & "erosion rate and/or burial age. To mo del "vbCrLf ~steady stcondits, enter 'inf'(without apostrophes) as the exurgeEBox, vbInforma|, APPNAME End Sub Priv E|HelpButton_Click()oDimAs S tringz""Selec`nge of cellthree columns wideS(1) Nerr ۆ: C w S(nA"A"G"5z#]/- SCo m@i@scalc factor;produ@^@\l~tude,-@l@, snow- self-shieldAcorru ._+N@+Nucl;yc@ (atoms/g) @V1-sigma meas@m uncer@taintyAN\N.B: N must be topography-ed,@ lesn= 'ic Q% is small (S_t > 0.95)' In@:at case,;T canoped@gerqth Sq("0 8H X hx"   " "  $8 ` p       ,(X `p x "    0@P` px  (0 8 H2h2  ..0 ` .h4      vt<~:xME( 80PSPSSS% <% <& X&`& h&p&x&&&" &&&&&&&&'0'P'(p'' .'' <'(( 0(@(H(h( ((&((4(()(0)$X))" )) )))))))*0*P*(p** .** <*(+ 0+@+H+h+ ++&++4+(,(0,$X,," ,,,,,,,,-(-H-(h-- .-- <- . (.8.@.`. ..&..4. /((/$P/x/" //\//j0p0x000 00$01 (1H1 X1x1111" 111$1 2" (2028H2 22" 22  2 2222333 3(3 03P3X3`3x333 333 333334(4@4X4 `4h44 444 4455(5H5h5 p5 55 55556 606 86@6X6h6x6666.67 77 7(70787H7`7h7p7x777777.7778 88 (888@8 P8`8h8" p8x8888888889999 9(9F09x9999999" 99:::0:H: P: `: h: x:: :::::::::::::" ;;;;0;H;P;h;p;x;;;; ; ; < 0< "P< "x< "< "< <=  =(=@= `= h=2= == ==" =  ==>> 2>  H> X>h>x>>>>>>> >:?@?`?.? ?:? ? @.8@ h@p@@@@ @@@2A@A`A2AAAAB B@BHBXBhBpB xB BB BBBBB,B<C HC$XC4C(CC" CCDD(D8DXD"`DDDDDDDDDDDDEEE" E E (E0E8E>HEEEXEFF F0F@FPFFXF8G" @GHGPG NpGGGG>G H0H@HPH`HpHFxHHpI@ J`J" hJpJ xJJJJ$JJ dJHK rXKKdK @LPL\`LLjL@M\HM(M$MM"N NN" N(N0NN8NLNNNR(O"OJOFOD@PBPDPHQD`QDQNQH@RTR RHR8S@SXShSp !(J L!N (JoP' ( ( ( (o ' ( ( ( (o0x Bf9fo](]H .t !!J tBh t! t! ( ( !J !' A !Je !' A k $ t A" ( (d"Please select six or seven columnsA@k &B@(.t A@rop plot the background-lines`](.](.26Al Bh10Be Bh '`]+*+*+*+* lin ! ! A,dP *$0'. ! ! .A, ! *A2k !6'4ro-C6?'8l ':'<''>'@tel Plot saturation line E `inf 4 8   AB rog `inf 8 :   AB el( Plot zero erosion linee ` < >   AD r ` > @   AD \( o;=CompObj>aVBFrame+BananaOptionForm"[VA"8p8Plot burial decay line after saturationl `inf   AF :\ !Hile !JFin  Plot 2Ma burial linero ` < >   AD ` > @   AD  Plot 1Ma burial lineFi `@B < >   AD `@B > @   AD + Plot burial decay line after 20ka exposuredow ` N   AF , Plot burial decay line after 100ka exposureISA `   AF , Plot burial decay line after 500ka exposure `    AF * Plot burial decay line after 2Ma exposure `   AF N20ka   AL100ka   AL 500ka   AL2Ma   AL@KL@B 1Ma burial   AL@KL 2Ma burial   AL d  Plot 1m/Ma erosion line `-C6? < >   AD `-C6? > @   AD  Plot 10m/Ma erosion line `MbP? < >   AD `MbP? > @   AD  Plot 100m/Ma erosion line `{Gz? < >   AD `{Gz? > @   AD  Plot 1Ma burial line `inf@B 4 8    AB `inf@B 8 :    AB  Plot 2Ma burial line `inf 4 8    AB `inf 8 :    AB ; Plot burial decay line after steady state erosion at 1m/Ma `inf-C6?   AF < Plot burial decay line after steady state erosion at 10m/Ma `infMbP?   AF = Plot burial decay line after steady state erosion at 100m/Ma `inf{Gz?   AF inf 0cm/ka   ALinf-C6? 0.1cm/ka   ALinfMbP? 1cm/ka   ALinf{Gz? 10cm/ka   ALinfh㈵>@B 1Ma burial   ALinfh㈵> 2Ma burial   AL@B1Ma   AL2Ma   AL kHk@..o(X](.](.21Ne Bh 10Be Bh| '`]+* +*+* lin ! ! A,Tqs*>'NiUMu>'P{Gzt?'R''T`'Vp@x}'X ''Z'\@KL'^pe'`p''b'd'fe'hh㈵>'jiUMu>'l-C6?'n{Gz?'ph㈵>'riUMu>'t-C6?'v{Gz?'x'z'|'~ '@B'@KL' d *$0'. ! ! .A, ! *A2Tqs*>'NiUMu>'P?'R'T`'VG@x}'XF'Z '\@B'^G-'`'b'd'f'hTqs*>'jiUMu>'l-C6*?'nQ?'ph㈵>'rh㈵>'t-C6*?'vQ?'x'z '|@KL'~' '@KL'Gk  Plot saturation line `inf N P   AB  `inf P R   AB  Plot zero erosion line ` !6 T V   AD ` !6 V X   AD  !H& !J  Plot 2Ma burial line ` Z \   AD ` \ ^   AD ` ^ `   AD  Plot 1Ma burial line `@B Z \   AD `@B \ ^   AD `@B ^ `   AD + Plot burial decay line after 20ka exposure ` N z |   AF ` N | ~   AF , Plot burial decay line after 100ka exposurec ` z |   AF ` | ~   AF , Plot burial decay line after 500ka exposure `  z |   AF `  | ~   AF * Plot burial decay line after 2Ma exposure ` z |   AF ` | ~   AF N20ka   AL100ka   AL 500ka   AL2Ma   ALP@B 1Ma burial   ALP 2Ma burial   AL d0  Plot 10m/Ma erosion line `MbP? Z \   AD `MbP? \ ^   AD  `MbP? ^ `   AD  Plot 2m/Ma erosion line `-C6*? Z \   AD `-C6*? \ ^   AD  `-C6*? ^ `   AD  Plot 0.5m/Ma erosion line `-C6 ? Z \   AD `-C6 ? \ ^   AD  `-C6 ? ^ `   AD N  Plot 0.1m/Ma erosion line `h㈵> b d   AD  `h㈵> d f   AD `h㈵> f h   AD  Plot 500ka burial line `inf  j l    AB `inf  l n    AB > `inf  n p    AB  Plot 1Ma burial line `inf@B r t    AB `inf@B t v    AB  `inf@B v x    AB ra  Plot 2Ma burial line `inf r t    AB `inf t v    AB `inf v x    AB = Plot burial decay line after steady state erosion at 0.1m/Ma `infh㈵> z |   AF `infh㈵> | ~   AF = Plot burial decay line after steady state erosion at 0.5m/Mang `inf-C6 ?     AF `inf-C6 ?     AF ; Plot burial decay line after steady state erosion at 2m/Ma `inf-C6*?     AF `inf-C6*?     AF < Plot burial decay line after steady state erosion at 10m/Ma@j9 `infMbP?     AF `infMbP?     AF inf-C6 ?q 0.05cm/ka   ALinf-C6*?q 0.2cm/ka   ALinfMbP?q 1cm/ka   AL@KL !65Ma   AL !62Ma   ALinfMb@?  500ka burial   ALޓinfMb@?@B 1Ma burial   ALgainfMb@? 2Ma burial   AL kk..opP $' $'Lt    `' =SERIES(,{'''  `    $'b b   $n' b   $n'  ####E+0$,' lin   ####E+0$,' loge   $####E+0;-####E+0$,'k  'b b   $n' b   $n'[r  ####E+0$' lin   ####E+0$'t loge   $####E+0;-####E+0$'k  },{ },1)'  &!!  Adox] $' $'u    `'e =SERIES(,{'''  `    $' b   $n' b   $n'  ####E+0$,' lin   ####E+0$,' loge   $####E+0;-####E+0$,'k 8 ' b   $n' b   $n'eet  ####E+0$' lin   ####E+0$' loge   $####E+0;-####E+0$'k  },{ },1)'  &!!  Astox $' $'    `' =SERIES(,{'''  `    $' b   $n' b   $n'e  ####E+0$,' lin   ####E+0$,' loge   $####E+0;-####E+0$,'k  ' b   $n' b   $n'  ####E+0$' lin   ####E+0$' loge   $####E+0;-####E+0$'k  },{ },1)'  &!!  Ao` lin =SERIES(,{ ####E+0$},{  ####E+0$},1)'d =SERIES(,{ ####E+0$},{  $####E+0;-####E+0$},1)'k &!! '  A  &%(  &%B@  &%%!(d center   &%!( lefte   &%!(k   &%!!(NkXoPx b   $n' b   $n'ame    center Ao     $   $leftlogA doh x ]0 B@  &(si &!B@  &B@  &%999 99.ScaleType = xlLogarithmic 9q   &%d999.ScaleType = xlLinearrt 9q@  lin   &%(d   &%(   &%(   &%(   &%(Gk   &%(  !  &%( ess  &%( !  &%(  &%(    &%( lin !  &%( $d !  &%(d !$  &%(  !$  &%(kH   &%( lin !  &%(d !$  &%(k   &%!B@ &!B@i &!B@u &  7(    7!"!$(d  7(   /    7!"!$(dq &!!& (9 ,9*q &!!.$@9O90 492q &!6!& (9 9*q` &!6(8 &!6!.$@9$RGB(255, 153, 204)N90 492q  &! B@usi lin A:koP &!B@ . &!! &%( &%!&9 <9 9*q  &% 9> 9@ 9B9D9F98q LJ PN Rl ! T &%B@H &%!V!& ,9*99 <9qH Z &%!V(Xo  &!! \ &!B@sk  \ &%( &%!& 9  <9 e ^9dx `9kh ,9*qX &% 9> 9@ 9B9D9F98qo]`]x] t!'h t!e'hk  t!h  h t%'  $  h t%'pa  h t%'  h t%'     d fAj  h t% d' 1V  h t% f'  h t% d'ess  h t% f' !l     And   Ap     AVjk t!    h t%center Anumk@k8 o  !J 'd 'fd]8PhS(.Bd(. !!J26Al Bhar !!Je21Ne Bhk@10Be Bh  Bl  Bl         r z v |A ed r v $n'~ r v $n'en ~        '         t z x |A tinf x $n' tinf x $n'         'n  $'r  $'t rinf $n' tinf $n' Bl Bl+ v  r  ?  r v $n'pho r v $n' x  t  ? e tinf x $n' tinf x $n'd> rinf $n' tinf $n'k=  'd  'f..k=ox='' =SERIES(,{'   ?  !####E+0$,'  $$####E+0;-####E+0$,'   !####E+0$'  $$####E+0;-####E+0$'  },{ },1)'0i<` &!B@a &!!'b  b &%( lin   b &%(d;  $ b &%(kp; b &%!&r (9 9*q@; b &%9>9@ 9B9D9F98q:o:] ' '  '      ?'Md &!!'b lin LJ N l ! T !  b &%B@H loge  '  ' $' $' LJ N l  !  $ $ T $  !  $  b &%B@Hk 9 J N l ! T !  b &%B@Ho8(] ]8Ph       ?' '  ' '      ?' log  '  ' $' $'k7?      $'      $    $ $  $ ?'ull      $    $ $  $ ?'rd  !  !     Ao5]'` =SERIES(,{''' d      ` lin   d$ $  d$ $  ####E+0$,'na loge   d$ $  d$ $  $####E+0;-####E+0$,'k(4   d$ $  d$ $  ####E+0$,' d lin   $ $  $ $  ####E+0$' loge   $ $  $ $  $####E+0;-####E+0$'k2   $ $  $ $  ####E+0$'  },{ },1)'  &!! Ameo2 A@ro1`]' 3Select a range of cells, six or seven columns wide   ' 8 Label(1) Sc1(1) N1(1) Nerr1(1) Sc2(1) N2(1) Nerr2(1) ' : : : : : : :  ' 8 Label(n) Sc1(n) N1(n) Nerr1(n) Sc2(n) N2(n) Nerr2(n)  'Z with:  ' 5 - Label = Sample name (optional)  ' 2 - Sc1 = Composite scaling factor for Nuclide 1,  ' 0 i.e. the combined effects of latitude, ' - elevation, snow- and self-shielding ' 0 - N1 = Concentration of Nuclide 1 (atoms/gram) ' 4 - Nerr1 = 1-sigma uncertainty for N1 (atoms/gram)  ' 0 - Sc2 = Composite scaling factor for Nuclide 2 ' o 0 - N2 = concentration of Nuclide 2 (atoms/gram) ' 4 - Nerr2 = 1-sigma uncertainty for N2 (atoms/gram)   'wj 3N.B: N1 and N2 must be topography-corrected, unless ' ? the topographic shielding correction is small (S_t > 0.95) ' ! 3To add more detail to the banana plots, see Options 'k,   A@o,,DAttribute VB_Name = "BanForm"  Bas0{65B00311-60DF-4B9C-A4E8-DB9996C9705E}{E92B0186-DA38-4AAD-A0C2-1E2F07BFDDE7} dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD P Sub@ userf_initialize() Me.AlBeOptionButton.ValukYNeRe fEditSelec.Address End8 ? 0_ChangAg\.xMinI10C&laxyD H yMB 9!Ne :!4!00.3! 25! [_ClickEcCall ÿ A.ShowPlotAl6C On Error ResuNext)Dim theRa A0s Myms,gt@ SngSet = N\ew0.@ Properties(̑PIf (numcols?6) Or27) Then)bTpp@)aQScreenUpd1 = NothingC 2Sub PrivSB:NeBeBan@(ByVal As Str`DimMyNidew 2Ab  R!2Y.@Properties("`21Ne" V2Q]10BVN12S! tickA0rr(3T1)-5s521105K3A2DIf'= "u" T8hen XY( nameٌ2.?2 EA2k003EA{sj3P a T2R/T1Mi2c42Bq=nBA:8B1/B^4@C TCTCr<q ED0HEDs1z r1$ z ED4 = 0.02 QEe105 \2\1 \E3.J1ZEBA1SNBAU300 S2 B@^B@T-ABA5! AElse tickFormulBa_getT(!Arr)Call XYPlot(nucl1.@name, 2G)add/Labels(glob.xMin, 4EɁ]3@~E t T5T1*TA2 JTZTZNBZ`TBpdTCpTCp{TC&EDH0HDɿI ĉJ-cXBwBiC;BiHRhBAnd If' Z saturation lin$e^VariableEros@(N, "inf", 0, @V2a1b, `logor@ db_ C EA3_ U' zero `YTimeqZb`g, enu  m If detail Then@ A C>2Ma bu;l$av>Du%B`<-6,?? , ( a&B@? U1k`(.df1(eg(Jg!aY3( (inj>? 1 lPOQ1A'decay2( after` ka exposurH{B,<#R"?Ne@@= oQ`T?Tw$e##_y!ay61\H..RkRhR]b< aYm_"`-= lR R,R"R RBRRR1<Rub RB҄/RPS QQ⠟Qbϡϡϡs QQA2KPMP PġTP`ϡPs"Psa Eh= OP OP///9/9o9/"C:-5QO:M:ߐ1:: :/;gCV/O 2/ %POODP/PO`ՔUOAs,O= PP P?PPPPLabelO2I۝O;2SbOÝplaceme +HoJq44G3`E54Cƺ!I  "},{" & Format(Log(N1 / N2), "#AE+0;- ")1)"  End Ifnewseriesnum = ActiveCh art.S.Colle*on.Count + 1:Call Addula(f, S, 1)1](1).nameLabe"l1If  <> "" Thenc'ApplyData!s'PointsH.TextMAOplaceme= "cer TVP).U.Po@sition9x6lC13Else!left?!=!L :FontlorIndex(Fk`(i) * x,A]‰"["Nsi XYPlotN1lg;#6N25OrbDim mySrs "Vy"s.IbTypAxlXYScatterNewcoLoWhere:=$AsheeBtWithAxes(xlCk@Ty3.Maximum leIsAuto9TrueC 7.Mino rUnitajCrosses@ xla `ic( Reversea9 OrderFaG'.B* thmDisyab NonG"# 5$ue#_\_Ninea"_ _ ' cx-k-c*!iCOlP%PDMark)ҍA< v F1& &$76Q35X-2/glob.xp8.N=pXAaxGBC`ustom#?-in?-EN y!i% A!b0rve) K(?F!49 ۯ)_x9_  lot#XZiax??8HGridPes.Deleta gArea.ClXatiLPndZ eS+% 9 lmary).HasTit "A" The Call addTicks(tVIf Sub Privat e ByVal t1mula As Str8ing oM3.N\ew- (Count).fozr!=$ #(1)xȵThi=U.㴡#.{.MarkerBac(kgr:d%xlwGH @deg SmoothHSizw51sHa=0ErroAr Dir_: =xlX,cclude:= _@xlPlusQues, TypxlFixed, AmC:=glob.xMin / 10#?1sOD=Continuous.557(H%lāaVe%s.8CapwAddu(xf)w, snumzAgereç@d$x < g ,A(U( !4CCJ>"%>!>1"kxlE 2Medium'p cke(B;]!_l+MuxlAutoma`f.ON?x/ TN .NTru4ueNN grsDataPlot7theShee&t5cs, 0Range1My%7plogo15Dim CurrCmD9r09!WYerrDouble, Seff1 20(Z(e .A.sb6)(firstV,= 7ԕ!%) 0 I4= `4o Ro"wXOn bR Resume  N1 Cell%bc(, V + >2a@ѕ" A2sNricX(N1 b2olueo+ 5h S aol +< 1_!+ G9Qget1!(S1!2, NpNp""IqR!x%"_ S_ S 5)$2,1ӡ-he2/.~3Ux_!C.+ 0/"4"?Ellipse[ 2*t$@b@^QBPoint?"bBars??Pyc/?/?F `?:3), "cen", ?2DAE5139pUoT4(S[NzUsN|Ref/XBye.%zero sionG6GS-1Q6S*#C3bnucl MyNida12MDyNuclide, Eae As@ Doublpb pT tT tEer r xt  Set n1 = New M 2If BanForm.AlBeOptionButton.Value 0ThenMpCallq.{Properties("26Al"))Else .Ne;.1Ne.nd If4G2 G10B ZScalinpg(S1V "2'5getAg eEros(N1, N1 / t102d,Jp, }L, rN1@= N( Abs( ), E 2] ,aeMisxfit}A)@-@*)@'N1) +n A2;BurialnK=a .bN>@R>R> 0x) AgAMF<@ 0.1))l~N1pred&a@;XN2Z09,(IHCo 0c~W9 e:ESeffA-=B2wB+Ⱦot~h    Sub Private FuncTickula(ByI@ AVanJtxB"" yhf @!=SERIES(,{ i 1 To UBound( ) - 1# A)!! x & at(glob.xM@in, "#E+0")", a!ygLog (i);-Next i_e+0A& "}@ 1) PlotP0ointh'loXgornA v@eChartCrAzColle.0Se1 Cur^rP CPtCw().XsN2I P"@ "G )ÊR4F!$~NA;With OOB@Border. weighQzxl(Hai!eLi@neStylAbxlNon //!MarkerBackgr8orIndne/!.@8e: Circbl SmoIpFFaࡾSiz8ShadowK0Erroy` rsDKLN6241oN21oal F+StrW6Dim H4Integas /Xp1D) / %Y#y x* (> ^4 2`( ) c A0.5x=u_*s'".<99tiDD> Dir:=xlX, IncludeB!, _ &1TypCus(tommF:="`sigma, `uscE6sĆFogm b/ x $b/ yAx 1y8BBar1Exp(x`"vpq*Cxp7EP!1 Yo!!  b.." CEllipseFCbP;uCo@2P;^e, ByVal sigmaN2 As DoubllogorlindStrin g) Dim CurrSeries342\2DFdH#E3D1T11 LO g8& q0"}8 Q 1),JAddq2;(T, ApKveChart.CollL.Countq01, !oIcICommandButton1_Cl0ick(Unload Me  /Mub Help{AMsgIJs!P{T Q& "Sea a range of cells,hx Hseven pNumns w ide "vbCrLfia Label(1)P Sc1aNSerrSc2RSoPO"A0:soq[ H ob n ` Q g 2(Q nN)1= withD  g@^ P] Sample name (opral) x&posi@qscag fact P- Nucl+i.e. the!mbined eff0s1$latitude,@(zp' now- 1 self-shield`-0B@ncentron (atoms/gram q1-"u`rta`y 1%@8 Q#m m?=22ٰco22:?` ,N.B:!pmust be topoph@y-corr"ed, unles>soj`"&ic !@($ is sm(S_t > 0.95xNotӦPC! add m@ore de l@ /banRee OR: !\BoxA, v8bIn$ /AP PNAME(_BananaOptionForm"  ConverterForm\?ConvertersOptionForm*[]MetropolisForm SvL}q <~xME(SPSSS0{FF00AC7F-0B18-4777-916D-9FA8B414E20A}{D0FBBCA9-FF6B-4922-9D08-42B8ED0B0EAF}8 0%h8% :    php 8xxW: " 8P hx   08P hx " 8Ph    0 HX`h " p !X !(d !X !(d !X !(d !X !(d !lSt !(J !(Jd` !(J !(Jk8 !!J !log !(J !line !(Jk !!Je !log !(J !line !(JkXkP !H !(J !J !(J !X !(do !!dX ( !!dX ( !!dX ( !!dX ( !!J (l !!J !!Jlog ( !!Jelin (k !!Je !!Jlog ( !!Jelin (kk !!J (H !!J (J !!dX ( A@ro8  A@ro*Attribute VB_Name = "BanOptionF@orm" Bas0{FF00AC7F-0B18-4777-916D-9FA8B414E20A}{D0FBBCA9-FF6B-4922-9D0^2B8ED0@B0EAF} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD P Sub userf_initialize() Me.xMinBox.TextTCStr(g axaxy& TDyMFIf !PlotEllip@ThenC.D/Button.Vxalud[ rrorBar D^ EyAESH   End IfC-4C.AlBe/ :EC LogOrLink"log" &@EA#Pressure (mbar) standard atmosphereC@>Pressure (mbar) AntarcticaC@>Atmospheric depth (g/cm2)C@>qP  Elevation (m)C@>#Pressure (mbar) standard atmosphereC@>Pressure (mbar) AntarcticaC@>tlAtmospheric depth (g/cm2)C@>Gni0q x.x degC@> x deg y.y minC@>x deg y min z secC@>Inclination (deg)C@>Cutoff rigidity (GV)C@>q x.x degC@> x deg y.y minC@>x deg y min z secC@>Inclination (deg)C@>Cutoff rigidity (GV)C@>qh L!N (J L!N (Jo@ A@ro   A@rox] .t !!J tBh !J Elevation (m)RT !J Elevation (m)RT  nothing to do#Pressure (mbar) standard atmosphereRT tAPressure (mbar) AntarcticaRTPro tAFilAtmospheric depth (g/cm2)RTtel tAanan#Pressure (mbar) standard atmosphereRTAL !Jrog Elevation (m)RTx tAnte#Pressure (mbar) standard atmosphereRTEn  nothing to donePressure (mbar) AntarcticaRTm F tAIntAtmospheric depth (g/cm2)RTrog tAilenxPressure (mbar) AntarcticaRTWir !JCom Elevation (m)RTg tAile#Pressure (mbar) standard atmosphereRTan tAProPressure (mbar) AntarcticaRTs\C  nothing to dochAtmospheric depth (g/cm2)RTach tA\PrnXAtmospheric depth (g/cm2)RTmon !Js\L Elevation (m)RTT tARea#Pressure (mbar) standard atmosphereRTs tA\WiPressure (mbar) AntarcticaRT;C: tAramAtmospheric depth (g/cm2)RTFou  nothing to doSAn8n0.t A@ro]H .t>tFr1<~WxME( PSPSSS@ "(08H@BDH`xp  El !!J tBh !Jx.x degRT !Jx.x degRT  nothing to do x deg y.y minRT tAx deg y min z secRT tA Inclination (deg)RT tA Cutoff rigidity (GV)RT tAn x deg y.y minRT !Jx.x degRT tA x deg y.y minRT  nothing to dox deg y min z secRT tAInclination (deg)RT ! tA tA d tA t%$%!N' t! t%$%!N'  $!N tBh ( tA  (kCutoff rigidity (GV)RT ! tA tAd tA t%$%!N' t! t%$%!N'  $!N tBh ( tA (knx deg y min z secRT !Jx.x degRT tA x deg y.y minRT tAx deg y min z secRT  nothing to doInclination (deg)RT ! tA tA d tA t%$%!N' t! t%$%!N'  $!N tBh ( tA  (kCutoff rigidity (GV)RT ! tA tAd tA t%$%!N' t! t%$%!N'  $!N tBh ( tA (knInclination (deg)RT !Jx.x degRT tA x deg y.y minRT ! tA tAd tA t%$%!N' t! t%$%!N'  $!N tBh (G tA (Gk@x deg y min z secRT ! tA> tA >d tA t%$%!N' t! t%$%!N'  $!N tBh ( tA  (kInclination (deg)RT  nothing to doCutoff rigidity (GV)RT !c tAc tA;d tA t%$%!N' t! t%$%!N'G  $!N tBh ( tA (k n Cutoff rigidity (GV)RT !J{ x.x degRT tA c x deg y.y minRT ! tA  tAd tA G t%$%!N' t! t%$%!N'  $!N tBh ( tAG (k@ x deg y min z secRT ! tA  tA d tA  t%$%!N' t! t%$%!N'F  $!N tBh ( tA  (k Inclination (deg)RT ! tA  tA Fd tA {  t%$%!N' t! t%$%!N'  $!N tBh (G tA F (kCutoff rigidity (GV)RT  nothing to donn.t A@roh $Boh $BoH]p' 0Select a range of cells, one column wide   '  x(1)  '  :  '  x(n)   ' (with the x-values elevation, pressure or ' .atmospheric depth values, depending on  'c -the radio-button selected in the 'To:'-field. ' *The x-values are replaced by and converted ' +to the units selected in the 'From:'-field. '   A@o]' 3Select a range of cells, one to three columns wide, ' -depending on the radio-button selected in the ' /'From:'-field. These values are replaced by and ' 4converted to the format selected in the 'To:'-field. '   A@oxɴAttribute VB_Name = "ConverterFo rm" Bas0{C1E54E45-BE52-4672-A298-44AFE06379A9}{32A7242E-B3D9679-9964-5EBA9863 258C} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD` P Sub userf_initialize()  With ComboBoxElevFrom .AddItem " ation (m)yssurebar) standard atmosphereAntarct(ica AEic dep/(g/cm2%End A57To777OoLatox.xJgSB y.y minY z secR InclDindegCutoff rigidity (GV7x@6?c_iRefE` .Valu!Sele^onanressU`itude A_}CancelB@utton_@4ckeUnload M3omm@xC1_CliE丁DOn Error ResBu NextDim theRange As MFyBSet= NewCal l.Propies(Me.S/$/ Ca c4cIs lU <~xME 8(0PSPSSS<^ the nine lines in TwoNuclideCalc and place a breakpoint here:\L  Worksheets(sht).Visible = TrueaA? !6'4 FiC !6'8Wi wholeRange 4 8 2$:%(ProA1 2$:%> B@ FDHJ NL wholeRange 2$:%B@<B? !0d  !6'4B !6'8 bestXrange 4 8 2$:%( bestXrange 2$:% %R'P bestXrange 2$:% %V'T !6 2$:%Z!J'XC? !0d  !6'4C !6'8 bestYrange 4 8 2$:%( bestYrange 2$:% %R'\ bestYrange 2$:% %V'^ !6 2$:%Z!J'`  t! t%$ X7(J P7(J T7(J0.07(0.07(0.07( burial_exposure `7(J \7(J ^7(J0.07(0.07(0.07(d8 `7(J \7(J ^7(J0.0007(0.0007(0.0007(kpqh wholeRangeAb bestXrangeAb bestYrangeAb 2Ad !&MsgBox ("Error -- no solution found.")'X'`'P'T'\'^kk ohC two nuclide age-erosion calculation using the Metropolis algorithm]Hhd'pyr-1'ryr burial_exposured'tyr-1'vyrdp !6'tcm/yr?'vcm/yrk0 ! !z'x  t%'  $  Bl  t%'  t%'  t%'  Bl  t%'  t%' initial guesses ...        j l nA| j'~ l''' !6' TempSheetAd :!.2 TempSheet 2( 2(2] ' number of accepted solutions' !') update the progress bar only every step%d' Excel is slower on the Mack'_ l loop through the Metropolis iterations - hope nothing goes wrong since there's no error capturing for speedffffff? j$? j$ t$ v$$'> $'~ffffff? l$? l$ p$ r$$'& $'  age_erosion ~       $' burial_erosione ~       $' burial_exposuree ~       $'k  n   2,Z   2,Z ~  2,ZD the following 9 lines are for testing only and can be commented outIf opt = "age_erosion" Then ) N1Est = getN(Ynew, Tnew, 0, nuclide1)) N2Est = getN(Ynew, Tnew, 0, nuclide2)"ElseIf opt = "burial_erosion" Then- N1Est = getN(Ynew, "inf", Tnew, nuclide1)- N2Est = getN(Ynew, "inf", Tnew, nuclide2)End Ifsht.Cells(i, 4) = N2Estsht.Cells(i, 5) = N1Est / N2Est 'n 'l ~'j  '    $'d  n $' '  x   2,Z   2,Z ~  2,ZD the following 9 lines are for testing only and can be commented out&If opt = "age_erosion" Then) N1Est = getN(Ynew, Xnew, 0, nuclide1)) N2Est = getN(Ynew, Xnew, 0, nuclide2)"ElseIf opt = "burial_erosion" Then- N1Est = getN(Ynew, "inf", Xnew, nuclide1)- N2Est = getN(Ynew, "inf", Xnew, nuclide2) End Ifsht.Cells(i, 4) = N2Estsht.Cells(i, 5) = N1Est / N2Est 'n 'l ~'j  '    $'kk  '   Iteration did not converge.A@x(k    2!'d'k.2i]  age_erosionR Call getAgeErosion(N1, N1err, N2, N2err, nuclide1, nuclide2, Y, Yerr, X, Xerr) ! ! -  $'   $'d  $'   $'k        $' burial_erosioneU Call getBurialErosion(N1, N1err, N2, N2err, nuclide1, nuclide2, Y, Yerr, X, Xerr) ! !  $'   inf$'d  $'   inf$'kp        $' burial_exposureeU Call getBurialErosion(N1, N1err, N2, N2err, nuclide1, nuclide2, Y, Yerr, X, Xerr) ! !  $'   $'dh  $'   $'k(        $'] kod    c 0%$5( 5! 5(qxA@  'dX 'kHi@F b d $n' b d $n'   $?          'i`  binf d $n' binf d $n'   $?          'i G d  $n'G d  $n'{    $?          'i0   'kx   'kX      'i0(Attribute VB_Name = "MetropolisF@orm" Bas0{BA4140C6-AD88-4356-96B0-0091742B3A12}{175466E6-B6BJ502-9B93-668F6FA@6BFBB} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD P Sub userf_activ ()      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHJKLMNOQS^UVWXYZ[\]P_`abcdefghijklmnopqrstuvwxyz{|}~On Error ResuNext Dim nucl1 As MyNid` 2 theRa8nge*Set = NewCCall.@ Pertie s(Age.two#RefEdit.Value4A-J.2@dCComboBox1  J2 2 If:n@umcols%6 ThenKWi(th G(M.CellAddress(1,N)BoiEM.4C "-Erosion"' @Y| a@r- e calcu ) BA@c,(, "_",C2A.Of@fset(-1f)G"eurJ@(xka)`ve4Cd(cm/E z#Burial?$!$bb%%%u%b?%BgAA ?%$`I%%4ϛIK%DJroJe%KK%QJ!c,End If'c42GSg.ConfiLevel / 2 & "d ple[3100 - #N 56?p"##og$Msg0U ("Ple~select six @Qumn "-XSa fGoeQhandler:' if yo u wano plob tШq'dis0.P,should uncommehe follow0 line,3}; ns in T" Aa bkpoBihereN Worksheets(`0Jisi 51A"A"PWInt(0.1 *T>pIHQqC"CQWO 3b, r).n$wholeO\O0(").Sort Ke0y1:=A1"), Order@xlAsceDndIHeaP: =xlGu, _[ AS:=`9@MatchCPZ:=Rˡiat TopT t`g A"BER+_l m)b\ 4 b`estXrX05 Applic.min(ORXX9}Max("$ x X a s(, ŇO02-0OO?2-@ ?24AWorksheets(sht).Range(Ce ll1, 02).name = "bestYr" Y05>Application.min( )) 9 GMax1G s(glob.MetropIter, 3).Value Label: JWith the.$Address(rownum, cols n.Offset(0, 1:SXW/ 1000=Tm%Number@Format"0.0 |% @& If op!burial_exposure" TXhenL '4ZYZ 5 [L 6H \L (#C ( @) ElsbmHY.,*TYaY!g,,3,0[gp%?, ,2End IfkYaCall De(letcN("whol"laXCe(removeS errorhandler !zErr.* <> 0y'Msg@Box ("or -- no solua fopund.7= CRX|yޱ 5Resu(-@Nex$t Sub Private Func"twoNucli$de>c( As My, By@nd IntegApVStr@ing, n1#f2j)0 '  age-eros calculRX usPs xolis algo r0wmDim ~R04 }, Yold!Double, XJLS Vadnt q#PXo!px 'yrmax12y!ii5A PY]ax_qKWRZP 0'cm/ x0.f1 $murho / L+'0=GY1Bp`;"" AaKsIBAT, nuclide2, N0err) ElseIf opt = "burial_erosion" Then ^tLnewZgetBB^AgeEbL(Y6, X N1}}, 5x@posure%E/Hnd If >= Loldsht.Cells(i, 1)23' the following 9 lines arA@r testo nly a7can be commented outage݉'N1Es@NDTB0Ƃ1̤ 221+"inf", ,E(,-BBʆ4|NEPgJ 5B // ) obW@Xk@2X[=yY Oi ]i + 1numsteps updateBar(i /a msolB, ize-; P ~(r-r4"r]Num`Rnd[%<= Pz2j-8{n{n8|a|||B ?}hhc}/~g~=ϔ$w8gq4 M@Q_QBQ8_B B B CCBCxE ?h jAjK0j >DJ * 200AMsgBox ("Iterat did notunverge."I Ex`it Do[ Loop Whil0e i Jol!7twoNCCa lc q#nameg#S""dSet @Noth@ A Func Priv`\ Sub in it0[(ByValAs Str 0My Mf2l#N1aDouble, 4<1N2n`Ref y!x /L'Dim YX#SN@l '(NF, Y ? 8%K.L <`+?y04N-x Z, y;&q P X )LV fy, xIH?с gеК#йNq(yv1Gq2m j `3=*Hx!N '2L(c%tyle181/70>clide1, 0, 2 * y) ElsehPy = getAge(N2, nu0lPxPBurial Vnd If kL >mErosionL(y, xwNerr N2E]Sub Private Funct+ updBar(ByVal fractDone As Double,  numsteps Intege= iz)nIf (1001>** "@) ThenW ith M.FrameProgress.Capg= Format(1, "0%" .LabelQFwid=?* (L- 1 |U'+DoEvexntsGFX@vP+ 1CK HroosCgEbrt_AD1 MyNüNN12OtstN(E, t- t2e 2+'@ -Log(pi`V #* k - 0.5P'(((- N1) ^ 2) / arr+ @b@FB`AK=Ci=y=@="] =K=="inf">\>>(???`HN?o`UExposur\eLzABgf, _?_? _?E$3_?_?&}@ }Bxs'}N>rL>R>>>A>3yo] randChancЇLowyCHigh_absMinqaxw$`z< tTx~=qJ2>ax;GRn@x"- `) +a QModule_AgeCalcjx__SRP_2yU__SRP_3 Module_Calibrations( T   @X ` Zh   B  @PB X`^h2 &(@` x  8 HX`B hpx @PB X B`(V (L h p B x >   0P X HHB P >X:HPB X0` 4 <d8"  (0H Phg a<~;[xME("^6 <<+`Xi`x)\%ib`d`+`Hi`hi)\%idib+`Hi`h)\%`+`i` i@)\`%``+x`i`)\08%ibXid +`i`i)\08%ibXiz``+`i` i@)\`h%idi|``+n`0 ibPid pi)\%  `%% i0iPipi)%)%ib iz if@ i````  ` // i8 iX ix i ) %) %id i|( ifH i````  ` ** i@ i` i i ) %) %ib iz0 idP i|````+ `( )\HP%ibpid if+ ` )\(0%ibPid pif+p ` )\%ib0id Pif ` i)%)08%iXixiiii+`Pipiib)%)%+`Xixiib)%)%+``iiid)%)%+`hiiid)%)%x  p !%0 xW$*\Rffff*0F57c2f256$*\Rffff*0E57c2f256B ^ x 8  0PXx8::8@H`hpx"  08Hh  8 P p        (H:P:: (@HPX`hp" x (@Xpx (8 H hp6x86 0  @ 6P : : !! 8(!`!h!p!x!!!B !!8T!#8D#P%X%B `%h%x%%6%%%6&H&`&6x&&&6&4'P'X'p''((@(X(()())))4***B *8*h," p,x,,,,,-8-X-x-----.8.X.`.B h.Pp. 1B (101(7B 07^87^778B 8^8^9h9: :]] \! \! \! \! \! \! \! \! \! ' ` 'd initialize b \! \! ` \!  $'dk b d b d \$n'  `  yk $Fh \! \! \! d \! b ! !z $ \! \! \! d \! b ! ! $ \! \! \! d \! b ! ! $ \! \! \! d \! b ! ! $ '  `  ' d  'd k d'i \ b d$'  'i] \! \! \! \! \! \! \! \! \! ' !z !  ` \! 'b find root with Newton's method( dl\I binf \$n'e  `  Coykx *Rz \! \! \! ! !z \! b ! !z  \! \! \! ! ! \! b ! !  \! \! \! ! ! \! b ! !  \! \! \! ! ! \! b ! !  'ger  `  'o b  'bl ndu b'i]h] ` \$'b\;C . Z \! \! \! !z ! \! b !z !  \! \! \! ! ! \! b ! !  \! \! \! ! ! \! b ! !  \! \! \! ! ! \! b ! !  '  'i; get the burial age given the erosion rate and exposure age dinf1Om \! ` \! \! \! \! b ! !z  \! \! \! \! b ! !  \! \! \! \! b ! !  \! \! \! \! b ! !  $'dK \! ` \! \! \! \! b ! !z  \! b ! !z  d$  \! \! \! \! b ! !  \! b ! !  d$  \! \! \! \! b ! !  \! b ! !  d$  \! \! \! \! b ! !  \! b ! !  d$  $'kix7 get the burial age given the steady state erosion rate]x] / K g  ` \! \! \! \! \! b ! !z  \! \! \! \! b ! !  \! \! \! \! b ! !  \! \! \! \! b ! !  '( + G c ~ !  \! \! \! \! \! b ! !z  \! \! \! \! b ! !  \! \! \! \! b ! !  \! \! \! \! b ! !   \! \! \! ! !z \! b ! !z  \! \! \! ! ! \! b ! !  \! \! \! ! ! \! b ! !  \! \! \! ! ! \! b ! !  'er    z ?'i7 get the burial age given the steady state erosion rateon]] ` \!' \! d$ \! d$ '$    | ?'i  dinf b \! ;s \! \! \! \! b ! !z  \! b ! !z  d$  \! \! \! \! b ! !  \! b ! !  d$  \! \! \! \! b ! !  \! b ! !  d$  \! \! \! \! b ! !  \! b ! !  d$    \!$'nrosi dinfe ;W \! \! \! \! b ! !z  \! \! \! \! b ! !  \! \! \! \! b ! !  \! \! \! \! b ! !    \!$'nx b \!e d \! \! \! \! \! \! \! \! \! 'n comkX iP ]` x   F initialize E Xne ! ! )  $'bw, Xned  $'bIf optk Newton's method  dw, "in   b  $'   b  $'ew ' b  'b  b !6 yk  5) = ! ! n   binf$'fd   binf$'fkburial_erosion       b fA          'z2!          ' !R 'b'z'f'xkpoh ]h    !F initialize t ! !   $'d'd  $'dk !   d$'f    d$'|    d |$'n( !e   d$'fY, Yer    d$'|    d |$'d Newton's method d    d  $'   d  $' ' d  'd  d !6 y0k( U ! ! n(   d$'fide1, d   d$'f!kburial_exposure       d fA '          '|'          'k !c'd'|'f'ko ]p    'F initialize t and E !6'cm/yr?'cm/yrb d'yr-1'yr  ! !  !'d  $'b  d !'d   $'bkP two dimensional Newtonn df d b d $n'  b d $n'?   '   '    yk age_erosion       b dA '          '          ' b  'b d  'd  age_erosion       b dA          'z          '| !2MsgBox "Algorithm did not converge", vbExclamation'b'd'z'|kxop dinf .Jf \! \! f$ \! \! \! \! b ! !z  \! \! \! \! b ! !  \! \! \! \! b ! !  \! \! \! \! b ! !  'd H~ \! \! f$ \! \! \! \! b ! !z  d$  \! b ! !z  \! \! \! \! b ! !  d$  \! b ! !  \! \! \! \! b ! !  d$  \! b ! !  \! \! \! \! b ! !  d$  \! b ! !  'ki dinf ! !z' \! b  ' \! \! \!  ' ! !' \! b  ' \! \! \!  'a ! !'  \! b  '  \! \! \!  ' ! !' \! b  ' \! \! \!  ' \! f$     'd ! !z' \! b  ' \! \! \!  d  d $ \! \! \!  d $   ' ! !' \! b  ' \! \! \!  d  d $ \! \! \!  d $   ' ! !'  \! b  '  \! \! \!  d  d $ \! \! \!  d $   ' ! !' \! b  ' \! \! \!  d  d $ \! \! \!  d $   ' \! f$     'ilk(i   /Qs \! f$ \! \! \! \! b ! !z  d$ \! \! \! \! b ! !  d$ \! \! \! \! b ! !  d$ \! \! \! \! b ! !  d$ 'ip  age_erosion   $'   $'   $'   $' burial_erosione  inf $'  inf $'  inf $'  inf $' burial_exposuree   $'   $'   $'%J   $'ko$(Hh ! ! ! !  ! b ! !z  ! ! !  ! b ! !  ! ! !  ! b ! !  ! ! !  ! b ! !  $ ! ! ! !  ! b ! !z  ! ! !  ! b ! !  ! ! !  ! b ! !  ! ! !  ! b ! !  $ 'iD2\  3 8b  " B ! ! ! ! ! !z  ! b ! !z  ! ! ! ! !  ! b ! !z  ! ! ! ! !  ! b ! !z  ! ! ! ! !  ! b ! !z   ! ! !  ! b ! !z  ! ! !  ! b ! !  ! ! !  ! b ! !  ! ! !  ! b ! !   ! ! ! ! ! !z  ! b ! !z  ! ! ! ! !  ! b ! !z  ! ! ! ! !  ! b ! !z  ! ! ! ! !  ! b ! !z   ! ! !  ! b ! !z  ! ! !  ! b ! !  ! ! !  ! b ! !  ! ! !  ! b ! !   'i ! ! ! ! ! ! ! ! ! ' ! ! ! ! ! ! ! ! ! '! !  ! d$   !$ !  ! d$   !$ 'i` ! ! ! ! ! ! ! ! ! '= ! ! ! ! ! ! ! ! ! '" ! ! ! d$ ! d$  ! ! ! d$ ! d$  'iAttribute VB_Name = "Module_AgeCalc" Public Function getp(ByVal N As DoDe, nuclMyNid$JEJ) ADim td4NdPe.P * ( S0 ! F0 +.S1122F3 3)Gt0N / P ' initialize If (E%0bnd?L <> Thenj#-(1$MDL)4Log-*SL3;E( If3+For i@1 To 1008:Nes;N(E, t,| 0ʄ1cAbs(#) < / Exit @  +E k=6Ag= g* ExpX(-tBnLaE@glob.rhoCL0))~_ Iz'1''2'ȠBHL3) u= t/ AdPAt - dtNext i:|`M`1ErrqĄerNrg|8(~, dNJ, ^D#7CN!a" Eros _@ Hc+_#f_{PA(hEijA(d(P N)`?L!$$' firoot with Newton's methodC,"inf"?{a5ŢA"+c 뉠~ ^ !ώB&U 1) ` .S돯 2 L` H3'0#2)fIEE^d4I <80<;Hbl戲@ vO=@O= p~! (Njx?,_#&`/ (L0$<"sPK)a,sr?,.F1J]9, 2 cl.gJ.S9,3Js*dA+O)L)Burpdp'/g+R&Vant*'q the b age gPivenBe#m raоa _exposureq#0Z2\ ۬# @8O("e S"W'I0X-* ("Ds\,? IP?+U)Els_!]_ _9_R 10B<toG 6#EL* 7,  N |O_$\$ * (1 - Exp(-(nucl.L + E / (glob. L3($rho)@) * t)  End If Function Pu blic  getBurialErr(ByVal N As D"oPe, err MyNid(E %;E ;) ' the b age@ givensteady state erosb rDim dTaudZ I = -N _PS0F0* ȱL0) '1'1'122z23ɢ;3)MO))^E ^M?]@@;_?]?]b.?] .6(M1c73YsW@d[^ 2o\M \P ,^ `_ l.S_P /^ `_ @ IcP 2^ `A Ldf) g(( "gN᫂+ cE ebb)@0.52CtEttf#{HhNaBt$a!627dt7$7-i|N/x 2Va`~ntuvT 1 f)If (t <> "inf"0(E0 Or D oxThesP,1(G*ctt0z?Nw1IQ I/x1֙O@L`KKC|i2ofqPMA2=o%OL3@OA5)dLt4pElsep'8R' %5'om.%%<O +wQ<??@<_?6S  p>`= 0 A ?LPo>eta>t8F C%*+3?S5?5 E `SunbBl17MPN1:if2N2QRodhByRef "Q+Dwnacdc]On or GoToProrhandler:@' initPize E309`<2:_BE(N1,1_ >C222' Newton's mePthodF j*1  100FPfBerNEdFd D0D_de {R1FP6QAbs4- dE q/ E) 2.L) Tau = getBurial(N1,Z E, "inf")WElse {:2: :CallrJacobian("b|_sion" A], a, B, c, d, .#?Kerrb(Abs(B * NB1) + dE2) /ad - c!]&E" "c"Label: 4orhandler..Number <> T0)E_0E?@K', Resume "Sub Pu`blic |Exposure( ByVal@O As Do@ e@\{A$2 Zp1qMyNGByRef tA N AE%FxDim a  c dROn or GoTo " y' init@ize t ~?@nr OoOo}Oo_sc?OoKo P bEmin1'@'cm/ymax.1 jin 1O0 'A20?p@,u 10I# '2 etErs !id2$7w?iFM' two dimen!(apa`2gs{N(PAPH (&lF1pbc- F22e`2!XFF1a^@A rDF2^9 Rage?wX_\._J4_\%__*RxXPc?1Sub ge@tJacobЎ( #opString,51A `2lByRexf aQs!1%!B/c/d+x/^y' 8(q = "age_erosР")ܘa5wA , x, y, 0tcL2O BCC4q dL| tbu@l P=׬6R@  csU P9 _p  ia xposureo0) c = dNdt(nuclide2, 0, x, yBTau1LdLEnd If Sub Private Function fBe(ByVal N1 As Double, 2E Ƒ:MyN, *)=a.L * Log( _1.PS0F0 / (_* &+ Eglob0.rhoL0P)) + 11 11U)11$1222333)-RJXj2Ij2.Ij2.Dj=Ej2ojHjCjUjDCjUjM (5@ #5{_ [L!5c|z}DmD}}}y}-(H}c]~* H{(d{]d) ^ 2l:-1a??m A#F" Ûd ??3q a?*)0G_.L_C=Ma g-Hde1.SWwO`1R//LES/st`:s<N{N J,QNUob#*$K}f& T R?\tfBtyVa1 - Exp(%b* t`]6L2CS*]$W: P 怟tD%?y%r#%>%H0Z#%%(% sp2 = nuclide2@.P * (hS084F0 +TS1 l1 62 62 63 63) @DfBtDt L '1. Exp(-t) / (1 - )_]a > 2.. [End Function .   ,  , . .   B   ,B   ,B      (.  ". $<  q&,,PrU@@@h` ! T x`Aa! T X` T`` A TpA `!a T x1 `A! T x `Aa T ha`!a  T`(!Aa! TTKKKK1 `(!Aaa TTKKKK1 `(!Aa!a TTKKKKh1 `!a T  h `!a T  h! `!a T  #`$a!AaTTKKKK &`!!a TT`!!a TT`!aa TT`!aa TTbrU@@@~x4, Nishiizumi et al. (1989)A"   2ʡB@ W86-5, Nishiizumi et al. (1989)A"   2ʡB@ W86-6, Nishiizumi et al. (1989)A"   2ʡB@ W86-8, Nishiizumi et al. (1989)A"  32(\oC@~ W86-10, Nishiizumi et al. (1989)A"   \2sh|oC@ W86-11, Nishiizumi et al. (1989)A"   c2sh|oC@ W86-12, Nishiizumi et al. (1989)A"   2= ףpmC@a W86-13, Nishiizumi et al. (1989)A"   ;/(\G@KOE4, Kubik et al. (1998)A"   h4(\G@KOE5, Kubik et al. (1998)A"  Ri2(\G@KOE6, Kubik et al. (1998)A"  h9,(\G@mKOE20, Kubik et al. (1998)A"  ;:(\G@KOE101, Kubik et al. (1998)A"ts\  ?13,840Q%F@e"06-NE-010-LIT,7 Balco et al. (2009)A"g  :13,840Q%F@e"06-NE-011-LIT, Balco et al. (2009)A"\  X13,840Hz'F@"06-NE-012-LIT, Balco et al. (2009)A"r  h<13,840Hz'F@"06-NE-013-LIT, Balco et al. (2009)A"s  16,750fffff&E@0"06-NE-001-HOL, Balco et al. (2009)A"n  :15,850@E@"06-NE-002-LEV, Balco et al. (2009)A"a  * D* F0+ Fx+ F+ F, FP, , , , L, @- P- X- h- Lx- R- R . Rx. R. R(/ R/ R/ R00 R0 L0 L01 L1 L1 L 2 Lp2 L2 L3 L`3 L3 L4 LP4 L4 N4 N@5 N5 N5 N06 N6 N6 N 7 Np7 N7 N8 N`8 N8 N9 NP9 N9 N9 N@: N: N: N0; N; N; N < Np< N< N= T`= T= T> Th> R> R? Rp? R? R @ Rx@ P@ P A PpA PA PB P`B PB PC RPC RC TD TXD HD HD H@E HE FE FF H`F FF FF H8G HG HG HH HXH HH HH H0I JxI HI HJ JXJ HJ HJ F8K FK FK FL HXL RL RL RPM RM JN JPN JN JN J@O LO LO L0P LP P P P LP FHQ Q Q Q LQ HR PRXR`R" hRpRRRRRRRSSx \10BeRTB'   N( \)AgeLatElev ReferenceA"x  2V-B@l W86-1, Nishiizumi et al. (1989)A"!  2V-B@l W86-3, Nishiizumi et al. (1989)A"   2SB@ W86-"06-NE-003-LEV, Balco et al. (2009)A"m  c15,850@E@"06-NE-004-LEV, Balco et al. (2009)A"  15,100zGE@"06-NE-005-ASH, Balco et al. (2009)A"  l15,100zGE@"06-NE-006-ASH, Balco et al. (2009)A"  14,590p= ףE@/"06-NE-008-PER, Balco et al. (2009)A"  814,590p= ףE@/"06-NE-009-PER, Balco et al. (2009)A"  13,180lF@CH-1, Balco et al. (2009)A"  13,180lF@CH-2, Balco et al. (2009)A"  L13,180QkF@CH-3, Balco et al. (2009)A"   `13,180QkF@CH-4, Balco et al. (2009)A"  !l13,180QkF@CH-5, Balco et al. (2009)A"  "t13,180QkF@CH-6, Balco et al. (2009)A"  #13,180(\oF@CH-7, Balco et al. (2009)A"  $<8,100(\uQ@ACI2-01-01, Balco et al. (2009)A"  %8,100QuQ@ACI2-01-02, Balco et al. (2009)A"  &8,100QuQ@HCR03-90, Balco et al. (2009)A"  '8,100QuQ@CCR03-91, Balco et al. (2009)A"  (8,100QuQ@CCR03-92, Balco et al. (2009)A"  )8,100QuQ@CCR03-93, Balco et al. (2009)A"  *<8,100QuQ@ACR03-94, Balco et al. (2009)A"  +-[ AM@MYDC08-2, Goehring et al. (2012)A"  ,-U]M@OYDC08-3, Goehring et al. (2012)A"  -;-MM@JYDC08-4, Goehring et al. (2012)A"  .-= M@LYDC08-5, Goehring et al. (2012)A"  /@->M@cYDC08-7, Goehring et al. (2012)A"  0@-+M@[YDC08-8, Goehring et al. (2012)A"  1E-#J{/M@WYDC08-9, Goehring et al. (2012)A"  2-@ޫV&M@X YDC08-10, Goehring et al. (2012)A"  3~wWN@OL08-1, Goehring et al. (2012)A"K  4u٬\N@OL08-3, Goehring et al. (2012)A"  5bm1ZGN@OL08-5, Goehring et al. (2012)A"  6;|=N@OL08-7, Goehring et al. (2012)A"  7vE 2N@OL08-9, Goehring et al. (2012)A"  8&Zd;ON@OL08-11, Goehring et al. (2012)A"  92xPN@OL08-13, Goehring et al. (2012)A"  :Z%/nE@@MR-08-01, Putnam et al. (2010)A"  ;k%Z_$E@@MR-08-02, Putnam et al. (2010)A"  <{`%r߉E@@MR-08-03, Putnam et al. (2010)A"  =[`%?E@@MR-08-04, Putnam et al. (2010)A"  >1f%:ME@fffff @MR-08-05, Putnam et al. (2010)A"  ?%f%uE@fffff@MR-08-13, Putnam et al. (2010)A"  @a%uE@MR-08-14, Putnam et al. (2010)A"  A0†W I@q= ףq@HE-06-02, Kaplan et al. (2011)A"  B 0 I@fffffp@HE-06-04, Kaplan et al. (2011)A"  C 0&S I@RIu@HE-07-11, Kaplan et al. (2011)A"  D0v I@Qr@HE-06-06, Kaplan et al. (2011)A"  EQ0_L I@zGr@HE-06-07, Kaplan et al. (2011)A"  F 03 I@Hr@HE-07-12, Kaplan et al. (2011)A"  G0|a2U0 I@RAr@HE-07-13, Kaplan et al. (2011)A".  Hh0Q|a I@q@HE-07-10, Kaplan et al. (2011)A"  I0Ciq I@33333?p@HE-06-05, Kaplan et al. (2011)A"  J>04@ I@q= ףq@HE-06-08, Kaplan et al. (2011)A"  K<0 I@(\q@HE-06-01, Kaplan et al. (2011)A"  L0 I@(\Wq@HE-06-03, Kaplan et al. (2011)A"  MJ0}\*I@EQ-08-01, Kaplan et al. (2011)A"  N 0' I@EQ-08-06, Kaplan et al. (2011)A"  Op04OpI@EQ-08-05, Kaplan et al. (2011)A"  P0m2$I@PBS-08-09, Kaplan et al. (2011)A"  Q0?"I@EQ-08-04, Kaplan et al. (2011)A"  Rf 0jt$I@PBS-08-04, Kaplan et al. (2011)A"  S0Mb$I@PBS-08-06, Kaplan et al. (2011)A"  T0#I@PBS-08-11, Kaplan et al. (2011)A"  U0)*$I@PBS-08-02, Kaplan et al. (2011)A"  V`,_Q:Q@G040906-03, Fenton et al. (2012)A"  Wh,_Q:Q@)040906-04, Fenton et al. (2012)A"  X\,d`T:Q@/040906-02, Fenton et al. (2012)A"  Yh*lMQ@m060906-14, Fenton et al. (2012)A"  Z *=yXMQ@s060906-15, Fenton et al. (2012)A"  [*HMQ@\060906-16, Fenton et al. (2012)A"  \0$3RQ@^11QOO-01, Young et al. (2013)A"  ]$3RQ@^11QOO-02, Young et al. (2013)A"  ^ $3RQ@^11QOO-03, Young et al. (2013)A"  _h$3RQ@^11QOO-04, Young et al. (2013)A"  `P$|a2U0RQ@^11QOO-05, Young et al. (2013)A"   a0 DLQ@PFST08-01, Young et al. (2013)A"  b$0 CLQ@PFST08-02, Young et al. (2013)A"  c0 ^K=GQ@09GRO-08, Young et al. (2013)A"  d^0 Zd;GQ@09GRO-09, Young et al. (2013)A"  eX0 9GQ@09GRO-11, Young et al. (2013)A"  f&0 Zd;GQ@09GRO-12, Young et al. (2013)A"  gD: S!uuQ@ACI2-01-1, Young et al. (2013)A"  h: rhuQ@ACI2-01-2, Young et al. (2013)A"  i: H.!uQ@HCR-03-90, Young et al. (2013)A"  j: 460p= +@!Huancane IIa, Kelly et al. (2015)A"m'26AlRTtrI'   N( \)AgeLatElev ReferenceA"  V 32V-B@l W86-1, Nishiizumi et al. (1989)A"  -62V-B@l W86-3, Nishiizumi et al. (1989)A"  =2SB@ W86-4, Nishiizumi et al. (1989)A"  sI2ʡB@ W86-5, Nishiizumi et al. (1989)A"  LE2ʡB@ W86-6, Nishiizumi et al. (1989)A"  =D2ʡB@ W86-8, Nishiizumi et al. (1989)A"  $2(\oC@~ W86-10, Nishiizumi et al. (1989)A"   $2sh|oC@ W86-11, Nishiizumi et al. (1989)A"   &2sh|oC@ W86-12, Nishiizumi et al. (1989)A"   "2= ףpmC@a W86-13, Nishiizumi et al. (1989)A"   o%C.(\E@ WY-92-138, Gosse et al. (1999)A"   ?.(\E@ WY-93-333, Gosse et al. (1999)A"   B.(\E@ WY-93-334, Gosse et al. (1999)A"  08.(\E@ WY-93-335, Gosse et al. (1999)A"  9.(\E@ WY-93-336, Gosse et al. (1999)A"  ]9.(\E@ WY-93-339, Gosse et al. (1999)A"   UyD@VSPA-O-1, Larsen (1996)A"  " UyD@VSPA-O-2, Larsen (1996)A"  uUyD@VSPA-O-3, Larsen (1996)A"  M UyD@VSPA-O-4, Larsen (1996)A"  jiU\(|D@PSPA-O-5, Larsen (1996)A"   U\(|D@PSPA-O-6, Larsen (1996)A"   U)wSWR-B-8, Larsen (1996)A"  ` UyD@SMH-B-9, Larsen (1996)A"  Ç U(\uD@CSAF-B-10, Larsen (1996)A"w  N U(\uD@CSAF-B-11, Larsen (1996)A"n   U(\uD@CSAF-B-12, Larsen (1996)A"   U(\uD@+SAF-O-13, Larsen (1996)A"   U(\uD@SAF-O-14, Larsen (1996)A"'21NeRTP'   N( \)AgeLatElev ReferenceA"  (2& W86-8, Niedermann (2000)A"'3HeRTW'   N( \)AgeLatElev ReferenceA"  ruYG@LBA-98-064, Ackert et al., 2003A"  ~ı.nYG@LBA-98-065, Ackert et al., 2003A"e l  @L,eXOG@LBA-98-093, Ackert et al., 2003A"  OM OOG@LBA-98-096, Ackert et al., 2003A"  `H]mKG@|PAT-98-072, Ackert et al., 2003A"  )bX9G@LBA-01-047, Ackert et al., 2003A"  `q#bX9G@LBA-01-047, Ackert et al., 2003A"   8bX9G@LBA-04-048, Ackert et al., 2003A"   bX9G@LBA-01-048, Ackert et al., 2003A"#)hn   ` l!F@10596, Cerling and Craig, 1994A"co   l!F@10596, Cerling and Craig, 1994A"    58EGD@710581, Cerling and Craig, 1994A"`U  /1y)D@10586, Cerling and Craig, 1994A" b  ^_C?wC@8007, Cerling and Craig, 1994A"  `bC_vwC@9352, Cerling and Craig, 1994A"d  pH`C_vwC@9352, Cerling and Craig, 1994A"od  @DbC_vwC@9352, Cerling and Craig, 1994A"  cC_vwC@9354, Cerling and Craig, 1994A"  s^C_vwC@9354, Cerling and Craig, 1994A"vi  |Z:D:MmE@d9504, Cerling and Craig, 1994A"  ^:D:MmE@d9504, Cerling and Craig, 1994A"  ^_:D:MmE@d9504, Cerling and Craig, 1994A"   QPn=@TA1, Dunai and Wijbrans, 2000A"  MQPn=@TA2, Dunai and Wijbrans, 2000A"  `3QPn=@TA3, Dunai and Wijbrans, 2000A"  oI%C<@#AFB1, Dunai and Wijbrans, 2000A"  bI%C<@#AFB2, Dunai and Wijbrans, 2000A"  `ETI%C<@#AFB3, Dunai and Wijbrans, 2000A"  `lI%C<@#AFB4, Dunai and Wijbrans, 2000A"   Q%F@Y1-2799, Licciardi et al., 1999A"   X N@a#F@Y2-2742, Licciardi et al., 1999A"  ! J4!F@VY3-2450, Licciardi et al., 1999A"  " B>٬"F@4Y4-2833, Licciardi et al., 1999A"  # (\"F@@Y5-2812, Licciardi et al., 1999A"  $С ͪF@B1-2676, Licciardi et al., 1999A"  %h F@B2-3018, Licciardi et al., 1999A".  &8 F@B2-2674, Licciardi et al., 1999A"  ' QF@B3-3038, Licciardi et al., 1999A"^  ( QF@B3-3039, Licciardi et al., 1999A"c  ) tF@B4-2891, Licciardi et al., 1999A"  * ;pΈF@B5-2776, Licciardi et al., 1999A"{J  +x- o_/F@C1-2098, Licciardi et al., 1999A"o  , X9.F@C2-0914, Licciardi et al., 1999A"  - X9.F@C2-3004, Licciardi et al., 1999A"  . Ǻ.F@C3-2830, Licciardi et al., 1999A"  /H z6.F@C4-2906, Licciardi et al., 1999A"  0 H}8/F@C5-2877, Licciardi et al., 1999A"  1p?#0*E@C LB1-0886, Licciardi et al., 1999A"  2H|?5E@ LB3-1444, Licciardi et al., 1999A"  3п _P@%IC02-16-19084, Licciardi et al., 2006A"  4# P@%IC02-17-17338, Licciardi et al., 2006A"  5` e`TRP@%IC02-19-19323, Licciardi et al., 2006A"  6 9P@%IC02-20-16373, Licciardi et al., 2006A"of  7 Zx $(~O@#LEIT-1-1067, Licciardi et al., 2006A"  80Z"lxzO@#LEIT-2-1374, Licciardi et al., 2006A"d  9 ZEO@#LEIT-3-1191, Licciardi et al., 2006A"  :ZǺO@!#LEIT-4-1131, Licciardi et al., 2006A"  ;ZgDioO@#LEIT-5-1315, Licciardi et al., 2006A"  < Z(O@#LEIT-5-1129, Licciardi et al., 2006A"  =9|P@`"BUR-1-2410, Licciardi et al., 2006A"  >>|hsP@"BUR-2-2401, Licciardi et al., 2006A"  ?9|/nP@"BUR-3-2713, Licciardi et al., 2006A"  @P|oŏP@"BUR-3-2780, Licciardi et al., 2006A"  A e|BiP@"BUR-4-2585, Licciardi et al., 2006A"  B|BiP@"BUR-4-2854, Licciardi et al., 2006A"  C0|DlP@"BUR-5-2732, Licciardi et al., 2006A"  DS| P@"BUR-6-2792, Licciardi et al., 2006A"  EXZ(J + P@$IC02-1-18787, Licciardi et al., 2006A"  FPZ(Ǻ P@z$IC02-7-10543, Licciardi et al., 2006A"  GZ(H. P@y%IC02-10-25131, Licciardi et al., 2006A"  HZ(ڊ P@x%IC02-11-17430, Licciardi et al., 2006A"  I+&333333@ KS87-47, Kurz et al., 1990A"  Jo`WB>٬*3@$KS87-03, Kurz et al., 1990A"  KڂWPsb3@KS87-14, Kurz et al., 1990A"  LW0*X3@KS87-15, Kurz et al., 1990A"  MW:M-3@*T87-4, Kurz et al., 1990A"  NW:M-3@*T87-4, Kurz et al., 1990A"  O2ۊe$3@KS87-31, Kurz et al., 1990A"  PS}гY)3@T87-8, Kurz et al., 1990A"c  Qc_}гY)3@T87-8, Kurz et al., 1990A"  Re,3@$KS87-5, Kurz et al., 1990A"  Sm0 Q+3@sKS87-4, Kurz et al., 1990A"  TL 333333@KS87-43, Kurz et al., 1990A"  U#1 &SU3@KS87-13, Kurz et al., 1990A"  V.Mg3@B KS87-46, Kurz et al., 1990A"  Wf\6[3@# KS87-48, Kurz et al., 1990A"  Xצ\6[3@# KS87-48, Kurz et al., 1990A"  YOe3@KS87-42, Kurz et al., 1990A"  ZQ;V3@UKS87-01C, Kurz et al., 1990A"  [-D?!:M2@KS87-08, Kurz et al., 1990A"  \d7?!N@3@KS87-07, Kurz et al., 1990A"  ])s3@RM88-9490, Kurz et al., 1990A"  ^`(ZڊB@SI47, Blard et al., 2006A"  _0dS㥛B@4SI41, Blard et al., 2006A"  ` & V-3@PML1A, Blard et al., 2006A"m  a@ & 3@(ML1B, Blard et al., 2006A"  b@ & 3@<ML1C, Blard et al., 2006A"je  coo3@fML5A, Blard et al., 2006A"a  d-F"uq3@HMK4, Blard et al., 2006A"  e[C_vwC@#TH-9354-C, Poreda and Cerling, 1992A"Ox  f UC_vwC@#TH-9352-C, Poreda and Cerling, 1992A"rer  gP[C_vwC@#TH-9354-C, Poreda and Cerling, 1992A"  huiC_vwC@#TH-9354-C, Poreda and Cerling, 1992A"  iu;]C3@TUN-1, Blard et al. (2013)A"  j;SW>3@TUN-2, Blard et al. (2013)A"  k`;p= 3@TUN-3, Blard et al. (2013)A"  l@;3@TUN-4, Blard et al. (2013)A"  m`h;j3@TUN-5, Blard et al. (2013)A"  nM;_ D3@TU-101, Blard et al. (2013)A"  o;ޫV&3@TU-102, Blard et al. (2013)A"  p@;9#J3@TU-103, Blard et al. (2013)A"  q@;<3@TU-105, Blard et al. (2013)A"p'36ClRTAD'   N( \)AgeLatElev ReferenceA"  +Cףp= wC@TH, Stone et al. (1996)A"'14CRTAK'   N( \)AgeLatElev ReferenceA"  rCzGD@:PP-4, Miller et al. (2006)A"'n-i-   $:% `9J 7(Jt $7(J &7(J (7(Jq-o,,,Attribute VB_Name = "Module_Calibrations " Op$ Base 1 Public Func.load b(ByVal nucl As S!ng, *wksheet0) Integer Select CtJ Is10BeGcolB l adde ntry(, , 1, "N(" &Y& "D)" AgeLatElevReferenc8e")I>02, 49946363000, 37.98 318 "W86-CNishiizumi al. (10989)5157980755, 6959601542@235454, , 5, 7095465419R558kP 516I5"0703I†7 , 3408"858.8 E24351 my^33570`a `C245 _1 37129?  @ 29@% 5O214/c, 12118 1218@47.167 KOEGKubikȆ98߆AaB@4531B @lW22Bx2( ``^ 18493@ 113ᑦ 3 AO 394 21507Q&10 \  8Ā%"13,84044.2@)@06-NE-010-LIBT@alcoFA2<00?Ry 80V6aj5"1 (0.BPp 0I341#25|81bx 63'10P!6,752. 730 01-HOL"<2 8045,8-Q13@ 0EV` 87(11?"91 54-L3)2p7Ps5,p73.=Û005-ASHPE72Дw 6) '=334,D59)3.2P@308-PER p799)P9 7E643, %S8p23LCHݱBOSomtd"6pb"n0"`9;oozaof@5587i!22d@7oooef 66$Do@ ooog 6'N poOoog67O8iooog @&25`(! ooog 3D8H(69. 6"C9g( ~ 566!ki 38&9` ~ `5894j 9&8d / } \7`k, j 88d 1`, C %3248 607@ 61.666aP12OLk_ ^ t30113I 13j"" /k `5280) 2 1!QC ^_ 5` 3180 H 53`C )' 30371I 5(_ ^ `A38186I!_!~_W _ '5307'(!h!1Xo 0!O8880 96-43.5J 024."MR -/0 Putnam e0eߒ֒931qe581`×AW9023P459.( *P /8P 9169"1032.2875` 7.0$)905a 7e МS@ (6932J22-5 0.0840284.ŽHE-06Kaplani01o0o0f0660 1271.1"` c "737b2`340.6$7-1y660x @06, ?JyQm289.NpCQY73967Q8292.p6653` 7A1 3`Q!286.E" p6552"p)2@͡p467112A>2nT7 Kaplan et al. (2011)") Call addentry(wksheet, col, 75, 62268, 12500, -50.0841, 281.66, "HE-06-0$Ka<N65772n77.4Qn3, >n7p2d77n17o4v"EQ-08ma26812177455x5q>l9l102-5223 w=8I7007d282022"PBSQ@~5450629|2436@>e6X871@8652N1A6 8@066510J42@21AmE 8 06551 00m261@.?) 8@6708 n 65!R1 D #472114`68.911@ 7"0409AFo*2?(!490Q ?F ,_  @49@ 4*F _ #\ 2554094 69.213810`"06"(סG { 9k5`5li 1Pe  | ?55h 4 +~9G_ \ 5456A(9!(84 35@"11QOO"Youngi3?P(P558 πƀ9 5P  p @5'p56b.: 938`B, 823 02s"FSTTw,36}1;y`w382' (11351q"09GR-1a-5283@'; 4P ) p5@/ ( ?j837 N8л9.83 5P6 -"CI2G-p8373`p 36"p1"CR-03-eA36[16v901[10A  h1Ѹ  !A H-nN832@ 3[ 7  a5Za'12A[-13.9q'485Q Huancane IIaPellyv5 loadibrations = cCasa"26Al"0<"Il  lN(" & nucl`")" AgeaLataElevqRefere8nce??3ִ, 2, 3345238, 13000x7.98 18h"W86-1, Nishiizumi et al. (1989)")  Call addentry(wksheet,0 col58P76293Cl4`, 406 l42354ـl56791667 61t355ˀA666546A644472Q6OB6@8?, 241@gE8.8 243l1?, f24042.5e 2@, =B61N@-25A޿A12;214"IC02-16 -1908R200652, 7H3@645SC7-1733ypn3886P4oC9832 55@J8)862MT4CU20V378%521A83.972*29"LEIT-1-106`,?5 zp 62Cb G37F 89cp 62!(b1s O ) 82W2 4-113 h @C105 8325- `69DT8 1V $12p80 059 *B9I"BURS24aW `3) 8 2-24~07a `Sb8!aF@71}n}60511a}P 6"8`/[_VQ611}<91@9F}58)@ GA1v8aV 79Q9E93 2P@ Є73 107p(26-2~7*!1b5v103/p7164 K~-18|78///)7P)*0w~0~5i///*15S(560P3~0-25R??w?:7d:2@@w74q???:C46991.023# KS87-wKurz)0/%zH902599X.1612"20_`?ood759564q D38691Dc1PNoooepe25671 320doooe 98;, 778` "TA, 534/_/^&^7991P1s_ _ _ T h1x5251%Q6"r @???50$899/ //wii8P915Qj'-2%9a(wksheet, col, 83, 93445, 2352, 19.171D"KS87-4, Kurz et al.90") Call addent ry 9129B72770A.b230|c ;d335651, 3123, 788, f 1>f6^3882B5j4429f827123mgg38019,546h8138234 ;4A0257AN?J897269.7m196@SW339124799.67d8C01C659 33 84@82 6 y9%j7`0 80 6 8A ML1A, _ Z `!8%G D B_ Z <}S 6D eZ U214435O8¦ML5_% Ι I79=1Uc3 Y988( MK@P <`6#7145!TH-9354-`'Poreda and CerlingE92?Z'Z10557uy2{9598428A?{9?9B911q@?g?9 15r##52-!P90337_"TUN-# (2013N)p5105bC898P0W\&P @+71fϯb46QW  0E<15!dR>J>37~8e 1 K '"856E381Y-10?"?"/Yy16) .8866#383O"0pKS!s381"0@8" @ load >ibrations@ = 112WC ase Ia"3p6Cl"˰"i+Hhi@+JiF+NxXiL+Pi@ .H )thp%it+Biv  (8 ( x xPp ` @0x  ""4xW"  $0@`x  * x     "  ,0(@h  *    ( 0 H  `  h p  x  "  .      0  H  *X               "  B h           *  @ P X  p x         "  @  (@ h           *  ( 0 @H` x  "  .08P h x *      ( 0@" H ,P  * @P X hp   "  6(0Xpx    *   08P h px " *     @ H h  * @P `p    (0 8H" PX*p       ( H h   *0 `p  (@`x   " * ( 8 $Hp $x  * HX ` px   " * ( 8 Hh p  * 8H P `h   " *  ( 8X ` , ( 0 *@ p      "   *  P  `  p         ! !T0! ! ! *! !! ! !"" 8" @"H" P"`"" h"p"""$" "4"0# H#4P# ### # # ## $,$$@$ h$$:$2$% % %(%0%.8%h%p%" x%%%%$% % 4% 40& 4h&& 4& 4& 4'P'X'`'x''' ' ' '&'" (&H("p(.(2( )4)0@)4p)0).)2* @*H* P*`*h*&p***" ****$* + 4(+ 0`+ 0++ 4+,,,(,0,H, `, x, ,8,$, - - @-FH-2- -- ---(- .(." 0.8.P.`.$x. . 4. 4. 0 /P/ 4X/ 4//////0 (0 @0 X0 p0&0"0 0$0 1 814@10x1.121 22 20282(@2h2p2B x2R22B 2T2@3B H3"P3x3B 333B 3"33B 334B 444 H4 X4h4p4B x4:4 4 444B 4 4405 &P5x55 5 5555566 606@6P6`6p6666677 777B 7 47 08@8P8`8p88888888899  9 :" (:.0: `: p: :: :::::B :::; ;(;8; convert elevation to pressure] tPressure (mbar)A.  t!  t%', , ,$ ,$0'um  t% t!2$:%'d ! 9J09d 7(J07(kqk o( convert elevation to Antarctic pressure]0H tAntarctic Pressure (mbar)A.  t!  t%', , ,$ ,$6'4  t% t!2$:% ! 49J09dP 47(J07(kqk o`' convert elevation to atmospheric depth] tAtmospheric depth (g/cm2)A.  t!X  t%', , ,$ ,$0' $8'  t% t!2$:%s ( !Int 9J09R) d 7(Jn07(kpqhk` ileoH( convert pressure to elevationag]n t Elevation (m)A.s\  t!r  t%'W  $ $:',   t% t!2$:%tel !les ,9J09C:\d( ,;\Le07(kqk ;C:o< convert standard atmospheric pressure to Antarctic pressureess]XpPr tAntarctic Pressure (mbar)A.  t!L  t%'S  $ $:',a ,$6'4   t% t!2$:%are !Pro 49J09s (dh 47(Jt07(k0q(k  o& convert pressure to atmospheric depth] 8 tAtmospheric depth (g/cm2)A.  t!x  t%'  $ $8'  t% t!2$:% ! 9J07(d 7(J07(kqk opP( convert Antarctic pressure to elevation] t Elevation (m)A.  t!  t%'4 4 4$ 4$<',  t% t!2$:% ! ,9J09dH ,7(J07(kqk o< convert Antarctic pressure to standard atmospheric pressure] tPressure (mbar)A.  t!@  t%'4 4 4$ 4$<', ,$0'  t% t!2$:% ! 9J07(d 7(J07(kPqHk@ o(9 convert Antarctic pressure to standard atmospheric depth]H`x tAtmospheric depth (g/cm2)A.  t!x  t%'4 4 4$ 4$<', ,$0' $8'  t% t!2$:% ! 9J09d 7(J07(kqxkp oX' convert atmospheric depth to elevation](@X t Elevation (m)A.  t!  t%'  $ $>' $:',  t% t!2$:% ! ,9J09d ,7(J07(kqk wop& convert atmospheric depth to pressure ] tPressure (mbar)A. e  t!0  t%'  $ $>'"  t% t!2$:%OL !ring e 9J09d 7(J07(kXqPkH 8&o0 0 convert atmospheric depth to Antarctic pressure ]OL tAntarctic Pressure (mbar)A.  t!  t%'01  $ $>'  $:', ,$6'4  t% t!2$:% !<{` 49J09d 47(J. 07(k q k  @oh  ]  A t% t!2$:%ffff5 8-05 !t al. deg7(J%fmin7(Jd deg7(Jmin7(JE@kp kh q`   t!@  t%'@I@ @ @$< @ @$B 'R  t% t!2$:%p@ !Kaplan @$B9JA09  R7(JI@0.007(KaplandP @$B7(J07( R7(Jan0.007( k q k  r@o  ]0 H `  t% t!2$:%r@5 plan !011)Adeg7(J0min7(J7-13sec7(J.ddeg7(Jmin7(Jal. sec7(Jkpkhq`  t!an@  t%'@  @ @$< @ @$B 'Rplan< R R$B 'D   t% t!2$:%-06-01 !t al. @$B9J09L R$B7(J07( D7(J 0.07(d @$B7(J07( R$B7(JKapl07( D7(J0.07(, KaplkHq@k8 Po x ]  08 t% t!2$:%Q5 "I@ !EQ-08- Inclination7(J d Inclination7(J KapkXkPqH  t!(  t%'@ap @ @$ @$H'F  t% t!2$:%n et a !A" F9J0.090d F7(Jap0.07( kHq@k8 0906-0o ( ]   t% t!2$:%0906-05 al. !"deg7(JT:Q@ddeg7(J12)khk`qX  t!8  t%'F) F F$ F$J'@Q@  t% t!2$:%" ![ @9J0.009d @7(J)0.007($kXqPkH  al. (o0 ]X p  t% t!2$:% al. (5 !^ ߹deg7(JO-03ddeg7(J kxkpqh  t!g H  t%'L  L L$ LO-05 !6'L Rc = 0 and less blows upk L$N'@  t% t!2$:%  !0 @9J0.0098-02d` @7(J0.007(k qk o ]   t% t!2$:%5 !Rc (GV)7(JdhRc (GV)7(Jk@k8q0  t!  t%'@t @ @$ @7 7'@E above 55 degrees, the polynomial fit doesn't work and doesn't matterkp @$P'L  t% t!2$:% ! L9J0.009d L7(J0.007(kqk o8 ]  t! t!2$: t%7! !deg t%7%(Jo t%7%(Jddeg t%7%(Jkpkh  t!H  t%'@ @ @$  t%'R ! @ R<  t%7(J0.00  t%7(  t%7(Jdp @ R<   t%7%(J0.00  t%7%(kk qd!Please select two columns of dataA@Mko ]hr t! t!2$: t%7! !deg t%7%(Jmin t%7%(Jsec t%7%(JdXdeg t%7%(Jmin t%7%(Jsec t%7%(Jkk  t!  t%'@ @ @$  t%'Rp< R R$B 'D ! @$B  t%7(J0  t%7( R$B  t%7(J0  t%7( D  t%7%(J0.0  t%7%(d @$B  t%7%(J0  t%7%( R$B  t%7%(J0  t%7%( D  t%7%(J0.0  t%7%(kk qdPlease select two columnsA@k`oX]0H` t! t!2$: t%$! !deg t%7%(J t%7%(J t%7%(Jd8deg t%7%(Jkk  t!  t%'@ @ @$  t%'R  t%'D ! @ R< D  t%7(J0.00  t%7(  t%7(J  t%7(Jd @ R< D   t%7%(J0.00  t%7%(k0k( qdPlease select three columnsA@kox]( t! t!2$: t%$! !deg t%7%(Jmin t%7%(J t%7%(Jddeg t%7%(Jmin t%7%(Jk0k(  t!  t%'@ @ @$  t%'R  t%'D R D< 'R ! @$B  t%7(J0  t%7( R  t%7(J0.00  t%7(  t%7(Jd @$B  t%7%(J0  t%7%( R  t%7%(J0.00  t%7%(k k  q d Please select three columnsA@k o @ !R !T , !V  !X !Z !T'0i  !V !T  !R !Z !T !X ':i 0@ ,$'6i   !X'8iX   4@$'<i   !X '>i   @$\$ 'H @ H'Hk i ?  F$\$ 'J F J'Jk i - convert cut-off rigidity to degrees latitude-'@ initial guess find root with Newton's method d @$P'^ ^ L  L !6 y8 k0 iq?'`g^?'4:_&s?'8á5?':#^_j >'b,A^݆>'dF@>'f/$-@'g@?' nAm?',]>'h$>'h}4>'jp5>'l: 4  !p  8  !p  @ :  !p  @ b h !p  @ d j !p  @ f l !p  @ 'n ^ L  n'r @ r '@  @'Nix- convert cut-off degrees latitude to rigidity @'iq?'`g^?'4:_&s?'8á5?':#^_j >'b,A^݆>'dF@>'f/$-@'g@?' nAm?',]>'h$>'h}4>'jp5>'l & B `  !p  4  !p   8  !p   :  !p   b h !p   d j !p   f l !p   'Pi t! t% t!2$:%5 ! t7(Jd` t7(Jk@k8q0o( v x%z'B v B B 'Bki Attribute VB_Name = "Module_Converters" Public Sub zToP(theRange As My@) ' ch elevation to pressure ADim znVariant, 2P Dob"Call addTitlek, "PI (mbar)"sRFor r ownum1 (To .Ro wsz+On Err0ResuNextz CellValue(., 18$Ifc<> "" And IsN'ric(z) Then*P,z2p With WorkshPeetsv.). IAddJJLglob.ReplaceF.m%PK$2berUmat"0ElsjI.Offset(0AJ WzfK)ENGAID uD  Ant@ arc~t]' :[)?= z~2\\\\u+H.\\hT _])Xa_]V]D!atm osphe d0epth', .d!ƠA (g/cm2e`֡]dp2d(Pl8SJf d_^^`)^!6 ϋ6 / /Y ^ubz^pToZ/geNJ\ 1/\VŊϊϊ"E6(m-S\P: cP*ρP= p2z/,҉_\q>.Ql1 /,bOq&,z7 /\)0;+Epi)e1[Om[+Op+standard [I-Us],.mO]ɯgeA]ntđ_O+///'a&_x/`/DPO /ߍ]11B1 1 v1 1111|/ߍdb^_?2^?2?202ߍ 20ύ)^_+////q$W // d = p2@d(P)  With Worksheets(theRangde.<).*CellAddress(rownu m, 1) If glob.Replace Th en u.ValuedOff set(0].NumberFormat/"0" 10ElseCG6ndx If @  EANext    Sub P@ublic  AntPtoZ As My' converBtarctpure to elevatioDim a("Vari, zADoJCall addTitle, "EE (m)"v^0_1 To @RowsG>On Error Resume A?GB&=fHG  `<> ""?@^sAeric()͐z(2zGwzK$)idiWa?\A9\P?\nt0\standard atmosph? E`)^, P_`@`Pk(mbar`e.`@>STfh`y`5 -}=`Pz2p(z{cf8.WP$.WE'e Ϩe?eoD?e?e%edepthso2taj2, d?3iocge03A9 @(g/cm23m?'/d/d/d3ll/d/dI/d܉/dq3s_5'x_5 P zV5 OOO 8bm{>A3O>dҩYOLdT^0O ec+130֔d3 te?@1xt?'/e#d Qdc(d s= dbdba2pf//!/Rod///p /?/__ /"// %/ 1B'Y//{//. "BIO.O.O.O.T#_O.O. Q]O. [[[1 ,o,,,m .Offset(0, 1).Value = (P NumberFormDat^"0" bE nd If&Wi th %Next rownum  Sub P@ublic dToAntP(theRange@ As My ) ' convert atmo spher7depth to 9arctpre ssureBDim d$Vari@ant, PDo;e, z Call addTitleM(, "8P8 (mbar)"Vw1 To l.Rows0On Error Resume6 d Cetll(Ifv<> ""@D @hsqJ(d) ThenG PXd2pzp2z(P2 H= z2(zL~ WorkshPeetsK.).BrG2AddO23glob.Replace0?%%2ls SΔJ?egToDegMinF,a[haegVamin#b'?9s391Q87.T > _WO:/- 0"deg,)("(EN<; 2h, :a*C+5{8=g2egq60 * (@" - floora)tEEgl ?D!$g'q {}.0nߋ%VC 9}+_ _ 9.".!YGLSecLgeT"L, P wL, secoMjejᇶ. joMwoM jIGoM2DoMt(RX"P/Vf$ 93RRR#R Rxt;KR|uexGRcO/'= R`RpVU+UU_U*r)U*_Ut_U-HYBG7B_UZ!$?N^</?N[JU9h 3O  UۏW:0>% =Q5aaToI?a?as incl_`55e_`_` _`~TY`I ination[upaXnation"  End Ifx XWithdFor rownum = 1 To theRange.&RowsNOn Err`Resume Next:degB=CellValue(^, 1"),If /<> "" AsN!Rric() 0Then-|incl_2i#  Worksh`eets(C).i NAddrxessOP9Rglob.ReplaceJ.rMP Jkbermat"0.0CElseOffset(02`ȆA B!DžOEEz Sub Public  iToDegFX As MyB]DUDim q@Variant,Do@]xr1Jo.@ >AJu.S-0)^" ؎m ~1 _?j.=z>sQsqs"_2(bY?:s&A8F7 0les m J? IBa aa(g~sRcsm Rcv_sȉ_s:_s%_s ӡ`6Iz_s 4[s@.s``#3rRcr= 0k"nZerXo ' a@lq bl up q'r@Pr2d(?!yA9#4] yAߑ?80?y %(y B?(1?ymyy ToRcygedyP?!}yhp?w;y _Z?ueA< (GV)y%py .wO@&e0e(/%/o@p> 55@2=' above0rees,a polynomial fit doesn't :w` Bterk0 Fd2r _&_&DDB(%Be|Rc a.BBNg*@?13*sEB҃?G* \`Min߂ Cminp91cols:2\(sEolleCF?Po o -gHe/ * 2))I_!eRange.CellAddress(1, 1)).Offset(-82).Value = "d@eg" E`nd If& For rownum~1 To th&Rows O@On Err4Resume Next !JE(f 0If 3<> "" AsNZric( ) Thenomin32)5glob.Replace-/.>( cd`+ aJ/ 60<)2#~bermat8"0.00uFElse{;,D0vDA, AD GMKAG@ WithCKGMsgBox ("Please select two colu mns oata"Sub Public MinToDegSecƛ As My DimBdVar`iant,BMDo e,ca ]FWx`s I2^! Worksheets']aa > u`|m_ 0| Hai `vb 1sech k< ?Xd?,'37_o;̡=gԻ@P?}D* j >k6 0 * (* -@ floora)h b%Y;g=$E U11#Ug'gq  k___umj.. .|_BxH /OOD8I" 3  Oo"  /"hU1U.㋗%omeq$ҊgeGet3|HWlu?o o*OGD8T!43;G l(G$*i濏Z1p/A|ueVݏc`3an .Rang e(the.CellAddress(rownum, 1)).Value = deg + min / 60sec3600  %NumberFormatc@"0.00"3N2"4C3!ElseL*Offsext(0W4E`nd IfG6Npext W ith CMsgBox ("Please select three columpns")@ Sub Public MinSecToDegƥ As MycDimVariant,IDoe,c  If@" #s3 Th en43 WorksheetsGA G1Ã@J > 1glob.ReplaceLAY˄ď-0"区A@{ FM f.H3@i R`i/@`F ;oIRo wsH8On Error Respume g=GBM<@> "" AgsA@yeric()pH  2$Y!wa3 # +l'A <]?ci`floor  ,] c I !ߠpe ߏo?=Kk!3?o2gC _CAt=tttt Private Function z2p(By! zq)q P@6r;P_o * (1 - (Bz`T_oP)) ^G/R_d5)Cq~ p2z P blP u` ) PU   E@ 2=P0 989.10 Exp(-7588ooFdo^p2d 1~0 3 O A v`-C Log(2/ d&dPP"p 10ă#,deg2i0Abs@(Atn(2 T`an(pi/ 180,*qpi 0ew 0vP2i -I g! z i20t incl  @ 0.5i )o  < e-O $$r2)R X *'0nvert cut-off rigidi`ty to`s latitudt=`45 'initial gup ' fipQroot wpwton's methodS219RcEs\d2] q(- RcQ< KZero Exit ")1e0 -43h0771p2P4352h26753003H328e40@010993e550703iN6g04J F0 = 14.792 1-0.066h799\2\X035714.3.00280052,f420439R0f540h127hf66905W3UdRdDeg"(E1 + F1 * glo@b.MM0)(E22 * bd7+ _Ky (E33 ^+ (e4j 8* 4!.e55.с+(e66 RcEst - Rc) / -  Next ir2dR@ End Function PrivateF d2r(ByVal As Double)  ' convert cut-off rees latitude to rigidi tyC Abs(5@)CeB43077z= 02435y= 1 675 3328mD 001x099e001703 ̟10|04 @FFƀgA;N@0 * d@Ogd _ [eAa`e!]* ScAafb6uVSub addTitle(theRan$geTMyB, Ql"StringOWith WorksheetsF.).CellAddr`ess(1`  .numcols) If .row > 1 The`k Replace.Of@fset(- 0).oue<baElse1 ~If#ia!+)ЁflooInteg|erC B&+.@Round(,L 0% - < 0" - 1+:Scaling+ Shielding+ Shielding+Banana+Banana+ Age/Erosion+Age+ Converters+ Converters+Settings+Settings+About...+About+' Delete the menu if it already exists  $%B@ Add the menu  $!B@ Add the menu items  $%!$$C@$$C@$$C@$$C@$$C@$$C@-C@$$C@ramqo`.tel B@ana.o.nts B@C:\.oXH.nte ,B@el(.oh.Com B@ts\.o.Int B@Fi\.o.\Co B@Fil.oXp]  !C:\ !  B@\Lek erpo]  :: !  (s\C B@iv  (olok essop.gra]' 6The CosmoCalc add-in performs the following functions:  ' :- Calculate scaling factors (Lal, Stone, Dunai, Desilets). 'i 9- Calculate topographic, snow and self-shielding factors. 'u 9- Generate banana-plots (currently only Al-Be and Ne-Be). ' 9- Calculate exposure ages, erosion rates and burial ages. ' =- Convert elevation to pressure, latitude to inclination, etc  ' 7For user instructions, please check the help buttons of '  the member functions. CosmoCalc  ! was ' .created by Pieter Vermeesch for CRONUS-EU. The ' 3latest version of the add-in can be downloaded from ' 5the CosmoCalc website, along with a set of test data:  ' $http://cosmocalc.london-geochron.com  ' #Do you want to visit that site now? '    $ H$http://cosmocalc.london-geochron.comN &B@k.o]h &CosmoCalc'! Delete the menu before closing  $%B@oh`ٶAttribute VB_Name = "Module_Main" Option Explicit@PrivaZ Pub@ Const APPNAME AHs SngCosmoCalc Zpi(DoA3.1415926535897B9[glob)MyG als Suuto_Open() '@ Cres a new menu and adds item<* Dim Cap(1 To 7  Mac '%l sh{s Workshee M]&<~xME(<~ 8X   <     "  ( (@ h p   xp]$ CosmoCalc]$-DT! @] P) Creates a new menu and adds menu items]]](]@ &CosmoCalc' ScalingB)ScalingC 2 hie\ld 3Ban1A 4B Age/Eros  5 verters A 6B Sett/@1 A 7B About...H @C_Orror ResuNex@gADelethef it aldy e0xistĉApBa rs(xlFx).As(AA).CâAdd ;A T.A 7A:=*With X(A IaL+1), OnA^c$aadc22U3344U5566"-MS!7N ŊE5:da sW!e "= NForm.ShoFwciothm e ?3`{@s` ⢿)W]U) )&-)AcVRangeqW(ByVal 1Str-0<~rQQn 0 Each In Nve]book.!_ If.!PzThen3q1"`Qq6Ifh7removeSa "e qmy!iS[uSwAp1a1b.DisplayAlpsFeA 1IrTSub  Auto_C@lose()2Dim MenuName As Str6r= "&CC" 'Delete@ the m? before c\@Resu_0Next;-Bars(xlWorksheet). s(G).1aModule_ScalingvnMyGlobals1MyNucliden'MyRangexW"   8$H <p  (@ .H 2x   .08@" HPX `x$ >0 H `x . 2   0.8hpx"  $ >(0HP      !"#$%&'()*+,-.0e23456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd/fghijklmnopqrstuvwxyz{|}~JTW<~xME( @@ @B @D @F @ ` *x iiiii@H @ @ @ @J @0 @ @2 @4 `L ,` iiiii@N @0 @ @2 @4 `P+ i)$HP () p`  P X  h   . 2  (8@ HP Xh.p"  $ @ `h     . 2H   .   B  & H X h x           ( 8 H ` x        8 P h        ( @ P h         8 P h       (@8XB > 0@P`  p   8Ph (@Xp 0H`x  8Ph (@Xp 0HXhx R((*`*pB    @ P`p <<P<<NN`B 4 8  ,X(4  B  L Lh& $ (( PpT  ((PB X \` 6 8V0    ( 8 H  X h x         !!(! 40! h!x!! !!D!" "  #0$P$B X$ L`$ L$>% @%P%`%p%.%(% %%&T& p&.&(&&B & L& LH'&' '(' (((8(TH( ( >()( )H)B P)X)`)*) d) * * (*8*H*]]] t!2$: t! t%7! Lal scaling t%7%(JkH  t!(  t%'  $  t%'  $'j j  t%7%(J0.00  t%7%(H !'j(k k d!Please select two columns of dataA@kqo]x] t!2$: t! t%7! Stone scaling t%7%(Jk  t!  t%'  $  t%'   \$'j j  t%7%(J0.00  t%7%( !'jkk 86)d!Please select two columns of dataA@Ekqo]X]p t!2$:ile t! t%7! ag Dunai scaling t%7%(JPk  t!t  t%'\  $  t%'l   \$'jrH j  t%7%(Je0.00  t%7%(ger !'jkk echd!Please select two columns of dataA@rkXqPoH]P]h t!2$:nov t! t%7! PrDesilets scaling t%7%(Jk  t!mx  t%'I  $ in'k(  t%'    \$'j j  t%7%(J0.00  t%7%(x !'jXkPkH d0!Please select two columns of dataA@kqo]0H`x] ] ] (] h]  '+$ +$+$+$(+$2+$<+$F+$P +$Z +$33333t@+fffffu@+w@+T}@+l@+؁@+33333@+33333@+33333@ +33333@ +o@+33333o@+q@+x@+fffff@+`@+fffffn@+fffffn@+fffffn@ +fffffn@ +QX@+o+`@+q= ףpX@++\e@+)f@+)f@+)f@ +)f@ +4@+{G4@+Gz8@+G@+(\oM@+HzS@+ ףp=S@+ ףp=S@+ ףp=S@ + ףp=S@ +  $ $'  $ $'  $ $'  $ $'        ' $'  'iH] 8Ph] ] ] ] X] ] ]  '+$ +$+$+$(+$2+$<+$F+$P +$ZZ +$ZJ?@+ Z,eX/A@+Dɬݷ6[(D@+1* E@+ ~bL@+ZJS㥛DQ@+ Z2%Q@+y9Ƿ2%Q@+2%Q@ +.7V2%Q@ +37Jo@+`QI'p@+6*Os@+"HP|@+.7V I@+Ԛ@+p/L@+v/L@+/L@ +5K/L@ +.G_>Y?+lo?+C3?+K*nܾ?+5"?+1M?+lj+ z!qY>+WdGP^>+Kd>+tm}rMk>+NXk3q>+ 0pq>+0pq>+0pq> + V0pq> +bX9?+YE333333?+OV-?+,-?+S} B`"?+YM+f++ެ + +@  $ $'U  $ $'  $ $'  $ $'Dd  $ $'  $ $'   $       'P @  $' \!  \!   ' $ $@$ $@ $@ $@ ' $' \!  \!   '  'iHX -A] 0 H ` x       D 8 P h    'eng{Gz?' c@'q= ףp?'MbXYO@'-?'3@'Q@' Q @' fffffO@'1`@'Dd$@  ''      $   '  Z   $   '      $   '  Z   $   '   $ \!  $ \!  '   $ \!  $ \!  '  'i8 ]      8 me'$@'' * several calculations blow up when Rc1 = 0 \!      $('  \!     $*'" \! \!      $,'$  " $ '& &'iP E scale the spallogenic production rate P1 at cutoff rigidity Rc1 andE atmospheric depth x1 to cutoff rigidity Rc2 and atmospheric depth x2]hm scale P1 to sea level at Rc1:  $@ $8'.  $@  .$'0 scale P1sea to Rc2:̌$@'lS㥛?'2 0   2$    2$ '4 scale P2sea to depth2:  $@ $8'6 4$@   6$'(iV calculate the attenuation length between depth x1 and depth x2 for cutoff rigidity Rcon/ using equation 10 of Desilets and Zreda (2003)1 if (x1==x2) x2 = x1-0.1; end % otherwise L = NaN]0H`x m t Mm?'`̯?'Ů?'28c>':R->'5>' Ĭ%>>'<we>'>"!='@i?='B5z_M#d='DTW;L_ ='F e_ѭׄ?'`oB!?'@ŊL?'2׵>':gW6]>'kj>>' LE>'<~T >'> g='@g='Ba"`='D/՜cN='Fk. Desilet's equation blows up for very small Rc L 'Lkx otherwise term1 = term2 $@'5 just calculate the attenuation length near sea levelk 1I `  L 2$  ? :  L  L    < > L @ L   ? B D L F L   'bY 1I `  L 2$  ? :  L  L    < > L @ L   ? B D L F L   '      '8ni F scale the fast muogenic production rate P1 at cutoff rigidity Rc1 andE atmospheric depth x1 to cutoff rigidity Rc2 and atmospheric depth x2]0H`xt(\k@'Hd7A`!@'7o+V?'%:?' H        'J  $@  J$'0 scale P1sea to Rc2:zGAC@'{Gz?'2i 0   2$    2$ '4 scale P2sea to depth2: H        'Lޓ 4$@   L$'*iF scale the slow muogenic production rate P1 at cutoff rigidity Rc1 andE atmospheric depth x1 to cutoff rigidity Rc2 and atmospheric depth x2]0H`xq= ףp @  'N  $@  N$'0 scale P1sea to Rc2:zGAC@'{Gz?'2 0   2$    2$ '4 scale P2sea to depth2:8 if (x2==1033.2) x2 = 1033.1; end % otherwise Lsp2 = NaNq= ףp @  'P 4$@   P$',i]  $ d  $$   $$ $  $$   $$ $$   $ $  'yk iAttribute VB_Name = "Module_Scaling" Public Sub Lal\(theRange As My)  Dim la titud:Va riant8el$ev>onvDo^erowP With Workshee4ts{.vIf .numcols2 ThennF%.[DCellAddress(1, 2)).B> 1Offset(-%1).Valu sE@End IfOFxor <][=o!gRowscOn ErrGoTo ehandler=$uI(4, 1OA#G <> "" A'sNumeric()F u2) / 10l00)AS<@HFhactF,(Label:K Yc7[sd0A;FdS.Fbernmat@0"0.00@c,Xn Y0RED IResc@C 0A NextĖ ElsAMsgBox ("Please s9ct two humns of data"E a!t !J Stone, nuclA~MyN ided @<_Ĕ_ _._)c_.TB&~  CpurfO2A b#̄ CIeJ9Kmr #uaBBBBBBDunaiBBBdep`-inc! ge_CC`1!P_C_C /)//+C|ue_ yc(C C= C,C %OGC(jOէC+J@% AUC $1CCCCCCCesiHletCBy` year!Integer,ATˇOEOEOE Rc2AD DDCʒDDʏ+DʁDsDDob@///*Ao=Dq'pӳBCc(pC = O= 14 .cH2@z 0 Then H/SO0Resume Label End If Next ! Else*MsgBox ("Please select two columns of data")64With Sub Private FunctionWlFact(ByVal mylAs Double, 7 ) 9Dim a1i , a*2 3 4 drQH1, 2.L`at(10V2uV3V4Q9@FitudeAbs(J]B))GZ2132U4354U6576U8798cAO= 9D+a1(1 330.7B,337.9,382.1B-469.3-`525.6C.71.563.4F B//C0h#<255&2(I25'2(/7IC/94&2($052(88 2(021.86JKhR98.4*R311.3C1032.5B97.7.3C142f170#317773(KKh f00]f40`KE404.8G"47.4d08.8R4c0076.1b078.9#4CKBK'ChD1i@winterp(e},ࣚt1}= 238 3`6 ^4#+*H @ )^ 2 ߠ` -$=᜹La" /$%pStoneǃpAure nuclMyN ide͑}d2p5 M2, MlhMloh@n[#6oc ohPohoh5esM  kat& ;a"Tk;kGkRGk:k VkW51X1F34.369k40.3$15G1(G2.09fH1DG6.773 @n07uG1S m8c  IGL t l 9gEla75 l3R0O89t2 512.685SDm649.13etmb8d456cm8y192 ^_^k$dn-и8336nb980eo`10624 3Sa2055Gq{a6083ca997.`20706udpoo|$$q007425qt94qp041175Gp"s5465#rs93rBr201ws(bF=^  J02239E5: ;R823-5v38805<50v<5& ф636@5=660F25#Xa5!Ew_s[aM0M7 M 3U4 9Mt1M <# o_Ѓ_a7_a_N` a4) a5i = interp(latitude, L@at, a5MMDdrate1a1i + a2i * Exp(-pressure / 15t0)838-41 ^ 2%* %^ 3Mlf_(1013.P25 -+)j242 nucl. F0+ (1{ ) -22g0Z2j:i j k l8MB ]]2StoneFac&t^t/ g End Function Pr ivmF Dunai(ByVal myincl As DoubldepthG(MyN@Yide)G%Dim a1G, BJCJxJyJ_B2 JCJxJyJLL2 N Nzz,N1030_ 7C`inontAbs(eķA W= 0.445X= 4p.170X33,= 62.698#-5a!R19.8E a-5.4% 3.59, 0,= 129.5%03vo7I 0cE%= i1z(^+Ê(("- x1~B1))) ^ 116>= ݱi`f88i,!>@9 9i A@99i,!@0::i AB::i,!B ;;i AD;x;i,!D<;i A<h<i,!=<i A^x=X=i,!^==i A`h>H>i,!`>>i AbX?8?i,!b??i AdH@(@i,!d@@i A8AAi,!AAi AF(BBi,!FBBi AHCBi,!HCpCi AJDCi,!JD`Di ALDDi,!LpEPEi AEEi,!`F@Fi AVFFi,!VPG0Gi AXGGi,!X@H Hi AZHHi,!Z0IIi A\IIi,!\ JJi AJxJi,!KJi ANKhKi,!NLKi APxLXLi,!PLLi ARhMHMi,!RMMi ATXN8Ni,!TNNi AHO(Oi,!OOi A8PPi,!PPi A4(QQi,!4QQi ARQi,!RpRi ASRi,!S`Si ASSi,!pTPTi ATTi,!`U@Ui AUUi,!PV0Vi AVVi,!@W Wi AWWi ,!X i  bT`XbV8O bZh b^ bbbfbj(akbnXbr bvbzb~bHbxbu'bbb8bhblbbb(bXbdbbbbHbxbiebbb8bhbbbb x.SS@WpWX Y(xZ@8A[0[`[8`Xx p]@ZX8\\H]x#($RSh]^P_@**h[KKLP))xLLhMMXN[344555p66pTTZ%X&YXh `pE&&E[x 0QRY]@]!H"^hh8H(X2(30^-- _h  O8P JJA$%`77(BBCCDDDZpZX \P\((`^`UU^PVV ,`((,NHOp''PYP8"x8#\`FFPGG@HH0II^8HY=x==h>>X??H@X0X0++P88@990::.h//X00PH1182  ;;<<P X!H (Q@.LX0XWP_m_xW  ( 0 @Ph  *     8 X p       ( H h       ( @ X p        0 P p       0 P p       0  P  p                @  `                0  P  p            0 " 8 @  P  X  x            0  P  h           ( H h      ( H h      ( H h      ( H h      ( H h      ( H h " "   " "@ "h      0 P p  "    0 8X h x  0H Pp    (H Xh p      0P Xp x" 0H`" hpx          ( 8P `p         ( 8 @ P` p       ( 8@ P X h x        @ P ` h          @P p          0  @ ` p           B  !!(!:0!p!x!" !!!!!!!!!!!!!!!"" "0"@"P"`"p""""""""""# #(#0#8#@#H#P#X#`#h#p#x############$$($8$H$X$h$p$$$$$$$$$$$%%%(%8%@%P%`%p%x%%%%%%%%%"%%% % && & & &(& 0& @&P&X&`&h&p&x&&&&&&&&&&&&"&& 'D'X'p'''''''(( (0(@(P(X("`(h(p(((((((( ((("))) )0)@)H)X)`)B h)p) x)*) )*) )** 8*,H* x*,* *,**+B ++ +(+ H+X+ x++ ++ ++ ,,8,@,B H,P, X,h, ,, ,, ,, -(- H-X-x--B -- -- -- -. (.8. X.h. ....B .. .. // 8/H/ h/x/ // ///0" 000B 0(000" 80@0$H0p0Bx000" 00 00B000B000" 01"101B81@1H1" P1X1(`11B111" 11"11B111" 22"282B@2H2P2" X2`2"h22B222" 22"22B223" 33"3@3BH3P3X3" `3h3"p33B333" 33&33B344" 44& 4H4BP4X4`4" h4p4&x44B444" 44&44B555" 5 5&(5P5BX5`5h5" p5x5&55B555" 55(56B666"  6(6(06X6B`6h6p6" x66$66B666" 66(67B77 7" (707(87`7Bh7p7x7" 77&77B777" 77&78B8 8(8" 0888 @8`8Bh8p8x8" 88 88B888" 88 89B999"  9(9 09P9BX9`9h9" p9x9 99B999" 99 99B9::" :: :@:BH:P:X:" `:h: p::B:::" :: ::B:::" ;; ;0;B8;@;H;" P;X; `;;B;;;" ;;";;B;;;" ;<"<0<B8<@<H<" P<X<"`<<B<<<" <<"<<B<<<" =="=8=B@=H=P=" X=`="h==B===" ==$==B==>" >>$>@>BH>P>X>" `>h>$p>>B>>>" >>$>>B>??" ??" ?H?BP?X?`?" h?p?"x??B???" ??"??B@@@" @ @"(@P@BX@`@h@" p@x@"@@B@@@" @@"@ABAAA"  A(A$0AXAB`AhApA" xAA$AABAAA" AA$ABBBB B" (B0B$8B`BBhBpBxB" BB"BBBBBB" BB$BCBC C(C" 0C8C$@ChCBpCxCC" CC$CCBCCC" CC$CDB D(D0D" 8D@D"HDpDBxDDD" DD$DDBDDD" DD$D EB(E0E8E" @EHE$PExEBEEE" EE$EEBEEE" EE&F(FB0F8F@F" HFPF$XFFBFFF" FF$FFBFFF" FG G(GB0G8G@G" HGPG XGxGBGGG" GG GGBGGG" GG GHB H(H0H" 8H@H$HHpHBxHHH" HH"HHBHHH" HH$H IB(I0I8IHI]@0X]@`X]@8]@X]@h]@X]@]@X]@]@ Y]@]@PY]@(]@Y]@X]@Y]@]@Y]@]@Z]@]@@Z]@]@pZ]@H]@Z]@x]@Z]@]@[]@]@0[]@]@`[]@8]@[]@h]@[]@]@[]@]@ \]@]@P\]@(]@\]@X]@\]@]@\]@E{2geAl/BebananaOption1Tahoma@F E{2/BNe/BeonbananaOption1Tahoma(Options"qTahomas(Cancels"qTahomas<(+[label] - S1 - N1 - N1err - S2 - N2 - N2err:Ipa N( P0HelpButtondi ,O8PlotAlNeBeBanana ,f\A]@]]@]@@]]@]@p]]@H]@]]@x]@]]@]@^]@]@0^]@]@`^]@8]@^]@h]@^]@]@^]@]@ _]@]@P_X] !' CosmoCalcVars'T'Z version 2.2']] :!'   $:! T'k   $: :B@ T  $:(kx  Aversion T$:%!J e Ad T$:version7!J'Vdetail7!J'\ zeroerosion7!J'^L_3He7!J'`L_10Be7!J'bL_14C7!J'dL_21Ne7!J'fL_26Al7!J'hL_36Cl7!J'j AlBeLogOrLin7!J'l NeBeLogOrLin7!J'nReplace7!J'p PlotEllipse7!J'r NewtonOption7!J't MetropIter7!J'v ConfiLevel7!J'xT_o7!J'zB_o7!J'|R_d7!J'~G_o7!J'P_o7!J'MM_07!J'Zero7!J'L_07!J'L_17!J'L_27!J'L_37!J'F_3He07!J'F_3He17!J'F_3He27!J'F_3He37!J'F_21Ne07!J'F_21Ne17!J'F_21Ne27!J'F_21Ne37!J'F_14C07!J'F_14C17!J'F_14C27!J'F_14C37!J'F_26Al07!J'F_26Al17!J'F_26Al27!J'F_26Al37!J'F_10Be07!J'F_10Be17!J'F_10Be27!J'F_10Be37!J'F_36Cl07!J'F_36Cl17!J'F_36Cl27!J'F_36Cl37!J'P_3He7!J'P_21Ne7!J'P_14C7!J'P_26Al7!J'P_10Be7!J'P_36Cl7!J' P_21Ne10Be7!J'scaling7!J'equation7!J'xMin7!J'xMax7!J'yMin7!J'yMax7!J'exponent7!J'rho7!J'Xsigma7!J' n_10BeCals7!J' n_26AlCals7!J' n_3HeCals7!J' n_14CCals7!J' n_36ClCals7!J' n_21NeCals7!J'tieNe2Be7!J'qk $:B@o( T$: 92versionA17(rhoA27(L_3HeA37(L_10BeA47(L_14CA57(L_21NeA67(L_26AlA77(L_36ClA87(L_0A97(L_1A107(L_2A117(L_3A127(F_3He0A137(F_3He1A147(F_3He2A157(F_3He3A167(F_21Ne0A177(F_21Ne1A187(F_21Ne2A197(F_21Ne3A207(F_14C0A217(F_14C1A227(F_14C2A237(F_14C3A247(F_26Al0A257(F_26Al1A267(F_26Al2A277(F_26Al3A287(F_10Be0A297(F_10Be1A307(F_10Be2A317(ڹF_10Be3A327(+F_36Cl0A337(F_36Cl1A347(bF_36Cl2A357(+F_36Cl3A367(ǹP_3HeA377(%P_21NeA387( +P_14CA397(`P_26AlA407(OP_10BeA417(+P_36ClA427( P_21Ne10BeA437(scalingA447(+equationA457(T_oA467(_>YB_oA477(R_dA487(G_oA497(5"P_oA507(MM_0A517(exponentA527(<sigmaA537( ZeroA547(ZxMinA557(SƹxMaxA567(+yMinA577(ZgOyMaxA587("a AlBeLogOrLinA597( NeBeLogOrLinA607( +ReplaceA617( detailA627(P zeroerosionA637(tm PlotEllipseA647( NewtonOptionA657(0p MetropIterA667( ConfiLevelA677( n_10BeCalsA687( n_26AlCalsA697( n_21NeCalsA707( n_3HeCalsA717( n_14CCalsA727( n_36ClCalsA737(tieNe2BeA747(UqH  (Ao( ] 0 H ` x ] .\ $] .   % ! Bh  \Bh ! 'LalRT A StoneRT  \ADunaiRT  \ADesilets & Zreda (2003)RT  \A $Desilets et al (2006)RT  \A$n  %  ! Bh !$: \!'   !  %7!J'`  %7!J'  %7!J'j `  j \$'P   %7(J   ' z  c 10BeRT  ! (ƹ26AlRT  ! ( 3HeRT   ! (114CRT$  ! (21NeRT  ! ! ! (d  ! (k36ClRT  ! (nXqP..\o8 " $10BeA& " $26AlA&  " $21NeA& " $3HeA& " $14CA& " $36ClA&oh ] ]8 .*$]X .,  \ %. ! *Bh \ %0 ! ,Bh !'(  (me "LalRT $LalRTal c do nothingp whenStoneRT ,A  DunaiRT *A \! ,A  Desilets & Zreda (2003)RT *A  ,A$,Desilets et al (2006)RT *A ,AE nStoneRTpr $LalRTcuto ,Ay Rc1 StoneRT a do nothing1 to cDunaiRT R *A ospher ,A2Desilets & Zreda (2003)RT *A s ,A sea lDesilets et al (2006)RT$ *A'. ,A$nDunaiRT0 $LalRTo Rc *Ǎ ,AS㥛ĹStoneRT *A 2 ,A DunaiRT do nothing Desilets & Zreda (2003)RT *A  *A $Desilets et al (2006)RT *A'( *AnDesilets & Zreda (2003)RT $LalRT dep *A cutoff ,ARconStoneRTqu *A f Desi ,Areda (DunaiRT i *A  x2 = *A d % otDesilets & Zreda (2003)RT do nothingDesilets et al (2006)RT do nothingnxDesilets et al (2006)RT $LalRT *A 8c ,AR-StoneRT *A  ,ADunaiRT *A  *A Desilets & Zreda (2003)RT do nothingDesilets et al (2006)RT do nothingnXnP $ ( \ B ( (.*.,ox \! ` j d'd ` \! j \! d$ 'kix  9z@9 9996989:9<9>9@9B9D 4GrangerRTL7A`?9F$ۗ?9H{Gzt?9Ja+ey?9L=,Ԛ?9NΈ ?9PMbp?9R{Gzt?9TL7A`?9V,C?9X^)Ǫ?9Z9\(\?9^TR'?9`?ܵ?9b{Gz?9dSpallation onlyRT9F9H9J9L9N9P9R9T9V9X9Z9\9\9^9`9b9dSchallerRTp= ף?9FT㥛 ?9H;On?9J{Gz?9L +?9N]K=?9P_vO~?9RJ4?9TL7A`?9V:M?9Xr?9Z9\(\?9^58EGr?9`?߾?9b{Gz?9dBraucherRT9z999(~k ?9F)\(?9H9J_Le?9L3ı.n?9N_vOf?9P9R"u?9TcZB?9Vǘ?9X9ZI +?9\(\?9^333333?9`9b{Gz?9dn8 494q(o   59H9ld9H9lk9Jlog9log99996909q@9Z:#@9X|=969999q0AfAhAjoH  Lal9Q@90from Kober et al. (2011, EPSL, v.302, p.163-171)10Be5$9l26Al5$9n3He5$9p21Ne5$9r14C5$9t36Cl5$9v910BeA26AlA36ClA14CA3HeA21NeAqo  333333@99xƠ>9z!N?9|9~\+-eq>97_6K>9Braucher9454A2qo  fffffr@9V9vz?9T@9R9pffffff@9qoP \10BeRTB  :H  '26AlRTI  :O  '21NeRTP  :V  '3HeRTW  :AC  '36ClRTAD  :AJ  '14CRTAK  :AQ  'nm \10BeRTB2:H !l ' 26AlRTI2:O !n ' 21NeRTP2:V !r ' 3HeRTW2:AC !p ' 36ClRTAD2:AJ !v ' 14CRTAK2:AQ !t ' nm \10BeRTD2:D !l '.26AlRTK2:K !n '.21NeRTR2:R !r '.3HeRTY2:Y !p '.36ClRTAF2:AF !v '.14CRTAM2:AM !t '.nmx8 \10BeRTE2:E !l '026AlRTL2:L !n '021NeRTS2:S !r '03HeRTZ2:Z !p '036ClRTAG2:AG !v '014CRTAN2:AN !t '0n@m8 \10BeRT ZD2:E !l '26AlRTK2:L !n 's21NeRTR2:S !r '3HeRTY2:Z !p '36ClRTAF2:AG !v '14CRTdAM2:AN !t 'nmh 'Tm T'mX 'V Vversion T$:%(Jm V'mpH 'X Xrho T$:%(Jm8 X'm 8 Z'm '\ \detail T$:%(Jm( \'Hm '^ ^ zeroerosion T$:%(Jmp ^'JmX '` `L_3He T$:%(Jssim `'xm 'b bL_10Be T$:%(Jm  b'zm p 'd dL_14C T$:%(Jdmh  d'|mP ` 'f fL_21Ne T$:%(Jm  f'~m P 'h hL_26Al T$:%(Jm  h'm @ 'j jL_36Cl T$:%(Jm`  j'mH 0 '  n_10BeCals T$:%(Jm  'lm   '  n_26AlCals T$:%(Jm  'nm  '  n_21NeCals T$:%(JsmX  'rm@  '  n_3HeCals T$:%(Jm x 'pm  '  n_36ClCals T$:%(Jm h 'vm  '  n_14CCals T$:%(JmP X! 'tm8 ! 'l l AlBeLogOrLin T$:%(Jm H" l'm " 'n n NeBeLogOrLin T$:%(Jm 8# n'm # 'p pReplace T$:%(JmH ($ p'm0 $ 'r r PlotEllipse T$:%(Jm% r'lm% 't t NewtonOption T$:%(Jm& t'm& 'v v MetropIter T$:%(Jm@& v'6m(p' 'x x ConfiLevel T$:%(Jm' x'0m`( 'z zT_o T$:%(Jm( z'VmP) '| |B_o T$:%(JmH) |'Tm0@* '~ ~R_d T$:%(Jm* ~'Zm0+ ' G_o T$:%(Jm+ 'Xm , ' P_o T$:%(JmX, 'Rm@- ' MM_0 T$:%(Jm- 'pm. ' Zero T$:%(Jmx. '6m. ' L_0 T$:%(Jmhh/ 'zmP/ ' L_1 T$:%(JmX0 'm0 ' L_2 T$:%(JmH1 'm1 ' L_3 T$:%(Jmx82 'm`2 ' P_3He T$:%(Jusim (3 'm3 ' F_3He0 T$:%(Jm4 '6m4 ' F_3He1 T$:%(Jdmp5 '8mX5 ' F_3He2 T$:%(Jm5 ':mp6 ' F_3He3 T$:%(Jm6 '<m`7 ' P_21Ne T$:%(Jmh7 'mPP8 ' F_21Ne0 T$:%(Jm8 '>m@9 ' F_21Ne1 T$:%(Jm9 '@m0: ' F_21Ne2 T$:%(Jonm`: 'BmH ; ' F_21Ne3 T$:%(Jm; 'Dm< ' P_14C T$:%(Jm< 'm= ' F_14C0 T$:%(JmXx= '^m@= ' F_14C1 T$:%(Jmh> '`m?> ' F_14C2 T$:%(Jm?X? 'bm?? ' F_14C3 T$:%(JmP?H@ 'dm8?@ ' P_26Al T$:%(Jrm>8A 'm>A ' F_26Al0 T$:%(Jinm>(B 'Fm>B ' F_26Al1 T$:%(JmH>C 'Hm0>C ' F_26Al2 T$:%(Jm=D 'Jm=D ' F_26Al3 T$:%(Jm=D 'Lm=pE ' P_36Cl T$:%(Jm@=E 'm(=`F ' F_36Cl0 T$:%(Jm<F 'Vm<PG ' F_36Cl1 T$:%(Jm<G 'Xmx<@H ' F_36Cl2 T$:%(JNim8<H 'Zm <0I ' F_36Cl3 T$:%(Jm;I '\m; J ' P_10Be T$:%(Jm;J 'mp;K ' F_10Be0 T$:%(Jm0;K 'Nm;L ' F_10Be1 T$:%(Jm:xL 'Pm:L ' F_10Be2 T$:%(Jm:hM 'Rmh:M ' F_10Be3 T$:%(Jmam(:XN 'Tm:N '  P_21Ne10Be T$:%(Jm9HO 'm9O ' scaling T$:%(Jdmx98P 'm`9P ' equation T$:%(Jem 9(Q '4m9Q ' yMax T$:%(Jm8R 'm8R ' yMin T$:%(Jm8S 'mh8S ' xMin T$:%(Jm08S 'm8pT ' xMax T$:%(Jm7T 'm7`U ' exponent T$:%(Jm7U 'mp7PV ' sigma T$:%(Jm07V 'm7@W ' tieNe2Be T$:%(Jm6W 'm66Attribute VB_Name = "MyGlobals" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |PSpacFe dCreatablPredecdlaIdCE xposeTemplateDerivCustomiz EP m_nAs BSng version rho Douq PC Boolean detailzeroÅ7L3He8L10B4# 21N 26A)P 36CAlBeLogOrLiɔLNe]Ret@@\P@PlotEllip@SNewtonOptmMetropIterSIntegeriConfiLeve9T_~BR_dnGU PMM0ZG3L4L123PRF AATAYFAaa5aU1unF @@@"xF{""`"`"FAV"v"`"`UFAUaUaUaUAH7scalingan/equaexMX[xMax_t$osieh Bith)Am_ 4=  Y7X ³L_BY~y4CEL_ u1Qʺ iZiWGXiGochgGocŇ m_R_d = .Range("h").Va`lue  mp_G_oPPG PPMM0QMM_0)Zer |K*L SL_RL1=L_1'2*233F3He QF_ TU- WXA -B -21N .BV.A.B / W/ANj/B14C]Y /@ ].G .@ ]6Al .2AVA] ..?..!0BF1!L/x/?/! //36C/" "/" P(Pv!hV7 `D+ 7 2K ?A!P*scalingh$equation(EUxMi Wax( xMaxUy WZy_m_exponxent $Qmx_rh)|sigmaBnCalsn_E_TAO^E_T4N4?4@1>4?u GD_T1,^E_StieNe2Be%/End WithIfWorksheets( currS).ActivatSub Pr cre@New(By versie As Str6) Q Hm_na meA.Visibl xlHipddenTAdP"Ron"AXA+obceL2V4`O*A54C67!Xo b 8Uk901tL_2tt"/ A11_T U3_TF_ e 9 >2y F_`M  P  ^ + <05 < ;B 3; 1 name = "F_10Be2" .Range("A32"T). 33 V3P6Cl0V4+1m+5+6+7AP_3He@8Q21N9 1$4C*40 *6Al1 * jkP_A5 lscaling lequation lT_o kB IkR_djG5 j'5Ii(MM_5hex@ponentU)5IisigmaV hZer*IgxMi635)3xMaxVmI3y9 i3y9 3AlBeLogOrJLw64Ne65Replacz6)6detaivuZ65z0@s_66PlotEllipsW7NewtonOpk68MetropIterU96I9ConfiLeve :nCals :n_27:I:n!:@4C:` :tieNe2Bi:End WithMe.verAE"e@ l r@eset ASub Publ(ic ` SLHLp(nuclNaAs Str`)Dim S Doe, LatElevNAge#qMyN`id! Set = * rngs?rQqEOn Error ResupNexpsng.P-ers( ! RV), T? !adSelect Cas:eSos BIsyLay2 ( Vp#S;y!BBh,Dun|ai6B Desilets & Zreda (2003)c1, ?  fi@ alB6ON6oOr. l00ev.perD6 Workshe0"X mySum 0F&rown21 To.Rows#'N.CellA$dd@:s(, 1)).Valu<4= z2VS5_PPgetP(N, x, Sza 6;EP%s+ 9 3E5wx3l :P!/AdX+!k۽?LIf@ glob.b ThenA1OQP *HPQEls8'OX-Q7Ifi;'o^othpj#aq">Nu o0rtAllP(oldIAeSo`.ew^&TDGI, "!"/4,(// P_r/'1+O*'onvertP(oldScaling, newX"36Cl") End Sub Private0 C As0 Str *uclZ Dim didReplaceBool ean latRngMyRangeSet = New Welev9Call,.2Propies0(Me.8A(nf), namef- >=+v3= Trulect Case  Is = "Lal" S$?~' do noth@StoneL"AOzToP(JngU4DunaidegTo|I({Desilets & Zreda (2003)^!!@al!6?!/u!FG<Q;L0 CX5UCÁ`5pToZ5A^YMU LLLbuDLE"6B]LL"B%"8LL1LhϡiToDeg_v dQIQb"$``?I80qo /O  W31o+Gs ?OLt~_NgOOwA:a *1. *G`45!3!N =1>Jc=J4C% End c.!@With bub Public Sub re`set()Ca Me*If .PC TheDsA1.detail1TruPlotEllip0w= Elsx/x%Ca%K 0((1)0.ScalinBg "LalPQ>4.23 'from Kobet al. (2011, EPSL, v.302, p.163-171D0.n loa"dibrs("", .nameZk_q!P_POD?0O _PEOD?0QMOD_ .tieNe2B20l GSLHLp("t He"G.+T2+q$0H.rh92.9Lpp*6LQ%1j:RH@Ek@IY2<:YE_@"AF7F_@MM_@Ӏv@@) @E2:E@F'L2:L@@S2:S@/jZ2:NZe@AG`8GA2ANN?A3ALatEleAßA ) Aqq}A/!}A_! "R4 B!ύ"3ofBB! " B! bL!nameew`value!m_Q0n versionO EE z 4Worksheets($).B("").= m_4/ ( 4(^  #ݙ rho Double)u @? ? 4  s SC@2 p PCBoolHeanPCPCdetails&O@+F:# #?s _H zero *B4| X:x/ x"OxLR?QL_X9 _ Q y l aߟ L   /16Lc 4;5OSge("L_qhj 4B Double  L14C = m_@ End Prope rty $ Let L21Ne(ByVal newvalue As)LD.Worksheets(m_name).Ran@ge("L_0"|).WPG)~eBg6Al!g+g gg(g g!g36C!g3 3A3A33A3n10BeCalsPhInte8gerF 5n_67F 8#:F;2@w%; *; ;e@xan≁q+;H3HX@nD_Hd+:D?`!.u_nAa <RddWD_Hd+Dc~AlBeLogOrLin_ StringXio d qs X Ne(io  ReplacϞs Boolean__T 4? 4cdc" PlotEllips__TXx? x R_NewtonOptio_=i߉  G MetIterOM ~-Gg gc B/(ConfiLeve۷Gg gT_o]@//$ /H  @b p B _@  Om_B_o End Prope rty H Get |() As Double P = mLxR_d(ByVal ne@wvalue)ym_$L Worksheets(m_name).Range("-").RK_G_o_____ __P_ /@ /////MM0_ /MM_0 00000Zer`A 0 001AL0_L0_ɦxL_0L0[n m;1HL1?(1j/L1;>1. 7aL2Y?L2?(2+2};20 7"3Y?L3?(3+3};30 7!Px3HeP_ :om_F _v_ wwF ;" b /$ <%< <" ?= mB=ĕ = @= +>Q :b/ ? O? {?Q < ?@/ P21NO@_ bgpP~_qk@&&)@/&@r @@ F"/ 3"'4_M/A_ ?A_'W'_ /=z'R_ s W _UA_ A_ [ ABo R A^ B_  B_ [ ,BB_ ] OBS TB_nB14C{T&iPPOBOBgBB' 'QR'Let F14C0(ByVal newvalue As Double) m_ =\Worksheets(m_name).Range("F_1").=  End Property  Ge)~We{BLB1#1-1g1g1(g=g!g2#g2-g2g232333333333333333P26Al3 3P_33B3m_B3_F" 4BZ P4BC_IBтB?_l B?L B܄36C߄<_P` ]P_˄!: Є /z bBoB/r ?6kB"R"? FrB _] oB_ QoB.Z lBB] oB j_oB_ oB_ [ lBB_ ] oBS T oB(oB_  oB_ [ lBB_ ] ?oBS T oBY P10Be߄b_5_5'P_qkB  )Є/ȼ'oBOr  5kB"/ I"oBFr@_TV oB_ oB''_ E##@#oB`qW _'2oB_ 1 oB_ [ lBB_oBS dB_O!oB_ rwglBB_ ] oBS dB_] P21Ne?aBB 5ts(m_name).Range("P_21Ne10Be").Value = m_PT End Property  Get J() As Double . 4$LNScaling(By newvY(Str)Zm_s(Z$Workshee1 pIoB5 n$mequationnn o o p 8EB88yMax(ImÃFm(5 43OA10in0$in*0in 0in'0 yMm_0x@ 0f /0m_[Hx@Lax ax.0|xponent0edE2%9m_v sigma9j""B"tieNe2BeJBooleanE*DEb ffff*0F57c2f256   (08@HP" X`hBpx" B" B" B"  (B08@" HPXB`hp" xB" B" B" B (0" 8@HBP .!<~+%"Kֲ)7$9*=h8+3qLiӄIi' !@' !B' !D'14CRT !' !|' !^' !`' !b' !d'36ClRT !' !'x !V' !X' !Z' !\'no j$'  !z$'  !$'  !$'  !$' o j'' initial guess (g/cm2) find root with Newton's method d   !z$   !$   !$   !$ '     !6 yk &8  !z  !z$  !  !$  !  !$  !  !$ '    '   '  'iAttribute VB_Name = "MyNuclide" " Bas0{FCFB3D2A-A0FA-1068-A738-08002B33 71B5} |GlobalSpacFalse dCreatablPredecl2aIdCExposeTemplateDerivCustomiz E P! m_nAs$ Sng L Doub P TF0 1 2 3U S/S/SSoperty Let B(ByVal newv0alue"CF) , L=F End PrJDGE)|wA$L#Cd#L@E+"L("t3Qm_L P P P m_P F0 O2 a2 C!m_F01F1!y1!+12F2223F333SC_C2 CmC_CCSC_CעCSC_?C!Pkic Sub SetqYies+JoTOn Error Resu@NextM_p%2!T ?q?3Q,Select CA`'1BIs3"26AlqPRg.Ps`\L 40FNq  5 q1X 10B?ᘕqY _ = bLPW _ W _ W _ W _ q@"3HO amb P? 5 0h      21N   J/ ' ? 7 O G _ Q 14C4C? 5 I      36CAH'  F/ ' ? 7 O G T QuZ[Scaling[SxAetSx(S6Y(-x /C0 1 2a 3 $ubivFunction g S PS S1 0 'initiguess (g/cm' fi`root with Newton's @methodsFli`1 To 10HPSest9*  0) +Ш1_{\23 QIf Abs((S - PS) pQ<Zero ThenExit For End IfxdPSdx = (m_F0 / glob.L0) * E xp(-x L+ _rr1J1r&92929939393)PSest - xPS){x + dx Next igetS Function ar range   $:%!! !  $:%!!'d if they selected entire columns 'kiAttribute VB_Name = "MyRange" Basx0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpac False dCr@eatablPredecla IdCExposeTemplateDeriv%Customiz EP m_numcols As Integer row!Long myi()Sr8ngn+shtublic Sub SetProperties(ByVal '3, Option sheetVarian t) On Error ResuNext:m_'= Appa.WorkBFuncB#stit( , ";","If IsMi@ssing(")` ThenA"m_<veSh-.@C E  nd Ifqn= 0sasB(F:).As.Count ' c the ber oflumns FOi1 To*j(i)Ac0+ 1m jiReDimmáBF3&kD#' `rersallo?!?s<Ak *!k)`~)(j:ddres5%"rx= g1eumRhC EJ`]{"oy Get O+|aZvy\oBja[cAn='= b#?@ a%onEmptyC %ow B @ SAJ = Xo]s 7)..%EG )`nells( ).@2u""La Exxit  ˑanKjYIQ#){(@AY))SA)me).m_.d x/C, i Az _ rp_ola] rt6 o)} *$t   0'alu!8B o 4o d vЀ>?!1!?3G73"SubMiv Urng?FjLast`F&xyuoj".Find(What:="* _#a2Sear@chDire:=xlviou s,OrderByQP).row' ifsusЁsel@a @tu t`J >  SlIWj?'c/040m)AL  y ent[:U c EMq  ScalingForm SettingsFormA^ShieldingForm<twoNuclideOptionForm*[ 098-B4B0-44E5-B5D5-D67E73FD7C62} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub ComboBox_Change() Sel ect CMe. IsxLal Label.Cap0tionX (deg) - .`v (m)'Stone(pre ssure@barDunai incl*depth (g/cm3esilet s & Zua p(200 FERc (GV)Det a(6I$!3End C{ ubKuserf@_initizFOn Error Resu!NextWiM@<.AddItem "ˍ?' 8(^0p(.Valuwg}.d$A10 26Ac10B\(1N3Hd6CT 4C]"H+RefEdi~t&C xAltDOKButv_ClickCDim theRA Aps MyB'old/Str, newc= 6= RCIf <> Then; @# G' c P_SLHL accord to! s fa ctorsCallConvertAllP()!8IfCS[+= New , .Prop ies(#@ a2,nu5N id֡! B% b  1C0 `0s{cqB Rp ( dE@yel BGpOs SIOl OOLM2eo`g,5? fF8 :Q0062/)?"oth0* !NyUnload Mp&ЊiHelpoG *MsgCc! QQ&pӎa rIof cellsp wo col@umns w/. "@~vbCrL6z03x(1) yPg :Px(nn)"wxx aP~y \p`@ly:o z- itude!a(p7?UP יb6magnetic in1 atmosphyc $B6/-cut-off rhigi nyR (^D0x` ,` vbIn!r , APPNAMEmr 0,7m +1s// (8`h"px "   0@P`p B I <~͈xME(SS S<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}h 0%"(` h0iPi p ,!2i ,!hi ,!i ,!xXi ,! ii ,!hii ,!`i i@i ,! iii  piii ,( iHi Pbatb8bb8x`P @xWM " (0"8 ` p "* ( 8 HXp &x*  , ( 8HXB`hpBxBBB 0   (8 @PB X`B ,B ," ,@B HPXH` 0$ ( HPXh]@]@]@8]@]@F ;, !x%'L $ !'dx 'kh' $!!' count the number of columns      $%!!  '   '2 store the ranges of all columns     $%!! 2 '2   $%%!N 2+   $'o '2m 'mp 'mX 'm@x'    $ $:%%Z!Jyd  'k m  $:%!N'mx  $ $:%%Z!N'm8`  $ $:%%Z!J'm   $ $:%%Z(Jzeroo]h*    $:%!Z%!' ) if the user selected a rectangul @P hx   ( @Phpx"   4(` h x         0 @X`h" "       (  H  h   ,    "( 0 8 "@  H X "` h   "   "        & @  H  X  x            8  "X     "       "( 0 H ` h p "x    "    "  t<~cxME0( PSPSSSStoneC@>DunaiC@>Desilets & Zreda (2003)C@>Desilets et al (2006)C@> !9Jq !@26AlC@>10BeC@>21NeC@>3HeC@>36ClC@>14CC@>10Be9JqX L!N (Jo@ 0]x] !'" !<!J'$ " $ $ (3 change P_SLHL according to the new scaling factors " $ B kx .t !!J tBh](.\ @!J \Bh <!JLal tA; <!JStoneel t \A) <!JDunaiel t \Aa <!JDesilets & Zreda (2003)e t \AC:\ <!JDesilets et al (2006)e\ t \Ael(k .t.\ A@rineo]@' +Select a range of cells, two columns wide.  '  x(1) y(1) '  : :  '  x(n) y(n) ' with x and y respectively: 'p  - latitude and elevation (Lal) 'am ! - latitude and pressure (Stone) 's 6 - magnetic inclination and atmospheric depth (Dunai) '\Co ; - cut-off rigidity and atmospheric depth (Desilets et al)  'r   A@es oX A@r LiohAttribute VB_Name = "ScalingForm" Bas0{49704C74-FF93- 7-"5-6349DF0F8DD7}{D2DE4  "   " (0H`x 8Ph(@Xp0H `p"x(0HP"X`hx$$$    "8 ` p "   " " ( 8 "P x  "   " 8P `p"0H`x 8Ph(@Xp $&t.G<~ExME( PSPSSS`%B%F%D0&x&&&pp !@LalC@>StoneC@>DunaiC@>Desilets & Zreda (2003)C@>StDesilets et al (2006)C@>q` !B6GBraucherC@>}EGrangerC@>Spallation onlyC@>SchallerC@> !49dqAAAo !J (21Ne BAop ` (2 !p(d !(d !(d !(d !(d !(d !V ( !V (ox] !!'\ !!2] .t# < !p!d !!d !!d !!d !p!dX$ !!dX$ !!dX$ !!dX$ !!J'` ` !V !V (V \10BeRT ` (l26AlRT ` (n21NeRT ` (r3HeRT ` (pam36ClRT ( ` (vnt14CRTel ` (tnank \ %  ! tBh ` !p!dX tB ` !!lBeOptionButton{,g\NeBeOptionButton{( h4OptionButton ,i4CommandButton1onT (j2LLabel17  9:cp=?@ Microsoft Forms 2.0 FormEmbedded Object9qZ[\]^_`VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} BananaForm Caption = "Banana Plots" ClientHeight dX tB ` !!dX tB ` !!dX tB \ B@kA.td \10BeRT\W ! !dX (\26AlRTm ! !dX (n21NeRT\I !!dX (s21Ne BC:\A ! !dX (e3HeRTin ! !dX (n36ClRTro ! !dX (m14CRT\C ! !dX (hnkop]`]x !!'\] .t\Co \ %  ! tBh !V do nothingyApd !!J'`   \ ` % !$:%B@\S \10BeRTro !l (l(26AlRTVI !n (n\21NeRTin !r (r3HeRT !p (p36ClRT !v (v14CRT !t (tnk !V (V \ B@A.toXH] !J'  !(J !! A o ] .t \ %  ! tBh  t%X !p(d  t%X !(d  t%X !(d  t%X !(d  t%#.00$ !(d  t% !(d.toAo0 A@ro !4 B2 A@roh A@roH88] !'" !@!J'$ " $ $ ( " $ B 6 recalculate P $LalRTLatitude (deg)  ( Elevation (m)  (StoneRTLatitude (deg)  (Pressure (mbar)  (DunaiRTInclination (deg)  ( Depth (g/cm2)  (Desilets & Zreda (2003)RTCut-off rigidity (GV)  ( Depth (g/cm2)  (Desilets et al (2006)RTCut-off rigidity (GV)  ( Depth (g/cm2)  (nAko B!J !4 B!J B2kAo BjAo`p BhAo8 BfAo  @!J ( A@rox !& !dX (F !( !dX (H !* !dX (J !, !dX (L !. !dX (N !0 !dX (P !2 !dX (R !4 !dX (T !6 !dX (> !8 !dX (@ !: !dX (B !< !dX (D !> !dX (V !@ !dX (X !B !dX (Z !D !dX (\ !F !dX (6 !H !dX (8 !J !dX (: !L !dX (< !N !dX (^ !P !dX (` !R !dX (b !T !dX (d !V !dX ( !X !dX (z !Z !dX ( !\ !dX (| !^ !dX (z !` !dX ( !b !dX ( !d !dX ( !f !dX ( !B!J (4 A@rox !j !dX (V !l !dX (T !n !dX (R !p !dX (p !r !dX ( !t !J v !$:(2d x !$:(2k o (  !(J !(R !!21Ne !(2 !!21Ne !z (2H !!21Ne !(2 !!10BeRT !l !(V !#.00$ ! (d26AlRT !n !(V !#.00$ ! (d21NeRT !r !(V !#.00$ ! (d !#.00$ !(d3HeRT !p !(V !#.00$ ! (d 36ClRT !v !(V !#.00$ ! (d14CRT !t !(V !#.00$ ! (dn !!V !(J ! !@(JAdd | ( (2 !!A op ` !zX !^ (d !X !` (d !X !b (d !X !d (d !FX !& (d !HX !( (d !JX !* (d !LX !, (d !NX !. (d !PX !0 (d !RX !2 (d !TX !4 (d !>X !6 (d !@X !8 (d !BX !: (d !DX !< (d !VX !> (d !XX !@ (d !ZX !B (d !\X !D (d !6X !F (d !8X !H (d !:X !J (d !<X !L (d !^X !N (d !`X !P (d !bX !R (d !dX !T (d !X !f (d !X !V (d !zX !X (d !X !Z (d !|X !\ (d ! !###E+0$ !V (d` !z###E+0$ !X (d !###E+0$ !Z (d !|###E+0$ !\ (dkox !VX !j (d !TX !l (d !RX !n (d !pX !p (d !X !r (do0 ] ' 'Please enter the following information:  ' ,N: TCN concentration in atoms per gram for:  ' - - SiO2 (for 10Be, 26Al, 21Ne and 14C) '  - (Fe,Mg)SiO4 (for 3He) '  - Ca (for 36Cl)   ' 6Latitude: depending on the scaling model, this equals: ' 6 - geomagnetic latitude in degrees (Lal, Stone) ' 4 - geomagnetic inclination in degrees (Dunai) ' 0 - cutoff rigidity in GV (Desilets et al)  ' 7Elevation: depending on the scaling model, this equals: '  - altitude in m (Lal) ' . - atmospheric pressure in mbar (Stone) ' < - atmospheric depth in g/cm3 (Dunai, Desilets et al)  ' 6Age: Independent age estimate for the calibration site  ' 7P: TCN production rate at SLHL, calculated by CosmoCalc ' . from N, Latitude, Elevation and Age.  ' 9CosmoCalc calculates the SLHL production rates implicitly ' 2by default, but it is also possible to define them ' >explicitly in the 'Average P at SLHL' box and clicking 'Enter' '   A@oH ] ' :CosmoCalc uses the approach of Granger and Smith (2000) to ' 7approximate the production rate function with a set of  ' 8four exponentials, governed by the following parameters:  ' 5F0(n) = relative SLHL surface production by neutrons ' IF1(m) = relative SLHL surface production by slow muons (1st exponential) ' IF2(m) = relative SLHL surface production by slow muons (2nd exponential) ' 7F3(m) = relative SLHL surface production by fast muons  ' #L0(n) = neutron attenuation length ' 7L1(m) = slow muon attenuation length (1st exponential) ' 7L2(m) = slow muon attenuation length (2nd exponential) ' %L3(m) = fast muon attenuation length  ' 1Note: no (epi)thermal neutrons are accounted for. ' -36Cl calculations may therefore be inaccurate '   A@o ]h ' 3- Sea level temperature, thermal lapse rate and the ' 1 atmospheric pressure at sea level are used to ' 1 calculate the atmospheric depths required for '  Dunai and Desilets scaling  ' ,- Magnetic field intensity is needed for the ' $ calculation of cutoff rigidities  ' -- Recommended values of the exponent used for ' 1 topographic shielding corrections are 2.3 and ' / 3.5, respectively (Staudacher et al., 1993) '   A@oh`͵Attribute VB_Name = "SettingsForm" Bas0{630F267F-1F61-4216-A133-BD7948640D1C}{CCF18692-56B3-447C-BF7B-5F2A607@AF145} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose0TemplateDerivCustomizD P Sub userf_initialize() On Error ResBuNext With Me.ComboBox1 .AddItem "Lal Stone Dunai esilets & ZMa (2003) et alB 6E End /121BraucherGrangl@iion onlySchall TY@g.equat@&K/C@ showVD`383 A@~tieNe2Be_ClickE $}.v setSLHLp("21Ne"D)addRecordButK!Preminder.VisiniSN`S.)"0qage5e(lev3PrefnumrecC`)Spin.Max + 8@` 2)enter)ozDim N As I `ZCNnucl Tab"Sp.S !ctBeB|.CapSIf (K2) T8hen 2 theRf MyB = New n` Not K< Or <;1;) _An@d (IsNric(CDblaf)) A/`߰ O ))K,!N6H)va(x > Po a=fWeE CAOI*BIs"x10B5qEn7DN26AguqL?3 N"3~H c"36C "14C(iq eGP(cylIfPl=Dt@Properds.(2@(1"),> 0dCellh(N, 1, 92z; :37Kb5w ܂Voth sE<qX3< P>avgtA=be ߟ=!3 Q=| P5@Nll+oW߿W  Vs FFGG.rub{d4te?=q QaJng22= {Ϗˏ#TbulTnT0|0,' do n@? 1KsWorkshe].c (G , N)).Dr Shift:=xlM Up Select Case nuclHIs = "10Be"dglob.n0CalH - 126A>l JJ1N=2 JJ3H$ $#6Cn3 $%14Cy4C $#E8nd IfSpinButton.Maxw BtsetSLHLp (A)l showV~ySet th@eRangeNothing "ub Private Sub _ChA (DOn Error Resume NextDim recnum As Integer=.@&DueMe.CB|ox'C3Rec(TabStrip.OedItem.Caption, @+5DyBy+ng, CC1>V9?MyBY/]ew 7E5tProperties("< <, name'N!'VT@1'C( C(ellB-(, 1)age?&b2(lat?&3[(v_F4HPFormat6), "#.00"refh$7dffESlf" ThenC &%=G/ConvertAllP( ,) 'alcuje PNi@La}mLabelQA"L`tude (deg)kc9Ele@aU (m ȇSjy> 5`Pr essur mb arDunai  "Inc?%r/`Depth (g/c m2esilets & Zreda (20031 "Cut-off rigidity (|GV}_ _ HDSU Pal2 6? t? ? ? ? 6 2Kc=1Q1q;Mڈ@;(<) ;2OUN ;9FQ-6  2O S@ etXN9\7-etRaH]lNBP ] 3 0OOK R1WhKϨ+ŨBF0!Db|l(`o11b.B2233ں   F _T  Q{0_P{ U{{ ݺ       He Dbl(Me.F3He0Box.Text) !glob1 = C12 P*2P3 P3(14C0 (( ( (QQLp26AlQ(Lp10Be 36C((4C (4C LL OLRNLMLuL L"LRKrhoH,Rho,equati on@ Comb 2.ValueCUnload MEnd Sub Private OKButton3_Click(On Error Resume NT_I'TAB*BPPMMe@RBxpone4ntLe IfC.showVarK Then8Worksh eets(name).VisiblASxlS1Elsd.?= a$Hidd3If 4ls1?4@Arecnum1= 1`Spinc>.miAGGtieNe2Be((TabStrip.SelectedItem.CapO"21N e"F Label51_WPA ~c Case "6bIsH:"A"'&Max#CCalsavgP!0Ġ@FormatIP, "#.00E'l c= j|!; dmp$.@q(D{((`? 0'$1iH8$/'$$A?9 y//An,4C 2LC#I`I9I@Kl`Dl6ScalingcaddRecordL@Addre0NderDF:Zl UcNN, 1 NYub0ds2Ysg@ CUAL0Tf+1g+2Xf+3'F!@fj bQ f_8  V !S      z`M QKFRLhb'!)P Vz  C y    ׋%`XYӏ #Hez HZ HeO 9 S? 9 9 ? 8 :0 j1,܈ٛd`rPC1VIj j##E+ʗ 10Be, "###E+0")  Me.L36ClBox.Text = Format(globl14Cn4lEnd If Sub Pr@ivate showVals3(On Error Resupme NTBoxCStrT_o=#B#BPPMM06 6expone tG .<~*xME0 (PSPSSS $(,PNZZ0Z`ZP`0"8 @P`pthickness (cm) (*oP.depth (cm) - dens"Please select at least two columnsA@kxop0]   $  $ $ $   $ $   $ $  'yk i ]x !J ' Topographic shielding:  ' --------------------------  ' 4Select a range of cells, at least two columns wide.   'T E s(1,1) d(1,1) a(1,1) e(1,1) a(1,2) e(1,2) ... a(1,N1) e(1,N1)  '!\ E s(2,1) d(2,1) a(2,1) e(2,1) a(2,2) e(2,2) ... a(2,N2) e(2,N2)  '!d E : : : : : : : :  ' E s(n,1) d(n,1) a(n,1) e(n,1) a(n,2) e(n,2) ... a(n,Nn) e(n,Nn)   ' Ewith s the strike and d the dip of the sample surface  '$: Eand a and e a series of N azimuths and elevations  'Ne E(it is not necessary for all rows to have the same number of columns)  ' !Je ' "Self shielding (spallation only):  '( $-----------------------------------  ' Select one column of cells.  'r  x(1) '#.00  :  '!  x(n)  '3He 3Where each x represents a sample thickness (in cm). ' 6Sample density and spallogenic attenuation lengths can ' #be changed in the Settings menu ...  ' !Je ' Snow shielding:  ' -----------------------  ' 4Select a range of cells, at least two columns wide.   ' E d(1,1) r(1,1) d(1,1) r(1,1) d(1,2) r(1,2) ... d(1,N1) r(1,N1)  '(d E d(2,1) r(2,1) d(2,1) r(2,1) d(2,2) r(2,2) ... d(2,N2) r(2,N2)  '(d E : : : : : : : :  '(d E d(n,1) r(n,1) d(n,1) r(n,1) d(n,2) r(n,2) ... d(n,Nn) r(n,Nn)   ' Ewith d the depth (in cm) and r the density (in g/cm3) of the snow  '(d E(it is not necessary for all rows to have the same number of columns)  'k   A@!do A@r !ozAttribute VB_Name = "ShieldingFo rm" Bas0{3C31AEF3-A8F2-4113-B014-9500FA14ADE0}{05075DA0-B5BB-48D5JB6-05578B395} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus`tomizDP Sub selfButton_Click() Label.Capti$onthness (cm)HEnd 'now"'depth% - den+@g/cm3).<..AtoposkeAip@azimelev userf_initializ"eKMe.#.ValuvSn$ARefEdit S@0cAh.Addrg eOKKwOn Error Resu@Next}DFtheRange As MySet = NewPCall.@ Properties(HJ/ęIf MThena =(edE`pGY#afX`S cIfS&ohngcUnload Mi 2'5.numcols >= 2 @b8&.Cell1F(1,'6)).row > 1?@1FOf@fset(-` 1)) fact|orm=a &@ /``oRowsC(YGoTo eZhandhlergNF.nonEmptyzC%( $I cNP / 2S0kiA - 1z%, ,+ i * 2%rho8um,=S + (1)@1`(-z / bg`.L0! i B:1JUdA0`)`S ss*%.NumberPmat"0.00P%  1OD <> 0{.Q 9*CSGMsgBox ("PleшFpect  Swo 9umns"`qx|t`y??a ==1&<_)Aa;!mg F;1.;;h;Q4;2!1H+ Qs Q1(021* z)A34- 3(PM3ϲ))( 40vOYP| ).36TQOC!7|33@39z8R1O4 ^BFc ^ ၯ00'Gi s funҐ was transad VBA from Greg Balco'0' Matlapcript skyline.m<  Const BP$QrT360"!2p piplЎ#a(horiz1 2  ' Q5Fg@MiAUdpi`(18a(.2_P`0 t (YE Ia __geA|I RJiJ' dp1p dg4#R#FL1)1#`%(%` dipP2HAT(N@RRe.Az(RRY$R22ElmAz) ReDim ElPR(nu2h + 2strike = theRange.CellValue(row, 1^dipX \For i.0 To a - 1APz(i)R3 * i:El4AzR(?@/ 360)12pi QQ(8,2(i;1j3'.Nex4t @SIf > @Uhen ' ifAo user has entered azimuths and elevations_R2(>= *i)@iA & MD8C A 0yE@.IfG 7Jlatles- (R4`(pi /Lh oriz1CAt@n(Tan(@RACos() {@a gTH/ Ab##BA/Else,l= xjA _<_@O@ƏqCAyA+ ((@-)-4-EaKExit s 688u.Qp poHelpButton_Clice1 9 1 aGÚpМies&N-_\(?is not nechary faall X`oPveap[ibR/olV)W[>pZf>ʺPgu z07f>p r only)/?a*?&P}e0gof?.oOKsg " x(1Wq0nOSSWhP eachnrep/p+t Ukn ! (in cm.)_RS#/density+sqogenYattenuCleng1can L*bet cPg@̐5Settp^s m. 0P7/(e!(now/(/(/(SS0?fi=B 'O&?`jfff~. " & vbCrLf Msg = &Pd(1,1) r426 ... >N\72ed( e2,e2,N%e':#m ened(\nen,N>n;2with d the dep(in cm) and r nsity g/cm3) ofBsnow95(it is not necessary for all rows to haveame @numberAcolumns)52E*IfÆBoJx,Inmation, APPNAME  Sub Pr@ivate  CommͨJv y;o B8 ˆI]lo^LrM(!8O~{&$xD;/ԆL_RBX&. `eIǬk 0tm Em(> Bnamewidth Excel+ VBAWin16~Win32Win64xMacVBA6#VBA7#Project1  stdole` VBAProject Officeu ThisWorkbook| _Evaluat = 2340 ClientLeft = 45 ClientTop = -2745 ClientWidth = 5895 StartUpPosition = 1 'CenterOwner TypeInfoVer = 263 End ,-./0(H  d@}z-BR KQ:Tahoma$0OKButton(OKbe"qTahoma78F4{2/BlogBloglin1Tahoma8F2gllinlloglinne Sheet1 AgeFormageButton_Click ComboBoxE;VisibleLabelE1%LabelE2&erosionButton_Clickguserform_initialize5cComboBox\AddItem  ComboBox1' ComboBox2( ComboBox3) ComboBox4*singleNRefEditValueK SelectionZAddresstwoNuclideRefEditsBoxtBoxeBox[tauBox~~forwardButton_ClickYnucl:\ MyNuclide'NeE\tkTau4 SetPropertiesSj SetScalingqi(getNNBoxoneNuclideButton_ClicktheRangebz MyRange- ageButtonњAgeCalc! erosionButton ErosionCalcJtwoNuclideButton_Click[( glob: NewtonOptiontwoNuclideCalc & MetropolisFormܶShownumcolsJ-Range  CellAddress rowOffsetrownummRnumRows errorhandlerOScaling` CellValue@ IsNumeric$*N1L^N1err <Agegs(getAgeAgeErr (getAgeErrLabela NumberFormatRErroNumber-MsgBoxRerosion (getErosion ErosionErr%  (getErosionErr"twoNuclideOptionButton_Click twoNuclideOptionFormCommandButton1_ClickCommandButton2_ClickCommandButton3_ClickFAoptS1_nucl1nucl2xoylXerrYerrpS2_N2M^N2err (getAgeErosionS(getBurialErosion O(getBurialExposureqztwoNuclideHelpButton_ClickMsgQvbCrLf vbInformationn( APPNAMEKpForwardHelpButton_ClickErosionHelpButton_Click8MSFormsC BananaFormbAlBeOptionButtony AlBeNeRefEditAlBeOptionButton_ChangexMin;xMaxyMin"yMaxNeBeOptionButton_Change9OptionButton_Click BananaOptionFormPlotAlNeBeBanana_ClickXmsgtext9 Application*ScreenUpdating!  EnableEventslogorlinu AlBeLogOrLin:PlotAlBeBananaYcNeBeOptionButton NeBeLogOrLin3PlotNeBeBananaDataPlotvtheSheetC ActiveChart a  *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.8#0#C:\Program Files\Microsoft Office\Office15\EXCEL.EXE#Microsoft Excel 15.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{341D3E2F-69D1-4BE6-BA8A-6C61819B6362}#2.0#0#C:\Users\Pieter\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  CosmoCalc.2.3xW    <~ThisWorkbook0157c2f161'ThisWorkbook; Sheet10257c2f161+ Sheet1;AgeForm0357c2f178-AgeForm0;BananaForm0457c2f17fBananaForm:H BananaOptionForm0557c2f185  BananaOptionForm`w ConverterForm0657c2f188ConverterFormWxx1(ConvertersOptionForm0757c2f18b%(ConvertersOptionFormwMetropolisForm0857c2f190MetropolisForm>Module_AgeCalc0E57c2f256Module_AgeCalc;[Pa&Module_Calibrations0G57c2f256&Module_Calibrationsue"Module_Converters0;57c2f199*"Module_ConvertersluModule_Main0<57c2f19c|Module_MainModule_Scaling0=57c2f1a1Module_Scaling WMyGlobals0>57c2f1a6MyGlobals8MyNuclide0F57c2f256_MyNuclide+P!MyRange0@57c2f1adwMyRange͈hScalingForm0A57c2f1b0ScalingFormcSettingsForm0B57c2f1b3SettingsFormEG ShieldingForm0C57c2f1b6ShieldingForm*.(twoNuclideOptionForm0D57c2f1b8(twoNuclideOptionFormc hHDeselecttickArrXYPlot tickFormulam5getTickFormulan addTickLabels E1\ZeroLE2]E3]t1*_t2+_t3,_PlotVariableErosion PlotVariableTime4PlotVariableBurialdetail2 zeroerosionm getNaddLabel EA1هEA2ڇEA3ۇTA1TA2TA3TB15TB26TB37TB48TC1ZTC2[TC3\TC4]ED1HED2IED3JED4KEe1mEe2nEE3oEE4pBA1wBA2wBA3wBB1wBB2wBB3wtimeburialTpminEXmaxE.nuclide1$ nuclide2% color2Fweight1logMinE"SLogdlogMaxE)dLogEformulaqYi`ExpK AddFormula6SeriesCollection;:Count0vmintXmaxt.logMinT1SlogMaxT)dLogT AddLabelr placementI newseriesnumApplyDataLabelstPoints DataLabel DataLabelsPositionxlLabelPositionCenterrxlLabelPositionLeft5FontU ColorIndexArr uN1label֘N2label linOrLabelmySrsKSeries]ChartsAddr ChartType? xlXYScatter) NewSeriesLocation-Where֍xlLocationAsNewSheetMAxesb xlCategoryZMaximumScaleIsAuto MinorUnitIsAutokMajorUnitIsAuto;[Crosses xlAutomatic@ReversePlotOrderT DisplayUnitNxlNonexlValue Direction&xlX2Include` xlPlusValues xlFixedValue Amounti ErrorBarsVEndStyleKxlNoCapvc seriesnumxlMediumxlThick CurrSeriesSeff1Seff2firstcolgetSeff- PlotEllipse, ErrorEllipse PlotPoint>EaeEbeTae$TbeIEerrterr N1aeN2aeaeMisfitN1beɛN2be"beMisfitN1eN2eN1predVON2predcXValuesbValuesxlCircle>xlBothsigma MinusValuesxlY/N1bar)N2bargsigmaN1VsigmaN2VrhoalphaaXxbarDybar+^sigmaXa`sigmaY^`AtnQuCosOSinplotEllipseSection&( pi^HelpButton_ClickfPC^xMinBoxxMaxBoxyMinBox yMaxBoxI EllipseButtonEErrorBarButton logOption linOption e detailOption\zeroErosionOptionesigmaBoxOKButton_Clickf ConverterFormComboBoxElevFrom<ComboBoxElevTo ComboBoxLatFromR ComboBoxLatTo|GElevationRefEditLatitudeRefEditsCancelButton_clickConvertElevButton_Click( zToPƜ( zToAntP( zToD( pToZ&( pToAntP( pToD( AntPtoZ{( AntPtoP{( AntPtoD{( dToZ( dToP( dToAntP<ConvertLatLonButton_ClickF ( degToDegMin!O( degToDegMinSecN( degToI( degToRc  ( degMinToDegG( degMinToDegMinSecTReplacef firstCelluLastCell( degMinSecToDeg( degMinSecToDegMin#( iToDegi( RcToDeglatOptionButton_Click/ ConvertersOptionFormSHelpElevButton_Click<HelpLatLonButton_Click-treplaceOptionButtonuserform_activateZs MetroCalc! ConfiLevelshtCell1 MetropIteriCell2 WorksheetsSortKey1OOrder1o xlAscending`HeaderMxlGuessY OrderCustom| MatchCase Orientationw xlTopToBottomX05minX95PMaxȲXbestCellsY05Y95EYbest Z( DeleteRangeName` ( removeSheet/RngeN WorksheetYold9XoldRLold-minXXmaxX.minYXmaxY.muK^L0^ initializeNYnewXnewLratio RangeNamerName5ActiveWorkbookNamesο sheetName6mysheetb DisplayAlertsAbout)versionvbYesNovbYesa?FollowHyperlink- NewWindow ( Auto_Closew Module_Scaling" ( LalScalingI7latitude elevation,LalFact[ ( StoneScalingapressureԄ StoneFactD ( DunaiScalingWdepthi5 inclination> DunaiFact5( DesiletScaling+year6nRc2depth2 DesiletsFactػmylatha1i=pa2ibpa3ipa4ipdrate1drate2a1k\a2l\a3m\a4n\interpp8a5ipMi?^Ml18Ml29a5o\Mdmyincl@B1\C1\x1_y1O_B2\C2\x2_y2P_z1`z2 `N1030_1^wN1030_2_wP1^depth1Rc1P2sp.P2muFPP2muSPP2^getPsp$getPmuFd getPmuSq Lsp1P1seaѨkbP2seaonLsp2getLsp^b0\b3\b4\b5\b6\b7\b8\a0j\LmuF1 LmuF2 LmuS1 LmuS2 Class1+m_name m_versionm_rho&sm_PCm_detail$ m_zeroerosionm_L3Hem_L10Bem_L14C)m_L21Ne[vm_L26Al>m_L36Cl&Um_AlBeLogOrLinJm_NeBeLogOrLinJ! m_Replace m_PlotEllipseZKm_NewtonOption m_MetropItero m_ConfiLevel0m_T_o+m_B_o m_R_dnvm_G_o;m_P_okm_MM0Ym_Zerom_L0Gm_L1Hm_L2Im_L3Jm_P3Hexm_F3He0Jm_F3He1Jm_F3He2Jm_F3He3Jm_P21Nem_F21Ne0Rm_F21Ne1Sm_F21Ne2Tm_F21Ne3Um_P14Cm_F14C0Sm_F14C1Sm_F14C2Sm_F14C3Sm_P26Alm_F26Al0%/m_F26Al1&/m_F26Al2'/m_F26Al3(/m_P10Be^m_F10Be0m_F10Be1m_F10Be2m_F10Be3m_P36Clܜm_F36Cl0m_F36Cl1m_F36Cl2m_F36Cl3 m_P21Ne10Bef m_scalingb m_equationdm_xMin߃m_xMaxm_yMin2m_yMax1 m_exponent5m_sigma m_n10BeCals m_n26AlCals  m_n36ClCals&N m_n14CCals m_n3HeCalsE m_n21NeCals m_tieNe2BeLclass_initializen currSheet versie ActiveSheet%Ni2] bWksExistsJAfterX createNewActivate|xlHiddenʪreset>setSLHLp5nuclNamerngU LatElevRangesCalRangevmySumgetPP10BezP26AlP3He2P14C$tieNe2Be=P21Ne- P21Ne10BeP36Cl ConvertAllP} oldScaling7 newScalingӊConvertPw didReplacelatRngXelevRngWlatRangeZ" elevRange=JsetSLHLf+equationF3He0!FF3He1"FF3He2#FF3He3$FF21Ne0`&F21Ne1a&F21Ne2b&F21Ne3c&F26Al0rF26Al1sF26Al2tF26Al3uF10Be0ȎF10Be1ɎF10Be2ʎF10Be3ˎF36Cl0ZF36Cl1ZF36Cl2ZF36Cl3ZF14C0OF14C1OF14C2OF14C3Oreset3reset2reset1 n10BeCals6 n26AlCalsn3HeCalsD n21NeCalsn14CCals n36ClCals+L3HeL10BeĥL14CFL21NewrL26AlZL36ClBQexponent4RecRange4recnumnewvaluem_Lm_Pm_F0im_F1jm_F2km_F3lm_S0Jm_S1Km_S2Lm_S3MgetSxaPS^PSestdPSdxdx] m_numcolsL m_numrowsm_mycols m_rngnameB m_shtnameA Substitute^ IsMissingnumareasAreasKColumnsp9 getNumRows nonEmptyColscolnumXE ColumnAddress SetCellValuevalLastRowwFindnWhatCSearchDirectionr xlPrevious  SearchOrderxlByRowsRowsUComboBox_ChangeRefEdit showVals1 showVals2 showVals3tieNe2Be_Click9addRecordButton_Click;reminder)ageBox/latBox0elevBoxPBoxrefBox numrecBoxσ SpinButtonr recnumBoxfenterRecordButton_ClickYTabStripG SelectedItem*avgPBoxGhdeleteRecordButton_Click>ShiftxlUpSpinButton_ChangeushowRecTabStrip_Change0CloseButton_ClickrwCancelButton2_ClickȌCancelButton3_ClickYComboBox1_ChangealatLabelv elevLabel|ComboBox2_ChangeaResetButton1_ClickResetButton2_ClickxResetButton3_Click VOKButton1_ClickOKButton2_Click# F26Al0Box F26Al1Box F26Al2Box F26Al3Box(V F10Be0BoxY F10Be1Boxd F10Be2Box* F10Be3Boxr F21Ne0BoxZ F21Ne1Box F21Ne2Boxs F21Ne3Box49 F36Cl0Box# F36Cl1Box F36Cl2Box F36Cl3BoxtF3He0BoxF3He1Box:F3He2BoxsF3He3Boxv9F14C0BoxfF14C1BoxEF14C2Box F14C3BoxL26AlBoxcL10BeBoxL36ClBoxL14CBoxhL0BoxBL1BoxL2BoxL3Box6RhoBox~OKButton3_ClickuToBoxdBoBox~PoBoxyMM0Box$ exponentBox2 showVarBox$xlSheetVisible xlSheetHidden4Label51addRecordButtonHelpButton1_ClickwHelpButton2_ClickHelpButton3_ClickselfButton_Click(snowButton_ClicktopoButton_ClickM topoButtonOK_ClickR topoShielding selfButton selfShielding/ snowButtonǰ snowShieldingxQs^angles͜horiz1>horiz2>horiz>strikeRdipRKenumAz0Az\AzR3vAzR2EoEl]ElRElR2;strikedipǃtopoFactXI_TopoHelpButton_Click confiLevelBox` NewtonButton1MetropolisButtonn CosmoCalcWorkbookkClass8} 2 3 w+  $' + -  %"_)+ 34h BB@`C1@sm Calc.23:= V  x@W %<9stdole>stdQaleh%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\22.tlb#OLE Automation0EOfficEOfis5EE2DF8D04C-5BFA-101B -BDE5EAAC42EProgram Files\CommonMicrosoft Shared\OFFICE15\MSO.0DLL#M 15.0 Object LibraryKMSForms>SFS"rms3@SD452EE1 -E08F0A-8-02608C4D0BB4SFM20L'B _&/;"1jIqAHq00}#:0Bq# 50 A341D3E2F-69D1-4BE6-BA8A-6C61819B636fUsers\Pieter\AppData\Local\Temp0\VBEb7.e%_ ,9Mo`dule_;фGAodu eX_>E_cOU _U_ a_ ;[!3M sq6sG&/ (G iWra7s*OB2OOP-O e u  F-G"M on7q =o28h luY  DM@ainG~Mi 26pG=A_1:7 213*S`~iTng?*_pc lpxnh:*T?*]_ dW?;MyGlobal)yG3o(M%sP(j2ol_GBMyNuclPideGN`g?܀*Ӏ/e.) *2two*݀tw@T{+߀m /рrmӀe_؟ c,=  K*rU@@@@~~~~~~~ ~~~F"~ZF1l3    !QQAAq Q  Project1 VBAProject ThisWorkbookSheet1AgeForm BananaFormBananaOptionForm ConverterFormConvertersOptionFormMetropolisFormModule1Module_AgeCalcModule_CalibrationsModule_Converters Module_MainModule_ScalingClass1 MyGlobals MyNuclideMyRange ScalingForm SettingsForm ShieldingFormtwoNuclideOptionForm CosmoCalcF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  APFC:\Windows\system32\FM20.DLLMSForms4C:\Program Files\Microsoft Office\Office15\EXCEL.EXEExcel qp0FC:\Windows\system32\stdole2.tlbstdole A q L-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLLOffice q  1 .E .`M  />4iKlacb2C:\Users\Pieter\AppData\Local\Temp\VBE\MSForms.exd  getAge getAgeErr getErosion getErosionErr getBurial getBurialErr getBurialErr2getNgetBurialErosiongetBurialExposure getAgeErosiondNdTaudNdEdNdt getJacobianfBeDfBeDefBtDfBtDt loadCalibrationsaddentryJrU@@ CosmoCalc.2.3NnuclENerrtEerrterrburialTN1N1errN2N2errnuclide1nuclide2TauTauErroptaBcdxfo@BCompObjCaVBFrame21Tahoma(Scalea|1Tahoma(Cancel"qTahoma<F{2glEllipsessymbolss1Tahoma(Symbolsq|1Tahomas8F{2mbBarssymbols1TahomaH, 1TahomaH, 1TahomaH, 1TahomaH,AgeForm"p888fKo!8i24%pFz?a_88CompObjGU,aVBFrame.+ConvertersOptionForm*X 80 8f3+;>fUo$'Qi26*3i*WJO_8_8i27&(0i*WJO_88i84),i*WJO88CompObjOsxN<f`      !"#$%&'()*+,-./0123456789:;<>?@ABCDEFGHIJLMPRSTVWXZ\]^_abcdefhjklmnopqrtuvwxyz{|~ Ivr #$%'()*+,-</0123456789:;&=>?@ABCDEFGHIJKLMO^QRSTUVWXYZ[\]N_`abcdefghijklmnopqsotuvwxyz{|}~ = 4560 ClientLeft = 45 ClientTop = -540 ClientWidth = 6120 StartUpPosition = 1 'CenterOwner TypeInfoVer = 152 End (H  @}R KQ:Tahomao$0OKbuttonf(OK"qTahomalF82b2add the converted data to the right of the original datareplace 1TahomaPFywksheetcolrowAgeLatElevReff(H  {@3}C3R KQ:Tahoma<K EFҋB `EF0e( #9MultiPage1 T pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19q18   1Single nucliderm Two nuclides Forward modelermTab3Tab4Tab51Tahomab5(H  {}1 ¯NCh0e$#Page1on5,,!ageErosionButtono+-[i90.6 n``88CompObjYnfslo/1iXCompObjgnfo24CompObj}nflo57CompObjpj$T!Page2onj  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qH, {p(atoms/g:0(Nesp(OK"qTahoma(Closea"qTahoma(Help"qTahomaoWY5XCompObjZ>aVBFrame@.MetropolisForm]0 8P[8(H  v9}0/ ¯NCh <$Z#Frame1 ^$nBoxE(e2(Label13+*E(f2$Label14E, n0forwardButtona,o4CommandButton3aa$0v0ForwardHelpButtontt+*  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(Help"qTahoma6x(Optionsx"qTahomasx(OKho"qTahomasxH$s"1Tahomasx(Cancelsx"qTahomasx AEH, 26Al1Tahomasx AEH, 10Be1Tahomasx( Nuclide 1:oqp( Nuclide 2:oDp,AEH,]Burial-Erosiona1Tahomasx4(!S1 - N1 - N1err - S2 - N2 - N2err!p(H  {q}0/ ¯NCh  00twoNuclideHelpButton'4)4twoNuclideOptionButtonv,60twoNuclideButton094twoNuclideRefEditutt",H4CommandButton2di!( L<ComboBox1tto ( M<ComboBox2tto (N2,Label4sx{ (O2,Label5sx ( tH ComboBox4tto({2D Label17x{  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(Help"qTahomab5H$"2b2replace the original datareplace 1Tahoma(Cancel"qTahoma 0newColOptionButton0lreplaceOptionButton, 4CommandButton1ut; f   Microsoft Forms 2.0 FormEmbedded Object9qs"1Tahomab5(OKho"qTahomab5@F ! {0ErosionageOrErosion1Tahoma<F ! {1osAgesageOrErosion1Tahoma(Cancel"qTahoma AEH, 26Al1Tahoma(Nuclide:qp ( Erosion rate:dqp AEH, 0es1Tahoma(cm/kaaq0( S - N - Nerr"p(H  zA}21@ ¯NCh  ( 00ErosionHelpButton4%,84singleNRefEditto",D0oneNuclideButton, E\erosionButtonton0( FXageButtontto,G4CommandButton1on$J<ComboBox  (K2(Label3ox (w20LabelE1x ( x< ComboBoxEtto (y2( LabelE2x & (z2, Label16x{  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH, {0H, {0H, {0(Nuclide: {p AEH, 10Be1Tahomae: ( Exposure age:a Op ( Erosion rate:a Np( Burial age:e "p(kaho{0(cm/kaae:{0(ka/k{0(Scaling: OpH, {0<H r}uInput parameters $ [$tBox  \$eBox ; $]$tauBoxg: ](V2(Label6g:( U<ComboBox3l (_20Label7g:, (`20Label8g:,; (a2,Label9g:,](b2$Label10: (c2( Label11:; (d2$ Label12:](p2( Label15:, q$ sBox   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} AgeForm Caption = "Age/Erosion rate calculator" ClientHeight = 4020 ClientLeft = 45 ClientTop  1Tahoma(X-axis qTahoma(Y-axis qTahoma(Mino"qTahoma(Maxo"qTahoma4F {2mbShow detail1TahomaH,"qTahoma$(confidence level: qTahoma(smb 5Symbols4F {2mbZero erosion1Tahoma( TlogOptionoI( TlinOptionoI(.24Label30nI,44CommandButton1a, 5XEllipseButton1a"(624Label35n#,7TErrorBarButtona"$S0xMinBoxn"$T0 yMinBoxnx"$U0 yMaxBoxnxD$V0 xMaxBoxnD(Z24 Label39n"([24 Label40n(\20Label41n(]20Label42n( _PdetailOption'$a0sigmaBox#g (b2@Label43x' (c24Label44x( 0dPzeroErosionOption!  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} BananaOptionForm Caption = "Banana Options" ClientHeight = 2940 ClientLeft = 45 ClientTop = -975 ClientWidth = 6600 StartUpPosition = 1 'CenterOwner TypeInfoVer = 239 End (H  >@}+*kR KQ 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Conve Microsoft Forms 2.0 FormEmbedded Object9q = 45 ClientTop =VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} MetropolisForm Caption = "Progress" ClientHeight = 1140 ClientLeft = 45 ClientTop = -540 ClientWidth = 4320 StartUpPosition = 1 'CenterOwner TypeInfoVer = 16 End p8ScalingForm:ifP[8`8fX/oeg[CompObjhhaConverterForm?Fp8 8foETi11IpFz?ap8p8(H  %@`}"R KQ:Tahoma<K EFҋB `EF ( 0HelpButtonot(Help"qTahomaH$1Tahoma(OKho"qTahoma(Cancel"qTahomaAH,1Tahoma (Scaling model:a{qTahoma(     * !"#$%&'()+,-./012345689:cq=?p@ABKDEFGHIJ<LMNOPQRSTUVWXYZ[\]^_`abdefghijklmnztu|{}~foHKi13MRi*WJOp8p8i14JLOi*WJOp8p8CompObjsx0foNP+Nuclide: {pAH, qTahomae: {p"$4RefEdit:{"$0OKbutton{,4CommandButton1a$4ComboBox ( 2<Label1oxE(#2(Label3oxE( $4ComboBox1tto{ (%2Label3ox{ 8:Tahoma<K EFҋB `EF0( #9MultiPage1   pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19qp1( ElevationLatitudeTab3Tab41Tahomab4CompObjnf"oQSCompObjn Microsoft Forms 2.0 FormEmbedded Object9q VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ScalingForm Caption = "Scaling Factors" ClientHeight = 3300 ClientLeft = 45 ClientTop = -105 ClientWidth = 5055 StartUpPosition = 1 'CenterOwner TypeInfoVer = 96 End (H  @}I+R KQ(H  >}( ¯NCh0he   #Tab15, !Tab2j  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(To:e {@Tahomas:(Convert:{@Tahomat:(Help"qTahomat:(Convert:"qTahomat:(Cancelt:"qTahomat:H$!1Tahomat:(Options:"qTahomas:,AEH, !x deg y.y minn1Tahomas:$AEH,!x.x deg:1Tahomag:(H  56}'R ¯NCh  (28Label3g:O; (2<Label4g:O,#0HelpLatLonButton0$4ConvertLatLonButtonm{,'4CommandButton1ut',+4LatitudeRefEditt{{,04latOptionButtont, 4HComboBoxLatToont{,5@ComboBoxLatFromt{   i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(To:o{@Tahomab4(Convert:{@Tahomat:(Convert:"qTahomat:(Help"qTahomat:(Options:"qTahomas:(Cancels:"qTahomas:H$!1Tahomas:,AEH, !Elevation (m)a1Tahomas:@AEH,#!Pressure (mbar) standard atmosphere1Tahomas:(H  3)}(c ¯NCh  (28Label2s:O; (2<Label1s:O0 4ConvertElevButtonrm{,!0HelpElevButtonto( %4OptionButton( &4CancelButton',*4ElevationRefEdit{{,1HComboBoxElevFrom{ ,3\ComboBoxElevToom{   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ConverterForm Caption = "Converters" ClientHeight fEo\bMPi04` n``0 80 8fJ= 6360 ClientLeft = 45 ClientTop = -105 ClientWidth = 10680 StartUpPosition = 1 'CenterOwner TypeInfoVer = 1187 End (H  @}!R KQ:Tahoma<K EFҋB `EF` 4OKho,OKe"qTahoma5(Help"qTahoma5H$o_aI0CompObjGpCompObj^cQaVBFrameS)fCoF(CompObjUaVBFrameW)bedded ObjectForms.Frame.19q"qTahoma<N   }0%oR KQ:Tahoma8ho0 20LabelProgressaQ 4("Cranking through the iterations...1Tahomaaj(2PLabel1onj 1Tahoma5HF  0geSelf shieldingashieldingldi1TahomaPF 1geTopographic shielding)shieldingic 1Tahoma(Cancel"qTahomaHF  0geSnow shieldinglshieldingldi1Tahoma {qTahoma,0TopoHelpButtona$4VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ConvertersOptionForm Caption = "Options" ClientHeight = 2700 ClientLeft = 45 ClientTop = -540 ClientWidth = 3600 StartUpPosition = 1 'CenterOwner TypeInfoVer = 19 End (H  @ }R KQ:Tahoma`o, #FrameProgress n``Microsoft Forms 2.0 FrameEmVBFramej-SettingsFormk`8E8foojRefEdit( dselfButtonttg E( ltopoButtonttE, 4CommandButton1a1( dsnowButtonto'E( 2(Labelit{  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} ShieldingForm Caption = "Shielding" ClientHeight = 3000 ClientLeft = 45 ClientTop = -105 ClientWidth = 4920 StartUpPosition = 1 'CenterOwner TypeInfoVer = 26 End (H  N@}R KQ:Tahomal, 0confiLevelBoxH,41Tahomat4("Confidence level (Metropolis only)(mg "qTahomati218 npFz?a`88fxompti220 s~i*WJO`8p8ry i221 oqxi*WJOp88i293 rui*WJO88CompObjrsxq<      !#$%&'()*-/0124;6789:<=?ABCDFOHKLNPRTUVWYZb\]^_`acdefgiklmnp;suvwyz{}Root Entry F0:"Workbook;_VBA_PROJECT_CUR"DU8`8VBA8p88:Tahoma0e( #9MultiPage1 % pFz?aMicrosoft Forms 2.0 FormEmbedded ObjectForms.MultiPage.19q1H   GW)Calibration sitesProduction mechanismsi MiscellaneouschaTab3Tab4Tab51Tahomab5fotv~CompObj|nf,owzi225  n``p8p8i238 y{ n``p8p8i273 | n``p88CompObjnf0o}CompObjn(H  }GW) ¯NCh0e$#Page1aox5,$!Page2aoxj$%!Page3aoxj  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19qH, qTahoma7xH, qTahoma7xH, qTahoma7x,(Sea level temperature (degC)^{1Tahoma7x,(Thermal lapse rate (mK/m)1z1Tahoma7x8((Atmospheric pressure at sea level (mbar)I{1Tahoma7x<()Magnetic field intensity relative to 1945{1Tahoma7xH, qTahoma7x<(,Exponent of topographic shielding correction{1Tahoma7xH, qTahoma7x(OKho"qTahoma7x(Closea7x"qTahoma7x(Help"qTahoma7x(Reseta7x"qTahoma7x@F{0hoShow hidden worksheet)1Tahoma(H  7}GF% ¯NCh $&0ToBoxa$'0PoBoxa; $(0BoBoxa ()2HToTaba(*2HBoTaba (+2TpoTaba(,2XLabel441$-0MM0Box4](/2X Label45S( 00 exponentBox( 10OKButton3oxI, 24 CancelButton3auI( 30 HelpButton3n'I( 44 ResetButton3!I( 7\showVarBoxn3p2 i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(Presetsx {qTahomasx$AEH,: selectsx1Tahomasx(OKbe"qTahoma4x(Cancel4x"qTahoma4x(Help"qTahoma4x(Reseta4x"qTahoma4x$f3o,CompObj*pfopCompObjpfoCompObjpCompObjl<aVBFrame>*ShieldingFormE8l8(Rock density (g/cm3)]{qTahoma4xH,41Tahoma4x(H  g}GF% ¯NCh  $#Frame14xS(24Label35x &'( @ComboBox2o5%v$#Frame25x$#Frame35x4( 0OKbutton2ok, 4CancelButton2ak( 0HelpButton2n+k( 4ResetButton25%k(2@ Label17x4'$0 RhoBox7x;u i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q(Help"qTahomab5 AEH,Lalo1Tahomab5(OKho"qTahomab5 (Scaling model:a]qTahomab5(Resetab5"qTahomab5(Closeab5"qTahomab5100910Be26Al3Hel21Ne36Cl14ClTab1Tab2Tab5Tab6Tab3Tab41Tahomab4(N (a/g)4E{qTahoma)4H,1Tahoma)4H,1Tahoma)4 (Latitude (deg)aE{qTahoma)4H,1Tahoma)4H,1Tahoma)4H,q1Tahoma)4 ( Elevation (m)aq}qTahoma)4(Age (yr)q{qTahomar)( P (a/g/yr) E{qTahomar)H,#1Tahomar)(/1Tahomaox(Record qTahomaH,1Tahoma( Referenceoq{qTahoma(AddoOqTahoma(DeleteNqTahomaH,q1Tahoma$(Average P at SLHLc qTahomaH,#1Tahoma<)&Confirm your entry by clicking "Enter"5Tahoma(EnteraOqTahoma8F 0hoOptionButton20"8F; a1hoTie 21Ne to 10Be0"H,q1Tahoma( 21Ne/10BeoqTahoma(H  }F& ¯NCh "( 0HelpButton1M.!( q<ComboBox1n1? I( 0OKButton1n1 !( 2<Label1: ( "4ResetButton1'!( $4CloseButton1!!$wTabStrip(24Label46p x0NBoxE$y0 latBox6p> D(z2< latLabelk${0 elevBoxl'D$|0 ageBoxxl /D }0 PBox6E, ~2<elevLabelon1'(24Label20l!/(28Label26l5( SpinButtonn1EE( 0recnumBoxnn1 E(20Label47l (24Label48l $0refBox8l> (28Label49lg ,0addRecordButtonE04deleteRecordButtonB$0avgPBoxl? (2@Label50l? ( 0numrecBoxordE(0\reminder04enterRecordButtonnB, HOptionButton2ttop21(1HtieNe2Be!/S( 0 P21Ne10Beton!/(28!Label51e!/  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q(14CeqTahoma1e(26AlqTahoma1eH,41Tahoma1eH,41Tahoma1e(10BeqTahoma1e(36ClqTahoma1eH,41Tahoma1eH,41Tahoma1eHH  }EDecay constants (yr-1)R KQ:TahomaT(20Label27e(20Label21e$0L26AlBoxP$0L10BeBoxEP(20Label22x (20Label28x$0L36ClBoxP$0L14CBoxx&P  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q      !"#$%&'()+-./012456789:=?@ABDEOGHIJKLMNPQRSTVXYZ[]g_`abcdefhijklnpqrsuvwxyz{|}~(21NeqTahomasx(F0 (n)sx}qTahomasxH,41Tahomasx(26AlqTahomasx(10BeqTahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41Tahomasx(F1 (m)sx}qTahomasx(F2 (m)sx}qTahomasx(F3 (m)sxqTahomasxH,41Tahomasx(3HeoqTahomasx(36ClqTahomasxH,41TahomasxH,41Tahomasx(14CoqTahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41TahomasxH,41Tahomasx(H  >}o2"(20Label36x!(24Label37x( 0F21Ne0Boxo##(20Label38x(20Label39x: ( 0F10Be0Boxo: #( 0F10Be1Boxo: F( 0F10Be2Boxo: h ( 0F10Be3Boxo: ( 0 F26Al2Boxog ( 0 F26Al3Boxo( 0 F26Al0Boxo"( 0 F26Al1BoxoE$24 P1be (24Label19x9 (24Label40x[$0F3He0Box*"(20Label41x*(20Label42x( 0F36Cl0Boxo"$0F14C0Box"(20Label43x$0F14C3Box$0F14C1BoxF$0F14C2Boxh ( 0F36Cl2Boxog ( 0F36Cl3Boxo( 0F36Cl1BoxoE$ 0F3He3Box*$ 0F3He1Box*F$ 0F3He2Box*h ( 0F21Ne2Boxo#g ( 0 F21Ne3Boxo#( 0!F21Ne1Boxo#E  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH,41TahomaoxH,41TahomaoxH,41TahomaoxH,41Tahomaox(L0 (n)ox1Tahomaox(L1 (m)ox1Tahomaox(L2 (m)ox1Tahomaox(L3 (m)ox1TahomaoxLH  }]Attenuation length (g/cm2)R KQ:TahomaT$0L0BoxaoxqO$0L3Boxaoxq$0L1Boxaoxqs$0L2Boxaoxq (24Label31x{#(24Label32x{F(24Label33x{g (24Label34x{   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} SettingsForm Caption = "Settings" ClientHeight twoNuclideOptionForm*l88f\o^CompObjma(%ge{1Tahomaox(OK"qTahoma(Cancel"qTahoma (Solution method:qTahoma@F V 2hoMetropolisosolmetol1Tahoma<F 2hoNewtonsssolmetss1Tahomaa(2PLabel2(20Label3u$0OKbuttonEg ,@4CommandButton1ag (H2<Label36n,I\MetropolisButton( JXNewtonButtonO  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} twoNuVBFrameo/PROJECTwm dt8PROJECT\PROJECTlkclideOptionForm Caption = "Options" ClientHeight = 2560 ClientLeft = 45 ClientTop = -105 ClientWidth = 4440 StartUpPosition = 1 'CenterOwner TypeInfoVer = 280 End ThisWorkbookThisWorkbookSheet1Sheet1AgeFormAgeFormBananaFormBananaFormBananaOptionFormBananaOptionFormConverterFormConverterFormConvertersOptionFormConvertersOptionFormMetropolisFormMetropolisFormModule_AgeCalcModule_AgeCalcModule_CalibrationsModule_CalibrationsModule_ConvertersModule_ConvertersModule_MainModule_MainModule_ScalingModule_ScalingMyGlobalsMyGlobalsMyNuclideMyNuclideMyRangeMyRangeScalingFormScalingFormSettingsFormSettingsFormShieldingFormShieldingFormtwoNuclideOptionFormtwoNuclideOptionFormID="{CD6C7E3C-3901-456E-BDD4-AEAAA41FF884}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 BaseClass=AgeForm BaseClass=BananaForm BaseClass=BananaOptionForm BaseClass=ConverterForm BaseClass=ConvertersOptionForm BaseClass=MetropolisForm Module=Module_AgeCalc Module=Module_Calibrations Module=Module_Converters Module=Module_Main Module=Module_Scaling Class=MyGlobals Class=MyNuclide Class=MyRange BaseClass=ScalingForm BaseClass=SettingsForm BaseClass=ShieldingForm BaseClass=twoNuclideOptionForm HelpFile="" Name="CosmoCalc" HelpContextID="0" Description="CosmoCalc.2.3" VersionCompatible32="393222000" CMG="5B5970DFCFE3CFE3CFE3CFE3" DPB="B6B49D84A384FF85FF85FF" GC="11133A3F3B3F3BC0" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C AgeForm=0, 0, 0, 0, C, 25, 25, 618, 507, C BananaForm=0, 0, 0, 0, C, 50, 50, 643, 532, C BananaOptionForm=0, 0, 0, 0, C, 75, 75, 668, 557, C ConverterForm=0, 0, 0, 0, C, 100, 100, 693, 582, C ConvertersOptionForm=0, 0, 0, 0, C, 125, 125, 718, 607, C MetropolisForm=0, 0, 0, 0, C, 150, 150, 743, 632, C Module_AgeCalc=0, 0, 0, 0, C Module_Calibrations=0, 0, 0, 0, C Module_Converters=0, 0, 0, 0, C Module_Main=0, 0, 0, 0, C Module_Scaling=0, 0, 0, 0, C MyGlobals=0, 0, 0, 0, C MyNuclide=0, 0, 0, 0, C MyRange=0, 0, 0, 0, C ScalingForm=0, 0, 0, 0, C, 175, 175, 768, 657, C SettingsForm=0, 0, 0, 0, C, 200, 200, 793, 682, C ShieldingForm=0, 0, 0, 0, C, 225, 225, 818, 707, C twoNuclideOptionForm=0, 0, 0, 0, C, 0, 0, 593, 482, C "EFOh+'0@HXh PieterPieterMicrosoft Excel@!^8@}8SummaryInformation(DocumentSummaryInformation8dCompObjk՜.+,D՜.+, PXd lt|  Sheet1  Worksheets FMicrosoft Excel 2003 WorksheetBiff8Excel.Sheet.89q\(@HP CosmoCalc 2.3