diff --git a/fix/Breadboard/2.5km_climo_snoden_fall-SON.gfs.3072.1536.grib2 b/fix/Breadboard/2.5km_climo_snoden_fall-SON.gfs.3072.1536.grib2
new file mode 100644
index 000000000..7024f3f71
Binary files /dev/null and b/fix/Breadboard/2.5km_climo_snoden_fall-SON.gfs.3072.1536.grib2 differ
diff --git a/fix/Breadboard/2.5km_climo_snoden_fall-SON.grb b/fix/Breadboard/2.5km_climo_snoden_fall-SON.grb
new file mode 100644
index 000000000..f0c5d27ce
Binary files /dev/null and b/fix/Breadboard/2.5km_climo_snoden_fall-SON.grb differ
diff --git a/fix/Breadboard/2.5km_climo_snoden_spring-MAM.gfs.3072.1536.grib2 b/fix/Breadboard/2.5km_climo_snoden_spring-MAM.gfs.3072.1536.grib2
new file mode 100644
index 000000000..3d862701c
Binary files /dev/null and b/fix/Breadboard/2.5km_climo_snoden_spring-MAM.gfs.3072.1536.grib2 differ
diff --git a/fix/Breadboard/2.5km_climo_snoden_spring-MAM.grb b/fix/Breadboard/2.5km_climo_snoden_spring-MAM.grb
new file mode 100644
index 000000000..6e2a010aa
Binary files /dev/null and b/fix/Breadboard/2.5km_climo_snoden_spring-MAM.grb differ
diff --git a/fix/Breadboard/2.5km_climo_snoden_winter-DJF.gfs.3072.1536.grib2 b/fix/Breadboard/2.5km_climo_snoden_winter-DJF.gfs.3072.1536.grib2
new file mode 100644
index 000000000..3ca2a2791
Binary files /dev/null and b/fix/Breadboard/2.5km_climo_snoden_winter-DJF.gfs.3072.1536.grib2 differ
diff --git a/fix/Breadboard/2.5km_climo_snoden_winter-DJF.grb b/fix/Breadboard/2.5km_climo_snoden_winter-DJF.grb
new file mode 100644
index 000000000..e94bd1ba4
Binary files /dev/null and b/fix/Breadboard/2.5km_climo_snoden_winter-DJF.grb differ
diff --git a/fix/Breadboard/Breadboard1.nsw b/fix/Breadboard/Breadboard1.nsw
new file mode 100644
index 000000000..6e9b2e6be
--- /dev/null
+++ b/fix/Breadboard/Breadboard1.nsw
@@ -0,0 +1,43 @@
+// Weights saved from breadboard C:\MY DOCUMENTS\BREADBOARD1R.NSB.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.295625507831574e-001 6.163756549358368e-002
+2.081887423992157e-001 6.210270524024963e-001
+3.646677434444428e-001 1.214343756437302e-001
+2.430133521556854e-001 3.004860281944275e-001
+1.935067623853684e-001 4.185551702976227e-001
+1.962280571460724e-001 -4.804643988609314e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+40 1
+1
+40 -1.150484442710877e+000 -1.461968779563904e+000 1.349107265472412e+000 6.686212420463562e-001 -8.486616015434265e-001 -1.908162593841553e+000 -1.514992356300354e+000 -1.632351636886597e+000 -1.794843912124634e+000 1.354879975318909e+000 1.389558911323547e+000 1.464104652404785e+000 1.896052122116089e+000 1.401677846908569e+000 1.436681509017944e+000 -1.590880393981934e+000 -1.070504426956177e+000 2.047163248062134e+000 1.564107656478882e+000 1.298712372779846e+000 -1.316817998886108e+000 -1.253177642822266e+000 -1.392926216125488e+000 7.356406450271606e-001 1.594561100006104e+000 -1.532955884933472e+000 -1.021214842796326e+000 1.341110348701477e+000 6.124811172485352e-001 1.415654063224793e+000 -8.509962558746338e-001 1.753035664558411e+000 6.275475621223450e-001 1.482843875885010e+000 1.326028347015381e+000 1.641556143760681e+000 1.339018464088440e+000 -1.374068379402161e+000 -1.220067739486694e+000 1.714797854423523e+000
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+280 -4.612099826335907e-001 -3.177818655967712e-001 -2.800635099411011e-001 -6.984808295965195e-002 6.583837419748306e-002 -5.769817233085632e-001 3.955098092556000e-001 -1.624705344438553e-001 -2.889076173305512e-001 -9.411631226539612e-001 -5.058886408805847e-001 -3.110982775688171e-001 -3.723000884056091e-001 8.419776558876038e-001 2.598794996738434e-001 -1.364605724811554e-001 9.416468143463135e-001 -4.025689139962196e-002 4.176554381847382e-001 1.196979433298111e-001 -3.846398293972015e-001 -1.414917409420013e-001 -2.344214916229248e+000 -3.556166291236877e-001 -7.762963771820068e-001 -1.243659138679504e+000 4.907984733581543e-001 -1.891903519630432e+000 -5.802390575408936e-001 -5.546363592147827e-001 -4.520095884799957e-001 -2.473797500133514e-001 -7.757837772369385e-001 -5.350160598754883e-001 1.817676275968552e-001 -1.932217180728912e-001 5.944451093673706e-001 -6.568105518817902e-002 -1.562235504388809e-001 4.926294833421707e-002 -6.931540369987488e-001 7.082754969596863e-001 -3.878217563033104e-002 5.063381195068359e-001 -7.642447352409363e-001 -2.539043128490448e-001 -4.328470230102539e-001 -4.773662984371185e-001 6.699458956718445e-001 -1.670347154140472e-001 6.986252665519714e-001 -6.806275844573975e-001 1.059119179844856e-001 5.320579931139946e-002 -4.806780517101288e-001 7.601988911628723e-001 -1.864496916532517e-001 -3.076690435409546e-001 -6.505665779113770e-001 7.355872541666031e-002 -4.033335149288178e-001 -2.168276757001877e-001 5.354191064834595e-001 2.991014420986176e-001 4.275756180286408e-001 6.465418934822083e-001 -1.401910781860352e-001 5.381527543067932e-001 9.247279167175293e-001 -3.687029778957367e-001 6.354923844337463e-001 -1.423558890819550e-001 9.430686831474304e-001 1.187003701925278e-001 5.426434278488159e-001 7.573884129524231e-001 3.361994773149490e-002 3.300542756915093e-002 -4.439333379268646e-001 5.953744649887085e-001 3.412617444992065e-001 1.421828866004944e-001 5.224847793579102e-001 -8.267756700515747e-001 5.009499788284302e-001 2.736742198467255e-001 8.603093624114990e-001 9.373022615909576e-002 1.714528501033783e-001 9.114132076501846e-002 -1.638108491897583e-001 5.879403948783875e-001 5.585592240095139e-003 8.149939179420471e-001 -1.340572237968445e-001 3.880683779716492e-001 3.857498764991760e-001 -8.105239868164063e-001 5.239543914794922e-001 7.420576363801956e-002 7.694411277770996e-001 -3.954831138253212e-002 5.615213513374329e-001 4.560695886611939e-001 -5.006425976753235e-001 -4.725854694843292e-001 5.887325108051300e-002 -3.199687898159027e-001 -5.229111015796661e-002 -6.034490466117859e-001 -8.414428234100342e-001 1.826022863388062e-001 -6.954011321067810e-001 -5.277091860771179e-001 -9.834931492805481e-001 -2.964940369129181e-001 1.752081327140331e-002 -2.412298470735550e-001 5.861807465553284e-001 3.650662600994110e-001 -1.846716850996018e-001 3.277707397937775e-001 1.213769540190697e-001 1.398152709007263e-001 1.624975651502609e-001 -7.172397375106812e-001 -4.065496101975441e-002 -1.131931394338608e-001 7.050336003303528e-001 3.453079611063004e-002 5.642467141151428e-001 7.171959280967712e-001 -3.295499980449677e-001 5.192958116531372e-001 7.558688521385193e-001 6.164067387580872e-001 -1.597565859556198e-001 1.512383669614792e-001 5.231227278709412e-001 -2.199545800685883e-001 -3.987313508987427e-001 -9.710572957992554e-001 -4.689137935638428e-001 -4.037811756134033e-001 -4.528387784957886e-001 -4.784810543060303e-001 1.759306043386459e-001 7.449938654899597e-001 1.120681285858154e+000 -5.609570741653442e-001 1.393345594406128e+000 1.374282408505678e-002 -2.458193153142929e-001 1.237058401107788e+000 -4.854794219136238e-002 -6.664386391639710e-001 -8.786886334419251e-001 -3.208510577678680e-001 -4.315690398216248e-001 -5.186472535133362e-001 -2.117208093404770e-001 8.998587727546692e-002 7.763032317161560e-001 1.078992128372192e+000 3.667660653591156e-001 5.805531740188599e-001 1.517073512077332e-001 9.344519972801209e-001 3.396262824535370e-001 2.450248003005981e-001 9.134629368782044e-001 7.127542048692703e-002 -1.287281513214111e-001 3.953699469566345e-001 -4.097535610198975e-001 -5.983641743659973e-001 4.500437378883362e-001 -8.147508651018143e-002 -7.916551083326340e-002 -1.505649089813232e-001 -1.703914403915405e-001 1.294612526893616e+000 -4.859757721424103e-001 -1.034098416566849e-001 -6.859915256500244e-001 4.521823674440384e-002 3.100419938564301e-001 -9.373775720596314e-001 5.841451883316040e-001 7.020491957664490e-001 -1.681403964757919e-001 6.397892832756043e-001 1.168430075049400e-001 4.124156236648560e-001 5.404921174049377e-001 -3.311195969581604e-001 -3.494578003883362e-001 1.379718184471130e+000 2.731607258319855e-001 5.512273311614990e-001 2.997024357318878e-001 3.475511670112610e-001 6.777516603469849e-001 1.471205204725266e-001 1.011002138257027e-001 8.974244594573975e-001 8.688372373580933e-002 4.767233729362488e-001 9.785303473472595e-001 -2.200428694486618e-001 -6.173372268676758e-001 -8.801369071006775e-001 -1.111719012260437e+000 -3.223371803760529e-001 -6.491173505783081e-001 -3.894545435905457e-001 -2.843862473964691e-001 7.331426739692688e-001 -3.287445753812790e-002 -5.741032306104899e-003 6.212961673736572e-001 3.749484941363335e-002 6.244438700377941e-003 -6.228777766227722e-001 -4.667133837938309e-002 2.016694307327271e+000 2.834755480289459e-001 6.229624748229981e-001 6.552317738533020e-001 -9.771268069744110e-002 7.506207823753357e-001 6.942567825317383e-001 -1.662521809339523e-001 3.003259599208832e-001 -2.531996071338654e-001 2.399661689996719e-001 5.109554529190064e-001 -7.031706571578980e-001 2.836774885654450e-001 4.888223409652710e-001 1.384589523077011e-001 -3.524579405784607e-001 -2.050135582685471e-001 1.160808563232422e+000 -4.008938968181610e-001 1.656456440687180e-001 -5.116114616394043e-001 8.800522685050964e-001 6.836380064487457e-002 -5.902936309576035e-002 5.672354102134705e-001 -7.219299674034119e-001 3.463289514183998e-002 -1.044675827026367e+000 -8.341925591230393e-002 -3.036961853504181e-001 -5.605638027191162e-001 5.722484588623047e-001 -1.604338049888611e+000 -5.696258544921875e-001 -2.531512081623077e-001 -4.675458073616028e-001 -6.486019492149353e-001 -2.437075823545456e-001 -2.898264527320862e-001 3.836293518543243e-001 4.061043560504913e-001 3.909072279930115e-001 -8.113911151885986e-001 1.260317683219910e+000 -3.924282491207123e-001 3.586370870471001e-002 7.703443765640259e-001 6.714462637901306e-001 -4.909946396946907e-002 3.536651730537415e-001 1.900762617588043e-001 3.638494014739990e-001 2.248179465532303e-001 -6.255846619606018e-001
+
+#outputSynapse FullSynapse
+120 -4.825605154037476e-001 -1.119017243385315e+000 5.116804838180542e-001 -6.694142222404480e-001 -5.718530416488648e-001 -7.233589291572571e-001 -8.200560212135315e-001 -6.121573448181152e-001 -1.034205436706543e+000 1.015549778938294e+000 1.183975338935852e+000 5.342597365379334e-001 1.186208128929138e+000 7.657266259193420e-001 9.990772604942322e-001 -1.051267385482788e+000 -7.288008332252502e-001 9.447612762451172e-001 6.943449974060059e-001 5.248318314552307e-001 -1.042970657348633e+000 -4.857340827584267e-004 -8.969252705574036e-001 5.206210613250732e-001 7.825390100479126e-001 -3.175100982189179e-001 -7.697273492813110e-001 3.042222857475281e-001 7.400255203247070e-001 1.082547545433044e+000 -1.058874249458313e+000 3.296852707862854e-001 9.955985546112061e-001 7.361931800842285e-001 8.618848919868469e-001 7.109408378601074e-001 1.148022636771202e-001 -6.803723573684692e-001 -4.462003335356712e-002 7.384030222892761e-001 -2.215545326471329e-001 -8.702403903007507e-001 8.234908580780029e-001 6.819239258766174e-001 -4.687527120113373e-001 -6.959788203239441e-001 -6.105158329010010e-001 -7.225347757339478e-001 -7.860832810401917e-001 5.608791112899780e-001 9.937217235565186e-001 6.797130703926086e-001 8.231667280197144e-001 1.115462303161621e+000 5.290299654006958e-001 -4.602016210556030e-001 -5.394889116287231e-001 1.053055644035339e+000 9.533493518829346e-001 8.694807887077332e-001 -4.802323281764984e-001 -1.070514082908630e+000 -8.236010670661926e-001 7.932062149047852e-001 1.111655592918396e+000 -1.025945305824280e+000 -2.268178462982178e-001 6.432797908782959e-001 2.442117929458618e-001 7.986634969711304e-001 -3.561095297336578e-001 1.058865070343018e+000 6.459046602249146e-001 4.042869210243225e-001 2.976681292057037e-002 1.033244490623474e+000 9.110773205757141e-001 -6.528528332710266e-001 -8.971995115280151e-001 1.046785235404968e+000 -5.487565994262695e-001 -1.033755183219910e+000 5.164890289306641e-001 1.108534336090088e+000 -2.507440149784088e-001 -1.150385260581970e+000 -1.040475010871887e+000 -1.114320755004883e+000 -9.695596694946289e-001 9.147439599037170e-001 3.035557866096497e-001 1.044997453689575e+000 1.059857130050659e+000 7.304399013519287e-001 1.102171182632446e+000 -9.304327964782715e-001 -5.997116565704346e-001 1.120478868484497e+000 6.444569826126099e-001 2.137384265661240e-001 -4.117920994758606e-001 -1.000458717346191e+000 -2.041520774364471e-001 -1.859422773122788e-001 3.711319267749786e-001 -9.141649603843689e-001 -7.499164938926697e-001 9.900025129318237e-001 -2.189985066652298e-001 8.942219614982605e-001 -3.195305764675140e-001 6.445295810699463e-001 -2.110123336315155e-001 9.763143658638001e-001 8.833498954772949e-001 1.071311354637146e+000 1.134591102600098e+000 -4.175429344177246e-001 -6.000540852546692e-001 7.281569838523865e-001
+
+#activeOutputProbe DataWriter
+3
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+
diff --git a/fix/Breadboard/Breadboard10.nsw b/fix/Breadboard/Breadboard10.nsw
new file mode 100644
index 000000000..705a96bec
--- /dev/null
+++ b/fix/Breadboard/Breadboard10.nsw
@@ -0,0 +1,45 @@
+// Weights saved from breadboard C:\My Documents\Breadboard10.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.269289046525955e-001 -1.588500849902630e-002
+1.906577646732330e-001 6.807435750961304e-001
+3.703703582286835e-001 -4.592590779066086e-002
+2.611723542213440e-001 3.901915252208710e-001
+1.911842674016953e-001 4.027296602725983e-001
+1.951007992029190e-001 -4.725341200828552e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+7 1
+1
+7 1.307985544204712e+000 -1.960705667734146e-001 -1.105142459273338e-001 -1.207442641258240e+000 -1.665081620216370e+000 1.251117825508118e+000 -7.307677268981934e-001
+
+#hidden2Axon TanhAxon
+4 1
+1
+4 2.186001092195511e-002 3.369570672512054e-001 1.165086925029755e-001 2.747000660747290e-003
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+49 -3.375437259674072e-001 -3.020816326141357e+000 -1.435481071472168e+000 1.473870635032654e+000 -7.776365280151367e-001 6.734371185302734e-001 -1.643768787384033e+000 -1.227448821067810e+000 -7.365036606788635e-001 -4.473563134670258e-001 -5.696173906326294e-001 -2.562220990657806e-001 8.557485342025757e-001 -8.057124614715576e-001 4.266147911548615e-001 2.171551227569580e+000 3.776189982891083e-001 5.574828386306763e-001 3.814708292484283e-001 2.591066062450409e-001 1.959651827812195e+000 1.003962755203247e-001 -1.228965446352959e-002 -3.882043361663818e-001 -2.722288109362125e-002 -3.378733694553375e-001 -7.981095314025879e-001 4.839731752872467e-001 1.432798147201538e+000 1.885666996240616e-001 -6.051751971244812e-001 2.924412488937378e+000 1.136252880096436e+000 2.994727194309235e-001 1.604383468627930e+000 -8.440219759941101e-001 6.088087558746338e-001 -3.722844421863556e-001 5.441566109657288e-001 3.944540619850159e-001 7.044004201889038e-001 3.459328413009644e-001 1.054268121719360e+000 -3.348083496093750e+000 -7.199336886405945e-001 -1.489133596420288e+000 -4.090557992458344e-001 8.203456401824951e-001 -1.118073821067810e+000
+
+#hidden2Synapse FullSynapse
+28 -6.871775984764099e-001 -1.148896694183350e+000 -2.102893590927124e-001 -5.890849828720093e-001 5.899340510368347e-001 7.098034024238586e-001 -1.422515869140625e+000 -1.206974506378174e+000 4.104525446891785e-001 3.567897081375122e-001 2.746991515159607e-001 1.193219542503357e+000 3.167707324028015e-001 -1.222744822502136e+000 -9.918631613254547e-002 4.355156719684601e-001 2.938420772552490e-001 -1.012830615043640e+000 -1.290418803691864e-001 7.479285597801209e-001 -2.292920649051666e-001 -1.372484922409058e+000 -6.534293759614229e-003 1.525195717811585e+000 2.076585590839386e-001 1.434590101242065e+000 7.887706905603409e-002 -1.401232123374939e+000
+
+#outputSynapse FullSynapse
+12 6.101396083831787e-001 3.122945129871368e-001 3.869898915290833e-001 4.438063502311707e-001 5.161536335945129e-001 -2.700618803501129e-001 -3.105166740715504e-002 -5.569267272949219e-001 -5.549081563949585e-001 -3.867979049682617e-001 1.623111665248871e-001 -6.052750945091248e-001
+
diff --git a/fix/Breadboard/Breadboard2.nsw b/fix/Breadboard/Breadboard2.nsw
new file mode 100644
index 000000000..7e6eac5d8
--- /dev/null
+++ b/fix/Breadboard/Breadboard2.nsw
@@ -0,0 +1,43 @@
+// Weights saved from breadboard C:\MY DOCUMENTS\BREADBOARD2.NSB.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.188449800014496e-001 1.674167998135090e-002
+1.868382692337036e-001 6.490761637687683e-001
+3.361344337463379e-001 4.151264205574989e-002
+2.621995508670807e-001 2.531536519527435e-001
+1.944894641637802e-001 3.221717774868012e-001
+3.179650008678436e-001 -2.033386379480362e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+40 1
+1
+40 -9.235364943742752e-002 -5.511198639869690e-001 1.012191653251648e+000 -1.148184835910797e-001 -8.399781584739685e-001 -4.726789295673370e-001 7.570160627365112e-001 -3.985013365745544e-001 1.164000511169434e+000 2.212587594985962e-001 9.570528268814087e-001 -1.504407286643982e+000 -1.262813359498978e-001 9.741528630256653e-001 2.278975844383240e-001 -3.282702267169952e-001 1.716251969337463e-001 4.979004263877869e-001 6.414948105812073e-001 -2.775986790657044e-001 -6.721665859222412e-001 7.226511836051941e-001 -1.020949006080627e+000 -9.638186097145081e-001 4.050622135400772e-002 -8.287806510925293e-001 -2.900803685188294e-001 1.004199028015137e+000 -1.221053838729858e+000 -5.891714692115784e-001 -6.459002494812012e-001 8.228222727775574e-001 1.921370178461075e-001 1.575044542551041e-001 -9.904603362083435e-001 1.186665743589401e-001 1.871918141841888e-001 -6.121324300765991e-001 1.056765243411064e-001 -5.654883384704590e-001
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+280 -5.215738341212273e-002 6.958795785903931e-001 -3.700282871723175e-001 4.440588057041168e-001 -9.248711913824081e-002 9.709199517965317e-002 1.255098581314087e-001 -1.359838247299194e-001 3.981630802154541e-001 -4.047442674636841e-001 -5.247595906257629e-001 -5.138890147209168e-001 2.293408364057541e-001 5.139534473419190e-001 2.035804986953735e-001 3.003124892711639e-001 -2.340262830257416e-001 3.037432730197907e-001 4.666079878807068e-001 3.753643631935120e-001 -5.292671918869019e-002 3.674933612346649e-001 3.854512274265289e-001 1.749511361122131e-001 1.320011764764786e-001 2.418431788682938e-001 1.245125234127045e-001 -2.677426636219025e-001 3.884479776024818e-002 -1.385747641324997e-001 -3.117613494396210e-001 3.016934990882874e-001 -2.856997251510620e-001 -4.838032424449921e-001 4.488031566143036e-001 -3.862534165382385e-001 2.520084977149963e-001 -6.066129356622696e-002 -2.037643343210220e-001 -9.749407321214676e-002 1.909288167953491e-001 -2.689029574394226e-001 8.022837042808533e-001 4.543448388576508e-001 1.268999278545380e-001 2.794430553913117e-001 4.331161379814148e-001 -1.717756092548370e-001 -5.167780518531799e-001 6.074145808815956e-002 2.141399085521698e-001 -3.536535203456879e-001 -2.548796236515045e-001 -4.349331259727478e-001 3.771509276703000e-003 1.351494044065476e-001 8.080910146236420e-002 -2.638687789440155e-001 1.792310923337936e-001 -5.317723155021668e-001 6.300682574510574e-002 1.391339004039764e-001 -6.581404209136963e-001 1.574699729681015e-001 -5.979638695716858e-001 -6.864693760871887e-001 -6.892689466476440e-001 -1.189238503575325e-001 -1.904999166727066e-001 -4.838389158248901e-001 4.585682973265648e-002 3.201213181018829e-001 5.204908251762390e-001 -3.531241044402123e-002 4.392628967761993e-001 4.307939708232880e-001 -4.227218031883240e-002 1.247199028730393e-001 1.489800363779068e-001 -3.146159052848816e-001 2.637389600276947e-001 -8.966535329818726e-002 2.010040730237961e-001 3.161593675613403e-001 -8.221558481454849e-002 -4.601925909519196e-001 -3.832246661186218e-001 2.877672016620636e-001 -1.351716276258230e-002 -5.320604424923658e-003 -3.493662178516388e-002 -1.777663826942444e-001 -1.865815520286560e-001 6.387206912040710e-001 -4.405377805233002e-001 4.452396631240845e-001 -1.245370283722878e-001 -2.323225736618042e-001 1.697962284088135e-001 1.118463352322578e-001 -2.475701570510864e-001 -3.791887685656548e-002 5.509998202323914e-001 1.247667223215103e-001 3.189268708229065e-001 -3.584641516208649e-001 8.915060758590698e-001 9.720049053430557e-002 -1.117252558469772e-001 3.543806076049805e-001 -2.351483702659607e-001 5.283502340316773e-001 1.746209561824799e-001 1.741478294134140e-001 2.738423347473145e-001 3.764865398406982e-001 3.486587703227997e-001 -3.462808132171631e-001 9.324266910552979e-001 2.155355364084244e-001 -5.171442404389381e-002 6.311618685722351e-001 -1.088170856237412e-001 4.840107262134552e-001 -2.310744374990463e-001 -3.167505562305450e-001 -2.271509468555450e-001 -2.800688743591309e-001 4.713648185133934e-002 -1.575807780027390e-001 3.583298251032829e-002 -3.308865129947662e-001 -2.662795484066010e-001 1.894978582859039e-001 7.474141567945480e-002 -1.493624746799469e-001 -1.482628136873245e-001 -1.058527529239655e-001 -3.737696707248688e-001 -1.093639135360718e-001 -4.270362555980682e-001 1.249950975179672e-001 -1.971846818923950e-001 3.135327398777008e-001 4.604682624340057e-001 -4.614944458007813e-001 4.820220768451691e-001 3.806282877922058e-001 3.629744052886963e-001 3.986520171165466e-001 -2.283873707056046e-001 1.246029064059258e-001 3.940442204475403e-001 2.390366494655609e-001 8.402416110038757e-002 3.498363792896271e-001 -3.888027667999268e-001 2.272991091012955e-001 -3.421411216259003e-001 1.273499727249146e-001 1.342627108097076e-001 1.159043312072754e-001 1.274240911006928e-001 -2.915177941322327e-001 6.415430903434753e-001 1.699399948120117e-001 -6.556300520896912e-001 9.605846554040909e-002 3.632318377494812e-001 -3.854629993438721e-001 -3.860571384429932e-001 -1.257066577672958e-001 -1.186188161373138e-001 -1.368320286273956e-001 -2.300722897052765e-001 -4.762146174907684e-001 -3.621844053268433e-001 -4.978014528751373e-002 -1.940275430679321e-001 -1.588442362844944e-002 -1.519876420497894e-001 1.312368810176849e-001 1.862339228391647e-001 6.462548375129700e-001 5.544137358665466e-001 -3.416634351015091e-002 9.995899349451065e-002 -6.969342380762100e-002 -1.428494304418564e-001 2.647481858730316e-001 1.083492934703827e-001 5.986538901925087e-002 -1.576850377023220e-002 1.962803453207016e-001 6.334787011146545e-001 -1.408149152994156e-001 -1.756295561790466e-001 -2.156554609537125e-001 -1.412229537963867e-001 -5.801249146461487e-001 -5.700040608644486e-002 -3.019523918628693e-001 -1.161280944943428e-001 -3.032382726669312e-001 1.140000447630882e-001 -2.648598253726959e-001 -2.016042023897171e-001 -3.181084990501404e-002 7.931513339281082e-002 5.399967432022095e-001 -4.595367014408112e-001 9.602636098861694e-002 -4.730868339538574e-001 2.077568918466568e-001 -2.257115393877029e-001 3.216529190540314e-001 1.631081402301788e-001 6.222640164196491e-003 -1.323710232973099e-001 1.348871737718582e-001 1.123578473925591e-001 5.462109446525574e-001 5.289056897163391e-001 5.155519247055054e-001 2.748569846153259e-001 -3.125837743282318e-001 -3.262098431587219e-001 -8.945185691118240e-003 -4.980920553207398e-001 5.064374208450317e-001 -1.056439951062203e-001 -3.115973472595215e-001 3.343601152300835e-002 -7.157339155673981e-002 5.459919571876526e-001 2.175374031066895e-001 -2.892075665295124e-002 1.139620468020439e-001 -4.409461319446564e-001 -4.908669367432594e-002 -2.098206430673599e-001 3.024870157241821e-001 -3.447104394435883e-001 -2.666398882865906e-001 -1.739841997623444e-001 -1.120999976992607e-001 4.268572330474854e-001 4.144327044487000e-001 4.936498403549194e-001 5.718982815742493e-001 5.464938655495644e-002 3.950506746768951e-001 -1.432464718818665e-001 -8.016809076070786e-002 5.947722792625427e-001 -1.419431418180466e-001 -2.328271418809891e-001 -1.958254128694534e-001 -9.914696216583252e-003 -1.478249877691269e-001 4.182004928588867e-001 7.797469943761826e-002 3.761124014854431e-001 4.066407680511475e-001 1.217691525816917e-001 -1.124059110879898e-001 7.020493596792221e-002 1.022125557065010e-001 -5.025411844253540e-001 -2.482684552669525e-001 -5.819427594542503e-002 -1.587846502661705e-002 -1.881837695837021e-001 4.026338756084442e-001 3.339109122753143e-001 2.215891182422638e-001 7.083265781402588e-001 -7.670203596353531e-002 3.171359598636627e-001 8.310161828994751e-001
+
+#outputSynapse FullSynapse
+120 2.309078276157379e-001 8.006124198436737e-002 5.207773447036743e-001 3.642434999346733e-002 -5.444544181227684e-002 -2.300137132406235e-001 4.965198636054993e-001 -3.590968847274780e-001 1.392439752817154e-001 -2.941058278083801e-001 6.655657291412354e-001 -4.931978881359100e-001 -1.253394484519959e-001 1.540697813034058e-001 1.752252578735352e-001 4.873855113983154e-001 5.741749405860901e-001 1.275441497564316e-001 -4.765471443533897e-002 -5.038099363446236e-002 -8.334141224622726e-002 5.842098593711853e-001 -4.490646719932556e-001 -5.416034907102585e-002 -2.264686524868012e-001 -1.698177903890610e-001 3.113179206848145e-001 4.435532391071320e-001 -5.240975022315979e-001 1.108570247888565e-001 2.321150526404381e-002 2.374080866575241e-001 -2.570592761039734e-001 3.205819129943848e-001 -3.468126952648163e-001 2.772298157215118e-001 1.148034259676933e-001 1.865169033408165e-003 3.649827241897583e-001 5.026416182518005e-001 -2.502067089080811e-001 -6.028710007667542e-001 -6.978485733270645e-002 8.656968921422958e-002 -5.227651596069336e-001 9.525942802429199e-002 -1.903700232505798e-001 1.426358073949814e-001 5.602359771728516e-001 -2.479453980922699e-001 1.296138316392899e-001 -4.612154662609100e-001 -4.198251068592072e-001 6.053315401077271e-001 -1.160371229052544e-001 -4.044520258903503e-001 -1.530461944639683e-002 4.267008602619171e-001 2.162231802940369e-001 1.101492717862129e-001 -9.195729345083237e-002 -3.771322593092918e-002 3.320552408695221e-002 -4.979051947593689e-001 1.581449210643768e-001 -5.021102428436279e-001 1.184114068746567e-002 4.836803376674652e-001 -5.539562702178955e-001 -2.782657444477081e-001 -1.547775119543076e-001 4.582551419734955e-001 2.844007611274719e-001 -4.516306817531586e-001 1.886052638292313e-002 3.602048456668854e-001 4.175081476569176e-002 2.075715661048889e-001 -5.455711483955383e-001 -2.442489415407181e-001 -2.680016458034515e-001 2.636941149830818e-003 4.164874255657196e-001 8.120876550674439e-002 -4.927250146865845e-001 -3.254565298557282e-001 5.583248138427734e-001 -1.608870923519135e-001 5.749610066413879e-001 5.479150414466858e-001 3.469662666320801e-001 -5.061987638473511e-001 3.353976905345917e-001 2.548734247684479e-001 2.064624279737473e-001 -5.114225745201111e-001 -4.629626572132111e-001 -1.936426460742950e-001 2.327886223793030e-001 -4.583241790533066e-002 -5.125665068626404e-001 1.089363321661949e-001 -4.951449036598206e-001 -5.018569827079773e-001 2.582837454974651e-002 4.913705959916115e-002 -2.441505938768387e-001 -3.174663335084915e-002 -1.644173413515091e-001 -2.947083115577698e-001 -5.097694396972656e-001 7.136650383472443e-003 1.942666023969650e-001 1.587397605180740e-001 -4.691866040229797e-001 -4.862202703952789e-001 1.432444006204605e-001 -4.405085742473602e-001 3.072859644889832e-001 -4.172921180725098e-001
+
+#activeOutputProbe DataWriter
+3
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+
diff --git a/fix/Breadboard/Breadboard3.nsw b/fix/Breadboard/Breadboard3.nsw
new file mode 100644
index 000000000..3c3ec9efe
--- /dev/null
+++ b/fix/Breadboard/Breadboard3.nsw
@@ -0,0 +1,43 @@
+// Weights saved from breadboard C:\My Documents\Breadboard3.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.442665100097656e-001 3.212104737758637e-002
+2.107975035905838e-001 6.168988943099976e-001
+3.646677434444428e-001 1.214343756437302e-001
+2.485501170158386e-001 2.868268489837647e-001
+1.976718604564667e-001 4.469360709190369e-001
+3.208556175231934e-001 -2.509090602397919e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+40 1
+1
+40 4.393131732940674e-001 -1.290386915206909e-001 6.327351331710815e-001 5.494017004966736e-001 4.969031810760498e-001 2.086368650197983e-001 -2.167895883321762e-001 9.464725255966187e-001 1.640024334192276e-001 2.452306896448135e-001 1.972979009151459e-001 9.276027083396912e-001 2.502645850181580e-001 5.485208034515381e-001 -2.839279770851135e-001 6.810981035232544e-001 -2.170253098011017e-001 -3.821973502635956e-001 8.861125111579895e-001 -6.720829606056213e-001 2.960434183478355e-002 -3.987881243228912e-001 -1.057050973176956e-001 6.963993310928345e-001 -1.413413435220718e-001 7.551014423370361e-001 1.243001222610474e-002 -3.603826761245728e-001 7.450697422027588e-001 7.630060315132141e-001 5.904716849327087e-001 -5.035977959632874e-001 2.082890830934048e-003 -1.259811818599701e-001 -8.103467822074890e-001 -4.683765172958374e-001 -3.666405081748962e-001 -5.880022794008255e-002 -5.269588828086853e-001 -1.594118028879166e-001
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+280 2.258135080337524e-001 -8.417334407567978e-002 -6.296884268522263e-002 -1.971755474805832e-001 -2.008096426725388e-001 1.312222182750702e-001 -2.187249064445496e-001 3.300825655460358e-001 -1.458171010017395e-001 -2.447441816329956e-001 2.373344898223877e-001 -3.369296491146088e-001 -2.142974138259888e-001 7.442125119268894e-003 2.400149852037430e-001 5.063241720199585e-001 1.461273133754730e-001 3.199279010295868e-001 2.184794545173645e-001 6.378577351570129e-001 2.826454937458038e-001 1.467282772064209e-001 4.167218208312988e-001 3.410821408033371e-002 -1.507616639137268e-001 1.607457697391510e-001 1.063031926751137e-001 4.860900044441223e-001 -7.546984404325485e-002 3.811344206333160e-001 -3.500247746706009e-002 -3.294828236103058e-001 -2.355449087917805e-002 3.319101631641388e-001 1.341840159147978e-002 -2.975183129310608e-001 -2.044427692890167e-001 7.903610914945602e-002 -2.241216152906418e-001 -1.982768028974533e-001 2.166045308113098e-001 -3.769811093807221e-001 -4.219292849302292e-002 -4.683617055416107e-001 1.365721821784973e-001 -5.708352923393250e-001 -5.482509136199951e-001 -5.697317123413086e-001 3.948671817779541e-001 4.008982181549072e-001 -6.056785583496094e-001 -6.540334783494473e-003 -4.144128859043121e-001 -9.239719808101654e-002 1.977843493223190e-001 -2.407579571008682e-001 -2.472878843545914e-001 -3.429937064647675e-001 -1.058190166950226e-001 -8.456809073686600e-002 4.944565296173096e-001 4.329789280891419e-001 2.303941249847412e-001 2.076211571693420e-001 1.421037223190069e-002 5.740813165903091e-002 1.577541381120682e-001 1.072699949145317e-001 3.550452180206776e-003 -7.603026926517487e-002 1.787180006504059e-001 3.000865578651428e-001 -4.790667295455933e-001 -1.263711899518967e-001 -1.886992603540421e-001 -1.971553862094879e-001 -4.320513010025024e-001 -1.786982715129852e-001 -3.415124714374542e-001 3.517304956912994e-001 3.841716647148132e-001 1.595797836780548e-001 1.466515809297562e-001 3.235963284969330e-001 3.831133618950844e-002 3.778985887765884e-002 4.742037355899811e-001 -1.204959601163864e-001 -6.766954064369202e-002 4.763844013214111e-001 2.847502529621124e-001 -2.614455521106720e-001 4.211461246013641e-001 2.459102123975754e-001 -3.291262984275818e-001 4.159525930881500e-001 1.433917880058289e-001 5.506788492202759e-001 -4.396528601646423e-001 3.432570993900299e-001 -4.605481028556824e-001 -1.657515168190002e-001 2.847986221313477e-001 -3.968485295772553e-001 2.652311325073242e-001 2.413431182503700e-003 6.885899305343628e-001 -1.771224141120911e-001 -2.605379931628704e-002 1.681880354881287e-001 4.201361536979675e-001 -2.905318737030029e-001 -1.065197512507439e-001 2.377779632806778e-001 3.171224892139435e-001 -5.171843245625496e-002 8.248845487833023e-002 -4.904226213693619e-002 3.065647780895233e-001 1.610077768564224e-001 8.712385892868042e-001 3.008154034614563e-001 5.729283690452576e-001 -1.608658432960510e-001 -3.810124993324280e-001 6.462811827659607e-001 -2.662218213081360e-001 -5.297539830207825e-001 -1.356185525655747e-001 2.623566091060638e-001 -1.624718308448792e-001 -2.004417479038239e-001 -3.377428650856018e-002 3.970716595649719e-001 -1.560127288103104e-001 4.747187346220017e-002 -3.162815868854523e-001 -3.350041508674622e-001 -3.987393081188202e-001 -4.969080090522766e-001 -1.142657846212387e-001 -7.119160890579224e-001 1.153976768255234e-001 -6.001577973365784e-001 -3.606468439102173e-001 -3.741255104541779e-001 -7.550917863845825e-001 1.106901541352272e-001 -1.475569456815720e-001 -2.016223073005676e-001 -2.226002812385559e-001 2.520006597042084e-001 -4.015582501888275e-001 -6.874573230743408e-001 -3.860632777214050e-001 1.074488908052445e-001 -3.594025373458862e-001 -2.556712925434113e-001 2.491754293441773e-001 -1.749203801155090e-001 -5.133146420121193e-003 -2.629097700119019e-001 1.706630140542984e-001 5.300921797752380e-001 3.016012907028198e-001 3.024738729000092e-001 1.334729231894016e-002 3.605858981609345e-001 -3.797290921211243e-001 2.125910073518753e-001 -3.324515819549561e-001 -2.657738924026489e-001 8.549436926841736e-002 2.843597829341888e-001 -1.628004312515259e-001 4.068509638309479e-001 -1.096388697624207e-001 1.842555999755859e-001 -2.429902255535126e-001 1.793259531259537e-001 6.289024949073792e-001 4.427114427089691e-001 -8.943214267492294e-002 1.407862901687622e-001 -4.747562706470490e-001 1.607088744640350e-001 2.691341638565064e-001 -1.326033025979996e-001 -6.888723373413086e-002 3.347525000572205e-001 2.391179502010346e-001 -7.601787149906158e-002 3.946174979209900e-001 4.608300328254700e-001 -4.973608553409576e-001 2.180006355047226e-002 -2.155515551567078e-001 4.018128812313080e-001 5.872810482978821e-001 -2.970355451107025e-001 6.164746284484863e-001 -2.832284271717072e-001 -7.214747369289398e-002 3.505393862724304e-001 3.504253327846527e-001 -3.037774860858917e-001 -3.341494500637054e-001 -2.143821418285370e-001 3.230984508991242e-001 -6.691335439682007e-001 -1.196009963750839e-001 2.609530091285706e-001 6.332063078880310e-001 -2.495922595262528e-001 -1.421163380146027e-001 4.370761811733246e-001 2.344440817832947e-001 -4.770855009555817e-001 -1.213536486029625e-001 -4.947537779808044e-001 2.018401175737381e-001 -3.219321966171265e-001 -1.836685538291931e-001 6.838442683219910e-001 -5.349717736244202e-001 5.601373910903931e-001 -3.152181506156921e-001 2.578000128269196e-001 4.295753240585327e-001 -1.423847377300263e-001 6.693964004516602e-001 -2.671292051672936e-002 -2.906464338302612e-001 -6.406581997871399e-001 -5.139582753181458e-001 2.622411847114563e-001 2.534431815147400e-001 -1.518065035343170e-001 -4.292866215109825e-002 4.628975689411163e-001 1.969320774078369e-001 4.264309704303742e-001 -4.475159347057343e-001 -5.727919340133667e-001 5.388451814651489e-001 -2.982297539710999e-001 -3.593768924474716e-002 -1.298359930515289e-001 -4.535509645938873e-001 -1.963836848735809e-001 -2.640297412872315e-001 3.889253437519074e-001 -2.371201291680336e-002 5.441716909408569e-001 -3.557947278022766e-001 -1.912423074245453e-001 3.168485462665558e-001 -3.096546828746796e-001 2.481035888195038e-001 2.293358147144318e-001 -7.027690410614014e-001 -4.839945435523987e-001 -2.963027358055115e-001 -5.126427412033081e-001 2.138081789016724e-001 -2.071801871061325e-001 -9.827529639005661e-002 -4.680003225803375e-001 -3.230824470520020e-001 -2.535474896430969e-001 2.779140770435333e-001 -5.119556188583374e-001 1.893053054809570e-001 -5.211792513728142e-002 4.212611019611359e-001 -5.767111182212830e-001 3.436119556427002e-001 1.560586243867874e-001 -1.338404417037964e-001 2.465801686048508e-001
+
+#outputSynapse FullSynapse
+120 -1.504478603601456e-001 8.304652571678162e-002 2.053809165954590e-001 4.613898992538452e-001 3.307471871376038e-001 -2.503668665885925e-001 -4.260648787021637e-001 -2.033478170633316e-001 1.205723360180855e-001 3.727485835552216e-001 -2.320208251476288e-001 4.672348499298096e-001 -1.567042618989945e-001 4.181037843227387e-001 -2.018750756978989e-001 2.649243474006653e-001 2.292609065771103e-001 2.745892405509949e-001 2.554303109645844e-001 -3.891312777996063e-001 -4.561745524406433e-001 -3.781261444091797e-001 -2.881123721599579e-001 2.764029800891876e-001 8.924255520105362e-002 4.471623599529266e-001 9.589984267950058e-002 4.323486387729645e-001 4.792469739913940e-001 -9.918873012065888e-002 4.427296221256256e-001 3.841804563999176e-001 1.890532523393631e-001 -4.477364718914032e-001 -2.994475699961186e-002 -7.976207137107849e-002 2.607934474945068e-001 -3.710708916187286e-001 -2.811897993087769e-001 6.034602597355843e-002 4.014556109905243e-001 2.982565164566040e-001 4.447779953479767e-001 -3.612459823489189e-002 -2.895380258560181e-001 2.155442684888840e-001 -3.415147066116333e-001 4.278375506401062e-001 1.896717213094235e-002 -9.841635823249817e-002 1.671093255281448e-001 3.151571452617645e-001 -1.678100675344467e-001 -4.435905069112778e-002 -2.333792001008987e-001 4.360995292663574e-001 3.587894737720490e-001 -1.017290875315666e-001 1.382773071527481e-001 -3.980610668659210e-001 -2.268472909927368e-001 -2.996328286826611e-002 2.546367645263672e-001 1.532198935747147e-001 -1.018586382269859e-002 3.147244155406952e-001 -3.700032234191895e-001 2.747226655483246e-001 4.799823760986328e-001 3.735623657703400e-001 3.757937550544739e-001 -5.869687348604202e-002 7.807171344757080e-002 -1.428240090608597e-001 -5.030028820037842e-001 -4.323083460330963e-001 -2.643692195415497e-001 -4.277939200401306e-001 3.172474205493927e-001 -4.587580561637878e-001 4.488629996776581e-001 -1.273735053837299e-002 2.275637537240982e-001 2.276848852634430e-001 1.995900124311447e-001 -1.224325075745583e-001 -1.321871429681778e-001 4.938367307186127e-001 3.713837862014771e-001 4.943797290325165e-001 -8.973516523838043e-002 3.630679845809937e-001 3.118912279605866e-001 3.763218820095062e-001 -2.658533453941345e-001 5.210888572037220e-003 -3.098636865615845e-001 -4.516429603099823e-001 3.575363755226135e-001 3.780608177185059e-001 3.606519103050232e-001 4.404914379119873e-001 -4.452764391899109e-001 2.741447389125824e-001 1.122588440775871e-001 2.581178247928619e-001 -2.986721992492676e-001 -3.506239950656891e-001 -4.466909915208817e-002 1.343552619218826e-001 -2.677312493324280e-002 -5.070485472679138e-001 -5.414816737174988e-001 3.392856195569038e-002 -4.090670943260193e-001 2.741051837801933e-002 7.242175936698914e-002 4.587205946445465e-001 -2.530987001955509e-002 1.304957270622253e-002
+
+#activeOutputProbe DataWriter
+3
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+
diff --git a/fix/Breadboard/Breadboard4.nsw b/fix/Breadboard/Breadboard4.nsw
new file mode 100644
index 000000000..ef1a48db0
--- /dev/null
+++ b/fix/Breadboard/Breadboard4.nsw
@@ -0,0 +1,43 @@
+// Weights saved from breadboard C:\My Documents\Breadboard4.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.296211272478104e-001 6.142363324761391e-002
+2.128665894269943e-001 6.552034020423889e-001
+3.361344337463379e-001 4.151264205574989e-002
+2.430133521556854e-001 3.004860281944275e-001
+1.976718604564667e-001 4.469360709190369e-001
+1.951007992029190e-001 -4.725341200828552e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+40 1
+1
+40 -1.700838446617127e+000 1.409139156341553e+000 -1.263895153999329e+000 -1.653346180915833e+000 -1.753814935684204e+000 1.510319232940674e+000 -1.652730584144592e+000 1.968622922897339e+000 -1.764715671539307e+000 -1.920537590980530e+000 1.703584432601929e+000 9.688673615455627e-001 1.621924757957459e+000 -1.195185184478760e+000 -1.170735836029053e+000 -1.726262569427490e+000 1.693020582199097e+000 -1.789734363555908e+000 2.076834440231323e+000 -2.054785251617432e+000 1.735462069511414e+000 -1.377997517585754e+000 1.685962557792664e+000 -1.505226492881775e+000 1.329061865806580e+000 -1.970339655876160e+000 1.326048374176025e+000 -1.803932785987854e+000 -1.356570959091187e+000 -7.451403737068176e-001 1.977797389030457e+000 1.962222456932068e+000 -1.924186825752258e+000 -1.927103757858276e+000 1.772511124610901e+000 2.267752170562744e+000 1.343345522880554e+000 -1.727791309356690e+000 -1.688525199890137e+000 -2.020093202590942e+000
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+280 -3.217298686504364e-001 -1.535140275955200e-001 -9.374593496322632e-001 -3.773699328303337e-002 -7.610699534416199e-001 1.124547328799963e-003 7.987623810768127e-001 5.171887874603272e-001 1.182283610105515e-001 1.252476930618286e+000 -2.393243610858917e-001 8.846385776996613e-002 4.983871877193451e-001 -1.072657704353333e+000 -5.902777314186096e-001 3.053096830844879e-001 -1.245228290557861e+000 -9.408684819936752e-002 -1.261333227157593e+000 7.626018673181534e-002 -3.566111624240875e-001 -2.651087939739227e-001 5.490935966372490e-002 -1.231116533279419e+000 -3.552156984806061e-001 -4.995369017124176e-001 -1.970071047544479e-001 6.921592950820923e-001 -7.216929793357849e-001 -3.322352096438408e-002 -1.040984153747559e+000 -2.749272584915161e-001 -3.936901688575745e-001 -5.485629439353943e-001 2.315377295017242e-001 3.925201594829559e-001 2.289973348379135e-001 9.091649055480957e-001 -2.400987595319748e-001 2.274930775165558e-001 7.657364010810852e-001 -4.531333744525909e-001 -3.045647442340851e-001 -1.612837314605713e-001 -6.530205607414246e-001 6.988145411014557e-002 -3.664937913417816e-001 -1.209497332572937e+000 1.716423481702805e-001 2.888691425323486e-001 -6.977611780166626e-001 1.001697182655335e+000 -3.773393929004669e-001 -3.817198425531387e-002 3.071420192718506e-001 -1.018374800682068e+000 -3.812201619148254e-001 2.521711289882660e-001 -1.311386704444885e+000 -4.305998682975769e-001 -2.096824795007706e-001 -6.536886692047119e-001 9.946095943450928e-002 -8.006195425987244e-001 6.314782798290253e-002 -9.162106513977051e-001 1.249427199363709e-001 -1.967987567186356e-001 -2.837883234024048e-001 4.405716657638550e-001 7.357195615768433e-001 2.873047888278961e-001 7.006355524063110e-001 -2.267676740884781e-001 1.684177815914154e-001 2.451081871986389e-001 -6.897705197334290e-001 -1.359052062034607e-001 -1.217865824699402e+000 6.268809437751770e-001 -1.108817100524902e+000 -1.098538115620613e-001 6.363938003778458e-002 -2.163156747817993e+000 2.993230819702148e-001 -6.225543469190598e-002 6.338689923286438e-001 2.340336740016937e-001 3.334980309009552e-001 5.768545866012573e-001 -8.454492688179016e-001 -7.557854652404785e-001 -6.227542161941528e-001 -1.105716824531555e+000 2.116404175758362e-001 -2.117430865764618e-001 -1.036560058593750e+000 -1.257222741842270e-001 5.264365077018738e-001 -1.787502527236939e+000 -6.102513074874878e-001 -1.036811590194702e+000 -1.041777491569519e+000 6.762499362230301e-002 -1.829331994056702e+000 -1.342972517013550e-001 2.181535959243774e+000 7.125011086463928e-001 9.849542975425720e-001 4.515964090824127e-001 -5.667360424995422e-001 1.371907234191895e+000 4.193291962146759e-001 -4.483173191547394e-001 1.056447148323059e+000 -4.035096466541290e-001 2.473213225603104e-001 4.283659458160400e-001 -1.105738878250122e+000 -3.882422149181366e-001 1.359030008316040e-001 -1.316889882087708e+000 1.206199750304222e-001 -2.816296517848969e-001 -3.856543898582459e-001 -1.341159194707871e-001 2.931591272354126e-001 -8.115946650505066e-001 1.549627929925919e-001 -3.494594991207123e-002 1.392071247100830e-001 8.500702381134033e-001 -1.105314135551453e+000 -8.855208158493042e-001 -1.129539161920548e-001 -7.288187742233276e-001 2.031663209199905e-001 -2.040854692459106e-001 -2.651244997978210e-001 6.747405529022217e-001 6.289814710617065e-001 3.702930510044098e-001 8.955963253974915e-001 -1.791490912437439e-001 6.291658878326416e-001 3.181912600994110e-001 -7.458741664886475e-001 -5.797970294952393e-001 8.048549294471741e-003 -1.517996788024902e+000 1.586797833442688e-002 -1.968807131052017e-001 -6.696819067001343e-001 2.561997175216675e-001 1.585537791252136e-001 -3.939553797245026e-001 1.001605153083801e+000 -3.178015723824501e-002 2.169712930917740e-001 7.597719430923462e-001 -8.711787462234497e-001 -2.590858340263367e-001 -4.994206726551056e-001 -1.350332260131836e+000 -1.754350513219833e-001 -5.298053622245789e-001 -1.044484019279480e+000 -5.103482306003571e-002 8.845404386520386e-001 4.584137201309204e-001 1.076861619949341e+000 1.874905377626419e-001 2.787777185440064e-001 8.369036912918091e-001 -8.217707276344299e-001 -2.826712131500244e-001 -2.450734227895737e-001 -8.279343843460083e-001 3.510917425155640e-001 -3.488889932632446e-001 -7.627615332603455e-001 3.606846034526825e-001 5.258455872535706e-001 -5.099301040172577e-002 6.352093815803528e-001 -1.835833787918091e-001 1.247637987136841e+000 5.917957425117493e-001 1.019452288746834e-001 -5.673841834068298e-001 1.377126276493073e-001 -1.055184245109558e+000 -2.036373913288117e-001 -6.316062808036804e-001 -3.354403078556061e-001 3.826665878295898e-001 -6.721435189247131e-001 -6.410418748855591e-001 -1.417969822883606e+000 -8.955898880958557e-002 -6.617363095283508e-001 -6.313887238502502e-001 1.284139454364777e-001 -7.438000291585922e-002 3.091568231582642e+000 8.395515084266663e-001 7.227233052253723e-001 8.192335367202759e-001 -2.106423974037170e-001 2.122008800506592e+000 7.060149908065796e-001 3.394779860973358e-001 6.117095947265625e-001 -3.271679580211639e-001 1.616740077733994e-001 1.569840312004089e-001 -1.123665213584900e+000 3.844760954380035e-001 2.845884263515472e-001 7.137780785560608e-001 1.460106819868088e-001 -1.021391227841377e-001 5.172263383865356e-001 -7.423986196517944e-001 -2.789774909615517e-002 -1.258952766656876e-001 -1.325458526611328e+000 -5.270438194274902e-001 -3.967397287487984e-002 -2.709308564662933e-001 1.340401768684387e-001 -6.963784694671631e-001 -3.221498429775238e-001 -8.531031608581543e-001 3.377375304698944e-001 1.652107536792755e-001 -3.512997031211853e-001 -1.630981415510178e-001 3.690161705017090e-001 1.549807284027338e-002 1.193455934524536e+000 2.675475478172302e-001 3.856497108936310e-001 9.223973155021668e-001 -8.005780726671219e-002 7.949089407920837e-001 1.678814589977264e-001 5.589793920516968e-001 -2.890521883964539e-001 -6.459630280733109e-002 1.577395349740982e-001 -6.019581556320190e-001 1.361452788114548e-001 -1.461234450340271e+000 2.132855653762817e-001 -7.116237878799439e-001 -1.837224513292313e-001 6.981704831123352e-001 -1.456485867500305e+000 -8.896524459123612e-002 -6.985316872596741e-001 -9.188821911811829e-001 -1.798982769250870e-001 -3.445543348789215e-001 -9.767906665802002e-001 6.575983762741089e-001 -5.698328614234924e-001 2.794421613216400e-001 -9.889149665832520e-001 2.113757282495499e-001 -4.894487261772156e-001 -9.110729694366455e-001 3.156659901142120e-001 -8.372070193290710e-001 1.710339263081551e-002 -7.162731885910034e-001 -9.848624467849731e-002 -2.407071143388748e-001 -4.630023241043091e-001 5.028110146522522e-001
+
+#outputSynapse FullSynapse
+120 -1.209702730178833e+000 1.183213353157044e+000 -1.019356846809387e+000 -1.344744205474854e+000 -1.445307731628418e+000 1.024327754974365e+000 -1.584630727767944e+000 1.083521246910095e+000 -1.308865427970886e+000 -1.247952342033386e+000 1.239847064018250e+000 1.287056356668472e-001 9.846584796905518e-001 -1.553632378578186e+000 -1.231866717338562e+000 4.489912092685700e-002 1.253254055976868e+000 -1.430614471435547e+000 1.041161060333252e+000 -1.605084300041199e+000 1.527578949928284e+000 -1.474965572357178e+000 1.355290770530701e+000 -1.745877861976624e+000 1.712602972984314e+000 -1.563431382179260e+000 8.333104252815247e-001 -1.541154265403748e+000 -1.556280970573425e+000 7.898001670837402e-001 1.451943874359131e+000 1.376102089881897e+000 -1.475358963012695e+000 -1.508958697319031e+000 1.723131775856018e+000 1.577485084533691e+000 2.009120136499405e-001 -1.543342947959900e+000 -1.532042622566223e+000 -1.665173649787903e+000 -1.577844977378845e+000 1.509271860122681e+000 -1.648273229598999e+000 -1.399203181266785e+000 -1.230364322662354e+000 1.090018987655640e+000 -7.097014784812927e-001 1.677408456802368e+000 -1.743194699287415e+000 -1.423129081726074e+000 7.856354713439941e-001 1.262704372406006e+000 1.029602646827698e+000 -8.157435655593872e-001 -1.168590903282166e+000 -1.007120013237000e+000 1.498046159744263e+000 -1.094031929969788e+000 1.288908720016480e+000 -1.570232629776001e+000 1.331548571586609e+000 -1.591911792755127e+000 1.173869848251343e+000 -1.569446206092835e+000 1.071457147598267e+000 -1.386015534400940e+000 1.319629669189453e+000 -1.251965403556824e+000 -1.506981730461121e+000 -5.631150603294373e-001 1.476744890213013e+000 1.224819302558899e+000 -1.190375804901123e+000 -4.876171946525574e-001 1.674062848091126e+000 1.343202710151672e+000 8.375900387763977e-001 -1.624152183532715e+000 -1.477828741073608e+000 -1.320914030075073e+000 -1.082759499549866e+000 1.309733152389526e+000 -5.913071632385254e-001 -1.292264103889465e+000 -1.440814852714539e+000 1.020094513893127e+000 -1.208431601524353e+000 1.691915869712830e+000 -1.277797341346741e+000 -1.482174158096314e+000 1.266713261604309e+000 1.296367645263672e+000 1.238657712936401e+000 -7.025628685951233e-001 2.491326481103897e-001 -1.536825418472290e+000 1.577931523323059e+000 -1.065637469291687e+000 1.696800708770752e+000 -1.695444345474243e+000 1.581656932830811e+000 -1.088520646095276e+000 1.492973804473877e+000 -1.063908934593201e+000 1.496415257453919e+000 -1.486176609992981e+000 6.039925217628479e-001 -1.485497832298279e+000 -1.147870540618897e+000 -1.266431331634522e+000 1.607187867164612e+000 1.494379520416260e+000 -1.001191616058350e+000 -1.084854602813721e+000 1.410489916801453e+000 1.581320643424988e+000 1.205576062202454e+000 -1.245357394218445e+000 -1.343545675277710e+000 -1.709581851959229e+000
+
+#activeOutputProbe DataWriter
+3
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+
diff --git a/fix/Breadboard/Breadboard5.nsw b/fix/Breadboard/Breadboard5.nsw
new file mode 100644
index 000000000..a49f37258
--- /dev/null
+++ b/fix/Breadboard/Breadboard5.nsw
@@ -0,0 +1,43 @@
+// Weights saved from breadboard C:\My Documents\Breadboard5.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.188449800014496e-001 1.674167998135090e-002
+1.918158382177353e-001 6.903452277183533e-001
+3.361344337463379e-001 4.151264205574989e-002
+2.485501170158386e-001 2.868268489837647e-001
+1.839550286531448e-001 3.534696102142334e-001
+1.951007992029190e-001 -4.725341200828552e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+40 1
+1
+40 3.177257776260376e-001 -3.444353640079498e-001 5.270494818687439e-001 -5.221590399742127e-001 -2.202716171741486e-001 -4.241476655006409e-001 2.620704658329487e-002 6.034846901893616e-001 -3.619376122951508e-001 -3.380794525146484e-001 4.901479184627533e-002 4.951947927474976e-002 1.800213754177094e-001 -2.407073378562927e-001 -3.286456167697907e-001 -6.795548200607300e-001 -5.868792533874512e-001 -3.454326987266541e-001 1.429300457239151e-001 -2.292728424072266e-001 4.302643239498138e-001 -2.324737906455994e-001 -4.539224207401276e-001 5.544423460960388e-001 -4.054053127765656e-001 -1.476568281650543e-001 -2.141656428575516e-001 1.077265888452530e-001 5.846756696701050e-001 3.272875547409058e-001 1.847147941589356e-003 -4.990870654582977e-001 1.531988829374313e-001 1.791626960039139e-001 -6.736395359039307e-001 -5.093495845794678e-001 -6.099227815866470e-002 3.861090838909149e-001 -6.592265367507935e-001 -2.490588128566742e-001
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+280 3.541271016001701e-002 -7.549672126770020e-001 -4.738137125968933e-001 -2.348672598600388e-003 -2.733762562274933e-001 -8.357829414308071e-003 -8.771334886550903e-001 -2.402636408805847e-001 -3.840126693248749e-001 -5.802615284919739e-001 1.073393039405346e-003 -2.714654207229614e-001 -1.682563573122025e-001 2.412795424461365e-001 6.722061038017273e-001 -2.907541096210480e-001 1.961677670478821e-001 -3.303197622299194e-001 1.424128562211990e-001 5.971218943595886e-001 -3.415485620498657e-001 -3.709296286106110e-001 2.636498510837555e-001 -6.461778879165649e-001 -4.282482266426086e-001 -1.192058548331261e-001 -7.758595943450928e-001 -4.671352729201317e-002 -2.137460708618164e-001 -1.528403162956238e-002 -7.986806631088257e-001 -3.911508247256279e-002 -5.328277871012688e-002 -6.519866585731506e-001 3.402085006237030e-001 1.100756451487541e-001 6.820629835128784e-001 7.288114726543427e-002 2.484970390796661e-001 -1.383271068334580e-001 1.246754452586174e-001 6.508666276931763e-001 3.158373534679413e-001 -5.986170172691345e-001 6.103343367576599e-001 -6.012113094329834e-001 -1.359632611274719e-001 -2.586761862039566e-002 -4.111338853836060e-001 1.772232651710510e-001 -6.230232119560242e-001 3.960133790969849e-001 -6.472764015197754e-001 -3.764366805553436e-001 -9.892498701810837e-002 -9.984154999256134e-002 -4.294761717319489e-001 -2.304461598396301e-001 -7.071238160133362e-001 -4.068204462528229e-001 -4.626799225807190e-001 -3.020684123039246e-001 6.521416902542114e-001 1.521919965744019e-001 -7.091572284698486e-001 -4.207086861133575e-001 -5.045717954635620e-001 -3.018378615379334e-001 -4.485827982425690e-001 -5.111956596374512e-001 -8.567054569721222e-002 4.856635630130768e-001 2.459491789340973e-001 -1.496585756540299e-001 -1.183001995086670e-001 4.713786244392395e-001 -2.809847891330719e-001 8.547450602054596e-002 -3.530589640140533e-001 -7.254429459571838e-001 -1.860966980457306e-001 -6.639543771743774e-001 4.769657552242279e-001 -7.412918210029602e-001 3.024796843528748e-001 -6.272576451301575e-001 -5.452296733856201e-001 -2.242822349071503e-001 -3.738160133361816e-001 3.284691274166107e-001 -4.564896821975708e-001 2.556349933147430e-001 4.318492487072945e-002 -1.320876032114029e-001 -9.898099303245544e-002 6.774403899908066e-002 1.919083893299103e-001 2.400640696287155e-001 4.077304899692535e-001 2.524036169052124e-001 5.042297840118408e-001 2.886471152305603e-001 -1.700776815414429e-001 -2.435589283704758e-001 -2.057165205478668e-001 1.996059715747833e-001 2.711705565452576e-001 3.861612975597382e-001 -2.083975523710251e-001 7.296724617481232e-002 -2.396509945392609e-001 -1.525006294250488e-001 -4.502384066581726e-001 -5.351938009262085e-001 -3.890139460563660e-001 1.700514107942581e-001 -4.677065312862396e-001 -3.514041006565094e-001 4.196007549762726e-001 2.812465429306030e-001 -2.938374876976013e-001 -3.160441517829895e-001 -4.980419874191284e-001 3.127529323101044e-001 2.271771281957626e-001 -1.466843336820602e-001 -6.397774219512940e-001 4.446669816970825e-001 8.942086249589920e-002 9.681937843561173e-002 -5.533168092370033e-002 -4.528337121009827e-001 6.882410049438477e-001 -3.133308887481690e-001 -2.058080136775971e-001 -2.226170003414154e-001 -2.296325266361237e-001 -2.966837584972382e-001 -3.301460444927216e-001 -3.557955026626587e-001 3.304032683372498e-001 -8.399857580661774e-002 4.199078381061554e-001 1.194518618285656e-002 7.232509851455689e-001 9.784302115440369e-002 -1.134829670190811e-001 1.034526005387306e-001 -8.523296117782593e-001 5.190717577934265e-001 5.323929339647293e-002 1.697375029325485e-001 5.581731796264648e-001 -9.171869754791260e-001 -1.815564483404160e-001 3.742720186710358e-001 -2.523972094058991e-001 1.490504741668701e-001 -6.334505081176758e-001 2.519290745258331e-001 2.056387513875961e-001 -1.307390183210373e-001 -9.355121254920960e-001 -2.585434913635254e-001 -4.636541008949280e-002 -1.257960349321365e-001 1.712975054979324e-001 -7.756385207176209e-001 -2.476336807012558e-001 2.972539961338043e-001 4.443784654140472e-001 4.029458761215210e-002 -2.695891633629799e-002 -1.858536303043366e-001 -1.682455986738205e-001 -1.443968862295151e-001 3.042537868022919e-001 -4.171138703823090e-001 -1.896526068449020e-001 1.934753060340881e-001 -5.211362838745117e-001 -4.224704951047897e-002 -5.408123731613159e-001 -2.546814382076263e-001 -3.727044463157654e-001 -4.361395835876465e-001 1.507636755704880e-001 8.203987777233124e-002 1.366124451160431e-001 5.710709095001221e-001 3.028809726238251e-001 9.636782407760620e-001 -3.770071640610695e-002 3.973050415515900e-001 2.884645946323872e-003 -8.364310860633850e-001 5.341901779174805e-001 -1.418879022821784e-003 5.416565537452698e-001 3.877540528774262e-001 -1.585132908076048e-003 1.770619601011276e-001 4.701207578182221e-002 4.187163114547730e-001 9.934148788452148e-001 2.260543704032898e-001 7.113759517669678e-001 4.728879332542419e-001 -3.471966087818146e-001 7.732371240854263e-002 -2.182047963142395e-001 8.698941469192505e-001 6.959328651428223e-001 1.184082403779030e-001 1.408587545156479e-001 2.005882859230042e-001 3.091167509555817e-001 -1.955157965421677e-001 -2.792426571249962e-002 -7.336559891700745e-002 1.834385395050049e-001 -3.164150416851044e-001 -5.837532281875610e-001 9.843266010284424e-001 -5.053303837776184e-001 9.432902336120606e-001 2.762463316321373e-002 3.678649663925171e-001 -8.084134012460709e-002 2.041484862565994e-001 5.061163306236267e-001 7.991071939468384e-001 2.264233529567719e-001 7.115226387977600e-001 -5.186138153076172e-001 4.093891084194183e-001 -1.001899018883705e-001 -1.933344826102257e-002 1.815729439258575e-001 -1.810713559389114e-001 -5.504883527755737e-001 7.005249857902527e-001 -1.967341639101505e-002 1.448700390756130e-002 3.791421651840210e-001 -3.687309324741364e-001 6.238684058189392e-001 2.549594640731812e-002 6.611171960830689e-001 -2.348230034112930e-001 4.087108075618744e-001 1.835047304630280e-001 2.745413780212402e-001 -5.477424860000610e-001 4.227129369974136e-002 1.370747834444046e-001 -1.771535575389862e-001 2.915630638599396e-001 8.117929100990295e-002 -5.147354602813721e-001 -7.195407748222351e-001 -2.950702905654907e-001 -8.272841572761536e-001 -8.926602080464363e-003 6.488984823226929e-001 -7.542604207992554e-001 -1.718278229236603e-001 -4.908424615859985e-002 -3.619753718376160e-001 -9.747832268476486e-002 -9.625122696161270e-002 -1.545960754156113e-001 4.842050671577454e-001 -9.618758410215378e-002 1.017526090145111e-001 -1.527849882841110e-001 5.150741338729858e-001 -2.614658325910568e-002 -4.681808650493622e-001 6.698484718799591e-002
+
+#outputSynapse FullSynapse
+120 -4.252142608165741e-001 -5.190939903259277e-001 2.900628745555878e-001 -4.749988615512848e-001 -2.432068884372711e-001 2.475018054246903e-001 1.508098654448986e-002 -1.032671928405762e-001 -5.695398449897766e-001 -4.341589808464050e-001 3.563072979450226e-001 -1.610363721847534e-001 -1.529531776905060e-001 3.572074323892593e-002 -1.639768481254578e-001 -2.103261351585388e-001 -5.111085772514343e-001 -9.769214689731598e-002 -1.570120900869370e-001 -1.928524225950241e-001 4.143640100955963e-001 -3.950143232941628e-002 -2.028328180313110e-001 -1.475265175104141e-001 -2.296919003129005e-002 -3.979336936026812e-003 -3.908852040767670e-001 4.192969501018524e-001 2.397747188806534e-001 4.962041378021240e-001 4.480696618556976e-001 -2.336141020059586e-001 3.938802778720856e-001 2.352581322193146e-001 1.772783696651459e-002 -5.289353057742119e-002 -3.967223316431046e-002 -4.341553747653961e-001 -2.162312269210815e-001 4.311326891183853e-002 4.480128586292267e-001 1.783114373683929e-001 5.068565607070923e-001 -4.451447725296021e-001 -5.096289515495300e-001 -4.807172119617462e-001 1.144711822271347e-001 3.887178003787994e-001 -3.575057387351990e-001 -1.148879528045654e-001 -3.399987518787384e-002 -2.313354164361954e-001 -7.217752188444138e-002 3.657472431659699e-001 3.738324940204620e-001 4.177713990211487e-001 -4.159389436244965e-001 -1.484509706497192e-001 2.662932872772217e-001 -4.467738270759583e-001 7.071519643068314e-002 3.344006240367889e-001 -5.436876043677330e-002 3.525221049785614e-001 -2.395160868763924e-002 -3.141686320304871e-001 3.852373957633972e-001 4.932067096233368e-001 -1.492380946874619e-001 4.595996737480164e-001 3.445216640830040e-002 -5.653984546661377e-001 -4.437799155712128e-001 1.460446715354919e-001 -4.742037057876587e-001 1.456019878387451e-001 3.867210447788239e-001 4.871259629726410e-001 -4.954726397991180e-001 1.770049333572388e-002 2.028178423643112e-001 -3.220860958099365e-001 2.971330881118774e-001 -1.783177554607391e-001 -2.126741260290146e-001 -2.823735475540161e-001 4.713099896907806e-001 2.155631184577942e-001 -3.713304102420807e-001 2.199546098709106e-001 2.943331003189087e-001 4.534626007080078e-001 3.414066731929779e-001 -1.535274535417557e-001 -1.036400645971298e-001 -4.483501911163330e-001 8.723334968090057e-002 -1.368855964392424e-002 -5.010653138160706e-001 4.472654759883881e-001 1.106471717357636e-001 5.139253139495850e-001 -2.296521663665772e-001 4.545788764953613e-001 1.664130948483944e-002 2.438283525407314e-002 -1.943250745534897e-001 4.952348470687866e-001 3.839295804500580e-001 -3.456721901893616e-001 -1.650201976299286e-001 -3.892767727375031e-001 -3.154349029064179e-001 3.591218292713165e-001 -2.804268598556519e-001 -4.606449007987976e-001 1.020256653428078e-001 2.229744791984558e-001 -4.180959761142731e-001 -4.198006689548492e-001
+
+#activeOutputProbe DataWriter
+3
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+
diff --git a/fix/Breadboard/Breadboard6.nsw b/fix/Breadboard/Breadboard6.nsw
new file mode 100644
index 000000000..ac52abc13
--- /dev/null
+++ b/fix/Breadboard/Breadboard6.nsw
@@ -0,0 +1,45 @@
+// Weights saved from breadboard C:\My Documents\Breadboard6.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.353383421897888e+000 -4.533834457397461e-001
+2.269289046525955e-001 -1.588500849902630e-002
+1.868382692337036e-001 6.490761637687683e-001
+4.038590788841248e-001 3.776083141565323e-002
+2.430133521556854e-001 3.004860281944275e-001
+1.935067623853684e-001 4.185551702976227e-001
+1.951007992029190e-001 -4.725341200828552e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+7 1
+1
+7 7.384125608950853e-003 -2.202851057052612e+000 2.003432661294937e-001 -2.467587143182755e-001 5.973502993583679e-001 3.834692537784576e-001 2.687855064868927e-001
+
+#hidden2Axon TanhAxon
+4 1
+1
+4 3.643750846385956e-001 2.449363768100739e-001 4.754272103309631e-001 7.550075054168701e-001
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+49 7.333400845527649e-001 5.450296998023987e-001 -7.700046896934509e-001 1.426693439483643e+000 -1.024212338961661e-003 -6.459779292345047e-002 1.028800487518311e+000 -2.116347402334213e-001 3.591781139373779e+000 2.435753583908081e+000 -6.687584519386292e-001 1.201278567314148e+000 -3.478864133358002e-001 1.830960988998413e+000 -3.111673295497894e-001 -4.177703261375427e-001 -3.920616805553436e-001 -5.040770769119263e-001 -5.354442000389099e-001 -1.534618530422449e-002 -1.089364647865295e+000 -3.010036647319794e-001 1.486289381980896e+000 1.059559464454651e+000 1.640596628189087e+000 2.254628390073776e-001 4.839954376220703e-001 8.484285473823547e-001 -6.926012784242630e-002 4.926209524273872e-002 2.834132313728333e-001 3.028324842453003e-001 2.161216735839844e-001 7.251360416412354e-001 2.851752638816834e-001 -5.653074979782105e-001 3.640621304512024e-001 1.341893225908279e-001 7.511208057403565e-001 -1.088509336113930e-001 1.044083759188652e-001 6.529347300529480e-001 -6.885128021240234e-001 -1.003871187567711e-001 9.337020665407181e-002 -4.425194561481476e-001 -3.668845295906067e-001 -2.661575675010681e-001 -5.936880707740784e-001
+
+#hidden2Synapse FullSynapse
+28 -5.461466908454895e-001 -1.490996479988098e+000 7.721499800682068e-001 -3.842977285385132e-001 1.134691461920738e-001 -7.171064615249634e-001 4.990165829658508e-001 -4.233781099319458e-001 5.502462983131409e-001 -1.000102013349533e-001 1.481512188911438e+000 1.637827455997467e-001 5.879161506891251e-002 -3.256742060184479e-001 4.237195849418640e-001 1.471476674079895e+000 -1.982609331607819e-001 6.787789463996887e-001 5.525223612785339e-001 4.395257532596588e-001 1.643348783254623e-001 8.910947442054749e-001 1.772162079811096e+000 -2.550726830959320e-001 4.305597543716431e-001 1.965346336364746e-001 -2.251276820898056e-001 -5.650298595428467e-001
+
+#outputSynapse FullSynapse
+12 4.605286195874214e-002 1.636024713516235e-001 7.045555710792542e-001 4.994805455207825e-001 5.167593955993652e-001 2.924540340900421e-001 -1.490857079625130e-002 -1.826021969318390e-001 3.571106493473053e-001 -3.790216147899628e-001 -6.031348705291748e-001 -4.664786159992218e-001
+
diff --git a/fix/Breadboard/Breadboard7.nsw b/fix/Breadboard/Breadboard7.nsw
new file mode 100644
index 000000000..c88453404
--- /dev/null
+++ b/fix/Breadboard/Breadboard7.nsw
@@ -0,0 +1,45 @@
+// Weights saved from breadboard C:\My Documents\Breadboard7.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.295625507831574e-001 6.163756549358368e-002
+2.081165313720703e-001 6.204994320869446e-001
+3.565062582492828e-001 -1.051693689078093e-002
+2.430133521556854e-001 3.004860281944275e-001
+1.839550286531448e-001 3.534696102142334e-001
+1.951007992029190e-001 -4.725341200828552e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+7 1
+1
+7 -4.191969335079193e-001 1.229978561401367e+000 -2.403785735368729e-001 5.233071446418762e-001 8.062141537666321e-001 1.000604867935181e+000 -1.015548110008240e-001
+
+#hidden2Axon TanhAxon
+4 1
+1
+4 -5.321261882781982e-001 -2.396449327468872e+000 -1.170158505439758e+000 -4.097367227077484e-001
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+49 1.341468811035156e+000 -4.215665817260742e+000 -1.636691570281982e+000 -2.792109727859497e+000 -1.489341259002686e+000 4.075187742710114e-001 -2.091729402542114e+000 -5.029736161231995e-001 -4.151493072509766e+000 -1.452428579330444e+000 2.398953676223755e+000 -8.748555183410645e-001 1.340690374374390e+000 -2.277854681015015e+000 6.057588458061218e-001 1.353034019470215e+000 -1.214678883552551e+000 -3.864320814609528e-001 1.148570895195007e+000 5.792776346206665e-001 1.344245020300150e-002 -8.885311484336853e-001 -1.594583272933960e+000 4.960928857326508e-001 -1.118881464004517e+000 -2.252289772033691e+000 6.328870654106140e-001 -1.946701169013977e+000 -2.910976111888886e-001 2.447998225688934e-001 2.001658976078033e-001 -1.229660585522652e-002 6.969845890998840e-001 -5.897524300962687e-003 -5.688555836677551e-001 2.619750201702118e-001 -4.162483692169190e+000 -1.468571424484253e+000 -3.118389844894409e+000 6.947994828224182e-001 -2.687734663486481e-001 -2.110401153564453e+000 3.224660456180573e-002 8.378994464874268e-001 9.896742701530457e-001 -7.354493737220764e-001 6.684727072715759e-001 1.465887904167175e+000 -3.726872503757477e-001
+
+#hidden2Synapse FullSynapse
+28 -3.395457863807678e-001 -5.815528631210327e-001 2.929831743240356e-001 -5.629656314849854e-001 4.701104387640953e-002 -9.300172328948975e-001 -1.461120098829269e-001 -3.458845615386963e-001 1.266251802444458e-001 6.342335790395737e-002 1.869771480560303e-001 -1.476681977510452e-001 5.144428834319115e-002 -3.145390946883708e-004 8.697064518928528e-001 1.057970225811005e-001 2.603019773960114e-001 4.393529295921326e-001 -2.832717299461365e-001 5.771816968917847e-001 -3.896601796150208e-001 -7.260112762451172e-001 -7.957320213317871e-001 6.776907294988632e-002 -3.073690235614777e-001 -1.540119051933289e-001 -6.733091473579407e-001 2.009786069393158e-001
+
+#outputSynapse FullSynapse
+12 3.156347572803497e-001 -8.236174583435059e-001 -9.946570396423340e-001 4.212915897369385e-001 -7.918102145195007e-001 -2.033229321241379e-001 -1.056663155555725e+000 -5.699685215950012e-001 -9.666987657546997e-001 -5.505290031433106e-001 8.724089711904526e-002 -9.536570906639099e-001
+
diff --git a/fix/Breadboard/Breadboard8.nsw b/fix/Breadboard/Breadboard8.nsw
new file mode 100644
index 000000000..56b61746e
--- /dev/null
+++ b/fix/Breadboard/Breadboard8.nsw
@@ -0,0 +1,51 @@
+// Weights saved from breadboard C:\My Documents\Breadboard8.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.353383421897888e+000 -4.533834457397461e-001
+2.188449800014496e-001 1.674167998135090e-002
+1.906577646732330e-001 6.807435750961304e-001
+3.361344337463379e-001 4.151264205574989e-002
+2.491349428892136e-001 3.307266235351563e-001
+1.839550286531448e-001 3.534696102142334e-001
+1.951007992029190e-001 -4.725341200828552e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+7 1
+1
+7 -3.274627029895783e-001 2.668272238224745e-003 -3.019839525222778e-001 -4.557206928730011e-001 -5.515558272600174e-002 3.119016764685512e-004 8.753398060798645e-002
+
+#hidden2Axon TanhAxon
+4 1
+1
+4 2.733168303966522e-001 -3.423235416412354e-001 8.666662573814392e-001 -6.124708056449890e-001
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+49 2.732226848602295e-001 1.847893238067627e+000 -1.084923520684242e-001 1.385403037071228e+000 2.885355055332184e-001 -3.135629594326019e-001 1.057805895805359e+000 -5.868541821837425e-002 3.278825521469116e+000 4.641786217689514e-001 4.461606740951538e-001 -1.952850073575974e-001 -5.789646506309509e-001 1.945697903633118e+000 -9.578172862529755e-002 2.150904417037964e+000 9.114052653312683e-001 1.107189536094666e+000 6.752110123634338e-001 2.475811988115311e-001 1.050705909729004e+000 3.205673992633820e-001 2.478840798139572e-001 -5.084273815155029e-001 -2.407394796609879e-001 -1.702371835708618e-001 1.456947028636932e-001 3.221787512302399e-001 -2.719256579875946e-001 -5.116361379623413e-001 3.973563387989998e-002 -1.733802706003189e-001 -1.649789661169052e-001 -4.471102654933929e-001 -4.071239829063416e-001 -1.492276042699814e-001 -1.245773434638977e+000 -6.851593255996704e-001 -8.733592033386231e-001 -4.348643422126770e-001 -3.520536422729492e-001 -9.930510520935059e-001 1.956800930202007e-002 -9.781590104103088e-001 -6.039583683013916e-001 -6.923800706863403e-001 -6.682770848274231e-001 4.162513464689255e-002 -1.004322052001953e+000
+
+#hidden2Synapse FullSynapse
+28 -8.183520436286926e-001 -1.621446132659912e+000 -1.045793533325195e+000 -5.855653062462807e-002 4.404523968696594e-001 7.002395391464233e-001 2.097517400979996e-001 -9.925779700279236e-002 -8.263560533523560e-001 -1.043026208877564e+000 4.524357020854950e-001 2.231711596250534e-001 8.736496567726135e-001 8.797182440757752e-001 6.963157653808594e-001 2.816314399242401e-001 1.525615751743317e-001 1.936565339565277e-001 1.900831162929535e-001 1.180221140384674e-001 1.027775928378105e-001 9.149055480957031e-001 1.129598617553711e+000 6.131598353385925e-001 2.547058761119843e-001 2.556352131068707e-002 -3.627143800258637e-002 -6.722733378410339e-001
+
+#outputSynapse FullSynapse
+12 -5.266965627670288e-001 -1.973343640565872e-001 1.362649053335190e-001 9.479679167270660e-002 2.987665235996246e-001 -3.116582632064819e-001 -1.842434853315353e-001 -4.986568093299866e-001 6.261917948722839e-001 5.454919338226318e-001 -3.484728187322617e-002 -4.687039256095886e-001
+
+#activeOutputProbe DataWriter
+3
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+
diff --git a/fix/Breadboard/Breadboard9.nsw b/fix/Breadboard/Breadboard9.nsw
new file mode 100644
index 000000000..95b1f1ed6
--- /dev/null
+++ b/fix/Breadboard/Breadboard9.nsw
@@ -0,0 +1,51 @@
+// Weights saved from breadboard C:\My Documents\Breadboard9.nsb.
+// Saved after epoch 1, exemplar 0.
+
+#NSWeightFileVersion 225
+
+#inputFile File
+7
+1.077844262123108e+000 -1.778443008661270e-001
+2.188449800014496e-001 1.674167998135090e-002
+1.868382692337036e-001 6.490761637687683e-001
+3.733665347099304e-001 1.051026657223702e-001
+2.430133521556854e-001 3.004860281944275e-001
+2.083092182874680e-001 3.581876754760742e-001
+1.951007992029190e-001 -4.725341200828552e-001
+0
+
+#inputAxon Axon
+7 1
+1
+0
+
+#hidden1Axon TanhAxon
+7 1
+1
+7 1.012814998626709e+000 -3.782782554626465e-001 -2.220184087753296e+000 -3.424299955368042e-001 1.449530482292175e+000 -2.592789530754089e-001 -4.670010507106781e-001
+
+#hidden2Axon TanhAxon
+4 1
+1
+4 3.516010642051697e-001 3.293374776840210e-001 -1.675553172826767e-001 3.799068629741669e-001
+
+#outputAxon SoftMaxAxon
+3 1
+1
+3 0.000000000000000e+000 0.000000000000000e+000 0.000000000000000e+000
+
+#hidden1Synapse FullSynapse
+49 1.390573829412460e-001 -3.110583126544952e-001 1.105552077293396e+000 4.394045472145081e-001 4.795211851596832e-001 1.969023197889328e-001 5.574952811002731e-002 1.690310984849930e-001 2.208244323730469e+000 2.111947536468506e+000 3.239532709121704e-001 7.690296173095703e-001 1.264077782630920e+000 1.672740578651428e+000 1.320844173431397e+000 7.965675592422485e-001 -7.341063618659973e-001 3.702043294906616e+000 1.716022133827210e+000 -6.642882823944092e-001 1.686427950859070e+000 -4.863217473030090e-001 1.285641908645630e+000 1.281449794769287e+000 2.356275558471680e+000 -1.406845331192017e+000 6.027717590332031e-001 6.652191877365112e-001 -9.871492385864258e-001 -5.513690948486328e+000 -2.750334143638611e-001 1.229651212692261e+000 -2.504641294479370e+000 -3.219850361347199e-001 -2.744197607040405e+000 -4.023179113864899e-001 9.932321496307850e-003 -6.916724443435669e-001 -2.260914087295532e+000 1.261568814516068e-001 3.248662948608398e-001 6.963043808937073e-001 1.830800414085388e+000 -2.054267644882202e+000 -9.595731496810913e-001 -8.711494207382202e-001 -1.330682396888733e+000 2.109736204147339e+000 -6.145163774490356e-001
+
+#hidden2Synapse FullSynapse
+28 -3.299105465412140e-001 4.235435724258423e-001 9.191738963127136e-001 6.795659661293030e-001 -1.440919041633606e+000 4.634908214211464e-002 -1.265781879425049e+000 2.394487708806992e-001 1.205053567886353e+000 5.790516138076782e-001 1.087130665779114e+000 -6.723164916038513e-001 -1.834900081157684e-001 -4.767680168151856e-001 8.402896672487259e-002 1.035530328750610e+000 1.644443035125732e+000 4.317290484905243e-001 -1.714672803878784e+000 5.225644707679749e-001 -5.602287650108337e-001 1.068559288978577e+000 -2.211284125223756e-003 -2.943626642227173e-001 1.341261714696884e-001 4.324447214603424e-001 -5.482236146926880e-001 -4.985276758670807e-001
+
+#outputSynapse FullSynapse
+12 3.726457059383392e-001 7.749153375625610e-001 4.159255921840668e-001 5.234625935554504e-001 -1.592817008495331e-001 5.884559154510498e-001 -7.756121158599854e-001 2.137655019760132e-001 -6.172903776168823e-001 -4.417923986911774e-001 -4.576872885227203e-001 4.440903961658478e-001
+
+#activeOutputProbe DataWriter
+3
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+8.999999761581421e-001 5.000000074505806e-002
+
diff --git a/parm/fv3lam.xml b/parm/fv3lam.xml
index 1ed55aab2..f0287bfa5 100755
--- a/parm/fv3lam.xml
+++ b/parm/fv3lam.xml
@@ -3404,5 +3404,11 @@
3.0
+
+ SDEN_ON_SURFACE
+ SDEN
+ 6.0
+
+
diff --git a/parm/fv3lam_rrfs.xml b/parm/fv3lam_rrfs.xml
index 2f961ff51..789caf734 100755
--- a/parm/fv3lam_rrfs.xml
+++ b/parm/fv3lam_rrfs.xml
@@ -3624,5 +3624,11 @@
4.0
+
+ SDEN_ON_SURFACE
+ SDEN
+ 6.0
+
+
diff --git a/parm/global_1x1_paramlist_g2 b/parm/global_1x1_paramlist_g2
index 909261ccf..3d37d4036 100644
--- a/parm/global_1x1_paramlist_g2
+++ b/parm/global_1x1_paramlist_g2
@@ -364,6 +364,7 @@ RWMR:950 mb
RWMR:975 mb
RWMR:1 hybrid level
SHTFL:surface
+SDEN:surface
SFCR:surface
SOILW:0-0.1 m below ground
SOILW:0.1-0.4 m below ground
diff --git a/parm/post_avblflds.xml b/parm/post_avblflds.xml
index 77675b46b..a3a3d0dcd 100755
--- a/parm/post_avblflds.xml
+++ b/parm/post_avblflds.xml
@@ -8191,5 +8191,14 @@
surface
4.0
+
+
+ 1006
+ SDEN_ON_SURFACE
+ SDEN
+ surface
+ 6.0
+
+
diff --git a/parm/postcntrl_gfs.xml b/parm/postcntrl_gfs.xml
index 8ad9f86ea..07cb23077 100755
--- a/parm/postcntrl_gfs.xml
+++ b/parm/postcntrl_gfs.xml
@@ -1219,6 +1219,11 @@
9.0
+
+ SDEN_ON_SURFACE
+ 6.0
+
+
diff --git a/parm/postcntrl_gfs_two.xml b/parm/postcntrl_gfs_two.xml
index 2c8613c6f..b55f7cf66 100755
--- a/parm/postcntrl_gfs_two.xml
+++ b/parm/postcntrl_gfs_two.xml
@@ -1219,6 +1219,11 @@
9.0
+
+ SDEN_ON_SURFACE
+ 6.0
+
+
diff --git a/parm/postxconfig-NT-GFS-TWO.txt b/parm/postxconfig-NT-GFS-TWO.txt
index 16ae86598..ba22c218f 100644
--- a/parm/postxconfig-NT-GFS-TWO.txt
+++ b/parm/postxconfig-NT-GFS-TWO.txt
@@ -1,6 +1,6 @@
2
112
-209
+210
GFSPRS
0
ncep_nco
@@ -7750,6 +7750,43 @@ between_first_second_limit
?
?
?
+1006
+SDEN_ON_SURFACE
+?
+1
+tmpl4_0
+SDEN
+?
+?
+surface
+0
+?
+0
+?
+?
+0
+?
+0
+?
+?
+?
+0
+0.0
+0
+0.0
+?
+0
+0.0
+0
+0.0
+1
+6.0
+0
+0
+0
+?
+?
+?
GFSFLX
0
ncep_nco
diff --git a/parm/postxconfig-NT-GFS.txt b/parm/postxconfig-NT-GFS.txt
index ee9f0db08..47cc36f4c 100644
--- a/parm/postxconfig-NT-GFS.txt
+++ b/parm/postxconfig-NT-GFS.txt
@@ -1,5 +1,5 @@
1
-209
+210
GFSPRS
0
ncep_nco
@@ -7749,3 +7749,40 @@ between_first_second_limit
?
?
?
+1006
+SDEN_ON_SURFACE
+?
+1
+tmpl4_0
+SDEN
+?
+?
+surface
+0
+?
+0
+?
+?
+0
+?
+0
+?
+?
+?
+0
+0.0
+0
+0.0
+?
+0
+0.0
+0
+0.0
+1
+6.0
+0
+0
+0
+?
+?
+?
diff --git a/parm/postxconfig-NT-fv3lam.txt b/parm/postxconfig-NT-fv3lam.txt
index db3ccdde6..5881aa4a1 100644
--- a/parm/postxconfig-NT-fv3lam.txt
+++ b/parm/postxconfig-NT-fv3lam.txt
@@ -1,5 +1,5 @@
2
-219
+220
264
PRSLEV
32769
@@ -17904,3 +17904,40 @@ surface
?
?
?
+1006
+SDEN_ON_SURFACE
+?
+1
+tmpl4_0
+SDEN
+?
+?
+surface
+0
+?
+0
+?
+?
+0
+?
+0
+?
+?
+?
+0
+0.0
+0
+0.0
+?
+0
+0.0
+0
+0.0
+1
+6.0
+0
+0
+0
+?
+?
+?
diff --git a/parm/postxconfig-NT-fv3lam_rrfs.txt b/parm/postxconfig-NT-fv3lam_rrfs.txt
index 790bb1209..a55dcf752 100644
--- a/parm/postxconfig-NT-fv3lam_rrfs.txt
+++ b/parm/postxconfig-NT-fv3lam_rrfs.txt
@@ -1,5 +1,5 @@
2
-241
+242
290
PRSLEV
32769
@@ -19680,3 +19680,40 @@ top_of_atmos
?
?
?
+1006
+SDEN_ON_SURFACE
+?
+1
+tmpl4_0
+SDEN
+?
+?
+surface
+0
+?
+0
+?
+?
+0
+?
+0
+?
+?
+?
+0
+0.0
+0
+0.0
+?
+0
+0.0
+0
+0.0
+1
+6.0
+0
+0
+0
+?
+?
+?
diff --git a/sorc/ncep_post.fd/MDL2P.f b/sorc/ncep_post.fd/MDL2P.f
index a430c8e1e..93a070788 100644
--- a/sorc/ncep_post.fd/MDL2P.f
+++ b/sorc/ncep_post.fd/MDL2P.f
@@ -33,6 +33,7 @@
!> 2022-08-03 | W Meng | Modify total cloud fraction(331)
!> 2022-09-22 | L Zhang | Remove DUSTSL
!> 2022-11-16 | E James | Adding dust from RRFS
+!> 2022-12-21 | J Meng ! Adding snow density SDEN
!>
!> @author T Black W/NP2 @date 1999-09-23
SUBROUTINE MDL2P(iostatusD3D)
@@ -64,7 +65,7 @@ SUBROUTINE MDL2P(iostatusD3D)
IEND_2U,nasa_on
use rqstfld_mod, only: IGET, LVLS, ID, IAVBLFLD, LVLSXML
use gridspec_mod, only: GRIDTYPE, MAPTYPE, DXVAL
- use upp_physics, only: FPVSNEW, CALRH, CALVOR
+ use upp_physics, only: FPVSNEW, CALRH, CALVOR, CALSLR_ROEBBER
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!
implicit none
@@ -91,6 +92,7 @@ SUBROUTINE MDL2P(iostatusD3D)
integer,intent(in) :: iostatusD3D
INTEGER, dimension(ista_2l:iend_2u,jsta_2l:jend_2u) :: NL1X, NL1XF
real, dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM) :: TPRS, QPRS, FPRS
+ real, dimension(ISTA_2L:IEND_2U,JSTA_2L:JEND_2U,LSM) :: RHPRS
!
INTEGER K, NSMOOTH
!
@@ -1236,7 +1238,7 @@ SUBROUTINE MDL2P(iostatusD3D)
!*** RELATIVE HUMIDITY.
!
- IF(IGET(017) > 0 .OR. IGET(257) > 0)THEN
+ IF(IGET(017) > 0 .OR. IGET(257) > 0 .OR. IGET(1006) > 0)THEN
! if ( me == 0) print *,'IGET(17)=',IGET(017),'LP=',LP,IGET(257), &
! 'LVLS=',LVLS(1,4)
log1=.false.
@@ -1246,7 +1248,7 @@ SUBROUTINE MDL2P(iostatusD3D)
IF(IGET(257) > 0) then
if(LVLS(LP,IGET(257)) > 0 ) log1=.true.
endif
- if ( log1 ) then
+
!$omp parallel do private(i,j)
DO J=JSTA,JEND
DO I=ISTA,IEND
@@ -1274,6 +1276,8 @@ SUBROUTINE MDL2P(iostatusD3D)
CALL SMOOTH(GRID1,SDUMMY,IM,JM,0.5)
end do
ENDIF
+
+ if ( log1 ) then
if(grib == 'grib2')then
cfld = cfld + 1
fld_info(cfld)%ifld=IAVBLFLD(IGET(017))
@@ -1292,10 +1296,16 @@ SUBROUTINE MDL2P(iostatusD3D)
DO J=JSTA,JEND
DO I=ISTA,IEND
SAVRH(I,J) = GRID1(I,J)
- ENDDO
- ENDDO
+ ENDDO
+ ENDDO
+ ENDIF !if (log1 )
- ENDIF
+!$omp parallel do private(i,j)
+ DO J=JSTA,JEND
+ DO I=ISTA,IEND
+ RHPRS(I,J,LP) = GRID1(I,J)
+ ENDDO
+ ENDDO
ENDIF
!
!*** CLOUD FRACTION.
@@ -3842,10 +3852,40 @@ SUBROUTINE MDL2P(iostatusD3D)
END DO
ENDIF
ENDIF
+
+! SNOW DESITY SOLID-LIQUID-RATION SLR
+ IF ( IGET(1006)>0 ) THEN
+ if(me==0)PRINT*,'CALLING SLR'
+ egrid1=spval
+ call calslr_roebber(TPRS,RHPRS,EGRID1)
+!$omp parallel do private(i,j)
+ do j=jsta,jend
+ do i=ista,iend
+ if(egrid1(i,j) < spval) then
+ grid1(i,j)=1000./egrid1(i,j)
+ else
+ grid1(i,j)=spval
+ endif
+ enddo
+ enddo
+ if(grib=='grib2') then
+ cfld=cfld+1
+ fld_info(cfld)%ifld=IAVBLFLD(IGET(1006))
+!$omp parallel do private(i,j,ii,jj)
+ do j=1,jend-jsta+1
+ jj = jsta+j-1
+ do i=1,iend-ista+1
+ ii=ista+i-1
+ datapd(i,j,cfld) = GRID1(ii,jj)
+ enddo
+ enddo
+ endif
+ ENDIF
!
if(allocated(d3dsl)) deallocate(d3dsl)
if(allocated(smokesl)) deallocate(smokesl)
if(allocated(fv3dustsl)) deallocate(fv3dustsl)
+ if(me==0)PRINT*,'MDL2P completed'
! END OF ROUTINE.
!
RETURN
diff --git a/sorc/ncep_post.fd/UPP_PHYSICS.f b/sorc/ncep_post.fd/UPP_PHYSICS.f
index cb059ba1f..11ef417e3 100644
--- a/sorc/ncep_post.fd/UPP_PHYSICS.f
+++ b/sorc/ncep_post.fd/UPP_PHYSICS.f
@@ -14,6 +14,8 @@
!>
!> calrh_pw() algorithm use at GSD for RUC and Rapid Refresh.
!>
+!> calslr_roebber() computes snow solid-liquid-ratio slr using the Roebber algorithm.
+!>
!> fpvsnew() computes saturation vapor pressure.
!>
!> tvirtual() computes virtual temperature.
@@ -36,6 +38,7 @@ module upp_physics
public :: CALRH
public :: CALRH_GFS, CALRH_GSD, CALRH_NAM
public :: CALRH_PW
+ public :: CALSLR_ROEBBER
public :: CALVOR
public :: FPVSNEW
@@ -2638,6 +2641,1656 @@ SUBROUTINE CALGRADPS(PS,PSX,PSY)
! END IF
END SUBROUTINE CALGRADPS
+
+!> calslr_roebber() computes snow solid-liquid-ratio slr using the Roebber algorithm.
+!>
+!> Obtained the code and data from WPC. WPC's SLR products include SLR computed from
+!> GFS and NAM, SLR climotology, and averaged SLR. UPP computes SLR for GFS and RRFS.
+!> SLR climatology is not used in UPP calculation but the data is saved in fix directory
+!> for reference. Breadboard coefficients are included in this module to enhance the
+!> performance. Original Breadboard coefficients files are also saved in fix directory.
+!>
+!> ### Program history log:
+!> Date | Programmer | Comments
+!> -----|------------|---------
+!> 2022-07-11 | Jesse Meng | Initial
+!> 2023-01-06 | Jesse Meng ! Import Breadboard coefficients into module
+!>
+!> @author Jesse Meng @date 2022-07-11
+
+ SUBROUTINE CALSLR_ROEBBER(tprs,rhprs,slr)
+
+ use masks, only: lmh
+ use vrbls2d, only: slp, avgprec_cont, u10, v10, pshltr, tshltr, qshltr
+ use vrbls3d, only: T, Q, PMID, PINT
+ use ctlblk_mod, only: ista, iend, jsta, jend, &
+ ista_2l, iend_2u, jsta_2l, jend_2u, &
+ IM, JM, LM, LSM, SPL, MODELNAME, spval, me, idat
+ use params_mod, only: CAPA, H1, H100
+ use grib2_module, only: read_grib2_sngle
+
+ implicit none
+
+ real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lsm),intent(in) :: tprs
+ real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u,lsm),intent(in) :: rhprs
+ real,dimension(ista_2l:iend_2u,jsta_2l:jend_2u), intent(out) :: slr !slr=snod/weasd=1000./sndens
+
+! local variables
+
+ character*256 :: climoFile
+ logical file_exists
+ integer :: ntot, height
+ real,dimension(im,jm) :: CLIMO
+ real,dimension(ista:iend,jsta:jend) :: CLIMOSUB
+
+ real,dimension(ista:iend,jsta:jend) :: P1D,T1D,Q1D,RH1D
+ real,dimension(ista:iend,jsta:jend) :: T2M,RH2M
+
+ type all_grids
+ real :: grid
+ real :: sigma
+ end type all_grids
+
+ real prob1, prob2, prob3
+ real,dimension(0:14), parameter :: sig = &
+ (/0.0, 1.0, 0.975, 0.95, 0.925, 0.9, 0.875, 0.85, &
+ 0.8, 0.75, 0.7, 0.65, 0.6, 0.5, 0.4/)
+ real,dimension(12), parameter :: mf = &
+ (/1.0, 0.67, 0.33, 0.0, -0.33, -0.67, -1.00, -0.67, -0.33, 0.0, 0.33, 0.67/)
+ integer, dimension(0:37), parameter :: levels = &
+ (/2, 1000, 975, 950, 925, 900, 875, 850, 825, 800, 775, 750, 725, 700, &
+ 675, 650, 625, 600, 575, 550, 525, 500, 475, 450, 425, 400, &
+ 375, 350, 325, 300, 275, 250, 225, 200, 175, 150, 125, 100/)
+
+ real,dimension(0:14) :: tm, rhm
+
+ real,dimension(0:30), parameter :: co1 = &
+ (/0.0, -.2926, .0070, -.0099, .0358, .0356, .0353, .0333, .0291, &
+ .0235, .0169, .0060, -.0009, -.0052, -.0079, -.0093,&
+ -.0116, -.0137, .0030, .0033, -.0005, -.0024, -.0023,&
+ -.0021, -.0007, .0013, .0023, .0024, .0012, .0002, -.0010/)
+
+ real,dimension(0:30), parameter :: co2 = &
+ (/0.0, -9.7961, .0099, -.0222, -.0036, -.0012, .0010, .0018, .0018,&
+ .0011, -.0001, -.0016, -.0026, -.0021, -.0015, -.0010,&
+ -.0008, -.0017, .0238, .0213, .0253, .0232, .0183, .0127,&
+ .0041, -.0063, -.0088, -.0062, -.0029, .0002, .0019/)
+
+ real,dimension(0:30), parameter :: co3 = &
+ (/0.0, 5.0037, -0.0097, -.0130, -.0170, -.0158, -.0141, -.0097,&
+ -.0034, .0032, .0104, .0200, .0248, .0273, .0280, .0276,&
+ .0285, .0308, -.0036, -.0042, -.0013, .0011, .0014, .0023,&
+ .0011, -.0004, -.0022, -.0030, -.0033, -.0031, -.0019/)
+
+ real,dimension(0:30), parameter :: co4 = &
+ (/0.0, -5.0141, .0172, -.0267, .0015, .0026, .0033, .0015, -.0007,&
+ -.0030, -.0063, -.0079, -.0074, -.0055, -.0035, -.0015,&
+ -.0038, -.0093, .0052, .0059, .0019, -.0022, -.0077, -.0102,&
+ -.0109, -.0077, .0014, .0160, .0217, .0219, .0190/)
+
+ real,dimension(0:30), parameter :: co5 = &
+ (/0.0, -5.2807, -.0240, .0228, .0067, .0019, -.0010, -.0003, .0012,&
+ .0027, .0056, .0067, .0067, .0034, .0005, -.0026, -.0039,&
+ -.0033, -.0225, -.0152, -.0157, -.0094, .0049, .0138,&
+ .0269, .0388, .0334, .0147, .0018, -.0066, -.0112/)
+
+ real,dimension(0:30), parameter :: co6 = &
+ (/0.0, -2.2663, .0983, .3666, .0100, .0062, .0020, -.0008, -.0036,&
+ -.0052, -.0074, -.0086, -.0072, -.0057, -.0040, -.0011,&
+ .0006, .0014, .0012, -.0005, -.0019, .0003, -.0007, -.0008,&
+ .0022, .0005, -.0016, -.0052, -.0024, .0008, .0037/)
+
+ type(all_grids), dimension(ista:iend,jsta:jend,0:lsm) :: tmpk_grids, rh_grids
+ integer, dimension(ista:iend,jsta:jend,0:lsm) :: tmpk_levels, rh_levels
+
+ real,dimension(ista:iend,jsta:jend) :: hprob,mprob,lprob
+ real,dimension(ista:iend,jsta:jend) :: slrgrid, slrgrid2
+ real,dimension(ista:iend,jsta:jend) :: psfc,pres,qpf,swnd,prp
+
+ character*20 nswFileName
+ real :: psurf,p,sgw,sg1,sg2,dtds,rhds
+ real :: f1,f2,f3,f4,f5,f6
+ real :: p1,p2,p3
+ real :: hprob_tot
+ real :: mprob_tot
+ real :: lprob_tot
+
+ integer :: i,j,k,ks,L,LL,imo,iday
+!
+!***************************************************************************
+!
+! day and month of the year
+
+ imo = idat(1)
+ iday= idat(2)
+
+! climatology
+! currently not used, snoden climatology files saved in fix directory
+!
+! climoFile='climo_snoden'
+! ntot=im*jm
+! CLIMO = spval
+! CLIMOSUB = spval
+! INQUIRE(FILE=climoFile, EXIST=file_exists)
+! if(file_exists) then
+! print*,trim(climoFile),' FOUND'
+! call read_grib2_sngle(climoFile,ntot,height,CLIMO)
+! do j=jsta,jend
+! do i=ista,iend
+! if(CLIMO(i,j).gt.0 .and. CLIMO(i,j).lt.1000) CLIMOSUB(i,j)=1000./CLIMO(i,j)
+! endif
+! end do
+! end do
+! else
+! print*,trim(climoFile),' NOT FOUND'
+! endif !if(file_exist)
+
+! surface variables
+
+!$omp parallel do private(i,j)
+ DO J=JSTA,JEND
+ DO I=ISTA,IEND
+ PSFC(I,J)=PINT(I,J,NINT(LMH(I,J))+1)
+ PRES(I,J)=SLP(I,J)
+ QPF(I,J)=AVGPREC_CONT(I,J)*3600.*3.
+ SWND(I,J)=SPVAL
+ IF(U10(I,J)/=SPVAL .AND. V10(I,J)/=SPVAL) &
+ SWND(I,J)=SQRT(U10(I,J)*U10(I,J)+V10(I,J)*V10(I,J))
+ END DO
+ END DO
+
+! T2M and RH2M
+
+!$omp parallel do private(i,j)
+ DO J=JSTA,JEND
+ DO I=ISTA,IEND
+ IF(MODELNAME=='RAPR')THEN
+ P1D(I,J) = PMID(I,J,NINT(LMH(I,J)))
+ T1D(I,J) = T(I,J,NINT(LMH(I,J)))
+ ELSE
+ P1D(I,J) = PINT(I,J,LM+1)*EXP(-0.068283/TSHLTR(I,J))
+ T1D(I,J) = TSHLTR(I,J)*(PSHLTR(I,J)*1.E-5)**CAPA
+ ENDIF
+ Q1D(I,J) = QSHLTR(I,J)
+ T2M(I,J) = T1D(I,J)
+ ENDDO
+ ENDDO
+
+ CALL CALRH(P1D,T1D,Q1D,RH1D)
+
+!$omp parallel do private(i,j)
+ DO J=JSTA,JEND
+ DO I=ISTA,IEND
+ if(qshltr(i,j) /= spval)then
+ RH2M(I,J) = RH1D(I,J)*100.
+ else
+ RH2M(I,J) = spval
+ endif
+ ENDDO
+ ENDDO
+ CALL BOUND(RH2M,H1,H100)
+
+!$omp parallel do private(i,j)
+ do j=jsta,jend
+ do i=ista,iend
+ tmpk_grids(i,j,0)%grid=T2M(I,J)-273.15
+ tmpk_levels(i,j,0)=pres(i,j)
+ rh_grids(i,j,0)%grid=RH2M(I,J)
+ rh_levels(i,j,0)=pres(i,j)
+ end do
+ end do
+
+! T and RH all pressure levels
+
+ DO L=1,LSM
+ LL=LSM-L+1
+!!!$omp parallel do private(i,j,ll)
+ do j=jsta,jend
+ do i=ista,iend
+ tmpk_grids(i,j,LL)%grid=tprs(I,J,L)-273.15
+ tmpk_levels(i,j,LL)=SPL(L)
+ rh_grids(i,j,LL)%grid=rhprs(I,J,L)
+ rh_levels(i,j,LL)=SPL(L)
+ end do
+ end do
+ END DO
+
+! convert to sigma
+
+ tmpk_grids(:,:,0)%sigma = 1.0
+ rh_grids(:,:,0)%sigma = 1.0
+
+ DO L=1,LSM
+ LL=LSM-L+1
+!!!$omp parallel do private(i,j,ll)
+ do j=jsta,jend
+ do i=ista,iend
+ if(pres(i,j) == spval) then
+ tmpk_grids(i,j,LL)%sigma=spval
+ rh_grids(i,j,LL)%sigma=spval
+ else
+ tmpk_grids(i,j,LL)%sigma=tmpk_levels(i,j,LL)/pres(i,j)
+ rh_grids(i,j,LL)%sigma=rh_levels(i,j,LL)/pres(i,j)
+ prp(i,j)=pres(i,j)/psfc(i,j)
+ prp(i,j)=prp(i,j)*100000./psfc(i,j)
+ endif
+ end do
+ end do
+ END DO
+
+! main slr i/j loop starts
+
+ do j=jsta,jend
+ do i=ista,iend
+ tm=spval
+ rhm=spval
+ slr(i,j)=spval
+ slrgrid(i,j)=spval
+ slrgrid2(i,j)=spval
+ hprob(i,j)=spval
+ mprob(i,j)=spval
+ lprob(i,j)=spval
+
+ if(pres(i,j)/=spval .and. qpf(i,j)/=spval .and. swnd(i,j)/=spval) then
+
+! Interpolate T and RH to the 14 sigma levels
+
+ do ks=1,14
+ psurf=pres(i,j)
+ sgw=sig(ks)
+ p=prp(i,j)
+ do LL=0,LSM-1
+ if(LL==0) then
+ sg1 = psurf/psurf
+ else
+ sg1 = tmpk_levels(i,j,LL)/psurf
+ endif
+ sg2 = tmpk_levels(i,j,LL+1)/psurf
+
+ if(sg1 == sgw) then
+ tm(ks) = tmpk_grids(i,j,LL)%grid
+ rhm(ks)= rh_grids(i,j,LL)%grid
+ elseif (sg2 == sgw) then
+ tm(ks) = tmpk_grids(i,j,LL+1)%grid
+ rhm(ks)= rh_grids(i,j,LL+1)%grid
+ elseif ((sgw < sg1) .and. (sgw > sg2)) then
+ dtds = (tmpk_grids(i,j,LL+1)%grid - tmpk_grids(i,j,LL)%grid)/(sg2-sg1)
+ tm(ks) = ((sgw - sg1) * dtds) + tmpk_grids(i,j,LL)%grid
+ rhds = (rh_grids(i,j,LL+1)%grid - rh_grids(i,j,LL)%grid)/(sg2-sg1)
+ rhm(ks)= ((sgw - sg1) * rhds) + rh_grids(i,j,LL)%grid
+ endif
+ end do
+ end do !loop ks
+
+! Have surface wind, QPF, and temp/RH on the 14 sigma levels.
+! Convert these data to the factors using regression equations
+
+ f1 = co1(1)+co1(2)*qpf(i,j)+co1(3)*swnd(i,j)+co1(4)*tm(1)+co1(5)*tm(2)+co1(6)*tm(3)+ &
+ co1(7)*tm(4)+co1(8)*tm(5)+co1(9)*tm(6)+co1(10)*tm(7)+co1(11)*tm(8)+ &
+ co1(12)*tm(9)+co1(13)*tm(10)+co1(14)*tm(11)+co1(15)*tm(12)+co1(16)*tm(13)+ &
+ co1(17)*tm(14)+co1(18)*rhm(1)+co1(19)*rhm(2)+co1(20)*rhm(3)+co1(21)*rhm(4)+ &
+ co1(22)*rhm(5)+co1(23)*rhm(6)+co1(24)*rhm(7)+co1(25)*rhm(8)+co1(26)*rhm(9)+ &
+ co1(27)*rhm(10)+co1(28)*rhm(11)+co1(29)*rhm(12)+co1(30)*rhm(13)
+
+ f2 = co2(1)+co2(2)*qpf(i,j)+co2(3)*swnd(i,j)+co2(4)*tm(1)+co2(5)*tm(2)+co2(6)*tm(3)+ &
+ co2(7)*tm(4)+co2(8)*tm(5)+co2(9)*tm(6)+co2(10)*tm(7)+co2(11)*tm(8)+ &
+ co2(12)*tm(9)+co2(13)*tm(10)+co2(14)*tm(11)+co2(15)*tm(12)+co2(16)*tm(13)+ &
+ co2(17)*tm(14)+co2(18)*rhm(1)+co2(19)*rhm(2)+co2(20)*rhm(3)+co2(21)*rhm(4)+ &
+ co2(22)*rhm(5)+co2(23)*rhm(6)+co2(24)*rhm(7)+co2(25)*rhm(8)+co2(26)*rhm(9)+ &
+ co2(27)*rhm(10)+co2(28)*rhm(11)+co2(29)*rhm(12)+co2(30)*rhm(13)
+
+ f3 = co3(1)+co3(2)*qpf(i,j)+co3(3)*swnd(i,j)+co3(4)*tm(1)+co3(5)*tm(2)+co3(6)*tm(3)+ &
+ co3(7)*tm(4)+co3(8)*tm(5)+co3(9)*tm(6)+co3(10)*tm(7)+co3(11)*tm(8)+ &
+ co3(12)*tm(9)+co3(13)*tm(10)+co3(14)*tm(11)+co3(15)*tm(12)+co3(16)*tm(13)+ &
+ co3(17)*tm(14)+co3(18)*rhm(1)+co3(19)*rhm(2)+co3(20)*rhm(3)+co3(21)*rhm(4)+ &
+ co3(22)*rhm(5)+co3(23)*rhm(6)+co3(24)*rhm(7)+co3(25)*rhm(8)+co3(26)*rhm(9)+ &
+ co3(27)*rhm(10)+co3(28)*rhm(11)+co3(29)*rhm(12)+co3(30)*rhm(13)
+
+ f4 = co4(1)+co4(2)*qpf(i,j)+co4(3)*swnd(i,j)+co4(4)*tm(1)+co4(5)*tm(2)+co4(6)*tm(3)+ &
+ co4(7)*tm(4)+co4(8)*tm(5)+co4(9)*tm(6)+co4(10)*tm(7)+co4(11)*tm(8)+ &
+ co4(12)*tm(9)+co4(13)*tm(10)+co4(14)*tm(11)+co4(15)*tm(12)+co4(16)*tm(13)+ &
+ co4(17)*tm(14)+co4(18)*rhm(1)+co4(19)*rhm(2)+co4(20)*rhm(3)+co4(21)*rhm(4)+ &
+ co4(22)*rhm(5)+co4(23)*rhm(6)+co4(24)*rhm(7)+co4(25)*rhm(8)+co4(26)*rhm(9)+ &
+ co4(27)*rhm(10)+co4(28)*rhm(11)+co4(29)*rhm(12)+co4(30)*rhm(13)
+
+ f5 = co5(1)+co5(2)*qpf(i,j)+co5(3)*swnd(i,j)+co5(4)*tm(1)+co5(5)*tm(2)+co5(6)*tm(3)+ &
+ co5(7)*tm(4)+co5(8)*tm(5)+co5(9)*tm(6)+co5(10)*tm(7)+co5(11)*tm(8)+ &
+ co5(12)*tm(9)+co5(13)*tm(10)+co5(14)*tm(11)+co5(15)*tm(12)+co5(16)*tm(13)+ &
+ co5(17)*tm(14)+co5(18)*rhm(1)+co5(19)*rhm(2)+co5(20)*rhm(3)+co5(21)*rhm(4)+ &
+ co5(22)*rhm(5)+co5(23)*rhm(6)+co5(24)*rhm(7)+co5(25)*rhm(8)+co5(26)*rhm(9)+ &
+ co5(27)*rhm(10)+co5(28)*rhm(11)+co5(29)*rhm(12)+co5(30)*rhm(13)
+
+ f6 = co6(1)+co6(2)*qpf(i,j)+co6(3)*swnd(i,j)+co6(4)*tm(1)+co6(5)*tm(2)+co6(6)*tm(3)+ &
+ co6(7)*tm(4)+co6(8)*tm(5)+co6(9)*tm(6)+co6(10)*tm(7)+co6(11)*tm(8)+ &
+ co6(12)*tm(9)+co6(13)*tm(10)+co6(14)*tm(11)+co6(15)*tm(12)+co6(16)*tm(13)+ &
+ co6(17)*tm(14)+co6(18)*rhm(1)+co6(19)*rhm(2)+co6(20)*rhm(3)+co6(21)*rhm(4)+ &
+ co6(22)*rhm(5)+co6(23)*rhm(6)+co6(24)*rhm(7)+co6(25)*rhm(8)+co6(26)*rhm(9)+ &
+ co6(27)*rhm(10)+co6(28)*rhm(11)+co6(29)*rhm(12)+co6(30)*rhm(13)
+
+ hprob_tot = 0.
+ mprob_tot = 0.
+ lprob_tot = 0.
+ do k=1,10
+ if(k==1) then
+ nswFileName='Breadboard1.nsw'
+ call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==2) then
+ nswFileName='Breadboard2.nsw'
+ call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==3) then
+ nswFileName='Breadboard3.nsw'
+ call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==4) then
+ nswFileName='Breadboard4.nsw'
+ call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==5) then
+ nswFileName='Breadboard5.nsw'
+ call breadboard1_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==6) then
+ nswFileName='Breadboard6.nsw'
+ call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==7) then
+ nswFileName='Breadboard7.nsw'
+ call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==8) then
+ nswFileName='Breadboard8.nsw'
+ call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==9) then
+ nswFileName='Breadboard9.nsw'
+ call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ elseif(k==10) then
+ nswFileName='Breadboard10.nsw'
+ call breadboard6_main(nswFileName,mf(imo),f1,f2,f3,f4,f5,f6,p1,p2,p3)
+ endif
+ hprob_tot = hprob_tot+p1
+ mprob_tot = mprob_tot+p2
+ lprob_tot = lprob_tot+p3
+ enddo
+ hprob(i,j) = hprob_tot/10.
+ mprob(i,j) = mprob_tot/10.
+ lprob(i,j) = lprob_tot/10.
+
+ if(hprob(i,j) > mprob(i,j) .and. hprob(i,j) > lprob(i,j)) then
+ slrgrid(i,j) = 8.0
+ elseif(mprob(i,j) >= hprob(i,j) .and. mprob(i,j) >= lprob(i,j)) then
+ slrgrid(i,j) = 13.0
+ elseif(lprob(i,j) > hprob(i,j) .and. lprob(i,j) > mprob(i,j)) then
+ if(lprob(i,j) < .67) then
+ slrgrid(i,j) = 18.0
+ else
+ slrgrid(i,j) = 27.0
+ endif
+ endif
+
+! Weighted SLR
+
+ if(lprob(i,j) < .67) then
+ slrgrid2(i,j) = hprob(i,j)*8.0+mprob(i,j)*13.0+lprob(i,j)*18.0
+ slrgrid2(i,j) = slrgrid2(i,j)*p/(hprob(i,j)+mprob(i,j)+lprob(i,j))
+ else
+ slrgrid2(i,j) = hprob(i,j)*8.0+mprob(i,j)*13.0+lprob(i,j)*27.0
+ slrgrid2(i,j) = slrgrid2(i,j)*p/(hprob(i,j)+mprob(i,j)+lprob(i,j))
+ endif
+
+! slr(i,j) = climosub(i,j)
+! slr(i,j) = slrgrid(i,j)
+ slr(i,j) = slrgrid2(i,j)
+ slr(i,j) = max(1.,min(25.,slr(i,j)))
+
+ endif !if(pres(i,j), qpf(i,j), swnd(i,j) /= spval)
+ enddo
+ enddo
+
+! main slr i/j loop ends
+
+ END SUBROUTINE CALSLR_ROEBBER
+!
+!-------------------------------------------------------------------------------------
+!
+ SUBROUTINE breadboard1_main(nswFileName,mf,f1,f2,f3,f4,f5,f6,p1,p2,p3)
+
+ implicit none
+
+ character*20 nswFileName
+ real mf, f1, f2, f3, f4, f5, f6
+ real p1, p2, p3
+
+ real f(7)
+
+ real inputFile(2,7)
+ real inputAxon(7)
+ real hidden1Axon(40)
+ real outputAxon(3)
+ real hidden1Synapse(7,40)
+ real outputSynapse(40,3)
+ real activeOutputProbe(2,3)
+
+ real fgrid1(40), fgrid2(3), fgridsum
+
+ integer i,j
+!
+ f(1) = mf
+ f(2) = f1
+ f(3) = f2
+ f(4) = f3
+ f(5) = f4
+ f(6) = f5
+ f(7) = f6
+
+! Read nsw file and load weights
+
+ inputFile(1,:)=1.
+ inputFile(2,:)=0.
+ inputAxon=0.
+ hidden1Axon=0.
+ outputAxon=0.
+ hidden1Synapse=1.
+ outputSynapse=1.
+ activeOutputProbe(1,:)=1.
+ activeOutputProbe(2,:)=0.
+
+ if(trim(nswFileName)=='Breadboard1.nsw') then
+ call Breadboard1(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard2.nsw') then
+ call Breadboard2(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard3.nsw') then
+ call Breadboard3(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard4.nsw') then
+ call Breadboard4(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard5.nsw') then
+ call Breadboard5(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+ endif
+
+ if(activeOutputProbe(1,1)==1.) then
+ do j=1,3
+ activeOutputProbe(1,j)=8.999999761581421e-001
+ activeOutputProbe(2,j)=5.000000074505806e-002
+ enddo
+ endif
+
+! Run Network
+
+ do j=1,7
+ inputAxon(j) = inputFile(1,j) * f(j) + inputFile(2,j)
+ enddo
+
+ fgrid1=0.
+!$omp parallel do private(i,j)
+ do j=1,40
+ do i=1,7
+ fgrid1(j) = fgrid1(j) + hidden1Synapse(i,j) * inputAxon(i)
+ enddo
+ fgrid1(j) = fgrid1(j) + hidden1Axon(j)
+ fgrid1(j) = (exp(fgrid1(j))-exp(-fgrid1(j)))/(exp(fgrid1(j))+exp(-fgrid1(j)))
+ enddo
+
+ fgrid2=0.
+ fgridsum=0.
+ do j=1,3
+ do i=1,40
+ fgrid2(j) = fgrid2(j) + outputSynapse(i,j) * fgrid1(i)
+ enddo
+ fgrid2(j) = fgrid2(j) + outputAxon(j)
+ fgrid2(j) = exp(fgrid2(j))
+ fgridsum = fgridsum + fgrid2(j)
+ enddo
+ do j=1,3
+ fgrid2(j) = fgrid2(j) / fgridsum
+! fgrid2(j) = activeOutputProbe(1,j) * fgrid2(j) + activeOutputProbe(2,j)
+ enddo
+
+ p1 = fgrid2(1)
+ p2 = fgrid2(2)
+ p3 = fgrid2(3)
+
+ END SUBROUTINE breadboard1_main
+!
+!-------------------------------------------------------------------------------------
+!
+ SUBROUTINE breadboard6_main(nswFileName,mf,f1,f2,f3,f4,f5,f6,p1,p2,p3)
+
+ implicit none
+
+ character*20 nswFileName
+ real mf, f1, f2, f3, f4, f5, f6
+ real p1, p2, p3
+
+ real f(7)
+
+ real inputFile(2,7)
+ real inputAxon(7)
+ real hidden1Axon(7)
+ real hidden2Axon(4)
+ real outputAxon(3)
+ real hidden1Synapse(7,7)
+ real hidden2Synapse(7,4)
+ real outputSynapse(4,3)
+ real activeOutputProbe(2,3)
+
+ real fgrid1(7), fgrid2(4), fgrid3(3), fgridsum
+
+ integer i,j
+!
+ f(1) = mf
+ f(2) = f1
+ f(3) = f2
+ f(4) = f3
+ f(5) = f4
+ f(6) = f5
+ f(7) = f6
+!
+ inputFile(1,:)=1.
+ inputFile(2,:)=0.
+ inputAxon=0.
+ hidden1Axon=0.
+ hidden2Axon=0.
+ outputAxon=0.
+ hidden1Synapse=1.
+ hidden2Synapse=1.
+ outputSynapse=1.
+ activeOutputProbe(1,:)=1.
+ activeOutputProbe(2,:)=0.
+
+ if(trim(nswFileName)=='Breadboard6.nsw') then
+ call Breadboard6(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard7.nsw') then
+ call Breadboard7(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard8.nsw') then
+ call Breadboard8(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard9.nsw') then
+ call Breadboard9(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+ elseif(trim(nswFileName)=='Breadboard10.nsw') then
+ call Breadboard10(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+ endif
+
+ if(activeOutputProbe(1,1)==1.) then
+ do j=1,3
+ activeOutputProbe(1,j)=8.999999761581421e-001
+ activeOutputProbe(2,j)=5.000000074505806e-002
+ enddo
+ endif
+
+! Run Network
+
+ do j=1,7
+ inputAxon(j) = inputFile(1,j) * f(j) + inputFile(2,j)
+ enddo
+
+ fgrid1=0.
+!$omp parallel do private(i,j)
+ do j=1,7
+ do i=1,7
+ fgrid1(j) = fgrid1(j) + hidden1Synapse(i,j) * inputAxon(i)
+ enddo
+ fgrid1(j) = fgrid1(j) + hidden1Axon(j)
+ fgrid1(j) = (exp(fgrid1(j))-exp(-fgrid1(j)))/(exp(fgrid1(j))+exp(-fgrid1(j)))
+ enddo
+
+ fgrid2=0.
+!$omp parallel do private(i,j)
+ do j=1,4
+ do i=1,7
+ fgrid2(j) = fgrid2(j) + hidden2Synapse(i,j) * fgrid1(i)
+ enddo
+ fgrid2(j) = fgrid2(j) + hidden2Axon(j)
+ fgrid2(j) = (exp(fgrid2(j))-exp(-fgrid2(j)))/(exp(fgrid2(j))+exp(-fgrid2(j)))
+ enddo
+
+ fgrid3=0.
+ fgridsum=0.
+ do j=1,3
+ do i=1,4
+ fgrid3(j) = fgrid3(j) + outputSynapse(i,j) * fgrid2(i)
+ enddo
+ fgrid3(j) = fgrid3(j) + outputAxon(j)
+ fgrid3(j) = exp(fgrid3(j))
+ fgridsum = fgridsum + fgrid3(j)
+ enddo
+ do j=1,3
+ fgrid3(j) = fgrid3(j) / fgridsum
+! fgrid3(j) = activeOutputProbe(1,j) * fgrid3(j) + activeOutputProbe(2,j)
+ enddo
+
+ p1 = fgrid3(1)
+ p2 = fgrid3(2)
+ p3 = fgrid3(3)
+
+ END SUBROUTINE breadboard6_main
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard1(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(40)
+ real hidden1Synapse(7,40)
+ real outputSynapse(40,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.295625507831573E-01, 6.163756549358368E-02,&
+ 2.081887423992157E-01, 6.210270524024963E-01,&
+ 3.646677434444427E-01, 1.214343756437302E-01,&
+ 2.430133521556854E-01, 3.004860281944275E-01,&
+ 1.935067623853683E-01, 4.185551702976227E-01,&
+ 1.962280571460724E-01, -4.804643988609314E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/-1.150484442710876E+00, -1.461968779563904E+00, 1.349107265472412E+00, 6.686212420463562E-01,&
+ -8.486616015434265E-01, -1.908162593841553E+00, -1.514992356300354E+00, -1.632351636886597E+00,&
+ -1.794843912124634E+00, 1.354879975318909E+00, 1.389558911323547E+00, 1.464104652404785E+00,&
+ 1.896052122116089E+00, 1.401677846908569E+00, 1.436681509017944E+00, -1.590880393981934E+00,&
+ -1.070504426956177E+00, 2.047163248062134E+00, 1.564107656478882E+00, 1.298712372779846E+00,&
+ -1.316817998886108E+00, -1.253177642822266E+00, -1.392926216125488E+00, 7.356406450271606E-01,&
+ 1.594561100006104E+00, -1.532955884933472E+00, -1.021214842796326E+00, 1.341110348701477E+00,&
+ 6.124811172485352E-01, 1.415654063224792E+00, -8.509962558746338E-01, 1.753035664558411E+00,&
+ 6.275475621223450E-01, 1.482843875885010E+00, 1.326028347015381E+00, 1.641556143760681E+00,&
+ 1.339018464088440E+00, -1.374068379402161E+00, -1.220067739486694E+00, 1.714797854423523E+00/)
+
+ hidden1Synapse = reshape((/ &
+ -4.612099826335907E-01, -3.177818655967712E-01, -2.800635099411011E-01, -6.984808295965195E-02,&
+ 6.583837419748306E-02, -5.769817233085632E-01, 3.955098092556000E-01, -1.624705344438553E-01,&
+ -2.889076173305511E-01, -9.411631226539612E-01, -5.058886408805847E-01, -3.110982775688171E-01,&
+ -3.723000884056091E-01, 8.419776558876038E-01, 2.598794996738434E-01, -1.364605724811554E-01,&
+ 9.416468143463135E-01, -4.025689139962196E-02, 4.176554381847382E-01, 1.196979433298111E-01,&
+ -3.846398293972015E-01, -1.414917409420013E-01, -2.344214916229248E+00, -3.556166291236877E-01,&
+ -7.762963771820068E-01, -1.243659138679504E+00, 4.907984733581543E-01, -1.891903519630432E+00,&
+ -5.802390575408936E-01, -5.546363592147827E-01, -4.520095884799957E-01, -2.473797500133514E-01,&
+ -7.757837772369385E-01, -5.350160598754883E-01, 1.817676275968552E-01, -1.932217180728912E-01,&
+ 5.944451093673706E-01, -6.568105518817902E-02, -1.562235504388809E-01, 4.926294833421707E-02,&
+ -6.931540369987488E-01, 7.082754969596863E-01, -3.878217563033104E-02, 5.063381195068359E-01,&
+ -7.642447352409363E-01, -2.539043128490448E-01, -4.328470230102539E-01, -4.773662984371185E-01,&
+ 6.699458956718445E-01, -1.670347154140472E-01, 6.986252665519714E-01, -6.806275844573975E-01,&
+ 1.059119179844856E-01, 5.320579931139946E-02, -4.806780517101288E-01, 7.601988911628723E-01,&
+ -1.864496916532516E-01, -3.076690435409546E-01, -6.505665779113770E-01, 7.355872541666031E-02,&
+ -4.033335149288177E-01, -2.168276757001877E-01, 5.354191064834595E-01, 2.991014420986176E-01,&
+ 4.275756180286407E-01, 6.465418934822083E-01, -1.401910781860352E-01, 5.381527543067932E-01,&
+ 9.247279167175293E-01, -3.687029778957367E-01, 6.354923844337463E-01, -1.423558890819550E-01,&
+ 9.430686831474304E-01, 1.187003701925278E-01, 5.426434278488159E-01, 7.573884129524231E-01,&
+ 3.361994773149490E-02, 3.300542756915092E-02, -4.439333379268646E-01, 5.953744649887085E-01,&
+ 3.412617444992065E-01, 1.421828866004944E-01, 5.224847793579102E-01, -8.267756700515747E-01,&
+ 5.009499788284302E-01, 2.736742198467255E-01, 8.603093624114990E-01, 9.373022615909576E-02,&
+ 1.714528501033783E-01, 9.114132076501846E-02, -1.638108491897583E-01, 5.879403948783875E-01,&
+ 5.585592240095139E-03, 8.149939179420471E-01, -1.340572237968445E-01, 3.880683779716492E-01,&
+ 3.857498764991760E-01, -8.105239868164062E-01, 5.239543914794922E-01, 7.420576363801956E-02,&
+ 7.694411277770996E-01, -3.954831138253212E-02, 5.615213513374329E-01, 4.560695886611938E-01,&
+ -5.006425976753235E-01, -4.725854694843292E-01, 5.887325108051300E-02, -3.199687898159027E-01,&
+ -5.229111015796661E-02, -6.034490466117859E-01, -8.414428234100342E-01, 1.826022863388062E-01,&
+ -6.954011321067810E-01, -5.277091860771179E-01, -9.834931492805481E-01, -2.964940369129181E-01,&
+ 1.752081327140331E-02, -2.412298470735550E-01, 5.861807465553284E-01, 3.650662600994110E-01,&
+ -1.846716850996017E-01, 3.277707397937775E-01, 1.213769540190697E-01, 1.398152709007263E-01,&
+ 1.624975651502609E-01, -7.172397375106812E-01, -4.065496101975441E-02, -1.131931394338608E-01,&
+ 7.050336003303528E-01, 3.453079611063004E-02, 5.642467141151428E-01, 7.171959280967712E-01,&
+ -3.295499980449677E-01, 5.192958116531372E-01, 7.558688521385193E-01, 6.164067387580872E-01,&
+ -1.597565859556198E-01, 1.512383669614792E-01, 5.231227278709412E-01, -2.199545800685883E-01,&
+ -3.987313508987427E-01, -9.710572957992554E-01, -4.689137935638428E-01, -4.037811756134033E-01,&
+ -4.528387784957886E-01, -4.784810543060303E-01, 1.759306043386459E-01, 7.449938654899597E-01,&
+ 1.120681285858154E+00, -5.609570741653442E-01, 1.393345594406128E+00, 1.374282408505678E-02,&
+ -2.458193153142929E-01, 1.237058401107788E+00, -4.854794219136238E-02, -6.664386391639709E-01,&
+ -8.786886334419250E-01, -3.208510577678680E-01, -4.315690398216248E-01, -5.186472535133362E-01,&
+ -2.117208093404770E-01, 8.998587727546692E-02, 7.763032317161560E-01, 1.078992128372192E+00,&
+ 3.667660653591156E-01, 5.805531740188599E-01, 1.517073512077332E-01, 9.344519972801208E-01,&
+ 3.396262824535370E-01, 2.450248003005981E-01, 9.134629368782043E-01, 7.127542048692703E-02,&
+ -1.287281513214111E-01, 3.953699469566345E-01, -4.097535610198975E-01, -5.983641743659973E-01,&
+ 4.500437378883362E-01, -8.147508651018143E-02, -7.916551083326340E-02, -1.505649089813232E-01,&
+ -1.703914403915405E-01, 1.294612526893616E+00, -4.859757721424103E-01, -1.034098416566849E-01,&
+ -6.859915256500244E-01, 4.521823674440384E-02, 3.100419938564301E-01, -9.373775720596313E-01,&
+ 5.841451883316040E-01, 7.020491957664490E-01, -1.681403964757919E-01, 6.397892832756042E-01,&
+ 1.168430075049400E-01, 4.124156236648560E-01, 5.404921174049377E-01, -3.311195969581604E-01,&
+ -3.494578003883362E-01, 1.379718184471130E+00, 2.731607258319855E-01, 5.512273311614990E-01,&
+ 2.997024357318878E-01, 3.475511670112610E-01, 6.777516603469849E-01, 1.471205204725266E-01,&
+ 1.011002138257027E-01, 8.974244594573975E-01, 8.688372373580933E-02, 4.767233729362488E-01,&
+ 9.785303473472595E-01, -2.200428694486618E-01, -6.173372268676758E-01, -8.801369071006775E-01,&
+ -1.111719012260437E+00, -3.223371803760529E-01, -6.491173505783081E-01, -3.894545435905457E-01,&
+ -2.843862473964691E-01, 7.331426739692688E-01, -3.287445753812790E-02, -5.741032306104898E-03,&
+ 6.212961673736572E-01, 3.749484941363335E-02, 6.244438700377941E-03, -6.228777766227722E-01,&
+ -4.667133837938309E-02, 2.016694307327271E+00, 2.834755480289459E-01, 6.229624748229980E-01,&
+ 6.552317738533020E-01, -9.771268069744110E-02, 7.506207823753357E-01, 6.942567825317383E-01,&
+ -1.662521809339523E-01, 3.003259599208832E-01, -2.531996071338654E-01, 2.399661689996719E-01,&
+ 5.109554529190063E-01, -7.031706571578979E-01, 2.836774885654449E-01, 4.888223409652710E-01,&
+ 1.384589523077011E-01, -3.524579405784607E-01, -2.050135582685471E-01, 1.160808563232422E+00,&
+ -4.008938968181610E-01, 1.656456440687180E-01, -5.116114616394043E-01, 8.800522685050964E-01,&
+ 6.836380064487457E-02, -5.902936309576035E-02, 5.672354102134705E-01, -7.219299674034119E-01,&
+ 3.463289514183998E-02, -1.044675827026367E+00, -8.341925591230392E-02, -3.036961853504181E-01,&
+ -5.605638027191162E-01, 5.722484588623047E-01, -1.604338049888611E+00, -5.696258544921875E-01,&
+ -2.531512081623077E-01, -4.675458073616028E-01, -6.486019492149353E-01, -2.437075823545456E-01,&
+ -2.898264527320862E-01, 3.836293518543243E-01, 4.061043560504913E-01, 3.909072279930115E-01,&
+ -8.113911151885986E-01, 1.260317683219910E+00, -3.924282491207123E-01, 3.586370870471001E-02,&
+ 7.703443765640259E-01, 6.714462637901306E-01, -4.909946396946907E-02, 3.536651730537415E-01,&
+ 1.900762617588043E-01, 3.638494014739990E-01, 2.248179465532303E-01, -6.255846619606018E-01 &
+ /), shape(hidden1Synapse))
+
+ outputSynapse = reshape((/ &
+ -4.825605154037476E-01, -1.119017243385315E+00, 5.116804838180542E-01, -6.694142222404480E-01,&
+ -5.718530416488647E-01, -7.233589291572571E-01, -8.200560212135315E-01, -6.121573448181152E-01,&
+ -1.034205436706543E+00, 1.015549778938293E+00, 1.183975338935852E+00, 5.342597365379333E-01,&
+ 1.186208128929138E+00, 7.657266259193420E-01, 9.990772604942322E-01, -1.051267385482788E+00,&
+ -7.288008332252502E-01, 9.447612762451172E-01, 6.943449974060059E-01, 5.248318314552307E-01,&
+ -1.042970657348633E+00, -4.857340827584267E-04, -8.969252705574036E-01, 5.206210613250732E-01,&
+ 7.825390100479126E-01, -3.175100982189178E-01, -7.697273492813110E-01, 3.042222857475281E-01,&
+ 7.400255203247070E-01, 1.082547545433044E+00, -1.058874249458313E+00, 3.296852707862854E-01,&
+ 9.955985546112061E-01, 7.361931800842285E-01, 8.618848919868469E-01, 7.109408378601074E-01,&
+ 1.148022636771202E-01, -6.803723573684692E-01, -4.462003335356712E-02, 7.384030222892761E-01,&
+ -2.215545326471329E-01, -8.702403903007507E-01, 8.234908580780029E-01, 6.819239258766174E-01,&
+ -4.687527120113373E-01, -6.959788203239441E-01, -6.105158329010010E-01, -7.225347757339478E-01,&
+ -7.860832810401917E-01, 5.608791112899780E-01, 9.937217235565186E-01, 6.797130703926086E-01,&
+ 8.231667280197144E-01, 1.115462303161621E+00, 5.290299654006958E-01, -4.602016210556030E-01,&
+ -5.394889116287231E-01, 1.053055644035339E+00, 9.533493518829346E-01, 8.694807887077332E-01,&
+ -4.802323281764984E-01, -1.070514082908630E+00, -8.236010670661926E-01, 7.932062149047852E-01,&
+ 1.111655592918396E+00, -1.025945305824280E+00, -2.268178462982178E-01, 6.432797908782959E-01,&
+ 2.442117929458618E-01, 7.986634969711304E-01, -3.561095297336578E-01, 1.058865070343018E+00,&
+ 6.459046602249146E-01, 4.042869210243225E-01, 2.976681292057037E-02, 1.033244490623474E+00,&
+ 9.110773205757141E-01, -6.528528332710266E-01, -8.971995115280151E-01, 1.046785235404968E+00,&
+ -5.487565994262695E-01, -1.033755183219910E+00, 5.164890289306641E-01, 1.108534336090088E+00,&
+ -2.507440149784088E-01, -1.150385260581970E+00, -1.040475010871887E+00, -1.114320755004883E+00,&
+ -9.695596694946289E-01, 9.147439599037170E-01, 3.035557866096497E-01, 1.044997453689575E+00,&
+ 1.059857130050659E+00, 7.304399013519287E-01, 1.102171182632446E+00, -9.304327964782715E-01,&
+ -5.997116565704346E-01, 1.120478868484497E+00, 6.444569826126099E-01, 2.137384265661240E-01,&
+ -4.117920994758606E-01, -1.000458717346191E+00, -2.041520774364471E-01, -1.859422773122787E-01,&
+ 3.711319267749786E-01, -9.141649603843689E-01, -7.499164938926697E-01, 9.900025129318237E-01,&
+ -2.189985066652298E-01, 8.942219614982605E-01, -3.195305764675140E-01, 6.445295810699463E-01,&
+ -2.110123336315155E-01, 9.763143658638000E-01, 8.833498954772949E-01, 1.071311354637146E+00,&
+ 1.134591102600098E+00, -4.175429344177246E-01, -6.000540852546692E-01, 7.281569838523865E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard1
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard2(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(40)
+ real hidden1Synapse(7,40)
+ real outputSynapse(40,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.188449800014496E-01, 1.674167998135090E-02,&
+ 1.868382692337036E-01, 6.490761637687683E-01,&
+ 3.361344337463379E-01, 4.151264205574989E-02,&
+ 2.621995508670807E-01, 2.531536519527435E-01,&
+ 1.944894641637802E-01, 3.221717774868011E-01,&
+ 3.179650008678436E-01, -2.033386379480362E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/-9.235364943742752E-02, -5.511198639869690E-01, 1.012191653251648E+00, -1.148184835910797E-01,&
+ -8.399781584739685E-01, -4.726789295673370E-01, 7.570160627365112E-01, -3.985013365745544E-01,&
+ 1.164000511169434E+00, 2.212587594985962E-01, 9.570528268814087E-01, -1.504407286643982E+00,&
+ -1.262813359498978E-01, 9.741528630256653E-01, 2.278975844383240E-01, -3.282702267169952E-01,&
+ 1.716251969337463E-01, 4.979004263877869E-01, 6.414948105812073E-01, -2.775986790657043E-01,&
+ -6.721665859222412E-01, 7.226511836051941E-01, -1.020949006080627E+00, -9.638186097145081E-01,&
+ 4.050622135400772E-02, -8.287806510925293E-01, -2.900803685188293E-01, 1.004199028015137E+00,&
+ -1.221053838729858E+00, -5.891714692115784E-01, -6.459002494812012E-01, 8.228222727775574E-01,&
+ 1.921370178461075E-01, 1.575044542551041E-01, -9.904603362083435E-01, 1.186665743589401E-01,&
+ 1.871918141841888E-01, -6.121324300765991E-01, 1.056765243411064E-01, -5.654883384704590E-01/)
+
+ hidden1Synapse = reshape((/ &
+ -5.215738341212273E-02, 6.958795785903931E-01, -3.700282871723175E-01, 4.440588057041168E-01,&
+ -9.248711913824081E-02, 9.709199517965317E-02, 1.255098581314087E-01, -1.359838247299194E-01,&
+ 3.981630802154541E-01, -4.047442674636841E-01, -5.247595906257629E-01, -5.138890147209167E-01,&
+ 2.293408364057541E-01, 5.139534473419189E-01, 2.035804986953735E-01, 3.003124892711639E-01,&
+ -2.340262830257416E-01, 3.037432730197906E-01, 4.666079878807068E-01, 3.753643631935120E-01,&
+ -5.292671918869019E-02, 3.674933612346649E-01, 3.854512274265289E-01, 1.749511361122131E-01,&
+ 1.320011764764786E-01, 2.418431788682938E-01, 1.245125234127045E-01, -2.677426636219025E-01,&
+ 3.884479776024818E-02, -1.385747641324997E-01, -3.117613494396210E-01, 3.016934990882874E-01,&
+ -2.856997251510620E-01, -4.838032424449921E-01, 4.488031566143036E-01, -3.862534165382385E-01,&
+ 2.520084977149963E-01, -6.066129356622696E-02, -2.037643343210220E-01, -9.749407321214676E-02,&
+ 1.909288167953491E-01, -2.689029574394226E-01, 8.022837042808533E-01, 4.543448388576508E-01,&
+ 1.268999278545380E-01, 2.794430553913116E-01, 4.331161379814148E-01, -1.717756092548370E-01,&
+ -5.167780518531799E-01, 6.074145808815956E-02, 2.141399085521698E-01, -3.536535203456879E-01,&
+ -2.548796236515045E-01, -4.349331259727478E-01, 3.771509276703000E-03, 1.351494044065475E-01,&
+ 8.080910146236420E-02, -2.638687789440155E-01, 1.792310923337936E-01, -5.317723155021667E-01,&
+ 6.300682574510574E-02, 1.391339004039764E-01, -6.581404209136963E-01, 1.574699729681015E-01,&
+ -5.979638695716858E-01, -6.864693760871887E-01, -6.892689466476440E-01, -1.189238503575325E-01,&
+ -1.904999166727066E-01, -4.838389158248901E-01, 4.585682973265648E-02, 3.201213181018829E-01,&
+ 5.204908251762390E-01, -3.531241044402122E-02, 4.392628967761993E-01, 4.307939708232880E-01,&
+ -4.227218031883240E-02, 1.247199028730392E-01, 1.489800363779068E-01, -3.146159052848816E-01,&
+ 2.637389600276947E-01, -8.966535329818726E-02, 2.010040730237961E-01, 3.161593675613403E-01,&
+ -8.221558481454849E-02, -4.601925909519196E-01, -3.832246661186218E-01, 2.877672016620636E-01,&
+ -1.351716276258230E-02, -5.320604424923658E-03, -3.493662178516388E-02, -1.777663826942444E-01,&
+ -1.865815520286560E-01, 6.387206912040710E-01, -4.405377805233002E-01, 4.452396631240845E-01,&
+ -1.245370283722878E-01, -2.323225736618042E-01, 1.697962284088135E-01, 1.118463352322578E-01,&
+ -2.475701570510864E-01, -3.791887685656548E-02, 5.509998202323914E-01, 1.247667223215103E-01,&
+ 3.189268708229065E-01, -3.584641516208649E-01, 8.915060758590698E-01, 9.720049053430557E-02,&
+ -1.117252558469772E-01, 3.543806076049805E-01, -2.351483702659607E-01, 5.283502340316772E-01,&
+ 1.746209561824799E-01, 1.741478294134140E-01, 2.738423347473145E-01, 3.764865398406982E-01,&
+ 3.486587703227997E-01, -3.462808132171631E-01, 9.324266910552979E-01, 2.155355364084244E-01,&
+ -5.171442404389381E-02, 6.311618685722351E-01, -1.088170856237411E-01, 4.840107262134552E-01,&
+ -2.310744374990463E-01, -3.167505562305450E-01, -2.271509468555450E-01, -2.800688743591309E-01,&
+ 4.713648185133934E-02, -1.575807780027390E-01, 3.583298251032829E-02, -3.308865129947662E-01,&
+ -2.662795484066010E-01, 1.894978582859039E-01, 7.474141567945480E-02, -1.493624746799469E-01,&
+ -1.482628136873245E-01, -1.058527529239655E-01, -3.737696707248688E-01, -1.093639135360718E-01,&
+ -4.270362555980682E-01, 1.249950975179672E-01, -1.971846818923950E-01, 3.135327398777008E-01,&
+ 4.604682624340057E-01, -4.614944458007812E-01, 4.820220768451691E-01, 3.806282877922058E-01,&
+ 3.629744052886963E-01, 3.986520171165466E-01, -2.283873707056046E-01, 1.246029064059258E-01,&
+ 3.940442204475403E-01, 2.390366494655609E-01, 8.402416110038757E-02, 3.498363792896271E-01,&
+ -3.888027667999268E-01, 2.272991091012955E-01, -3.421411216259003E-01, 1.273499727249146E-01,&
+ 1.342627108097076E-01, 1.159043312072754E-01, 1.274240911006927E-01, -2.915177941322327E-01,&
+ 6.415430903434753E-01, 1.699399948120117E-01, -6.556300520896912E-01, 9.605846554040909E-02,&
+ 3.632318377494812E-01, -3.854629993438721E-01, -3.860571384429932E-01, -1.257066577672958E-01,&
+ -1.186188161373138E-01, -1.368320286273956E-01, -2.300722897052765E-01, -4.762146174907684E-01,&
+ -3.621844053268433E-01, -4.978014528751373E-02, -1.940275430679321E-01, -1.588442362844944E-02,&
+ -1.519876420497894E-01, 1.312368810176849E-01, 1.862339228391647E-01, 6.462548375129700E-01,&
+ 5.544137358665466E-01, -3.416634351015091E-02, 9.995899349451065E-02, -6.969342380762100E-02,&
+ -1.428494304418564E-01, 2.647481858730316E-01, 1.083492934703827E-01, 5.986538901925087E-02,&
+ -1.576850377023220E-02, 1.962803453207016E-01, 6.334787011146545E-01, -1.408149152994156E-01,&
+ -1.756295561790466E-01, -2.156554609537125E-01, -1.412229537963867E-01, -5.801249146461487E-01,&
+ -5.700040608644485E-02, -3.019523918628693E-01, -1.161280944943428E-01, -3.032382726669312E-01,&
+ 1.140000447630882E-01, -2.648598253726959E-01, -2.016042023897171E-01, -3.181084990501404E-02,&
+ 7.931513339281082E-02, 5.399967432022095E-01, -4.595367014408112E-01, 9.602636098861694E-02,&
+ -4.730868339538574E-01, 2.077568918466568E-01, -2.257115393877029E-01, 3.216529190540314E-01,&
+ 1.631081402301788E-01, 6.222640164196491E-03, -1.323710232973099E-01, 1.348871737718582E-01,&
+ 1.123578473925591E-01, 5.462109446525574E-01, 5.289056897163391E-01, 5.155519247055054E-01,&
+ 2.748569846153259E-01, -3.125837743282318E-01, -3.262098431587219E-01, -8.945185691118240E-03,&
+ -4.980920553207397E-01, 5.064374208450317E-01, -1.056439951062202E-01, -3.115973472595215E-01,&
+ 3.343601152300835E-02, -7.157339155673981E-02, 5.459919571876526E-01, 2.175374031066895E-01,&
+ -2.892075665295124E-02, 1.139620468020439E-01, -4.409461319446564E-01, -4.908669367432594E-02,&
+ -2.098206430673599E-01, 3.024870157241821E-01, -3.447104394435883E-01, -2.666398882865906E-01,&
+ -1.739841997623444E-01, -1.120999976992607E-01, 4.268572330474854E-01, 4.144327044487000E-01,&
+ 4.936498403549194E-01, 5.718982815742493E-01, 5.464938655495644E-02, 3.950506746768951E-01,&
+ -1.432464718818665E-01, -8.016809076070786E-02, 5.947722792625427E-01, -1.419431418180466E-01,&
+ -2.328271418809891E-01, -1.958254128694534E-01, -9.914696216583252E-03, -1.478249877691269E-01,&
+ 4.182004928588867E-01, 7.797469943761826E-02, 3.761124014854431E-01, 4.066407680511475E-01,&
+ 1.217691525816917E-01, -1.124059110879898E-01, 7.020493596792221E-02, 1.022125557065010E-01,&
+ -5.025411844253540E-01, -2.482684552669525E-01, -5.819427594542503E-02, -1.587846502661705E-02,&
+ -1.881837695837021E-01, 4.026338756084442E-01, 3.339109122753143E-01, 2.215891182422638E-01,&
+ 7.083265781402588E-01, -7.670203596353531E-02, 3.171359598636627E-01, 8.310161828994751E-01 &
+ /), shape(hidden1Synapse))
+
+ outputSynapse = reshape((/ &
+ 2.309078276157379E-01, 8.006124198436737E-02, 5.207773447036743E-01, 3.642434999346733E-02,&
+ -5.444544181227684E-02, -2.300137132406235E-01, 4.965198636054993E-01, -3.590968847274780E-01,&
+ 1.392439752817154E-01, -2.941058278083801E-01, 6.655657291412354E-01, -4.931978881359100E-01,&
+ -1.253394484519958E-01, 1.540697813034058E-01, 1.752252578735352E-01, 4.873855113983154E-01,&
+ 5.741749405860901E-01, 1.275441497564316E-01, -4.765471443533897E-02, -5.038099363446236E-02,&
+ -8.334141224622726E-02, 5.842098593711853E-01, -4.490646719932556E-01, -5.416034907102585E-02,&
+ -2.264686524868011E-01, -1.698177903890610E-01, 3.113179206848145E-01, 4.435532391071320E-01,&
+ -5.240975022315979E-01, 1.108570247888565E-01, 2.321150526404381E-02, 2.374080866575241E-01,&
+ -2.570592761039734E-01, 3.205819129943848E-01, -3.468126952648163E-01, 2.772298157215118E-01,&
+ 1.148034259676933E-01, 1.865169033408165E-03, 3.649827241897583E-01, 5.026416182518005E-01,&
+ -2.502067089080811E-01, -6.028710007667542E-01, -6.978485733270645E-02, 8.656968921422958E-02,&
+ -5.227651596069336E-01, 9.525942802429199E-02, -1.903700232505798E-01, 1.426358073949814E-01,&
+ 5.602359771728516E-01, -2.479453980922699E-01, 1.296138316392899E-01, -4.612154662609100E-01,&
+ -4.198251068592072E-01, 6.053315401077271E-01, -1.160371229052544E-01, -4.044520258903503E-01,&
+ -1.530461944639683E-02, 4.267008602619171E-01, 2.162231802940369E-01, 1.101492717862129E-01,&
+ -9.195729345083237E-02, -3.771322593092918E-02, 3.320552408695221E-02, -4.979051947593689E-01,&
+ 1.581449210643768E-01, -5.021102428436279E-01, 1.184114068746567E-02, 4.836803376674652E-01,&
+ -5.539562702178955E-01, -2.782657444477081E-01, -1.547775119543076E-01, 4.582551419734955E-01,&
+ 2.844007611274719E-01, -4.516306817531586E-01, 1.886052638292313E-02, 3.602048456668854E-01,&
+ 4.175081476569176E-02, 2.075715661048889E-01, -5.455711483955383E-01, -2.442489415407181E-01,&
+ -2.680016458034515E-01, 2.636941149830818E-03, 4.164874255657196E-01, 8.120876550674438E-02,&
+ -4.927250146865845E-01, -3.254565298557281E-01, 5.583248138427734E-01, -1.608870923519135E-01,&
+ 5.749610066413879E-01, 5.479150414466858E-01, 3.469662666320801E-01, -5.061987638473511E-01,&
+ 3.353976905345917E-01, 2.548734247684479E-01, 2.064624279737473E-01, -5.114225745201111E-01,&
+ -4.629626572132111E-01, -1.936426460742950E-01, 2.327886223793030E-01, -4.583241790533066E-02,&
+ -5.125665068626404E-01, 1.089363321661949E-01, -4.951449036598206E-01, -5.018569827079773E-01,&
+ 2.582837454974651E-02, 4.913705959916115E-02, -2.441505938768387E-01, -3.174663335084915E-02,&
+ -1.644173413515091E-01, -2.947083115577698E-01, -5.097694396972656E-01, 7.136650383472443E-03,&
+ 1.942666023969650E-01, 1.587397605180740E-01, -4.691866040229797E-01, -4.862202703952789E-01,&
+ 1.432444006204605E-01, -4.405085742473602E-01, 3.072859644889832E-01, -4.172921180725098E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard2
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard3(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(40)
+ real hidden1Synapse(7,40)
+ real outputSynapse(40,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.442665100097656E-01, 3.212104737758636E-02,&
+ 2.107975035905838E-01, 6.168988943099976E-01,&
+ 3.646677434444427E-01, 1.214343756437302E-01,&
+ 2.485501170158386E-01, 2.868268489837646E-01,&
+ 1.976718604564667E-01, 4.469360709190369E-01,&
+ 3.208556175231934E-01, -2.509090602397919E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/4.393131732940674E-01, -1.290386915206909E-01, 6.327351331710815E-01, 5.494017004966736E-01,&
+ 4.969031810760498E-01, 2.086368650197983E-01, -2.167895883321762E-01, 9.464725255966187E-01,&
+ 1.640024334192276E-01, 2.452306896448135E-01, 1.972979009151459E-01, 9.276027083396912E-01,&
+ 2.502645850181580E-01, 5.485208034515381E-01, -2.839279770851135E-01, 6.810981035232544E-01,&
+ -2.170253098011017E-01, -3.821973502635956E-01, 8.861125111579895E-01, -6.720829606056213E-01,&
+ 2.960434183478355E-02, -3.987881243228912E-01, -1.057050973176956E-01, 6.963993310928345E-01,&
+ -1.413413435220718E-01, 7.551014423370361E-01, 1.243001222610474E-02, -3.603826761245728E-01,&
+ 7.450697422027588E-01, 7.630060315132141E-01, 5.904716849327087E-01, -5.035977959632874E-01,&
+ 2.082890830934048E-03, -1.259811818599701E-01, -8.103467822074890E-01, -4.683765172958374E-01,&
+ -3.666405081748962E-01, -5.880022794008255E-02, -5.269588828086853E-01, -1.594118028879166E-01/)
+
+ hidden1Synapse = reshape((/ &
+ 2.258135080337524E-01, -8.417334407567978E-02, -6.296884268522263E-02, -1.971755474805832E-01,&
+ -2.008096426725388E-01, 1.312222182750702E-01, -2.187249064445496E-01, 3.300825655460358E-01,&
+ -1.458171010017395E-01, -2.447441816329956E-01, 2.373344898223877E-01, -3.369296491146088E-01,&
+ -2.142974138259888E-01, 7.442125119268894E-03, 2.400149852037430E-01, 5.063241720199585E-01,&
+ 1.461273133754730E-01, 3.199279010295868E-01, 2.184794545173645E-01, 6.378577351570129E-01,&
+ 2.826454937458038E-01, 1.467282772064209E-01, 4.167218208312988E-01, 3.410821408033371E-02,&
+ -1.507616639137268E-01, 1.607457697391510E-01, 1.063031926751137E-01, 4.860900044441223E-01,&
+ -7.546984404325485E-02, 3.811344206333160E-01, -3.500247746706009E-02, -3.294828236103058E-01,&
+ -2.355449087917805E-02, 3.319101631641388E-01, 1.341840159147978E-02, -2.975183129310608E-01,&
+ -2.044427692890167E-01, 7.903610914945602E-02, -2.241216152906418E-01, -1.982768028974533E-01,&
+ 2.166045308113098E-01, -3.769811093807220E-01, -4.219292849302292E-02, -4.683617055416107E-01,&
+ 1.365721821784973E-01, -5.708352923393250E-01, -5.482509136199951E-01, -5.697317123413086E-01,&
+ 3.948671817779541E-01, 4.008982181549072E-01, -6.056785583496094E-01, -6.540334783494473E-03,&
+ -4.144128859043121E-01, -9.239719808101654E-02, 1.977843493223190E-01, -2.407579571008682E-01,&
+ -2.472878843545914E-01, -3.429937064647675E-01, -1.058190166950226E-01, -8.456809073686600E-02,&
+ 4.944565296173096E-01, 4.329789280891418E-01, 2.303941249847412E-01, 2.076211571693420E-01,&
+ 1.421037223190069E-02, 5.740813165903091E-02, 1.577541381120682E-01, 1.072699949145317E-01,&
+ 3.550452180206776E-03, -7.603026926517487E-02, 1.787180006504059E-01, 3.000865578651428E-01,&
+ -4.790667295455933E-01, -1.263711899518967E-01, -1.886992603540421E-01, -1.971553862094879E-01,&
+ -4.320513010025024E-01, -1.786982715129852E-01, -3.415124714374542E-01, 3.517304956912994E-01,&
+ 3.841716647148132E-01, 1.595797836780548E-01, 1.466515809297562E-01, 3.235963284969330E-01,&
+ 3.831133618950844E-02, 3.778985887765884E-02, 4.742037355899811E-01, -1.204959601163864E-01,&
+ -6.766954064369202E-02, 4.763844013214111E-01, 2.847502529621124E-01, -2.614455521106720E-01,&
+ 4.211461246013641E-01, 2.459102123975754E-01, -3.291262984275818E-01, 4.159525930881500E-01,&
+ 1.433917880058289E-01, 5.506788492202759E-01, -4.396528601646423E-01, 3.432570993900299E-01,&
+ -4.605481028556824E-01, -1.657515168190002E-01, 2.847986221313477E-01, -3.968485295772552E-01,&
+ 2.652311325073242E-01, 2.413431182503700E-03, 6.885899305343628E-01, -1.771224141120911E-01,&
+ -2.605379931628704E-02, 1.681880354881287E-01, 4.201361536979675E-01, -2.905318737030029E-01,&
+ -1.065197512507439E-01, 2.377779632806778E-01, 3.171224892139435E-01, -5.171843245625496E-02,&
+ 8.248845487833023E-02, -4.904226213693619E-02, 3.065647780895233E-01, 1.610077768564224E-01,&
+ 8.712385892868042E-01, 3.008154034614563E-01, 5.729283690452576E-01, -1.608658432960510E-01,&
+ -3.810124993324280E-01, 6.462811827659607E-01, -2.662218213081360E-01, -5.297539830207825E-01,&
+ -1.356185525655746E-01, 2.623566091060638E-01, -1.624718308448792E-01, -2.004417479038239E-01,&
+ -3.377428650856018E-02, 3.970716595649719E-01, -1.560127288103104E-01, 4.747187346220016E-02,&
+ -3.162815868854523E-01, -3.350041508674622E-01, -3.987393081188202E-01, -4.969080090522766E-01,&
+ -1.142657846212387E-01, -7.119160890579224E-01, 1.153976768255234E-01, -6.001577973365784E-01,&
+ -3.606468439102173E-01, -3.741255104541779E-01, -7.550917863845825E-01, 1.106901541352272E-01,&
+ -1.475569456815720E-01, -2.016223073005676E-01, -2.226002812385559E-01, 2.520006597042084E-01,&
+ -4.015582501888275E-01, -6.874573230743408E-01, -3.860632777214050E-01, 1.074488908052444E-01,&
+ -3.594025373458862E-01, -2.556712925434113E-01, 2.491754293441772E-01, -1.749203801155090E-01,&
+ -5.133146420121193E-03, -2.629097700119019E-01, 1.706630140542984E-01, 5.300921797752380E-01,&
+ 3.016012907028198E-01, 3.024738729000092E-01, 1.334729231894016E-02, 3.605858981609344E-01,&
+ -3.797290921211243E-01, 2.125910073518753E-01, -3.324515819549561E-01, -2.657738924026489E-01,&
+ 8.549436926841736E-02, 2.843597829341888E-01, -1.628004312515259E-01, 4.068509638309479E-01,&
+ -1.096388697624207E-01, 1.842555999755859E-01, -2.429902255535126E-01, 1.793259531259537E-01,&
+ 6.289024949073792E-01, 4.427114427089691E-01, -8.943214267492294E-02, 1.407862901687622E-01,&
+ -4.747562706470490E-01, 1.607088744640350E-01, 2.691341638565063E-01, -1.326033025979996E-01,&
+ -6.888723373413086E-02, 3.347525000572205E-01, 2.391179502010345E-01, -7.601787149906158E-02,&
+ 3.946174979209900E-01, 4.608300328254700E-01, -4.973608553409576E-01, 2.180006355047226E-02,&
+ -2.155515551567078E-01, 4.018128812313080E-01, 5.872810482978821E-01, -2.970355451107025E-01,&
+ 6.164746284484863E-01, -2.832284271717072E-01, -7.214747369289398E-02, 3.505393862724304E-01,&
+ 3.504253327846527E-01, -3.037774860858917E-01, -3.341494500637054E-01, -2.143821418285370E-01,&
+ 3.230984508991241E-01, -6.691335439682007E-01, -1.196009963750839E-01, 2.609530091285706E-01,&
+ 6.332063078880310E-01, -2.495922595262527E-01, -1.421163380146027E-01, 4.370761811733246E-01,&
+ 2.344440817832947E-01, -4.770855009555817E-01, -1.213536486029625E-01, -4.947537779808044E-01,&
+ 2.018401175737381E-01, -3.219321966171265E-01, -1.836685538291931E-01, 6.838442683219910E-01,&
+ -5.349717736244202E-01, 5.601373910903931E-01, -3.152181506156921E-01, 2.578000128269196E-01,&
+ 4.295753240585327E-01, -1.423847377300262E-01, 6.693964004516602E-01, -2.671292051672935E-02,&
+ -2.906464338302612E-01, -6.406581997871399E-01, -5.139582753181458E-01, 2.622411847114563E-01,&
+ 2.534431815147400E-01, -1.518065035343170E-01, -4.292866215109825E-02, 4.628975689411163E-01,&
+ 1.969320774078369E-01, 4.264309704303741E-01, -4.475159347057343E-01, -5.727919340133667E-01,&
+ 5.388451814651489E-01, -2.982297539710999E-01, -3.593768924474716E-02, -1.298359930515289E-01,&
+ -4.535509645938873E-01, -1.963836848735809E-01, -2.640297412872314E-01, 3.889253437519073E-01,&
+ -2.371201291680336E-02, 5.441716909408569E-01, -3.557947278022766E-01, -1.912423074245453E-01,&
+ 3.168485462665558E-01, -3.096546828746796E-01, 2.481035888195038E-01, 2.293358147144318E-01,&
+ -7.027690410614014E-01, -4.839945435523987E-01, -2.963027358055115E-01, -5.126427412033081E-01,&
+ 2.138081789016724E-01, -2.071801871061325E-01, -9.827529639005661E-02, -4.680003225803375E-01,&
+ -3.230824470520020E-01, -2.535474896430969E-01, 2.779140770435333E-01, -5.119556188583374E-01,&
+ 1.893053054809570E-01, -5.211792513728142E-02, 4.212611019611359E-01, -5.767111182212830E-01,&
+ 3.436119556427002E-01, 1.560586243867874E-01, -1.338404417037964E-01, 2.465801686048508E-01 &
+ /), shape(hidden1Synapse))
+
+ outputSynapse = reshape((/ &
+ -1.504478603601456E-01, 8.304652571678162E-02, 2.053809165954590E-01, 4.613898992538452E-01,&
+ 3.307471871376038E-01, -2.503668665885925E-01, -4.260648787021637E-01, -2.033478170633316E-01,&
+ 1.205723360180855E-01, 3.727485835552216E-01, -2.320208251476288E-01, 4.672348499298096E-01,&
+ -1.567042618989944E-01, 4.181037843227386E-01, -2.018750756978989E-01, 2.649243474006653E-01,&
+ 2.292609065771103E-01, 2.745892405509949E-01, 2.554303109645844E-01, -3.891312777996063E-01,&
+ -4.561745524406433E-01, -3.781261444091797E-01, -2.881123721599579E-01, 2.764029800891876E-01,&
+ 8.924255520105362E-02, 4.471623599529266E-01, 9.589984267950058E-02, 4.323486387729645E-01,&
+ 4.792469739913940E-01, -9.918873012065887E-02, 4.427296221256256E-01, 3.841804563999176E-01,&
+ 1.890532523393631E-01, -4.477364718914032E-01, -2.994475699961185E-02, -7.976207137107849E-02,&
+ 2.607934474945068E-01, -3.710708916187286E-01, -2.811897993087769E-01, 6.034602597355843E-02,&
+ 4.014556109905243E-01, 2.982565164566040E-01, 4.447779953479767E-01, -3.612459823489189E-02,&
+ -2.895380258560181E-01, 2.155442684888840E-01, -3.415147066116333E-01, 4.278375506401062E-01,&
+ 1.896717213094234E-02, -9.841635823249817E-02, 1.671093255281448E-01, 3.151571452617645E-01,&
+ -1.678100675344467E-01, -4.435905069112778E-02, -2.333792001008987E-01, 4.360995292663574E-01,&
+ 3.587894737720490E-01, -1.017290875315666E-01, 1.382773071527481E-01, -3.980610668659210E-01,&
+ -2.268472909927368E-01, -2.996328286826611E-02, 2.546367645263672E-01, 1.532198935747147E-01,&
+ -1.018586382269859E-02, 3.147244155406952E-01, -3.700032234191895E-01, 2.747226655483246E-01,&
+ 4.799823760986328E-01, 3.735623657703400E-01, 3.757937550544739E-01, -5.869687348604202E-02,&
+ 7.807171344757080E-02, -1.428240090608597E-01, -5.030028820037842E-01, -4.323083460330963E-01,&
+ -2.643692195415497E-01, -4.277939200401306E-01, 3.172474205493927E-01, -4.587580561637878E-01,&
+ 4.488629996776581E-01, -1.273735053837299E-02, 2.275637537240982E-01, 2.276848852634430E-01,&
+ 1.995900124311447E-01, -1.224325075745583E-01, -1.321871429681778E-01, 4.938367307186127E-01,&
+ 3.713837862014771E-01, 4.943797290325165E-01, -8.973516523838043E-02, 3.630679845809937E-01,&
+ 3.118912279605865E-01, 3.763218820095062E-01, -2.658533453941345E-01, 5.210888572037220E-03,&
+ -3.098636865615845E-01, -4.516429603099823E-01, 3.575363755226135E-01, 3.780608177185059E-01,&
+ 3.606519103050232E-01, 4.404914379119873E-01, -4.452764391899109E-01, 2.741447389125824E-01,&
+ 1.122588440775871E-01, 2.581178247928619E-01, -2.986721992492676E-01, -3.506239950656891E-01,&
+ -4.466909915208817E-02, 1.343552619218826E-01, -2.677312493324280E-02, -5.070485472679138E-01,&
+ -5.414816737174988E-01, 3.392856195569038E-02, -4.090670943260193E-01, 2.741051837801933E-02,&
+ 7.242175936698914E-02, 4.587205946445465E-01, -2.530987001955509E-02, 1.304957270622253E-02 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard3
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard4(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(40)
+ real hidden1Synapse(7,40)
+ real outputSynapse(40,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.296211272478104E-01, 6.142363324761391E-02,&
+ 2.128665894269943E-01, 6.552034020423889E-01,&
+ 3.361344337463379E-01, 4.151264205574989E-02,&
+ 2.430133521556854E-01, 3.004860281944275E-01,&
+ 1.976718604564667E-01, 4.469360709190369E-01,&
+ 1.951007992029190E-01, -4.725341200828552E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/-1.700838446617126E+00, 1.409139156341553E+00, -1.263895153999329E+00, -1.653346180915833E+00,&
+ -1.753814935684204E+00, 1.510319232940674E+00, -1.652730584144592E+00, 1.968622922897339E+00,&
+ -1.764715671539307E+00, -1.920537590980530E+00, 1.703584432601929E+00, 9.688673615455627E-01,&
+ 1.621924757957458E+00, -1.195185184478760E+00, -1.170735836029053E+00, -1.726262569427490E+00,&
+ 1.693020582199097E+00, -1.789734363555908E+00, 2.076834440231323E+00, -2.054785251617432E+00,&
+ 1.735462069511414E+00, -1.377997517585754E+00, 1.685962557792664E+00, -1.505226492881775E+00,&
+ 1.329061865806580E+00, -1.970339655876160E+00, 1.326048374176025E+00, -1.803932785987854E+00,&
+ -1.356570959091187E+00, -7.451403737068176E-01, 1.977797389030457E+00, 1.962222456932068E+00,&
+ -1.924186825752258E+00, -1.927103757858276E+00, 1.772511124610901E+00, 2.267752170562744E+00,&
+ 1.343345522880554E+00, -1.727791309356689E+00, -1.688525199890137E+00, -2.020093202590942E+00/)
+
+ hidden1Synapse = reshape((/ &
+ -3.217298686504364E-01, -1.535140275955200E-01, -9.374593496322632E-01, -3.773699328303337E-02,&
+ -7.610699534416199E-01, 1.124547328799963E-03, 7.987623810768127E-01, 5.171887874603271E-01,&
+ 1.182283610105515E-01, 1.252476930618286E+00, -2.393243610858917E-01, 8.846385776996613E-02,&
+ 4.983871877193451E-01, -1.072657704353333E+00, -5.902777314186096E-01, 3.053096830844879E-01,&
+ -1.245228290557861E+00, -9.408684819936752E-02, -1.261333227157593E+00, 7.626018673181534E-02,&
+ -3.566111624240875E-01, -2.651087939739227E-01, 5.490935966372490E-02, -1.231116533279419E+00,&
+ -3.552156984806061E-01, -4.995369017124176E-01, -1.970071047544479E-01, 6.921592950820923E-01,&
+ -7.216929793357849E-01, -3.322352096438408E-02, -1.040984153747559E+00, -2.749272584915161E-01,&
+ -3.936901688575745E-01, -5.485629439353943E-01, 2.315377295017242E-01, 3.925201594829559E-01,&
+ 2.289973348379135E-01, 9.091649055480957E-01, -2.400987595319748E-01, 2.274930775165558E-01,&
+ 7.657364010810852E-01, -4.531333744525909E-01, -3.045647442340851E-01, -1.612837314605713E-01,&
+ -6.530205607414246E-01, 6.988145411014557E-02, -3.664937913417816E-01, -1.209497332572937E+00,&
+ 1.716423481702805E-01, 2.888691425323486E-01, -6.977611780166626E-01, 1.001697182655334E+00,&
+ -3.773393929004669E-01, -3.817198425531387E-02, 3.071420192718506E-01, -1.018374800682068E+00,&
+ -3.812201619148254E-01, 2.521711289882660E-01, -1.311386704444885E+00, -4.305998682975769E-01,&
+ -2.096824795007706E-01, -6.536886692047119E-01, 9.946095943450928E-02, -8.006195425987244E-01,&
+ 6.314782798290253E-02, -9.162106513977051E-01, 1.249427199363708E-01, -1.967987567186356E-01,&
+ -2.837883234024048E-01, 4.405716657638550E-01, 7.357195615768433E-01, 2.873047888278961E-01,&
+ 7.006355524063110E-01, -2.267676740884781E-01, 1.684177815914154E-01, 2.451081871986389E-01,&
+ -6.897705197334290E-01, -1.359052062034607E-01, -1.217865824699402E+00, 6.268809437751770E-01,&
+ -1.108817100524902E+00, -1.098538115620613E-01, 6.363938003778458E-02, -2.163156747817993E+00,&
+ 2.993230819702148E-01, -6.225543469190598E-02, 6.338689923286438E-01, 2.340336740016937E-01,&
+ 3.334980309009552E-01, 5.768545866012573E-01, -8.454492688179016E-01, -7.557854652404785E-01,&
+ -6.227542161941528E-01, -1.105716824531555E+00, 2.116404175758362E-01, -2.117430865764618E-01,&
+ -1.036560058593750E+00, -1.257222741842270E-01, 5.264365077018738E-01, -1.787502527236938E+00,&
+ -6.102513074874878E-01, -1.036811590194702E+00, -1.041777491569519E+00, 6.762499362230301E-02,&
+ -1.829331994056702E+00, -1.342972517013550E-01, 2.181535959243774E+00, 7.125011086463928E-01,&
+ 9.849542975425720E-01, 4.515964090824127E-01, -5.667360424995422E-01, 1.371907234191895E+00,&
+ 4.193291962146759E-01, -4.483173191547394E-01, 1.056447148323059E+00, -4.035096466541290E-01,&
+ 2.473213225603104E-01, 4.283659458160400E-01, -1.105738878250122E+00, -3.882422149181366E-01,&
+ 1.359030008316040E-01, -1.316889882087708E+00, 1.206199750304222E-01, -2.816296517848969E-01,&
+ -3.856543898582458E-01, -1.341159194707870E-01, 2.931591272354126E-01, -8.115946650505066E-01,&
+ 1.549627929925919E-01, -3.494594991207123E-02, 1.392071247100830E-01, 8.500702381134033E-01,&
+ -1.105314135551453E+00, -8.855208158493042E-01, -1.129539161920547E-01, -7.288187742233276E-01,&
+ 2.031663209199905E-01, -2.040854692459106E-01, -2.651244997978210E-01, 6.747405529022217E-01,&
+ 6.289814710617065E-01, 3.702930510044098E-01, 8.955963253974915E-01, -1.791490912437439E-01,&
+ 6.291658878326416E-01, 3.181912600994110E-01, -7.458741664886475E-01, -5.797970294952393E-01,&
+ 8.048549294471741E-03, -1.517996788024902E+00, 1.586797833442688E-02, -1.968807131052017E-01,&
+ -6.696819067001343E-01, 2.561997175216675E-01, 1.585537791252136E-01, -3.939553797245026E-01,&
+ 1.001605153083801E+00, -3.178015723824501E-02, 2.169712930917740E-01, 7.597719430923462E-01,&
+ -8.711787462234497E-01, -2.590858340263367E-01, -4.994206726551056E-01, -1.350332260131836E+00,&
+ -1.754350513219833E-01, -5.298053622245789E-01, -1.044484019279480E+00, -5.103482306003571E-02,&
+ 8.845404386520386E-01, 4.584137201309204E-01, 1.076861619949341E+00, 1.874905377626419E-01,&
+ 2.787777185440063E-01, 8.369036912918091E-01, -8.217707276344299E-01, -2.826712131500244E-01,&
+ -2.450734227895737E-01, -8.279343843460083E-01, 3.510917425155640E-01, -3.488889932632446E-01,&
+ -7.627615332603455E-01, 3.606846034526825E-01, 5.258455872535706E-01, -5.099301040172577E-02,&
+ 6.352093815803528E-01, -1.835833787918091E-01, 1.247637987136841E+00, 5.917957425117493E-01,&
+ 1.019452288746834E-01, -5.673841834068298E-01, 1.377126276493073E-01, -1.055184245109558E+00,&
+ -2.036373913288116E-01, -6.316062808036804E-01, -3.354403078556061E-01, 3.826665878295898E-01,&
+ -6.721435189247131E-01, -6.410418748855591E-01, -1.417969822883606E+00, -8.955898880958557E-02,&
+ -6.617363095283508E-01, -6.313887238502502E-01, 1.284139454364777E-01, -7.438000291585922E-02,&
+ 3.091568231582642E+00, 8.395515084266663E-01, 7.227233052253723E-01, 8.192335367202759E-01,&
+ -2.106423974037170E-01, 2.122008800506592E+00, 7.060149908065796E-01, 3.394779860973358E-01,&
+ 6.117095947265625E-01, -3.271679580211639E-01, 1.616740077733994E-01, 1.569840312004089E-01,&
+ -1.123665213584900E+00, 3.844760954380035E-01, 2.845884263515472E-01, 7.137780785560608E-01,&
+ 1.460106819868088E-01, -1.021391227841377E-01, 5.172263383865356E-01, -7.423986196517944E-01,&
+ -2.789774909615517E-02, -1.258952766656876E-01, -1.325458526611328E+00, -5.270438194274902E-01,&
+ -3.967397287487984E-02, -2.709308564662933E-01, 1.340401768684387E-01, -6.963784694671631E-01,&
+ -3.221498429775238E-01, -8.531031608581543E-01, 3.377375304698944E-01, 1.652107536792755E-01,&
+ -3.512997031211853E-01, -1.630981415510178E-01, 3.690161705017090E-01, 1.549807284027338E-02,&
+ 1.193455934524536E+00, 2.675475478172302E-01, 3.856497108936310E-01, 9.223973155021667E-01,&
+ -8.005780726671219E-02, 7.949089407920837E-01, 1.678814589977264E-01, 5.589793920516968E-01,&
+ -2.890521883964539E-01, -6.459630280733109E-02, 1.577395349740982E-01, -6.019581556320190E-01,&
+ 1.361452788114548E-01, -1.461234450340271E+00, 2.132855653762817E-01, -7.116237878799438E-01,&
+ -1.837224513292313E-01, 6.981704831123352E-01, -1.456485867500305E+00, -8.896524459123611E-02,&
+ -6.985316872596741E-01, -9.188821911811829E-01, -1.798982769250870E-01, -3.445543348789215E-01,&
+ -9.767906665802002E-01, 6.575983762741089E-01, -5.698328614234924E-01, 2.794421613216400E-01,&
+ -9.889149665832520E-01, 2.113757282495499E-01, -4.894487261772156E-01, -9.110729694366455E-01,&
+ 3.156659901142120E-01, -8.372070193290710E-01, 1.710339263081551E-02, -7.162731885910034E-01,&
+ -9.848624467849731E-02, -2.407071143388748E-01, -4.630023241043091E-01, 5.028110146522522E-01 &
+ /), shape(hidden1Synapse))
+
+ outputSynapse = reshape((/ &
+ -1.209702730178833E+00, 1.183213353157043E+00, -1.019356846809387E+00, -1.344744205474854E+00,&
+ -1.445307731628418E+00, 1.024327754974365E+00, -1.584630727767944E+00, 1.083521246910095E+00,&
+ -1.308865427970886E+00, -1.247952342033386E+00, 1.239847064018250E+00, 1.287056356668472E-01,&
+ 9.846584796905518E-01, -1.553632378578186E+00, -1.231866717338562E+00, 4.489912092685699E-02,&
+ 1.253254055976868E+00, -1.430614471435547E+00, 1.041161060333252E+00, -1.605084300041199E+00,&
+ 1.527578949928284E+00, -1.474965572357178E+00, 1.355290770530701E+00, -1.745877861976624E+00,&
+ 1.712602972984314E+00, -1.563431382179260E+00, 8.333104252815247E-01, -1.541154265403748E+00,&
+ -1.556280970573425E+00, 7.898001670837402E-01, 1.451943874359131E+00, 1.376102089881897E+00,&
+ -1.475358963012695E+00, -1.508958697319031E+00, 1.723131775856018E+00, 1.577485084533691E+00,&
+ 2.009120136499405E-01, -1.543342947959900E+00, -1.532042622566223E+00, -1.665173649787903E+00,&
+ -1.577844977378845E+00, 1.509271860122681E+00, -1.648273229598999E+00, -1.399203181266785E+00,&
+ -1.230364322662354E+00, 1.090018987655640E+00, -7.097014784812927E-01, 1.677408456802368E+00,&
+ -1.743194699287415E+00, -1.423129081726074E+00, 7.856354713439941E-01, 1.262704372406006E+00,&
+ 1.029602646827698E+00, -8.157435655593872E-01, -1.168590903282166E+00, -1.007120013237000E+00,&
+ 1.498046159744263E+00, -1.094031929969788E+00, 1.288908720016479E+00, -1.570232629776001E+00,&
+ 1.331548571586609E+00, -1.591911792755127E+00, 1.173869848251343E+00, -1.569446206092834E+00,&
+ 1.071457147598267E+00, -1.386015534400940E+00, 1.319629669189453E+00, -1.251965403556824E+00,&
+ -1.506981730461121E+00, -5.631150603294373E-01, 1.476744890213013E+00, 1.224819302558899E+00,&
+ -1.190375804901123E+00, -4.876171946525574E-01, 1.674062848091125E+00, 1.343202710151672E+00,&
+ 8.375900387763977E-01, -1.624152183532715E+00, -1.477828741073608E+00, -1.320914030075073E+00,&
+ -1.082759499549866E+00, 1.309733152389526E+00, -5.913071632385254E-01, -1.292264103889465E+00,&
+ -1.440814852714539E+00, 1.020094513893127E+00, -1.208431601524353E+00, 1.691915869712830E+00,&
+ -1.277797341346741E+00, -1.482174158096313E+00, 1.266713261604309E+00, 1.296367645263672E+00,&
+ 1.238657712936401E+00, -7.025628685951233E-01, 2.491326481103897E-01, -1.536825418472290E+00,&
+ 1.577931523323059E+00, -1.065637469291687E+00, 1.696800708770752E+00, -1.695444345474243E+00,&
+ 1.581656932830811E+00, -1.088520646095276E+00, 1.492973804473877E+00, -1.063908934593201E+00,&
+ 1.496415257453918E+00, -1.486176609992981E+00, 6.039925217628479E-01, -1.485497832298279E+00,&
+ -1.147870540618896E+00, -1.266431331634521E+00, 1.607187867164612E+00, 1.494379520416260E+00,&
+ -1.001191616058350E+00, -1.084854602813721E+00, 1.410489916801453E+00, 1.581320643424988E+00,&
+ 1.205576062202454E+00, -1.245357394218445E+00, -1.343545675277710E+00, -1.709581851959229E+00 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard4
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard5(inputFile,hidden1Axon,hidden1Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(40)
+ real hidden1Synapse(7,40)
+ real outputSynapse(40,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.188449800014496E-01, 1.674167998135090E-02,&
+ 1.918158382177353E-01, 6.903452277183533E-01,&
+ 3.361344337463379E-01, 4.151264205574989E-02,&
+ 2.485501170158386E-01, 2.868268489837646E-01,&
+ 1.839550286531448E-01, 3.534696102142334E-01,&
+ 1.951007992029190E-01, -4.725341200828552E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/3.177257776260376E-01, -3.444353640079498E-01, 5.270494818687439E-01, -5.221590399742126E-01,&
+ -2.202716171741486E-01, -4.241476655006409E-01, 2.620704658329487E-02, 6.034846901893616E-01,&
+ -3.619376122951508E-01, -3.380794525146484E-01, 4.901479184627533E-02, 4.951947927474976E-02,&
+ 1.800213754177094E-01, -2.407073378562927E-01, -3.286456167697906E-01, -6.795548200607300E-01,&
+ -5.868792533874512E-01, -3.454326987266541E-01, 1.429300457239151E-01, -2.292728424072266E-01,&
+ 4.302643239498138E-01, -2.324737906455994E-01, -4.539224207401276E-01, 5.544423460960388E-01,&
+ -4.054053127765656E-01, -1.476568281650543E-01, -2.141656428575516E-01, 1.077265888452530E-01,&
+ 5.846756696701050E-01, 3.272875547409058E-01, 1.847147941589355E-03, -4.990870654582977E-01,&
+ 1.531988829374313E-01, 1.791626960039139E-01, -6.736395359039307E-01, -5.093495845794678E-01,&
+ -6.099227815866470E-02, 3.861090838909149E-01, -6.592265367507935E-01, -2.490588128566742E-01/)
+
+ hidden1Synapse = reshape((/ &
+ 3.541271016001701E-02, -7.549672126770020E-01, -4.738137125968933E-01, -2.348672598600388E-03,&
+ -2.733762562274933E-01, -8.357829414308071E-03, -8.771334886550903E-01, -2.402636408805847E-01,&
+ -3.840126693248749E-01, -5.802615284919739E-01, 1.073393039405346E-03, -2.714654207229614E-01,&
+ -1.682563573122025E-01, 2.412795424461365E-01, 6.722061038017273E-01, -2.907541096210480E-01,&
+ 1.961677670478821E-01, -3.303197622299194E-01, 1.424128562211990E-01, 5.971218943595886E-01,&
+ -3.415485620498657E-01, -3.709296286106110E-01, 2.636498510837555E-01, -6.461778879165649E-01,&
+ -4.282482266426086E-01, -1.192058548331261E-01, -7.758595943450928E-01, -4.671352729201317E-02,&
+ -2.137460708618164E-01, -1.528403162956238E-02, -7.986806631088257E-01, -3.911508247256279E-02,&
+ -5.328277871012688E-02, -6.519866585731506E-01, 3.402085006237030E-01, 1.100756451487541E-01,&
+ 6.820629835128784E-01, 7.288114726543427E-02, 2.484970390796661E-01, -1.383271068334579E-01,&
+ 1.246754452586174E-01, 6.508666276931763E-01, 3.158373534679413E-01, -5.986170172691345E-01,&
+ 6.103343367576599E-01, -6.012113094329834E-01, -1.359632611274719E-01, -2.586761862039566E-02,&
+ -4.111338853836060E-01, 1.772232651710510E-01, -6.230232119560242E-01, 3.960133790969849E-01,&
+ -6.472764015197754E-01, -3.764366805553436E-01, -9.892498701810837E-02, -9.984154999256134E-02,&
+ -4.294761717319489E-01, -2.304461598396301E-01, -7.071238160133362E-01, -4.068204462528229E-01,&
+ -4.626799225807190E-01, -3.020684123039246E-01, 6.521416902542114E-01, 1.521919965744019E-01,&
+ -7.091572284698486E-01, -4.207086861133575E-01, -5.045717954635620E-01, -3.018378615379333E-01,&
+ -4.485827982425690E-01, -5.111956596374512E-01, -8.567054569721222E-02, 4.856635630130768E-01,&
+ 2.459491789340973E-01, -1.496585756540298E-01, -1.183001995086670E-01, 4.713786244392395E-01,&
+ -2.809847891330719E-01, 8.547450602054596E-02, -3.530589640140533E-01, -7.254429459571838E-01,&
+ -1.860966980457306E-01, -6.639543771743774E-01, 4.769657552242279E-01, -7.412918210029602E-01,&
+ 3.024796843528748E-01, -6.272576451301575E-01, -5.452296733856201E-01, -2.242822349071503E-01,&
+ -3.738160133361816E-01, 3.284691274166107E-01, -4.564896821975708E-01, 2.556349933147430E-01,&
+ 4.318492487072945E-02, -1.320876032114029E-01, -9.898099303245544E-02, 6.774403899908066E-02,&
+ 1.919083893299103E-01, 2.400640696287155E-01, 4.077304899692535E-01, 2.524036169052124E-01,&
+ 5.042297840118408E-01, 2.886471152305603E-01, -1.700776815414429E-01, -2.435589283704758E-01,&
+ -2.057165205478668E-01, 1.996059715747833E-01, 2.711705565452576E-01, 3.861612975597382E-01,&
+ -2.083975523710251E-01, 7.296724617481232E-02, -2.396509945392609E-01, -1.525006294250488E-01,&
+ -4.502384066581726E-01, -5.351938009262085E-01, -3.890139460563660E-01, 1.700514107942581E-01,&
+ -4.677065312862396E-01, -3.514041006565094E-01, 4.196007549762726E-01, 2.812465429306030E-01,&
+ -2.938374876976013E-01, -3.160441517829895E-01, -4.980419874191284E-01, 3.127529323101044E-01,&
+ 2.271771281957626E-01, -1.466843336820602E-01, -6.397774219512939E-01, 4.446669816970825E-01,&
+ 8.942086249589920E-02, 9.681937843561172E-02, -5.533168092370033E-02, -4.528337121009827E-01,&
+ 6.882410049438477E-01, -3.133308887481689E-01, -2.058080136775970E-01, -2.226170003414154E-01,&
+ -2.296325266361237E-01, -2.966837584972382E-01, -3.301460444927216E-01, -3.557955026626587E-01,&
+ 3.304032683372498E-01, -8.399857580661774E-02, 4.199078381061554E-01, 1.194518618285656E-02,&
+ 7.232509851455688E-01, 9.784302115440369E-02, -1.134829670190811E-01, 1.034526005387306E-01,&
+ -8.523296117782593E-01, 5.190717577934265E-01, 5.323929339647293E-02, 1.697375029325485E-01,&
+ 5.581731796264648E-01, -9.171869754791260E-01, -1.815564483404160E-01, 3.742720186710358E-01,&
+ -2.523972094058990E-01, 1.490504741668701E-01, -6.334505081176758E-01, 2.519290745258331E-01,&
+ 2.056387513875961E-01, -1.307390183210373E-01, -9.355121254920959E-01, -2.585434913635254E-01,&
+ -4.636541008949280E-02, -1.257960349321365E-01, 1.712975054979324E-01, -7.756385207176208E-01,&
+ -2.476336807012558E-01, 2.972539961338043E-01, 4.443784654140472E-01, 4.029458761215210E-02,&
+ -2.695891633629799E-02, -1.858536303043365E-01, -1.682455986738205E-01, -1.443968862295151E-01,&
+ 3.042537868022919E-01, -4.171138703823090E-01, -1.896526068449020E-01, 1.934753060340881E-01,&
+ -5.211362838745117E-01, -4.224704951047897E-02, -5.408123731613159E-01, -2.546814382076263E-01,&
+ -3.727044463157654E-01, -4.361395835876465E-01, 1.507636755704880E-01, 8.203987777233124E-02,&
+ 1.366124451160431E-01, 5.710709095001221E-01, 3.028809726238251E-01, 9.636782407760620E-01,&
+ -3.770071640610695E-02, 3.973050415515900E-01, 2.884645946323872E-03, -8.364310860633850E-01,&
+ 5.341901779174805E-01, -1.418879022821784E-03, 5.416565537452698E-01, 3.877540528774261E-01,&
+ -1.585132908076048E-03, 1.770619601011276E-01, 4.701207578182220E-02, 4.187163114547729E-01,&
+ 9.934148788452148E-01, 2.260543704032898E-01, 7.113759517669678E-01, 4.728879332542419E-01,&
+ -3.471966087818146E-01, 7.732371240854263E-02, -2.182047963142395E-01, 8.698941469192505E-01,&
+ 6.959328651428223E-01, 1.184082403779030E-01, 1.408587545156479E-01, 2.005882859230042E-01,&
+ 3.091167509555817E-01, -1.955157965421677E-01, -2.792426571249962E-02, -7.336559891700745E-02,&
+ 1.834385395050049E-01, -3.164150416851044E-01, -5.837532281875610E-01, 9.843266010284424E-01,&
+ -5.053303837776184E-01, 9.432902336120605E-01, 2.762463316321373E-02, 3.678649663925171E-01,&
+ -8.084134012460709E-02, 2.041484862565994E-01, 5.061163306236267E-01, 7.991071939468384E-01,&
+ 2.264233529567719E-01, 7.115226387977600E-01, -5.186138153076172E-01, 4.093891084194183E-01,&
+ -1.001899018883705E-01, -1.933344826102257E-02, 1.815729439258575E-01, -1.810713559389114E-01,&
+ -5.504883527755737E-01, 7.005249857902527E-01, -1.967341639101505E-02, 1.448700390756130E-02,&
+ 3.791421651840210E-01, -3.687309324741364E-01, 6.238684058189392E-01, 2.549594640731812E-02,&
+ 6.611171960830688E-01, -2.348230034112930E-01, 4.087108075618744E-01, 1.835047304630280E-01,&
+ 2.745413780212402E-01, -5.477424860000610E-01, 4.227129369974136E-02, 1.370747834444046E-01,&
+ -1.771535575389862E-01, 2.915630638599396E-01, 8.117929100990295E-02, -5.147354602813721E-01,&
+ -7.195407748222351E-01, -2.950702905654907E-01, -8.272841572761536E-01, -8.926602080464363E-03,&
+ 6.488984823226929E-01, -7.542604207992554E-01, -1.718278229236603E-01, -4.908424615859985E-02,&
+ -3.619753718376160E-01, -9.747832268476486E-02, -9.625122696161270E-02, -1.545960754156113E-01,&
+ 4.842050671577454E-01, -9.618758410215378E-02, 1.017526090145111E-01, -1.527849882841110E-01,&
+ 5.150741338729858E-01, -2.614658325910568E-02, -4.681808650493622E-01, 6.698484718799591E-02 &
+ /), shape(hidden1Synapse))
+
+ outputSynapse = reshape((/ &
+ -4.252142608165741E-01, -5.190939903259277E-01, 2.900628745555878E-01, -4.749988615512848E-01,&
+ -2.432068884372711E-01, 2.475018054246902E-01, 1.508098654448986E-02, -1.032671928405762E-01,&
+ -5.695398449897766E-01, -4.341589808464050E-01, 3.563072979450226E-01, -1.610363721847534E-01,&
+ -1.529531776905060E-01, 3.572074323892593E-02, -1.639768481254578E-01, -2.103261351585388E-01,&
+ -5.111085772514343E-01, -9.769214689731598E-02, -1.570120900869370E-01, -1.928524225950241E-01,&
+ 4.143640100955963E-01, -3.950143232941628E-02, -2.028328180313110E-01, -1.475265175104141E-01,&
+ -2.296919003129005E-02, -3.979336936026812E-03, -3.908852040767670E-01, 4.192969501018524E-01,&
+ 2.397747188806534E-01, 4.962041378021240E-01, 4.480696618556976E-01, -2.336141020059586E-01,&
+ 3.938802778720856E-01, 2.352581322193146E-01, 1.772783696651459E-02, -5.289353057742119E-02,&
+ -3.967223316431046E-02, -4.341553747653961E-01, -2.162312269210815E-01, 4.311326891183853E-02,&
+ 4.480128586292267E-01, 1.783114373683929E-01, 5.068565607070923E-01, -4.451447725296021E-01,&
+ -5.096289515495300E-01, -4.807172119617462E-01, 1.144711822271347E-01, 3.887178003787994E-01,&
+ -3.575057387351990E-01, -1.148879528045654E-01, -3.399987518787384E-02, -2.313354164361954E-01,&
+ -7.217752188444138E-02, 3.657472431659698E-01, 3.738324940204620E-01, 4.177713990211487E-01,&
+ -4.159389436244965E-01, -1.484509706497192E-01, 2.662932872772217E-01, -4.467738270759583E-01,&
+ 7.071519643068314E-02, 3.344006240367889E-01, -5.436876043677330E-02, 3.525221049785614E-01,&
+ -2.395160868763924E-02, -3.141686320304871E-01, 3.852373957633972E-01, 4.932067096233368E-01,&
+ -1.492380946874619E-01, 4.595996737480164E-01, 3.445216640830040E-02, -5.653984546661377E-01,&
+ -4.437799155712128E-01, 1.460446715354919E-01, -4.742037057876587E-01, 1.456019878387451E-01,&
+ 3.867210447788239E-01, 4.871259629726410E-01, -4.954726397991180E-01, 1.770049333572388E-02,&
+ 2.028178423643112E-01, -3.220860958099365E-01, 2.971330881118774E-01, -1.783177554607391E-01,&
+ -2.126741260290146E-01, -2.823735475540161E-01, 4.713099896907806E-01, 2.155631184577942E-01,&
+ -3.713304102420807E-01, 2.199546098709106E-01, 2.943331003189087E-01, 4.534626007080078E-01,&
+ 3.414066731929779E-01, -1.535274535417557E-01, -1.036400645971298E-01, -4.483501911163330E-01,&
+ 8.723334968090057E-02, -1.368855964392424E-02, -5.010653138160706E-01, 4.472654759883881E-01,&
+ 1.106471717357635E-01, 5.139253139495850E-01, -2.296521663665771E-01, 4.545788764953613E-01,&
+ 1.664130948483944E-02, 2.438283525407314E-02, -1.943250745534897E-01, 4.952348470687866E-01,&
+ 3.839295804500580E-01, -3.456721901893616E-01, -1.650201976299286E-01, -3.892767727375031E-01,&
+ -3.154349029064178E-01, 3.591218292713165E-01, -2.804268598556519E-01, -4.606449007987976E-01,&
+ 1.020256653428078E-01, 2.229744791984558E-01, -4.180959761142731E-01, -4.198006689548492E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard5
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard6(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(7)
+ real hidden2Axon(4)
+ real hidden1Synapse(7,7)
+ real hidden2Synapse(7,4)
+ real outputSynapse(4,3)
+
+ inputFile = reshape((/ &
+ 1.353383421897888E+00, -4.533834457397461E-01,&
+ 2.269289046525955E-01, -1.588500849902630E-02,&
+ 1.868382692337036E-01, 6.490761637687683E-01,&
+ 4.038590788841248E-01, 3.776083141565323E-02,&
+ 2.430133521556854E-01, 3.004860281944275E-01,&
+ 1.935067623853683E-01, 4.185551702976227E-01,&
+ 1.951007992029190E-01, -4.725341200828552E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/ 7.384125608950853E-03, -2.202851057052612E+00, 2.003432661294937E-01, -2.467587143182755E-01,&
+ 5.973502993583679E-01, 3.834692537784576E-01, 2.687855064868927E-01/)
+
+ hidden2Axon = &
+ (/ 3.643750846385956E-01, 2.449363768100739E-01, 4.754272103309631E-01, 7.550075054168701E-01/)
+
+ hidden1Synapse = reshape((/ &
+ 7.333400845527649E-01, 5.450296998023987E-01, -7.700046896934509E-01, 1.426693439483643E+00,&
+ -1.024212338961661E-03, -6.459779292345047E-02, 1.028800487518311E+00, -2.116347402334213E-01,&
+ 3.591781139373779E+00, 2.435753583908081E+00, -6.687584519386292E-01, 1.201278567314148E+00,&
+ -3.478864133358002E-01, 1.830960988998413E+00, -3.111673295497894E-01, -4.177703261375427E-01,&
+ -3.920616805553436E-01, -5.040770769119263E-01, -5.354442000389099E-01, -1.534618530422449E-02,&
+ -1.089364647865295E+00, -3.010036647319794E-01, 1.486289381980896E+00, 1.059559464454651E+00,&
+ 1.640596628189087E+00, 2.254628390073776E-01, 4.839954376220703E-01, 8.484285473823547E-01,&
+ -6.926012784242630E-02, 4.926209524273872E-02, 2.834132313728333E-01, 3.028324842453003E-01,&
+ 2.161216735839844E-01, 7.251360416412354E-01, 2.851752638816833E-01, -5.653074979782104E-01,&
+ 3.640621304512024E-01, 1.341893225908279E-01, 7.511208057403564E-01, -1.088509336113930E-01,&
+ 1.044083759188652E-01, 6.529347300529480E-01, -6.885128021240234E-01, -1.003871187567711E-01,&
+ 9.337020665407181E-02, -4.425194561481476E-01, -3.668845295906067E-01, -2.661575675010681E-01,&
+ -5.936880707740784E-01 &
+ /), shape(hidden1Synapse))
+
+ hidden2Synapse = reshape((/ &
+ -5.461466908454895E-01, -1.490996479988098E+00, 7.721499800682068E-01, -3.842977285385132E-01,&
+ 1.134691461920738E-01, -7.171064615249634E-01, 4.990165829658508E-01, -4.233781099319458E-01,&
+ 5.502462983131409E-01, -1.000102013349533E-01, 1.481512188911438E+00, 1.637827455997467E-01,&
+ 5.879161506891251E-02, -3.256742060184479E-01, 4.237195849418640E-01, 1.471476674079895E+00,&
+ -1.982609331607819E-01, 6.787789463996887E-01, 5.525223612785339E-01, 4.395257532596588E-01,&
+ 1.643348783254623E-01, 8.910947442054749E-01, 1.772162079811096E+00, -2.550726830959320E-01,&
+ 4.305597543716431E-01, 1.965346336364746E-01, -2.251276820898056E-01, -5.650298595428467E-01 &
+ /), shape(hidden2Synapse))
+
+ outputSynapse = reshape((/ &
+ 4.605286195874214E-02, 1.636024713516235E-01, 7.045555710792542E-01, 4.994805455207825E-01,&
+ 5.167593955993652E-01, 2.924540340900421E-01, -1.490857079625130E-02, -1.826021969318390E-01,&
+ 3.571106493473053E-01, -3.790216147899628E-01, -6.031348705291748E-01, -4.664786159992218E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard6
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard7(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(7)
+ real hidden2Axon(4)
+ real hidden1Synapse(7,7)
+ real hidden2Synapse(7,4)
+ real outputSynapse(4,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.295625507831573E-01, 6.163756549358368E-02,&
+ 2.081165313720703E-01, 6.204994320869446E-01,&
+ 3.565062582492828E-01, -1.051693689078093E-02,&
+ 2.430133521556854E-01, 3.004860281944275E-01,&
+ 1.839550286531448E-01, 3.534696102142334E-01,&
+ 1.951007992029190E-01, -4.725341200828552E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/-4.191969335079193E-01, 1.229978561401367E+00, -2.403785735368729E-01, 5.233071446418762E-01,&
+ 8.062141537666321E-01, 1.000604867935181E+00, -1.015548110008240E-01/)
+
+ hidden2Axon = &
+ (/-5.321261882781982E-01, -2.396449327468872E+00, -1.170158505439758E+00, -4.097367227077484E-01/)
+
+ hidden1Synapse = reshape((/ &
+ 1.341468811035156E+00, -4.215665817260742E+00, -1.636691570281982E+00, -2.792109727859497E+00,&
+ -1.489341259002686E+00, 4.075187742710114E-01, -2.091729402542114E+00, -5.029736161231995E-01,&
+ -4.151493072509766E+00, -1.452428579330444E+00, 2.398953676223755E+00, -8.748555183410645E-01,&
+ 1.340690374374390E+00, -2.277854681015015E+00, 6.057588458061218E-01, 1.353034019470215E+00,&
+ -1.214678883552551E+00, -3.864320814609528E-01, 1.148570895195007E+00, 5.792776346206665E-01,&
+ 1.344245020300150E-02, -8.885311484336853E-01, -1.594583272933960E+00, 4.960928857326508E-01,&
+ -1.118881464004517E+00, -2.252289772033691E+00, 6.328870654106140E-01, -1.946701169013977E+00,&
+ -2.910976111888885E-01, 2.447998225688934E-01, 2.001658976078033E-01, -1.229660585522652E-02,&
+ 6.969845890998840E-01, -5.897524300962687E-03, -5.688555836677551E-01, 2.619750201702118E-01,&
+ -4.162483692169189E+00, -1.468571424484253E+00, -3.118389844894409E+00, 6.947994828224182E-01,&
+ -2.687734663486481E-01, -2.110401153564453E+00, 3.224660456180573E-02, 8.378994464874268E-01,&
+ 9.896742701530457E-01, -7.354493737220764E-01, 6.684727072715759E-01, 1.465887904167175E+00,&
+ -3.726872503757477E-01 &
+ /), shape(hidden1Synapse))
+
+ hidden2Synapse = reshape((/ &
+ -3.395457863807678E-01, -5.815528631210327E-01, 2.929831743240356E-01, -5.629656314849854E-01,&
+ 4.701104387640953E-02, -9.300172328948975E-01, -1.461120098829269E-01, -3.458845615386963E-01,&
+ 1.266251802444458E-01, 6.342335790395737E-02, 1.869771480560303E-01, -1.476681977510452E-01,&
+ 5.144428834319115E-02, -3.145390946883708E-04, 8.697064518928528E-01, 1.057970225811005E-01,&
+ 2.603019773960114E-01, 4.393529295921326E-01, -2.832717299461365E-01, 5.771816968917847E-01,&
+ -3.896601796150208E-01, -7.260112762451172E-01, -7.957320213317871E-01, 6.776907294988632E-02,&
+ -3.073690235614777E-01, -1.540119051933289E-01, -6.733091473579407E-01, 2.009786069393158E-01 &
+ /), shape(hidden2Synapse))
+
+ outputSynapse = reshape((/ &
+ 3.156347572803497E-01, -8.236174583435059E-01, -9.946570396423340E-01, 4.212915897369385E-01,&
+ -7.918102145195007E-01, -2.033229321241379E-01, -1.056663155555725E+00, -5.699685215950012E-01,&
+ -9.666987657546997E-01, -5.505290031433105E-01, 8.724089711904526E-02, -9.536570906639099E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard7
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard8(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(7)
+ real hidden2Axon(4)
+ real hidden1Synapse(7,7)
+ real hidden2Synapse(7,4)
+ real outputSynapse(4,3)
+
+ inputFile = reshape((/ &
+ 1.353383421897888E+00, -4.533834457397461E-01,&
+ 2.188449800014496E-01, 1.674167998135090E-02,&
+ 1.906577646732330E-01, 6.807435750961304E-01,&
+ 3.361344337463379E-01, 4.151264205574989E-02,&
+ 2.491349428892136E-01, 3.307266235351562E-01,&
+ 1.839550286531448E-01, 3.534696102142334E-01,&
+ 1.951007992029190E-01, -4.725341200828552E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/-3.274627029895782E-01, 2.668272238224745E-03, -3.019839525222778E-01, -4.557206928730011E-01,&
+ -5.515558272600174E-02, 3.119016764685512E-04, 8.753398060798645E-02/)
+
+ hidden2Axon = &
+ (/ 2.733168303966522E-01, -3.423235416412354E-01, 8.666662573814392E-01, -6.124708056449890E-01/)
+
+ hidden1Synapse = reshape((/ &
+ 2.732226848602295E-01, 1.847893238067627E+00, -1.084923520684242E-01, 1.385403037071228E+00,&
+ 2.885355055332184E-01, -3.135629594326019E-01, 1.057805895805359E+00, -5.868541821837425E-02,&
+ 3.278825521469116E+00, 4.641786217689514E-01, 4.461606740951538E-01, -1.952850073575974E-01,&
+ -5.789646506309509E-01, 1.945697903633118E+00, -9.578172862529755E-02, 2.150904417037964E+00,&
+ 9.114052653312683E-01, 1.107189536094666E+00, 6.752110123634338E-01, 2.475811988115311E-01,&
+ 1.050705909729004E+00, 3.205673992633820E-01, 2.478840798139572E-01, -5.084273815155029E-01,&
+ -2.407394796609879E-01, -1.702371835708618E-01, 1.456947028636932E-01, 3.221787512302399E-01,&
+ -2.719256579875946E-01, -5.116361379623413E-01, 3.973563387989998E-02, -1.733802706003189E-01,&
+ -1.649789661169052E-01, -4.471102654933929E-01, -4.071239829063416E-01, -1.492276042699814E-01,&
+ -1.245773434638977E+00, -6.851593255996704E-01, -8.733592033386230E-01, -4.348643422126770E-01,&
+ -3.520536422729492E-01, -9.930510520935059E-01, 1.956800930202007E-02, -9.781590104103088E-01,&
+ -6.039583683013916E-01, -6.923800706863403E-01, -6.682770848274231E-01, 4.162513464689255E-02,&
+ -1.004322052001953E+00 &
+ /), shape(hidden1Synapse))
+
+ hidden2Synapse = reshape((/ &
+ -8.183520436286926E-01, -1.621446132659912E+00, -1.045793533325195E+00, -5.855653062462807E-02,&
+ 4.404523968696594E-01, 7.002395391464233E-01, 2.097517400979996E-01, -9.925779700279236E-02,&
+ -8.263560533523560E-01, -1.043026208877563E+00, 4.524357020854950E-01, 2.231711596250534E-01,&
+ 8.736496567726135E-01, 8.797182440757751E-01, 6.963157653808594E-01, 2.816314399242401E-01,&
+ 1.525615751743317E-01, 1.936565339565277E-01, 1.900831162929535E-01, 1.180221140384674E-01,&
+ 1.027775928378105E-01, 9.149055480957031E-01, 1.129598617553711E+00, 6.131598353385925E-01,&
+ 2.547058761119843E-01, 2.556352131068707E-02, -3.627143800258636E-02, -6.722733378410339E-01 &
+ /), shape(hidden2Synapse))
+
+ outputSynapse = reshape((/ &
+ -5.266965627670288E-01, -1.973343640565872E-01, 1.362649053335190E-01, 9.479679167270660E-02,&
+ 2.987665235996246E-01, -3.116582632064819E-01, -1.842434853315353E-01, -4.986568093299866E-01,&
+ 6.261917948722839E-01, 5.454919338226318E-01, -3.484728187322617E-02, -4.687039256095886E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard8
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard9(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(7)
+ real hidden2Axon(4)
+ real hidden1Synapse(7,7)
+ real hidden2Synapse(7,4)
+ real outputSynapse(4,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.188449800014496E-01, 1.674167998135090E-02,&
+ 1.868382692337036E-01, 6.490761637687683E-01,&
+ 3.733665347099304E-01, 1.051026657223701E-01,&
+ 2.430133521556854E-01, 3.004860281944275E-01,&
+ 2.083092182874680E-01, 3.581876754760742E-01,&
+ 1.951007992029190E-01, -4.725341200828552E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/ 1.012814998626709E+00, -3.782782554626465E-01, -2.220184087753296E+00, -3.424299955368042E-01,&
+ 1.449530482292175E+00, -2.592789530754089E-01, -4.670010507106781E-01/)
+
+ hidden2Axon = &
+ (/ 3.516010642051697E-01, 3.293374776840210E-01, -1.675553172826767E-01, 3.799068629741669E-01/)
+
+ hidden1Synapse = reshape((/ &
+ 1.390573829412460E-01, -3.110583126544952E-01, 1.105552077293396E+00, 4.394045472145081E-01,&
+ 4.795211851596832E-01, 1.969023197889328E-01, 5.574952811002731E-02, 1.690310984849930E-01,&
+ 2.208244323730469E+00, 2.111947536468506E+00, 3.239532709121704E-01, 7.690296173095703E-01,&
+ 1.264077782630920E+00, 1.672740578651428E+00, 1.320844173431396E+00, 7.965675592422485E-01,&
+ -7.341063618659973E-01, 3.702043294906616E+00, 1.716022133827209E+00, -6.642882823944092E-01,&
+ 1.686427950859070E+00, -4.863217473030090E-01, 1.285641908645630E+00, 1.281449794769287E+00,&
+ 2.356275558471680E+00, -1.406845331192017E+00, 6.027717590332031E-01, 6.652191877365112E-01,&
+ -9.871492385864258E-01, -5.513690948486328E+00, -2.750334143638611E-01, 1.229651212692261E+00,&
+ -2.504641294479370E+00, -3.219850361347198E-01, -2.744197607040405E+00, -4.023179113864899E-01,&
+ 9.932321496307850E-03, -6.916724443435669E-01, -2.260914087295532E+00, 1.261568814516068E-01,&
+ 3.248662948608398E-01, 6.963043808937073E-01, 1.830800414085388E+00, -2.054267644882202E+00,&
+ -9.595731496810913E-01, -8.711494207382202E-01, -1.330682396888733E+00, 2.109736204147339E+00,&
+ -6.145163774490356E-01 &
+ /), shape(hidden1Synapse))
+
+ hidden2Synapse = reshape((/ &
+ -3.299105465412140E-01, 4.235435724258423E-01, 9.191738963127136E-01, 6.795659661293030E-01,&
+ -1.440919041633606E+00, 4.634908214211464E-02, -1.265781879425049E+00, 2.394487708806992E-01,&
+ 1.205053567886353E+00, 5.790516138076782E-01, 1.087130665779114E+00, -6.723164916038513E-01,&
+ -1.834900081157684E-01, -4.767680168151855E-01, 8.402896672487259E-02, 1.035530328750610E+00,&
+ 1.644443035125732E+00, 4.317290484905243E-01, -1.714672803878784E+00, 5.225644707679749E-01,&
+ -5.602287650108337E-01, 1.068559288978577E+00, -2.211284125223756E-03, -2.943626642227173E-01,&
+ 1.341261714696884E-01, 4.324447214603424E-01, -5.482236146926880E-01, -4.985276758670807E-01 &
+ /), shape(hidden2Synapse))
+
+ outputSynapse = reshape((/ &
+ 3.726457059383392E-01, 7.749153375625610E-01, 4.159255921840668E-01, 5.234625935554504E-01,&
+ -1.592817008495331E-01, 5.884559154510498E-01, -7.756121158599854E-01, 2.137655019760132E-01,&
+ -6.172903776168823E-01, -4.417923986911774E-01, -4.576872885227203E-01, 4.440903961658478E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard9
+!
+!------------------------------------------------------------------------------
+!
+ SUBROUTINE Breadboard10(inputFile,hidden1Axon,hidden2Axon,&
+ hidden1Synapse,hidden2Synapse,outputSynapse)
+
+ implicit none
+
+ real inputFile(2,7)
+ real hidden1Axon(7)
+ real hidden2Axon(4)
+ real hidden1Synapse(7,7)
+ real hidden2Synapse(7,4)
+ real outputSynapse(4,3)
+
+ inputFile = reshape((/ &
+ 1.077844262123108E+00, -1.778443008661270E-01,&
+ 2.269289046525955E-01, -1.588500849902630E-02,&
+ 1.906577646732330E-01, 6.807435750961304E-01,&
+ 3.703703582286835E-01, -4.592590779066086E-02,&
+ 2.611723542213440E-01, 3.901915252208710E-01,&
+ 1.911842674016953E-01, 4.027296602725983E-01,&
+ 1.951007992029190E-01, -4.725341200828552E-01 &
+ /), shape(inputFile))
+
+ hidden1Axon = &
+ (/ 1.307985544204712E+00, -1.960705667734146E-01, -1.105142459273338E-01, -1.207442641258240E+00,&
+ -1.665081620216370E+00, 1.251117825508118E+00, -7.307677268981934E-01/)
+
+ hidden2Axon = &
+ (/ 2.186001092195511E-02, 3.369570672512054E-01, 1.165086925029755E-01, 2.747000660747290E-03/)
+
+ hidden1Synapse = reshape((/ &
+ -3.375437259674072E-01, -3.020816326141357E+00, -1.435481071472168E+00, 1.473870635032654E+00,&
+ -7.776365280151367E-01, 6.734371185302734E-01, -1.643768787384033E+00, -1.227448821067810E+00,&
+ -7.365036606788635E-01, -4.473563134670258E-01, -5.696173906326294E-01, -2.562220990657806E-01,&
+ 8.557485342025757E-01, -8.057124614715576E-01, 4.266147911548615E-01, 2.171551227569580E+00,&
+ 3.776189982891083E-01, 5.574828386306763E-01, 3.814708292484283E-01, 2.591066062450409E-01,&
+ 1.959651827812195E+00, 1.003962755203247E-01, -1.228965446352959E-02, -3.882043361663818E-01,&
+ -2.722288109362125E-02, -3.378733694553375E-01, -7.981095314025879E-01, 4.839731752872467E-01,&
+ 1.432798147201538E+00, 1.885666996240616E-01, -6.051751971244812E-01, 2.924412488937378E+00,&
+ 1.136252880096436E+00, 2.994727194309235E-01, 1.604383468627930E+00, -8.440219759941101E-01,&
+ 6.088087558746338E-01, -3.722844421863556E-01, 5.441566109657288E-01, 3.944540619850159E-01,&
+ 7.044004201889038E-01, 3.459328413009644E-01, 1.054268121719360E+00, -3.348083496093750E+00,&
+ -7.199336886405945E-01, -1.489133596420288E+00, -4.090557992458344E-01, 8.203456401824951E-01,&
+ -1.118073821067810E+00 &
+ /), shape(hidden1Synapse))
+
+ hidden2Synapse = reshape((/ &
+ -6.871775984764099E-01, -1.148896694183350E+00, -2.102893590927124E-01, -5.890849828720093E-01,&
+ 5.899340510368347E-01, 7.098034024238586E-01, -1.422515869140625E+00, -1.206974506378174E+00,&
+ 4.104525446891785E-01, 3.567897081375122E-01, 2.746991515159607E-01, 1.193219542503357E+00,&
+ 3.167707324028015E-01, -1.222744822502136E+00, -9.918631613254547E-02, 4.355156719684601E-01,&
+ 2.938420772552490E-01, -1.012830615043640E+00, -1.290418803691864E-01, 7.479285597801208E-01,&
+ -2.292920649051666E-01, -1.372484922409058E+00, -6.534293759614229E-03, 1.525195717811584E+00,&
+ 2.076585590839386E-01, 1.434590101242065E+00, 7.887706905603409E-02, -1.401232123374939E+00 &
+ /), shape(hidden2Synapse))
+
+ outputSynapse = reshape((/ &
+ 6.101396083831787E-01, 3.122945129871368E-01, 3.869898915290833E-01, 4.438063502311707E-01,&
+ 5.161536335945129E-01, -2.700618803501129E-01, -3.105166740715504E-02, -5.569267272949219E-01,&
+ -5.549081563949585E-01, -3.867979049682617E-01, 1.623111665248871E-01, -6.052750945091248E-01 &
+ /), shape(outputSynapse))
+
+ END SUBROUTINE Breadboard10
!
!-------------------------------------------------------------------------------------
!
diff --git a/sorc/ncep_post.fd/grib2_module.f b/sorc/ncep_post.fd/grib2_module.f
index bb24fc660..94136b823 100644
--- a/sorc/ncep_post.fd/grib2_module.f
+++ b/sorc/ncep_post.fd/grib2_module.f
@@ -1182,7 +1182,7 @@ subroutine read_grib2_sngle(filenameG2,ntot,height,var)
integer :: grib_edition
integer :: itot
integer :: nx,ny
- real :: dx,dy,lat1,lon1,rtnum
+ real :: dx,dy,lat1,lon1,rtnum, nlat
real :: ref_value,bin_scale_fac,dec_scale_fac,bit_number,field_type
real :: bit_map
real :: scale_factor,scale_factor2
@@ -1306,7 +1306,15 @@ subroutine read_grib2_sngle(filenameG2,ntot,height,var)
! write(*,*) 'bit_number=',bit_number
! write(*,*) 'field_type=',field_type
! write(*,*) 'bit map indicator=',bit_map
- else
+ else if (gfld%igdtnum.eq.40) then ! Gaussian Grid (GFS)
+ nx = gfld%igdtmpl(8)
+ ny = gfld%igdtmpl(9)
+ lat1 = gfld%igdtmpl(12)/scale_factor
+ lon1 = gfld%igdtmpl(13)/scale_factor
+ dx = gfld%igdtmpl(17)/scale_factor
+ nlat = gfld%igdtmpl(18)
+ write(*,*) gfld%igdtnum, nx, ny, lat1, lon1, dx, nlat
+ else
write(*,*) 'unknown projection'
stop 1235
endif