git://source.jalview.org / jpred.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
JPRED-2 Add sources of all binaries (except alscript) to Git
[jpred.git] / sources / jnet / pssmb2.c
diff --git a/sources/jnet/pssmb2.c b/sources/jnet/pssmb2.c
new file mode 100644 (file)
index 0000000..ad7bbc9
--- /dev/null
+++ b/sources/jnet/pssmb2.c
@@ -0,0 +1,749 @@
+/*********************************************************
+  pssmb2.c
+  --------------------------------------------------------
+  generated at Wed Jul  1 20:37:42 2009
+  by snns2c ( Bernward Kett 1995 ) 
+*********************************************************/
+
+#include <math.h>
+
+#define Act_Logistic(sum, bias)  ( (sum+bias<10000.0) ? ( 1.0/(1.0 + exp(-sum-bias) ) ) : 0.0 )
+#ifndef NULL
+#define NULL (void *)0
+#endif
+
+typedef struct UT {
+          float act;         /* Activation       */
+          float Bias;        /* Bias of the Unit */
+          int   NoOfSources; /* Number of predecessor units */
+   struct UT   **sources; /* predecessor units */
+          float *weights; /* weights from predecessor units */
+        } UnitType, *pUnit;
+
+  /* Forward Declaration for all unit types */
+  static UnitType Units[81];
+  /* Sources definition section */
+  static pUnit Sources[] =  {
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, 
+Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, 
+Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, 
+Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, 
+Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, 
+Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57, 
+Units + 58, Units + 59, Units + 60, Units + 61, Units + 62, Units + 63, Units + 64, Units + 65, Units + 66, Units + 67, 
+Units + 68, Units + 69, Units + 70, Units + 71, Units + 72, Units + 73, Units + 74, Units + 75, Units + 76, Units + 77, 
+
+Units + 58, Units + 59, Units + 60, Units + 61, Units + 62, Units + 63, Units + 64, Units + 65, Units + 66, Units + 67, 
+Units + 68, Units + 69, Units + 70, Units + 71, Units + 72, Units + 73, Units + 74, Units + 75, Units + 76, Units + 77, 
+
+Units + 58, Units + 59, Units + 60, Units + 61, Units + 62, Units + 63, Units + 64, Units + 65, Units + 66, Units + 67, 
+Units + 68, Units + 69, Units + 70, Units + 71, Units + 72, Units + 73, Units + 74, Units + 75, Units + 76, Units + 77, 
+
+
+  };
+
+  /* Weigths definition section */
+  static float Weights[] =  {
+-0.047970, 0.072790, 0.060530, -0.197730, 0.017130, 0.029910, -0.082780, -0.038480, 0.115300, -0.121030, 
+-0.007750, 0.114220, -0.162010, -0.035460, 0.006970, -0.033260, 0.045750, 0.002690, -0.117060, 0.069400, 
+0.033630, -0.168980, 0.036540, 0.100440, -0.075510, 0.024120, 0.046050, -0.104500, 0.047090, 0.131390, 
+-0.129930, 0.162820, -0.086770, -0.211590, 0.323500, -0.306170, -0.029870, 0.010780, -0.218080, -0.047250, 
+-0.052210, -0.024290, 0.011580, -0.114370, -0.078500, 0.066850, 0.045410, 0.001670, -0.164490, -0.105430, 
+0.037760, -0.081020, -0.084730, 0.101190, -0.227870, -0.085120, 0.149930, 
+-0.289200, 0.357830, 0.100810, -0.257120, 0.276500, 0.166200, -0.192650, 0.137300, 0.125900, -0.020140, 
+0.282230, -0.057010, -0.180160, 0.328390, -0.192480, -0.070630, 0.484080, -0.247010, 0.076390, 0.513950, 
+-0.383720, 0.041800, 0.128020, -0.190990, -0.238960, -0.124650, 0.213810, -0.472290, -0.637720, 0.584540, 
+-0.001470, 0.019600, 0.141570, 0.057570, 0.540050, -0.246660, 0.123480, 0.660980, -0.497910, 0.129800, 
+0.481030, -0.388420, 0.065120, 0.398750, -0.198930, 0.104410, 0.300040, -0.063800, 0.054850, 0.309360, 
+-0.148170, -0.058570, 0.121740, 0.113150, -0.184420, 0.010910, 0.291820, 
+-0.167510, -0.042870, 0.222710, 0.115010, 0.300440, -0.129200, 0.043100, 0.077450, -0.104410, -0.259240, 
+0.261440, -0.072270, -0.201650, 0.498940, 0.200500, -0.402550, 0.665080, -0.000210, -0.563240, 0.791100, 
+-0.077920, -0.621140, 0.519250, -0.064860, -0.535330, 0.328070, 0.044270, -0.708450, 0.185670, 0.342660, 
+-0.339190, 0.126760, -0.118230, -0.478350, 0.475180, -0.173230, -0.611220, 0.526530, 0.150010, -0.512710, 
+0.291670, 0.283820, -0.387350, 0.354890, 0.276180, -0.276580, 0.324840, 0.159260, -0.085980, 0.394180, 
+0.032620, -0.208570, 0.340300, -0.029430, -0.444840, 0.566430, -0.031110, 
+0.048900, 0.374530, 0.095810, 0.110420, 0.127720, 0.228870, 0.077280, 0.236850, 0.197330, 0.084670, 
+0.296260, 0.107340, 0.077280, 0.577210, 0.258880, -0.066270, 0.748500, 0.169530, -0.226850, 0.700540, 
+0.256580, -0.514790, 0.363870, 0.426720, -0.779660, 0.052590, 0.820140, -0.257270, 0.588130, 1.049900, 
+-0.650210, 0.082860, 0.565380, -0.570090, 0.311730, 0.238170, -0.346280, 0.258570, 0.010770, -0.184510, 
+0.203740, 0.045560, -0.138240, 0.058180, 0.054160, -0.409600, 0.211100, 0.330830, -0.421400, 0.082050, 
+0.248210, -0.278460, 0.092660, 0.161420, 0.020330, 0.278560, 0.035020, 
+-0.022650, 0.104020, -0.032230, 0.027610, 0.142840, 0.046520, -0.044720, 0.166880, 0.104380, -0.095560, 
+0.175550, 0.053960, 0.075710, -0.003800, 0.009000, -0.115420, 0.063050, -0.099960, -0.011790, 0.092340, 
+-0.126860, 0.318510, 0.028420, -0.313850, 0.403320, -0.156140, 0.168770, 0.612860, -0.513970, 1.097490, 
+0.339160, -0.652350, 0.266380, 0.268210, -0.333400, -0.295340, 0.186130, -0.066380, -0.411890, 0.021980, 
+-0.142270, -0.126950, -0.117840, -0.132510, -0.047060, -0.231340, -0.086880, -0.188670, 0.021970, 0.075460, 
+-0.285160, -0.051670, -0.050230, -0.066820, 0.028680, -0.032430, 0.091910, 
+-0.121020, 0.125900, -0.194020, 0.025450, -0.180900, -0.193500, 0.133210, 0.019500, -0.225470, 0.294610, 
+-0.007350, -0.248070, 0.298050, -0.021860, -0.408040, 0.213150, -0.026810, -0.415640, 0.136770, -0.222270, 
+-0.518430, 0.052920, -0.524910, -0.670580, -0.208070, -0.604460, -0.348660, -0.192460, -0.202400, 0.536650, 
+-0.666780, -0.433950, -0.272700, -0.152730, -0.507120, -0.686400, 0.095510, -0.453340, -0.532820, 0.261500, 
+-0.285290, -0.464580, 0.145710, -0.313580, -0.180320, 0.252200, -0.240360, -0.213120, 0.033320, -0.168810, 
+-0.086210, 0.188540, -0.040820, -0.062520, 0.190160, -0.177780, 0.074170, 
+0.023810, 0.071710, -0.103200, 0.032610, -0.103400, -0.101790, 0.033220, -0.011630, 0.009710, 0.171070, 
+0.011130, -0.159540, 0.158410, -0.047360, -0.157950, 0.114180, -0.075070, -0.241360, -0.003710, -0.128600, 
+-0.358330, -0.025070, -0.315490, -0.231440, -0.283220, -0.547210, -0.000550, -0.151230, -0.303580, 0.563040, 
+-0.456640, -0.370100, -0.032940, -0.139070, -0.230490, -0.237140, 0.059810, -0.304660, -0.202930, 0.126140, 
+-0.226300, -0.067010, 0.027880, -0.148680, -0.138170, 0.189780, -0.163150, -0.100040, 0.042030, -0.098410, 
+-0.055330, 0.048660, -0.065600, -0.088800, 0.054760, 0.030240, 0.082170, 
+-0.307330, 0.055990, 0.370740, -0.207850, 0.046790, 0.093370, -0.127090, 0.364050, 0.078350, -0.413860, 
+0.349080, 0.036660, -0.452740, 0.379110, -0.041490, -0.414700, 0.351940, -0.167720, -0.086780, 0.563650, 
+-0.798620, 0.394310, 0.277300, -1.476350, 0.513330, 0.009520, -1.658370, 0.141980, -0.276510, -2.549750, 
+0.381850, 0.225770, -0.872710, 0.377970, -0.089170, 0.048360, -0.099620, -0.084260, 0.442340, -0.150240, 
+0.142630, 0.351330, -0.144020, 0.183260, 0.104560, -0.092010, 0.579400, -0.072670, 0.016210, 0.272880, 
+0.007350, 0.251810, 0.200490, -0.082140, 0.181890, -0.077140, -0.024640, 
+0.255010, -0.010130, 0.303650, 0.105260, -0.021310, 0.066000, 0.126960, -0.079170, 0.008910, 0.053750, 
+0.159350, -0.061980, -0.086510, 0.101050, -0.062470, -0.032890, 0.397740, 0.000200, 0.010580, 0.683310, 
+0.185780, 0.533510, 1.029220, 0.378470, 0.883520, 1.034140, 0.291810, 0.513080, 0.098130, -0.913120, 
+0.933110, 1.016620, -0.027860, 0.202050, 1.218680, 0.260350, -0.177260, 1.060680, 0.155430, -0.301440, 
+0.590660, 0.029170, -0.209880, 0.326320, 0.082710, -0.230570, 0.282400, -0.090050, -0.184540, 0.088000, 
+-0.157450, -0.174860, -0.050850, -0.110580, -0.114840, -0.091380, -0.279250, 
+0.017390, 0.034790, 0.220500, 0.016060, -0.254820, 0.544240, -0.174290, 0.137030, 0.507640, -0.031600, 
+0.125060, 0.415640, 0.219070, 0.252460, 0.176790, 0.033080, 0.493520, 0.271580, -0.175310, 0.639010, 
+-0.032570, -0.218600, 0.454900, -0.174120, -0.570950, 0.108260, 0.396790, -0.463800, 0.501800, 1.000160, 
+-0.763030, 0.012960, 0.397410, -0.662560, 0.151350, -0.009210, -0.419100, 0.066450, -0.109610, -0.346370, 
+0.072400, 0.132330, -0.193850, -0.126930, -0.051900, -0.246930, 0.043810, -0.066830, -0.460430, -0.061660, 
+0.116550, -0.133670, -0.254920, 0.042790, 0.022250, -0.075930, -0.123600, 
+-0.005020, -0.160210, -0.145620, 0.150420, -0.046650, 0.078450, 0.173480, 0.036450, 0.123250, 0.119590, 
+-0.027860, 0.210960, 0.226760, -0.280080, 0.122410, 0.196870, -0.385010, 0.331070, -0.023370, -0.513110, 
+0.252570, -0.585700, -0.594080, 0.036670, -0.942150, -0.355640, 0.012930, -0.518860, 0.382800, 0.487890, 
+-0.698320, -0.226210, -0.343600, -0.331990, -0.620880, -0.403320, -0.043230, -0.480890, -0.344140, 0.036390, 
+-0.081030, -0.172470, -0.062910, 0.017970, -0.152840, -0.069660, -0.028730, -0.133200, 0.188790, -0.059930, 
+-0.131720, 0.070990, 0.001670, -0.178870, 0.144870, 0.194450, -0.059370, 
+-0.135630, 0.284980, 0.335220, 0.132440, 0.168190, 0.238060, 0.086180, 0.135520, 0.163280, 0.130350, 
+0.005270, 0.354780, 0.198760, -0.002340, 0.183030, 0.151950, 0.042490, 0.269800, 0.220200, 0.098480, 
+-0.042060, 0.301680, 0.022890, -0.002020, 0.077200, 0.191210, 0.512040, 0.125030, -0.282760, 2.232640, 
+-0.419510, -0.634680, 1.818960, -0.934450, -0.455580, 1.411950, -0.570210, -0.562180, 0.874920, -0.069150, 
+-0.596580, 0.369390, 0.376960, -0.488170, -0.314210, 0.241490, -0.138670, -0.610740, 0.555530, -0.406290, 
+-0.503800, 0.424030, -0.590310, -0.115980, 0.200620, -0.662070, 0.218260, 
+0.087870, 0.092420, 0.001310, 0.039400, 0.218040, -0.038700, 0.050950, 0.088110, 0.105710, 0.102300, 
+0.218500, 0.083360, 0.198100, 0.167450, 0.119140, 0.362120, 0.076880, 0.115860, 0.516730, -0.107810, 
+0.030100, 0.852810, -0.240050, 0.015910, 0.919450, -0.119400, 0.281960, 0.726120, -0.570100, 1.801810, 
+0.444260, -0.603760, 0.770270, 0.406240, -0.516060, 0.054950, 0.502470, -0.501340, 0.174620, 0.506890, 
+-0.297680, -0.038830, 0.062750, -0.017870, 0.001730, 0.350160, -0.369520, 0.064490, 0.291720, -0.254300, 
+-0.035680, 0.015450, 0.105410, 0.170300, -0.034900, 0.273710, 0.023850, 
+-0.038060, 0.050060, -0.005550, -0.038660, -0.024280, -0.006090, -0.149540, -0.054420, -0.044560, -0.154990, 
+0.022520, -0.068390, -0.213770, 0.179640, -0.049880, -0.403860, 0.256880, -0.116190, -0.362610, 0.148680, 
+-0.025320, -0.373040, 0.320520, -0.195410, -0.202840, 0.382940, -0.224350, -0.267830, 0.293680, -0.310950, 
+-0.318450, 0.168080, -0.306170, -0.251480, 0.219180, -0.158180, -0.413090, 0.081880, -0.097440, -0.226510, 
+0.007580, -0.033000, -0.225970, 0.034550, 0.011800, -0.250700, -0.115480, 0.003910, -0.220170, 0.000520, 
+-0.083810, -0.163470, -0.090140, -0.111830, -0.233880, 0.039670, -0.008600, 
+0.299800, -0.426730, 0.312000, -0.015930, -0.472840, 0.135130, -0.323660, -0.301070, 0.123250, -0.019460, 
+-0.346270, 0.090750, 0.198230, -0.372450, 0.075670, 0.445660, -0.199150, 0.429200, 0.807850, -0.005010, 
+0.430420, 0.711020, 0.847140, 0.715470, 0.807690, 1.277630, 0.422050, -0.392480, -0.032550, -0.425350, 
+0.699410, 0.699640, 1.097620, 0.595360, 0.758010, 1.020010, 0.427890, 0.520630, 0.611630, 0.135100, 
+0.108810, 0.305770, 0.101380, -0.058200, 0.105140, -0.102100, -0.070630, 0.063450, -0.018430, -0.192850, 
+0.073080, -0.107270, -0.344000, -0.045410, -0.107940, -0.610100, -0.152230, 
+-0.117210, -0.017400, 0.235530, -0.063190, -0.066440, 0.188010, -0.004100, -0.167920, 0.108070, 0.044860, 
+-0.020240, 0.048100, -0.158300, 0.121180, -0.046300, -0.114850, 0.133060, -0.164270, 0.076180, 0.120510, 
+-0.114180, 0.056590, -0.101000, 0.007920, 0.194310, -0.044720, -0.063220, 0.167710, 0.754370, -1.188210, 
+0.485680, 0.640400, -0.952180, 0.427800, 0.195530, -0.609990, 0.044650, 0.269850, -0.328600, -0.156880, 
+0.403670, -0.114150, -0.259580, 0.482500, -0.137480, -0.209510, 0.242630, 0.021590, -0.327370, 0.378160, 
+0.101700, -0.065920, 0.370730, 0.089810, -0.098810, 0.246270, -0.005200, 
+0.058290, 0.047570, -0.153650, -0.116110, 0.017210, -0.046790, -0.103500, 0.048730, -0.011880, -0.095320, 
+-0.102960, -0.046830, -0.205180, -0.141460, -0.150690, -0.001470, -0.315830, 0.014440, 0.148740, -0.370030, 
+-0.085660, 0.669010, -0.625640, 0.122890, 0.651550, -0.743380, 0.312790, 0.204750, -1.092310, 0.176940, 
+0.517600, -0.538470, 0.368770, 0.689790, -0.604180, 0.201930, 0.362160, -0.276270, 0.148910, 0.012490, 
+-0.156300, -0.042620, -0.058570, 0.005720, -0.021460, -0.007140, -0.129100, 0.022720, -0.006620, -0.003360, 
+-0.029020, 0.095610, 0.069730, -0.052910, 0.146360, -0.159320, -0.108250, 
+-0.460820, 0.234300, -0.118170, -0.362860, 0.156340, -0.236040, -0.566430, 0.111710, -0.181330, -0.418860, 
+0.280500, -0.235500, -0.423360, 0.321790, -0.190290, -0.413400, 0.391170, -0.359340, -0.598230, 0.578400, 
+-0.334820, -0.829750, 0.642300, -0.245080, -0.984510, 0.589640, -0.007130, -1.219050, 0.312670, -0.078560, 
+-0.686680, 0.347620, -0.073020, -0.592410, 0.529530, -0.163090, -0.605390, 0.423830, -0.255360, -0.388980, 
+0.240450, -0.336640, -0.221730, 0.073220, -0.332710, -0.177390, 0.117390, -0.342530, -0.058190, 0.150910, 
+-0.313920, -0.340030, -0.005250, -0.328940, -0.571070, 0.060750, -0.207470, 
+-0.050710, -0.579840, -0.008420, -0.090950, -0.127820, 0.024640, 0.058240, -0.056990, -0.006010, -0.001290, 
+0.160810, -0.091480, -0.227470, 0.211120, -0.139410, -0.228880, 0.038670, -0.344380, -0.474900, -0.099220, 
+-0.415010, -0.672170, -0.372220, -0.451240, -0.485290, -0.690240, -0.214490, 0.061140, 0.018190, 0.902200, 
+-1.039440, -0.771970, -0.222940, -0.879430, -0.601550, -0.314220, -0.761410, -0.142780, -0.179020, -0.454790, 
+0.183960, -0.031630, -0.175330, 0.213940, 0.147410, -0.104670, 0.199530, -0.097380, -0.082520, 0.275700, 
+0.084380, 0.068900, 0.207680, 0.060010, 0.040880, 0.385310, 0.110400, 
+0.041870, 0.139460, 0.108990, 0.160770, 0.223160, 0.217210, 0.119410, 0.128500, 0.094190, 0.114180, 
+0.214630, 0.076000, 0.051260, 0.227040, 0.045320, 0.092520, 0.207250, 0.091180, -0.095310, 0.207370, 
+0.296720, 0.007390, 0.140960, 0.304430, -0.007460, 0.123840, 0.400210, -0.052270, -0.082550, 0.536210, 
+0.030630, -0.120300, 0.284960, 0.105610, 0.141620, 0.103540, 0.085880, 0.072840, 0.083260, 0.216090, 
+0.024000, 0.088090, 0.161440, -0.013530, 0.107090, 0.161140, 0.154110, 0.176330, 0.160110, 0.071190, 
+0.160260, 0.027740, 0.043180, 0.231390, 0.046280, 0.170670, 0.198620, 
+-0.528060, -0.787690, -1.255520, -0.959810, 1.229460, -1.274840, -0.917290, -0.039530, 1.115020, -1.205580, 
+-1.565950, 0.056880, 1.932240, -1.128380, 0.355220, 0.764300, 0.174870, -2.538990, -0.681640, -0.516540, 
+
+-0.269140, 1.128430, 1.590290, 1.478360, -1.539560, -1.152470, -0.733190, 1.971580, 0.532800, 1.164260, 
+-0.068170, -1.703800, -1.217460, -0.009690, 1.599780, -1.009390, -1.547020, 0.519360, -2.221620, -0.005380, 
+
+-0.218370, -0.048020, 0.007880, 1.132530, 0.657530, 1.022120, 0.560090, -1.731480, -2.176450, 0.857760, 
+1.024310, 1.669750, 1.364020, 0.294470, -2.366450, 0.215420, -0.914950, -1.020170, 1.903630, -0.941600, 
+
+
+  };
+
+  /* unit definition section (see also UnitType) */
+  static UnitType Units[81] = 
+  {
+    { 0.0, 0.0, 0, NULL , NULL },
+    { /* unit 1 (unit) */
+      0.0, -0.018000, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 2 (unit) */
+      0.0, 0.049780, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 3 (unit) */
+      0.0, 0.047390, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 4 (unit) */
+      0.0, -0.069700, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 5 (unit) */
+      0.0, 0.044650, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 6 (unit) */
+      0.0, 0.078980, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 7 (unit) */
+      0.0, 0.082220, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 8 (unit) */
+      0.0, -0.049510, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 9 (unit) */
+      0.0, -0.020630, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 10 (unit) */
+      0.0, 0.051850, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 11 (unit) */
+      0.0, 0.005540, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 12 (unit) */
+      0.0, 0.028110, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 13 (unit) */
+      0.0, 0.093080, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 14 (unit) */
+      0.0, 0.098260, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 15 (unit) */
+      0.0, 0.090880, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 16 (unit) */
+      0.0, -0.000120, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 17 (unit) */
+      0.0, -0.035690, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 18 (unit) */
+      0.0, -0.095410, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 19 (unit) */
+      0.0, 0.044230, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 20 (unit) */
+      0.0, -0.054150, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 21 (unit) */
+      0.0, 0.018860, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 22 (unit) */
+      0.0, -0.016180, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 23 (unit) */
+      0.0, 0.044800, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 24 (unit) */
+      0.0, -0.022280, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 25 (unit) */
+      0.0, 0.047960, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 26 (unit) */
+      0.0, -0.012600, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 27 (unit) */
+      0.0, 0.091370, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 28 (unit) */
+      0.0, -0.072230, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 29 (unit) */
+      0.0, 0.016800, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 30 (unit) */
+      0.0, -0.036410, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 31 (unit) */
+      0.0, -0.095960, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 32 (unit) */
+      0.0, -0.086330, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 33 (unit) */
+      0.0, 0.084790, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 34 (unit) */
+      0.0, -0.093450, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 35 (unit) */
+      0.0, -0.070290, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 36 (unit) */
+      0.0, 0.097880, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 37 (unit) */
+      0.0, -0.094160, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 38 (unit) */
+      0.0, 0.085030, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 39 (unit) */
+      0.0, -0.054010, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 40 (unit) */
+      0.0, 0.023860, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 41 (unit) */
+      0.0, 0.086570, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 42 (unit) */
+      0.0, -0.040730, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 43 (unit) */
+      0.0, 0.066500, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 44 (unit) */
+      0.0, -0.081200, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 45 (unit) */
+      0.0, -0.072280, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 46 (unit) */
+      0.0, 0.059870, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 47 (unit) */
+      0.0, -0.007780, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 48 (unit) */
+      0.0, 0.003800, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 49 (unit) */
+      0.0, 0.065850, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 50 (unit) */
+      0.0, 0.026390, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 51 (unit) */
+      0.0, -0.088900, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 52 (unit) */
+      0.0, 0.067020, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 53 (unit) */
+      0.0, -0.036470, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 54 (unit) */
+      0.0, 0.001030, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 55 (unit) */
+      0.0, 0.062480, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 56 (unit) */
+      0.0, 0.024920, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 57 (unit) */
+      0.0, 0.091770, 0,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 58 (unit) */
+      0.0, -0.066500, 57,
+       &Sources[0] , 
+       &Weights[0] , 
+      },
+    { /* unit 59 (unit) */
+      0.0, -0.595040, 57,
+       &Sources[57] , 
+       &Weights[57] , 
+      },
+    { /* unit 60 (unit) */
+      0.0, -0.250550, 57,
+       &Sources[114] , 
+       &Weights[114] , 
+      },
+    { /* unit 61 (unit) */
+      0.0, 1.121080, 57,
+       &Sources[171] , 
+       &Weights[171] , 
+      },
+    { /* unit 62 (unit) */
+      0.0, 1.342170, 57,
+       &Sources[228] , 
+       &Weights[228] , 
+      },
+    { /* unit 63 (unit) */
+      0.0, 0.274760, 57,
+       &Sources[285] , 
+       &Weights[285] , 
+      },
+    { /* unit 64 (unit) */
+      0.0, 0.076600, 57,
+       &Sources[342] , 
+       &Weights[342] , 
+      },
+    { /* unit 65 (unit) */
+      0.0, -2.665110, 57,
+       &Sources[399] , 
+       &Weights[399] , 
+      },
+    { /* unit 66 (unit) */
+      0.0, -0.186820, 57,
+       &Sources[456] , 
+       &Weights[456] , 
+      },
+    { /* unit 67 (unit) */
+      0.0, 0.931950, 57,
+       &Sources[513] , 
+       &Weights[513] , 
+      },
+    { /* unit 68 (unit) */
+      0.0, 0.307760, 57,
+       &Sources[570] , 
+       &Weights[570] , 
+      },
+    { /* unit 69 (unit) */
+      0.0, 2.182180, 57,
+       &Sources[627] , 
+       &Weights[627] , 
+      },
+    { /* unit 70 (unit) */
+      0.0, 2.049630, 57,
+       &Sources[684] , 
+       &Weights[684] , 
+      },
+    { /* unit 71 (unit) */
+      0.0, -0.277260, 57,
+       &Sources[741] , 
+       &Weights[741] , 
+      },
+    { /* unit 72 (unit) */
+      0.0, -0.814640, 57,
+       &Sources[798] , 
+       &Weights[798] , 
+      },
+    { /* unit 73 (unit) */
+      0.0, -0.123760, 57,
+       &Sources[855] , 
+       &Weights[855] , 
+      },
+    { /* unit 74 (unit) */
+      0.0, -0.736210, 57,
+       &Sources[912] , 
+       &Weights[912] , 
+      },
+    { /* unit 75 (unit) */
+      0.0, -0.966120, 57,
+       &Sources[969] , 
+       &Weights[969] , 
+      },
+    { /* unit 76 (unit) */
+      0.0, 0.992890, 57,
+       &Sources[1026] , 
+       &Weights[1026] , 
+      },
+    { /* unit 77 (unit) */
+      0.0, 0.099950, 57,
+       &Sources[1083] , 
+       &Weights[1083] , 
+      },
+    { /* unit 78 (unit) */
+      0.0, -0.702040, 20,
+       &Sources[1140] , 
+       &Weights[1140] , 
+      },
+    { /* unit 79 (unit) */
+      0.0, -1.831780, 20,
+       &Sources[1160] , 
+       &Weights[1160] , 
+      },
+    { /* unit 80 (unit) */
+      0.0, -0.772660, 20,
+       &Sources[1180] , 
+       &Weights[1180] , 
+      }
+
+  };
+
+
+
+int pssmb2(float *in, float *out, int init)
+{
+  int member, source;
+  float sum;
+  enum{OK, Error, Not_Valid};
+  pUnit unit;
+
+
+  /* layer definition section (names & member units) */
+
+  static pUnit Input[57] = {Units + 1, Units + 2, Units + 3, Units + 4, Units + 5, Units + 6, Units + 7, Units + 8, Units + 9, Units + 10, Units + 11, Units + 12, Units + 13, Units + 14, Units + 15, Units + 16, Units + 17, Units + 18, Units + 19, Units + 20, Units + 21, Units + 22, Units + 23, Units + 24, Units + 25, Units + 26, Units + 27, Units + 28, Units + 29, Units + 30, Units + 31, Units + 32, Units + 33, Units + 34, Units + 35, Units + 36, Units + 37, Units + 38, Units + 39, Units + 40, Units + 41, Units + 42, Units + 43, Units + 44, Units + 45, Units + 46, Units + 47, Units + 48, Units + 49, Units + 50, Units + 51, Units + 52, Units + 53, Units + 54, Units + 55, Units + 56, Units + 57}; /* members */
+
+  static pUnit Hidden1[20] = {Units + 58, Units + 59, Units + 60, Units + 61, Units + 62, Units + 63, Units + 64, Units + 65, Units + 66, Units + 67, Units + 68, Units + 69, Units + 70, Units + 71, Units + 72, Units + 73, Units + 74, Units + 75, Units + 76, Units + 77}; /* members */
+
+  static pUnit Output1[3] = {Units + 78, Units + 79, Units + 80}; /* members */
+
+  static int Output[3] = {78, 79, 80};
+
+  for(member = 0; member < 57; member++) {
+    Input[member]->act = in[member];
+  }
+
+  for (member = 0; member < 20; member++) {
+    unit = Hidden1[member];
+    sum = 0.0;
+    for (source = 0; source < unit->NoOfSources; source++) {
+      sum += unit->sources[source]->act
+             * unit->weights[source];
+    }
+    unit->act = Act_Logistic(sum, unit->Bias);
+  };
+
+  for (member = 0; member < 3; member++) {
+    unit = Output1[member];
+    sum = 0.0;
+    for (source = 0; source < unit->NoOfSources; source++) {
+      sum += unit->sources[source]->act
+             * unit->weights[source];
+    }
+    unit->act = Act_Logistic(sum, unit->Bias);
+  };
+
+  for(member = 0; member < 3; member++) {
+    out[member] = Units[Output[member]].act;
+  }
+
+  return(OK);
+}