OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
nnr_001.mydo_Tau.f
Go to the documentation of this file.
1 c ##################################################################
2 c THIS FILE IS AUTOMATICALLY GENERATED WITH:
3 c
4 c ffnet-0.6.2, feed-forward neural network for python
5 c http://ffnet.sourceforge.net
6 c
7 c Copyright (C) 2006 by Marek Wojciechowski
8 c <mwojc@p.lodz.pl>
9 c
10 c Distributed under the terms of the GNU General Public License:
11 c http://www.gnu.org/copyleft/gpl.html
12 c ##################################################################
13 c
14 c NETWORK SPECIFICATION
15 c Feed-forward neural network:
16 c inputs: 15
17 c hiddens: 15
18 c outputs: 1
19 c connections and biases: 256
20 c
21 c INPUT LIMITS
22 c 1 --> [ 0.09 0.37900001]
23 c 2 --> [ 0.05 0.38100001]
24 c 3 --> [ 0.026 0.352]
25 c 4 --> [ 0.009 0.33199999]
26 c 5 --> [ 0.003 0.289]
27 c 6 --> [ 0.001 0.278]
28 c 7 --> [ 0. 0.255]
29 c 8 --> [-0.99984464 0.20364175]
30 c 9 --> [-0.35255379 0.79312159]
31 c 10 --> [-0.99999962 1. ]
32 c 11 --> [ 0.3095149 0.99277829]
33 c 12 --> [-0.78466821 0.99994517]
34 c 13 --> [ 0.42182715 0.99999048]
35 c 14 --> [ 0. 0.84899998]
36 c 15 --> [ 0.19660961 14.84731401]
37 c
38 c OUTPUT LIMITS
39 c 1 --> [-4.28308668 1.2259789 ]
40 c
41 c NOTE: You need 'ffnet.f' file distributed with ffnet-0.6.2
42 c sources to get the below routines to work.
43 c
44 c ------------------------------------------------------------------
45  SUBROUTINE ffnet_aqua(input, output)
46 c ------------------------------------------------------------------
47 c
48 c Returns network answer (numpy array) to input sequence
49 c (for one input sample or 2D array of input samples)
50 c Arguments:
51 c input - 1-d array of length 15
52 c output - 1-d array of length 1
53 c ------------------------------------------------------------------
54  INTEGER conec(256, 2)
55  INTEGER inno(15)
56  INTEGER outno(1)
57  DOUBLE PRECISION weights(256)
58  DOUBLE PRECISION eni(15, 2)
59  DOUBLE PRECISION deo(1, 2)
60  DOUBLE PRECISION units(31)
61  DOUBLE PRECISION input(15)
62  DOUBLE PRECISION output(1)
63 c
64 cf2py intent(in) input
65 cf2py intent(out) output
66 c
67  conec(1, 1) = 0
68  conec(2, 1) = 1
69  conec(3, 1) = 2
70  conec(4, 1) = 3
71  conec(5, 1) = 4
72  conec(6, 1) = 5
73  conec(7, 1) = 6
74  conec(8, 1) = 7
75  conec(9, 1) = 8
76  conec(10, 1) = 9
77  conec(11, 1) = 10
78  conec(12, 1) = 11
79  conec(13, 1) = 12
80  conec(14, 1) = 13
81  conec(15, 1) = 14
82  conec(16, 1) = 15
83  conec(17, 1) = 0
84  conec(18, 1) = 1
85  conec(19, 1) = 2
86  conec(20, 1) = 3
87  conec(21, 1) = 4
88  conec(22, 1) = 5
89  conec(23, 1) = 6
90  conec(24, 1) = 7
91  conec(25, 1) = 8
92  conec(26, 1) = 9
93  conec(27, 1) = 10
94  conec(28, 1) = 11
95  conec(29, 1) = 12
96  conec(30, 1) = 13
97  conec(31, 1) = 14
98  conec(32, 1) = 15
99  conec(33, 1) = 0
100  conec(34, 1) = 1
101  conec(35, 1) = 2
102  conec(36, 1) = 3
103  conec(37, 1) = 4
104  conec(38, 1) = 5
105  conec(39, 1) = 6
106  conec(40, 1) = 7
107  conec(41, 1) = 8
108  conec(42, 1) = 9
109  conec(43, 1) = 10
110  conec(44, 1) = 11
111  conec(45, 1) = 12
112  conec(46, 1) = 13
113  conec(47, 1) = 14
114  conec(48, 1) = 15
115  conec(49, 1) = 0
116  conec(50, 1) = 1
117  conec(51, 1) = 2
118  conec(52, 1) = 3
119  conec(53, 1) = 4
120  conec(54, 1) = 5
121  conec(55, 1) = 6
122  conec(56, 1) = 7
123  conec(57, 1) = 8
124  conec(58, 1) = 9
125  conec(59, 1) = 10
126  conec(60, 1) = 11
127  conec(61, 1) = 12
128  conec(62, 1) = 13
129  conec(63, 1) = 14
130  conec(64, 1) = 15
131  conec(65, 1) = 0
132  conec(66, 1) = 1
133  conec(67, 1) = 2
134  conec(68, 1) = 3
135  conec(69, 1) = 4
136  conec(70, 1) = 5
137  conec(71, 1) = 6
138  conec(72, 1) = 7
139  conec(73, 1) = 8
140  conec(74, 1) = 9
141  conec(75, 1) = 10
142  conec(76, 1) = 11
143  conec(77, 1) = 12
144  conec(78, 1) = 13
145  conec(79, 1) = 14
146  conec(80, 1) = 15
147  conec(81, 1) = 0
148  conec(82, 1) = 1
149  conec(83, 1) = 2
150  conec(84, 1) = 3
151  conec(85, 1) = 4
152  conec(86, 1) = 5
153  conec(87, 1) = 6
154  conec(88, 1) = 7
155  conec(89, 1) = 8
156  conec(90, 1) = 9
157  conec(91, 1) = 10
158  conec(92, 1) = 11
159  conec(93, 1) = 12
160  conec(94, 1) = 13
161  conec(95, 1) = 14
162  conec(96, 1) = 15
163  conec(97, 1) = 0
164  conec(98, 1) = 1
165  conec(99, 1) = 2
166  conec(100, 1) = 3
167  conec(101, 1) = 4
168  conec(102, 1) = 5
169  conec(103, 1) = 6
170  conec(104, 1) = 7
171  conec(105, 1) = 8
172  conec(106, 1) = 9
173  conec(107, 1) = 10
174  conec(108, 1) = 11
175  conec(109, 1) = 12
176  conec(110, 1) = 13
177  conec(111, 1) = 14
178  conec(112, 1) = 15
179  conec(113, 1) = 0
180  conec(114, 1) = 1
181  conec(115, 1) = 2
182  conec(116, 1) = 3
183  conec(117, 1) = 4
184  conec(118, 1) = 5
185  conec(119, 1) = 6
186  conec(120, 1) = 7
187  conec(121, 1) = 8
188  conec(122, 1) = 9
189  conec(123, 1) = 10
190  conec(124, 1) = 11
191  conec(125, 1) = 12
192  conec(126, 1) = 13
193  conec(127, 1) = 14
194  conec(128, 1) = 15
195  conec(129, 1) = 0
196  conec(130, 1) = 1
197  conec(131, 1) = 2
198  conec(132, 1) = 3
199  conec(133, 1) = 4
200  conec(134, 1) = 5
201  conec(135, 1) = 6
202  conec(136, 1) = 7
203  conec(137, 1) = 8
204  conec(138, 1) = 9
205  conec(139, 1) = 10
206  conec(140, 1) = 11
207  conec(141, 1) = 12
208  conec(142, 1) = 13
209  conec(143, 1) = 14
210  conec(144, 1) = 15
211  conec(145, 1) = 0
212  conec(146, 1) = 1
213  conec(147, 1) = 2
214  conec(148, 1) = 3
215  conec(149, 1) = 4
216  conec(150, 1) = 5
217  conec(151, 1) = 6
218  conec(152, 1) = 7
219  conec(153, 1) = 8
220  conec(154, 1) = 9
221  conec(155, 1) = 10
222  conec(156, 1) = 11
223  conec(157, 1) = 12
224  conec(158, 1) = 13
225  conec(159, 1) = 14
226  conec(160, 1) = 15
227  conec(161, 1) = 0
228  conec(162, 1) = 1
229  conec(163, 1) = 2
230  conec(164, 1) = 3
231  conec(165, 1) = 4
232  conec(166, 1) = 5
233  conec(167, 1) = 6
234  conec(168, 1) = 7
235  conec(169, 1) = 8
236  conec(170, 1) = 9
237  conec(171, 1) = 10
238  conec(172, 1) = 11
239  conec(173, 1) = 12
240  conec(174, 1) = 13
241  conec(175, 1) = 14
242  conec(176, 1) = 15
243  conec(177, 1) = 0
244  conec(178, 1) = 1
245  conec(179, 1) = 2
246  conec(180, 1) = 3
247  conec(181, 1) = 4
248  conec(182, 1) = 5
249  conec(183, 1) = 6
250  conec(184, 1) = 7
251  conec(185, 1) = 8
252  conec(186, 1) = 9
253  conec(187, 1) = 10
254  conec(188, 1) = 11
255  conec(189, 1) = 12
256  conec(190, 1) = 13
257  conec(191, 1) = 14
258  conec(192, 1) = 15
259  conec(193, 1) = 0
260  conec(194, 1) = 1
261  conec(195, 1) = 2
262  conec(196, 1) = 3
263  conec(197, 1) = 4
264  conec(198, 1) = 5
265  conec(199, 1) = 6
266  conec(200, 1) = 7
267  conec(201, 1) = 8
268  conec(202, 1) = 9
269  conec(203, 1) = 10
270  conec(204, 1) = 11
271  conec(205, 1) = 12
272  conec(206, 1) = 13
273  conec(207, 1) = 14
274  conec(208, 1) = 15
275  conec(209, 1) = 0
276  conec(210, 1) = 1
277  conec(211, 1) = 2
278  conec(212, 1) = 3
279  conec(213, 1) = 4
280  conec(214, 1) = 5
281  conec(215, 1) = 6
282  conec(216, 1) = 7
283  conec(217, 1) = 8
284  conec(218, 1) = 9
285  conec(219, 1) = 10
286  conec(220, 1) = 11
287  conec(221, 1) = 12
288  conec(222, 1) = 13
289  conec(223, 1) = 14
290  conec(224, 1) = 15
291  conec(225, 1) = 0
292  conec(226, 1) = 1
293  conec(227, 1) = 2
294  conec(228, 1) = 3
295  conec(229, 1) = 4
296  conec(230, 1) = 5
297  conec(231, 1) = 6
298  conec(232, 1) = 7
299  conec(233, 1) = 8
300  conec(234, 1) = 9
301  conec(235, 1) = 10
302  conec(236, 1) = 11
303  conec(237, 1) = 12
304  conec(238, 1) = 13
305  conec(239, 1) = 14
306  conec(240, 1) = 15
307  conec(241, 1) = 0
308  conec(242, 1) = 16
309  conec(243, 1) = 17
310  conec(244, 1) = 18
311  conec(245, 1) = 19
312  conec(246, 1) = 20
313  conec(247, 1) = 21
314  conec(248, 1) = 22
315  conec(249, 1) = 23
316  conec(250, 1) = 24
317  conec(251, 1) = 25
318  conec(252, 1) = 26
319  conec(253, 1) = 27
320  conec(254, 1) = 28
321  conec(255, 1) = 29
322  conec(256, 1) = 30
323  conec(1, 2) = 16
324  conec(2, 2) = 16
325  conec(3, 2) = 16
326  conec(4, 2) = 16
327  conec(5, 2) = 16
328  conec(6, 2) = 16
329  conec(7, 2) = 16
330  conec(8, 2) = 16
331  conec(9, 2) = 16
332  conec(10, 2) = 16
333  conec(11, 2) = 16
334  conec(12, 2) = 16
335  conec(13, 2) = 16
336  conec(14, 2) = 16
337  conec(15, 2) = 16
338  conec(16, 2) = 16
339  conec(17, 2) = 17
340  conec(18, 2) = 17
341  conec(19, 2) = 17
342  conec(20, 2) = 17
343  conec(21, 2) = 17
344  conec(22, 2) = 17
345  conec(23, 2) = 17
346  conec(24, 2) = 17
347  conec(25, 2) = 17
348  conec(26, 2) = 17
349  conec(27, 2) = 17
350  conec(28, 2) = 17
351  conec(29, 2) = 17
352  conec(30, 2) = 17
353  conec(31, 2) = 17
354  conec(32, 2) = 17
355  conec(33, 2) = 18
356  conec(34, 2) = 18
357  conec(35, 2) = 18
358  conec(36, 2) = 18
359  conec(37, 2) = 18
360  conec(38, 2) = 18
361  conec(39, 2) = 18
362  conec(40, 2) = 18
363  conec(41, 2) = 18
364  conec(42, 2) = 18
365  conec(43, 2) = 18
366  conec(44, 2) = 18
367  conec(45, 2) = 18
368  conec(46, 2) = 18
369  conec(47, 2) = 18
370  conec(48, 2) = 18
371  conec(49, 2) = 19
372  conec(50, 2) = 19
373  conec(51, 2) = 19
374  conec(52, 2) = 19
375  conec(53, 2) = 19
376  conec(54, 2) = 19
377  conec(55, 2) = 19
378  conec(56, 2) = 19
379  conec(57, 2) = 19
380  conec(58, 2) = 19
381  conec(59, 2) = 19
382  conec(60, 2) = 19
383  conec(61, 2) = 19
384  conec(62, 2) = 19
385  conec(63, 2) = 19
386  conec(64, 2) = 19
387  conec(65, 2) = 20
388  conec(66, 2) = 20
389  conec(67, 2) = 20
390  conec(68, 2) = 20
391  conec(69, 2) = 20
392  conec(70, 2) = 20
393  conec(71, 2) = 20
394  conec(72, 2) = 20
395  conec(73, 2) = 20
396  conec(74, 2) = 20
397  conec(75, 2) = 20
398  conec(76, 2) = 20
399  conec(77, 2) = 20
400  conec(78, 2) = 20
401  conec(79, 2) = 20
402  conec(80, 2) = 20
403  conec(81, 2) = 21
404  conec(82, 2) = 21
405  conec(83, 2) = 21
406  conec(84, 2) = 21
407  conec(85, 2) = 21
408  conec(86, 2) = 21
409  conec(87, 2) = 21
410  conec(88, 2) = 21
411  conec(89, 2) = 21
412  conec(90, 2) = 21
413  conec(91, 2) = 21
414  conec(92, 2) = 21
415  conec(93, 2) = 21
416  conec(94, 2) = 21
417  conec(95, 2) = 21
418  conec(96, 2) = 21
419  conec(97, 2) = 22
420  conec(98, 2) = 22
421  conec(99, 2) = 22
422  conec(100, 2) = 22
423  conec(101, 2) = 22
424  conec(102, 2) = 22
425  conec(103, 2) = 22
426  conec(104, 2) = 22
427  conec(105, 2) = 22
428  conec(106, 2) = 22
429  conec(107, 2) = 22
430  conec(108, 2) = 22
431  conec(109, 2) = 22
432  conec(110, 2) = 22
433  conec(111, 2) = 22
434  conec(112, 2) = 22
435  conec(113, 2) = 23
436  conec(114, 2) = 23
437  conec(115, 2) = 23
438  conec(116, 2) = 23
439  conec(117, 2) = 23
440  conec(118, 2) = 23
441  conec(119, 2) = 23
442  conec(120, 2) = 23
443  conec(121, 2) = 23
444  conec(122, 2) = 23
445  conec(123, 2) = 23
446  conec(124, 2) = 23
447  conec(125, 2) = 23
448  conec(126, 2) = 23
449  conec(127, 2) = 23
450  conec(128, 2) = 23
451  conec(129, 2) = 24
452  conec(130, 2) = 24
453  conec(131, 2) = 24
454  conec(132, 2) = 24
455  conec(133, 2) = 24
456  conec(134, 2) = 24
457  conec(135, 2) = 24
458  conec(136, 2) = 24
459  conec(137, 2) = 24
460  conec(138, 2) = 24
461  conec(139, 2) = 24
462  conec(140, 2) = 24
463  conec(141, 2) = 24
464  conec(142, 2) = 24
465  conec(143, 2) = 24
466  conec(144, 2) = 24
467  conec(145, 2) = 25
468  conec(146, 2) = 25
469  conec(147, 2) = 25
470  conec(148, 2) = 25
471  conec(149, 2) = 25
472  conec(150, 2) = 25
473  conec(151, 2) = 25
474  conec(152, 2) = 25
475  conec(153, 2) = 25
476  conec(154, 2) = 25
477  conec(155, 2) = 25
478  conec(156, 2) = 25
479  conec(157, 2) = 25
480  conec(158, 2) = 25
481  conec(159, 2) = 25
482  conec(160, 2) = 25
483  conec(161, 2) = 26
484  conec(162, 2) = 26
485  conec(163, 2) = 26
486  conec(164, 2) = 26
487  conec(165, 2) = 26
488  conec(166, 2) = 26
489  conec(167, 2) = 26
490  conec(168, 2) = 26
491  conec(169, 2) = 26
492  conec(170, 2) = 26
493  conec(171, 2) = 26
494  conec(172, 2) = 26
495  conec(173, 2) = 26
496  conec(174, 2) = 26
497  conec(175, 2) = 26
498  conec(176, 2) = 26
499  conec(177, 2) = 27
500  conec(178, 2) = 27
501  conec(179, 2) = 27
502  conec(180, 2) = 27
503  conec(181, 2) = 27
504  conec(182, 2) = 27
505  conec(183, 2) = 27
506  conec(184, 2) = 27
507  conec(185, 2) = 27
508  conec(186, 2) = 27
509  conec(187, 2) = 27
510  conec(188, 2) = 27
511  conec(189, 2) = 27
512  conec(190, 2) = 27
513  conec(191, 2) = 27
514  conec(192, 2) = 27
515  conec(193, 2) = 28
516  conec(194, 2) = 28
517  conec(195, 2) = 28
518  conec(196, 2) = 28
519  conec(197, 2) = 28
520  conec(198, 2) = 28
521  conec(199, 2) = 28
522  conec(200, 2) = 28
523  conec(201, 2) = 28
524  conec(202, 2) = 28
525  conec(203, 2) = 28
526  conec(204, 2) = 28
527  conec(205, 2) = 28
528  conec(206, 2) = 28
529  conec(207, 2) = 28
530  conec(208, 2) = 28
531  conec(209, 2) = 29
532  conec(210, 2) = 29
533  conec(211, 2) = 29
534  conec(212, 2) = 29
535  conec(213, 2) = 29
536  conec(214, 2) = 29
537  conec(215, 2) = 29
538  conec(216, 2) = 29
539  conec(217, 2) = 29
540  conec(218, 2) = 29
541  conec(219, 2) = 29
542  conec(220, 2) = 29
543  conec(221, 2) = 29
544  conec(222, 2) = 29
545  conec(223, 2) = 29
546  conec(224, 2) = 29
547  conec(225, 2) = 30
548  conec(226, 2) = 30
549  conec(227, 2) = 30
550  conec(228, 2) = 30
551  conec(229, 2) = 30
552  conec(230, 2) = 30
553  conec(231, 2) = 30
554  conec(232, 2) = 30
555  conec(233, 2) = 30
556  conec(234, 2) = 30
557  conec(235, 2) = 30
558  conec(236, 2) = 30
559  conec(237, 2) = 30
560  conec(238, 2) = 30
561  conec(239, 2) = 30
562  conec(240, 2) = 30
563  conec(241, 2) = 31
564  conec(242, 2) = 31
565  conec(243, 2) = 31
566  conec(244, 2) = 31
567  conec(245, 2) = 31
568  conec(246, 2) = 31
569  conec(247, 2) = 31
570  conec(248, 2) = 31
571  conec(249, 2) = 31
572  conec(250, 2) = 31
573  conec(251, 2) = 31
574  conec(252, 2) = 31
575  conec(253, 2) = 31
576  conec(254, 2) = 31
577  conec(255, 2) = 31
578  conec(256, 2) = 31
579 c
580  inno(1) = 15
581  inno(2) = 14
582  inno(3) = 13
583  inno(4) = 12
584  inno(5) = 11
585  inno(6) = 10
586  inno(7) = 9
587  inno(8) = 8
588  inno(9) = 7
589  inno(10) = 6
590  inno(11) = 5
591  inno(12) = 4
592  inno(13) = 3
593  inno(14) = 2
594  inno(15) = 1
595 c
596  outno(1) = 31
597 c
598  weights(1) = -0.185529731437
599  weights(2) = -0.0108938493038
600  weights(3) = 0.242142937886
601  weights(4) = -1.81617412373
602  weights(5) = 2.78756930797
603  weights(6) = 0.191259974069
604  weights(7) = 0.154888613466
605  weights(8) = 0.480760213646
606  weights(9) = 1.16030949368
607  weights(10) = -1.8865100742
608  weights(11) = -1.08225076055
609  weights(12) = -0.270102123418
610  weights(13) = -6.01616866986
611  weights(14) = -9.05981095512
612  weights(15) = -1.67001871453
613  weights(16) = -1.24518189941
614  weights(17) = 11.2773867791
615  weights(18) = -0.0838833852625
616  weights(19) = -1.05550411619
617  weights(20) = -9.17118747309
618  weights(21) = 1.50628817216
619  weights(22) = -10.5189565775
620  weights(23) = -0.337683442747
621  weights(24) = 5.27246119971
622  weights(25) = -13.4172525924
623  weights(26) = 50.4253273124
624  weights(27) = -18.1723623274
625  weights(28) = -51.6385442097
626  weights(29) = 52.3388539971
627  weights(30) = -25.5348142168
628  weights(31) = 40.033286914
629  weights(32) = -43.0802980893
630  weights(33) = 3.9480027329
631  weights(34) = 0.1976296245
632  weights(35) = 0.247052874137
633  weights(36) = -1.95859020855
634  weights(37) = 1.59665513192
635  weights(38) = -1.7297542978
636  weights(39) = 0.17453668565
637  weights(40) = 1.13139157504
638  weights(41) = -1.14874037497
639  weights(42) = 35.4782442252
640  weights(43) = -31.2796839481
641  weights(44) = -1.80818853324
642  weights(45) = 4.64336639054
643  weights(46) = -11.4768713712
644  weights(47) = 6.28221022339
645  weights(48) = -2.0073783884
646  weights(49) = -3.83418346174
647  weights(50) = -9.42229458511
648  weights(51) = -2.19377917282
649  weights(52) = -5.35732112619
650  weights(53) = -7.88955915596
651  weights(54) = -0.298642152801
652  weights(55) = -8.03090367481
653  weights(56) = -6.16909982812
654  weights(57) = -0.7372358961
655  weights(58) = -7.35826895009
656  weights(59) = -2.79987134509
657  weights(60) = 1.54454974145
658  weights(61) = 6.09837988772
659  weights(62) = 0.469373661495
660  weights(63) = -9.26030329725
661  weights(64) = -3.19994754276
662  weights(65) = 17.0776033041
663  weights(66) = 0.337589098245
664  weights(67) = -0.487590225205
665  weights(68) = -2.05125163466
666  weights(69) = -4.35860540864
667  weights(70) = -0.889964975831
668  weights(71) = -0.548179660134
669  weights(72) = 0.473714455087
670  weights(73) = -1.51806519977
671  weights(74) = 8.00272178592
672  weights(75) = 21.2520279283
673  weights(76) = -91.5082631166
674  weights(77) = -98.6435437944
675  weights(78) = 71.2163627719
676  weights(79) = -6.93988877224
677  weights(80) = -3.20465340678
678  weights(81) = -21.1241781322
679  weights(82) = -0.390307345781
680  weights(83) = -0.678508823348
681  weights(84) = -0.729608994775
682  weights(85) = -8.29813825082
683  weights(86) = 7.21589785014
684  weights(87) = 0.252448263224
685  weights(88) = -1.14409233789
686  weights(89) = 7.43649534111
687  weights(90) = 3.44408738749
688  weights(91) = 5.97525048729
689  weights(92) = 31.3389401508
690  weights(93) = 100.0
691  weights(94) = -1.93418569137
692  weights(95) = 4.95797836117
693  weights(96) = -6.22694345072
694  weights(97) = -1.90514220525
695  weights(98) = 0.00862596808847
696  weights(99) = 0.474865213163
697  weights(100) = -2.75009629909
698  weights(101) = -1.79444345815
699  weights(102) = -2.23509659938
700  weights(103) = 0.644973786124
701  weights(104) = 2.00386940363
702  weights(105) = -3.27054058268
703  weights(106) = 17.8570185774
704  weights(107) = 11.3115373356
705  weights(108) = 8.72458939114
706  weights(109) = 2.67353189881
707  weights(110) = 4.08544564304
708  weights(111) = 8.77631079743
709  weights(112) = -4.63582463552
710  weights(113) = 1.11376341101
711  weights(114) = 1.56287257788
712  weights(115) = 0.967656806785
713  weights(116) = 0.900059767562
714  weights(117) = -0.34416030952
715  weights(118) = 2.54320410254
716  weights(119) = 4.29815104861
717  weights(120) = -4.68475216101
718  weights(121) = -0.811706279437
719  weights(122) = 5.50848426887
720  weights(123) = 0.224813057806
721  weights(124) = -21.2018802719
722  weights(125) = -4.43306737463
723  weights(126) = 27.8630775479
724  weights(127) = -18.8000806204
725  weights(128) = -12.8336544905
726  weights(129) = -0.225879885793
727  weights(130) = -1.37503017326
728  weights(131) = -0.114663654815
729  weights(132) = 0.629627155027
730  weights(133) = -0.742213175495
731  weights(134) = 1.69884872521
732  weights(135) = -0.356378506886
733  weights(136) = 0.683917403436
734  weights(137) = -0.946410518751
735  weights(138) = -4.19948828937
736  weights(139) = -0.725627973009
737  weights(140) = 0.715214723396
738  weights(141) = 9.35097780958
739  weights(142) = 10.7175453453
740  weights(143) = -0.647419440784
741  weights(144) = -3.93803352805
742  weights(145) = 3.01094760376
743  weights(146) = -1.58218467083
744  weights(147) = 0.756578171823
745  weights(148) = 0.379883037161
746  weights(149) = -1.92643598646
747  weights(150) = -0.439330338062
748  weights(151) = 5.68250915582
749  weights(152) = -7.01140138055
750  weights(153) = 5.32366183207
751  weights(154) = -29.2972942315
752  weights(155) = -19.1370009742
753  weights(156) = -14.4841164622
754  weights(157) = 53.4401023008
755  weights(158) = 42.1864517973
756  weights(159) = -23.6378756374
757  weights(160) = 7.74186368109
758  weights(161) = 1.62917874305
759  weights(162) = 0.492201725479
760  weights(163) = 0.283622214273
761  weights(164) = 0.399008666954
762  weights(165) = -1.18303759928
763  weights(166) = 0.631271141474
764  weights(167) = 1.91262886194
765  weights(168) = -1.82425884685
766  weights(169) = -1.03914062743
767  weights(170) = 6.03766391289
768  weights(171) = 3.5239960266
769  weights(172) = 2.51879461371
770  weights(173) = -10.947215134
771  weights(174) = -11.4459289523
772  weights(175) = -2.39783135454
773  weights(176) = -5.98653471185
774  weights(177) = 24.578687778
775  weights(178) = 19.8865744004
776  weights(179) = 2.71526862546
777  weights(180) = 0.64296113944
778  weights(181) = 20.0042791665
779  weights(182) = 46.7373378128
780  weights(183) = -28.3735763076
781  weights(184) = 7.08051290991
782  weights(185) = 36.9168642126
783  weights(186) = 19.4948330387
784  weights(187) = 21.9257999922
785  weights(188) = 25.2886779989
786  weights(189) = 26.7580640419
787  weights(190) = 18.6362376253
788  weights(191) = 3.71016659213
789  weights(192) = 11.7994462159
790  weights(193) = -5.13468900252
791  weights(194) = 0.643321613728
792  weights(195) = 0.853837462033
793  weights(196) = 0.893693972106
794  weights(197) = -0.185014091148
795  weights(198) = 3.83756756623
796  weights(199) = 7.04107335346
797  weights(200) = 1.62620565068
798  weights(201) = -0.351191524175
799  weights(202) = -5.6641790466
800  weights(203) = -5.69240557818
801  weights(204) = -2.90696684277
802  weights(205) = 15.3744862962
803  weights(206) = 6.63605210952
804  weights(207) = -11.9900887292
805  weights(208) = 16.3246046306
806  weights(209) = 1.15826429316
807  weights(210) = -0.202359827163
808  weights(211) = 0.31690439922
809  weights(212) = -0.28356722851
810  weights(213) = -0.0267406782045
811  weights(214) = 0.942046433238
812  weights(215) = -0.65893397782
813  weights(216) = -2.96902066335
814  weights(217) = -3.11394740829
815  weights(218) = 9.36293898132
816  weights(219) = 1.32716383056
817  weights(220) = -2.59089344787
818  weights(221) = -10.0876120477
819  weights(222) = -6.29197435471
820  weights(223) = -1.24135772653
821  weights(224) = 1.59884828788
822  weights(225) = 6.04364417336
823  weights(226) = 0.368027352148
824  weights(227) = -0.0042589197887
825  weights(228) = -3.74131269726
826  weights(229) = 2.33876244805
827  weights(230) = -2.91359891988
828  weights(231) = 0.206197306278
829  weights(232) = 7.08800404186
830  weights(233) = -13.2673604363
831  weights(234) = 19.040837091
832  weights(235) = -3.74089621702
833  weights(236) = -20.8830521743
834  weights(237) = 9.39135561848
835  weights(238) = 5.03921186525
836  weights(239) = -3.83287405217
837  weights(240) = -3.57775857476
838  weights(241) = -1.84433439947
839  weights(242) = -2.80755744406
840  weights(243) = 0.606095249489
841  weights(244) = -3.00979360493
842  weights(245) = -1.66285673041
843  weights(246) = -1.53581620318
844  weights(247) = 0.834940157339
845  weights(248) = -3.36547468366
846  weights(249) = 3.06292553081
847  weights(250) = 2.44996946181
848  weights(251) = 1.29137535049
849  weights(252) = -8.38982884117
850  weights(253) = 0.0910320753973
851  weights(254) = 3.26893711413
852  weights(255) = -2.65685003238
853  weights(256) = 0.706870134501
854 c
855  eni(1, 1) = 2.42214529075
856  eni(2, 1) = 2.11480355245
857  eni(3, 1) = 2.1472392799
858  eni(4, 1) = 2.16718274472
859  eni(5, 1) = 2.44755240901
860  eni(6, 1) = 2.52707583881
861  eni(7, 1) = 2.74509809055
862  eni(8, 1) = 0.581643471595
863  eni(9, 1) = 0.610993319098
864  eni(10, 1) = 0.350000066643
865  eni(11, 1) = 1.02449510548
866  eni(12, 1) = 0.392241819355
867  eni(13, 1) = 1.21073053696
868  eni(14, 1) = 0.8244994333
869  eni(15, 1) = 0.0477792726394
870  eni(1, 2) = -0.0679930848301
871  eni(2, 2) = 0.0442598208018
872  eni(3, 2) = 0.0941717775707
873  eni(4, 2) = 0.130495356137
874  eni(5, 2) = 0.142657342709
875  eni(6, 2) = 0.147472924041
876  eni(7, 2) = 0.15
877  eni(8, 2) = 0.731553104905
878  eni(9, 2) = 0.365408008533
879  eni(10, 2) = 0.499999933357
880  eni(11, 2) = -0.167096503977
881  eni(12, 2) = 0.457779687515
882  eni(13, 2) = -0.360719011682
883  eni(14, 2) = 0.15
884  eni(15, 2) = 0.140606135791
885 c
886  deo(1, 1) = 7.8700936828
887  deo(1, 2) = -5.4636007346
888 c
889  CALL normcall( weights, conec, 256, units, 31,
890  & inno, 15, outno, 1, eni, deo, input, output )
891 c
892  END
893 c
894 c ------------------------------------------------------------------
895  SUBROUTINE dffnet_aqua(input, deriv)
896 c ------------------------------------------------------------------
897 c
898 c Returns partial derivatives of the network's
899 c output vs its input at given input point
900 c (for one input sample or 2D array of input samples)
901 c in the following array:
902 c | o1/i1, o1/i2, ..., o1/in |
903 c | o2/i1, o2/i2, ..., o2/in |
904 c | ... |
905 c | om/i1, om/i2, ..., om/in |
906 c Arguments:
907 c input - 1-d array of length 15
908 c deriv - 2-d array of the shape (1, 15)
909 c ------------------------------------------------------------------
910  INTEGER conec(256, 2)
911  INTEGER dconecno(450)
912  INTEGER dconecmk(16)
913  INTEGER inno(15)
914  INTEGER outno(1)
915  DOUBLE PRECISION weights(256)
916  DOUBLE PRECISION eni(15, 2)
917  DOUBLE PRECISION ded(1, 15)
918  DOUBLE PRECISION units(31)
919  DOUBLE PRECISION input(15)
920  DOUBLE PRECISION deriv(1, 15)
921 c
922 cf2py intent(in) input
923 cf2py intent(out) deriv
924 c
925  conec(1, 1) = 0
926  conec(2, 1) = 1
927  conec(3, 1) = 2
928  conec(4, 1) = 3
929  conec(5, 1) = 4
930  conec(6, 1) = 5
931  conec(7, 1) = 6
932  conec(8, 1) = 7
933  conec(9, 1) = 8
934  conec(10, 1) = 9
935  conec(11, 1) = 10
936  conec(12, 1) = 11
937  conec(13, 1) = 12
938  conec(14, 1) = 13
939  conec(15, 1) = 14
940  conec(16, 1) = 15
941  conec(17, 1) = 0
942  conec(18, 1) = 1
943  conec(19, 1) = 2
944  conec(20, 1) = 3
945  conec(21, 1) = 4
946  conec(22, 1) = 5
947  conec(23, 1) = 6
948  conec(24, 1) = 7
949  conec(25, 1) = 8
950  conec(26, 1) = 9
951  conec(27, 1) = 10
952  conec(28, 1) = 11
953  conec(29, 1) = 12
954  conec(30, 1) = 13
955  conec(31, 1) = 14
956  conec(32, 1) = 15
957  conec(33, 1) = 0
958  conec(34, 1) = 1
959  conec(35, 1) = 2
960  conec(36, 1) = 3
961  conec(37, 1) = 4
962  conec(38, 1) = 5
963  conec(39, 1) = 6
964  conec(40, 1) = 7
965  conec(41, 1) = 8
966  conec(42, 1) = 9
967  conec(43, 1) = 10
968  conec(44, 1) = 11
969  conec(45, 1) = 12
970  conec(46, 1) = 13
971  conec(47, 1) = 14
972  conec(48, 1) = 15
973  conec(49, 1) = 0
974  conec(50, 1) = 1
975  conec(51, 1) = 2
976  conec(52, 1) = 3
977  conec(53, 1) = 4
978  conec(54, 1) = 5
979  conec(55, 1) = 6
980  conec(56, 1) = 7
981  conec(57, 1) = 8
982  conec(58, 1) = 9
983  conec(59, 1) = 10
984  conec(60, 1) = 11
985  conec(61, 1) = 12
986  conec(62, 1) = 13
987  conec(63, 1) = 14
988  conec(64, 1) = 15
989  conec(65, 1) = 0
990  conec(66, 1) = 1
991  conec(67, 1) = 2
992  conec(68, 1) = 3
993  conec(69, 1) = 4
994  conec(70, 1) = 5
995  conec(71, 1) = 6
996  conec(72, 1) = 7
997  conec(73, 1) = 8
998  conec(74, 1) = 9
999  conec(75, 1) = 10
1000  conec(76, 1) = 11
1001  conec(77, 1) = 12
1002  conec(78, 1) = 13
1003  conec(79, 1) = 14
1004  conec(80, 1) = 15
1005  conec(81, 1) = 0
1006  conec(82, 1) = 1
1007  conec(83, 1) = 2
1008  conec(84, 1) = 3
1009  conec(85, 1) = 4
1010  conec(86, 1) = 5
1011  conec(87, 1) = 6
1012  conec(88, 1) = 7
1013  conec(89, 1) = 8
1014  conec(90, 1) = 9
1015  conec(91, 1) = 10
1016  conec(92, 1) = 11
1017  conec(93, 1) = 12
1018  conec(94, 1) = 13
1019  conec(95, 1) = 14
1020  conec(96, 1) = 15
1021  conec(97, 1) = 0
1022  conec(98, 1) = 1
1023  conec(99, 1) = 2
1024  conec(100, 1) = 3
1025  conec(101, 1) = 4
1026  conec(102, 1) = 5
1027  conec(103, 1) = 6
1028  conec(104, 1) = 7
1029  conec(105, 1) = 8
1030  conec(106, 1) = 9
1031  conec(107, 1) = 10
1032  conec(108, 1) = 11
1033  conec(109, 1) = 12
1034  conec(110, 1) = 13
1035  conec(111, 1) = 14
1036  conec(112, 1) = 15
1037  conec(113, 1) = 0
1038  conec(114, 1) = 1
1039  conec(115, 1) = 2
1040  conec(116, 1) = 3
1041  conec(117, 1) = 4
1042  conec(118, 1) = 5
1043  conec(119, 1) = 6
1044  conec(120, 1) = 7
1045  conec(121, 1) = 8
1046  conec(122, 1) = 9
1047  conec(123, 1) = 10
1048  conec(124, 1) = 11
1049  conec(125, 1) = 12
1050  conec(126, 1) = 13
1051  conec(127, 1) = 14
1052  conec(128, 1) = 15
1053  conec(129, 1) = 0
1054  conec(130, 1) = 1
1055  conec(131, 1) = 2
1056  conec(132, 1) = 3
1057  conec(133, 1) = 4
1058  conec(134, 1) = 5
1059  conec(135, 1) = 6
1060  conec(136, 1) = 7
1061  conec(137, 1) = 8
1062  conec(138, 1) = 9
1063  conec(139, 1) = 10
1064  conec(140, 1) = 11
1065  conec(141, 1) = 12
1066  conec(142, 1) = 13
1067  conec(143, 1) = 14
1068  conec(144, 1) = 15
1069  conec(145, 1) = 0
1070  conec(146, 1) = 1
1071  conec(147, 1) = 2
1072  conec(148, 1) = 3
1073  conec(149, 1) = 4
1074  conec(150, 1) = 5
1075  conec(151, 1) = 6
1076  conec(152, 1) = 7
1077  conec(153, 1) = 8
1078  conec(154, 1) = 9
1079  conec(155, 1) = 10
1080  conec(156, 1) = 11
1081  conec(157, 1) = 12
1082  conec(158, 1) = 13
1083  conec(159, 1) = 14
1084  conec(160, 1) = 15
1085  conec(161, 1) = 0
1086  conec(162, 1) = 1
1087  conec(163, 1) = 2
1088  conec(164, 1) = 3
1089  conec(165, 1) = 4
1090  conec(166, 1) = 5
1091  conec(167, 1) = 6
1092  conec(168, 1) = 7
1093  conec(169, 1) = 8
1094  conec(170, 1) = 9
1095  conec(171, 1) = 10
1096  conec(172, 1) = 11
1097  conec(173, 1) = 12
1098  conec(174, 1) = 13
1099  conec(175, 1) = 14
1100  conec(176, 1) = 15
1101  conec(177, 1) = 0
1102  conec(178, 1) = 1
1103  conec(179, 1) = 2
1104  conec(180, 1) = 3
1105  conec(181, 1) = 4
1106  conec(182, 1) = 5
1107  conec(183, 1) = 6
1108  conec(184, 1) = 7
1109  conec(185, 1) = 8
1110  conec(186, 1) = 9
1111  conec(187, 1) = 10
1112  conec(188, 1) = 11
1113  conec(189, 1) = 12
1114  conec(190, 1) = 13
1115  conec(191, 1) = 14
1116  conec(192, 1) = 15
1117  conec(193, 1) = 0
1118  conec(194, 1) = 1
1119  conec(195, 1) = 2
1120  conec(196, 1) = 3
1121  conec(197, 1) = 4
1122  conec(198, 1) = 5
1123  conec(199, 1) = 6
1124  conec(200, 1) = 7
1125  conec(201, 1) = 8
1126  conec(202, 1) = 9
1127  conec(203, 1) = 10
1128  conec(204, 1) = 11
1129  conec(205, 1) = 12
1130  conec(206, 1) = 13
1131  conec(207, 1) = 14
1132  conec(208, 1) = 15
1133  conec(209, 1) = 0
1134  conec(210, 1) = 1
1135  conec(211, 1) = 2
1136  conec(212, 1) = 3
1137  conec(213, 1) = 4
1138  conec(214, 1) = 5
1139  conec(215, 1) = 6
1140  conec(216, 1) = 7
1141  conec(217, 1) = 8
1142  conec(218, 1) = 9
1143  conec(219, 1) = 10
1144  conec(220, 1) = 11
1145  conec(221, 1) = 12
1146  conec(222, 1) = 13
1147  conec(223, 1) = 14
1148  conec(224, 1) = 15
1149  conec(225, 1) = 0
1150  conec(226, 1) = 1
1151  conec(227, 1) = 2
1152  conec(228, 1) = 3
1153  conec(229, 1) = 4
1154  conec(230, 1) = 5
1155  conec(231, 1) = 6
1156  conec(232, 1) = 7
1157  conec(233, 1) = 8
1158  conec(234, 1) = 9
1159  conec(235, 1) = 10
1160  conec(236, 1) = 11
1161  conec(237, 1) = 12
1162  conec(238, 1) = 13
1163  conec(239, 1) = 14
1164  conec(240, 1) = 15
1165  conec(241, 1) = 0
1166  conec(242, 1) = 16
1167  conec(243, 1) = 17
1168  conec(244, 1) = 18
1169  conec(245, 1) = 19
1170  conec(246, 1) = 20
1171  conec(247, 1) = 21
1172  conec(248, 1) = 22
1173  conec(249, 1) = 23
1174  conec(250, 1) = 24
1175  conec(251, 1) = 25
1176  conec(252, 1) = 26
1177  conec(253, 1) = 27
1178  conec(254, 1) = 28
1179  conec(255, 1) = 29
1180  conec(256, 1) = 30
1181  conec(1, 2) = 16
1182  conec(2, 2) = 16
1183  conec(3, 2) = 16
1184  conec(4, 2) = 16
1185  conec(5, 2) = 16
1186  conec(6, 2) = 16
1187  conec(7, 2) = 16
1188  conec(8, 2) = 16
1189  conec(9, 2) = 16
1190  conec(10, 2) = 16
1191  conec(11, 2) = 16
1192  conec(12, 2) = 16
1193  conec(13, 2) = 16
1194  conec(14, 2) = 16
1195  conec(15, 2) = 16
1196  conec(16, 2) = 16
1197  conec(17, 2) = 17
1198  conec(18, 2) = 17
1199  conec(19, 2) = 17
1200  conec(20, 2) = 17
1201  conec(21, 2) = 17
1202  conec(22, 2) = 17
1203  conec(23, 2) = 17
1204  conec(24, 2) = 17
1205  conec(25, 2) = 17
1206  conec(26, 2) = 17
1207  conec(27, 2) = 17
1208  conec(28, 2) = 17
1209  conec(29, 2) = 17
1210  conec(30, 2) = 17
1211  conec(31, 2) = 17
1212  conec(32, 2) = 17
1213  conec(33, 2) = 18
1214  conec(34, 2) = 18
1215  conec(35, 2) = 18
1216  conec(36, 2) = 18
1217  conec(37, 2) = 18
1218  conec(38, 2) = 18
1219  conec(39, 2) = 18
1220  conec(40, 2) = 18
1221  conec(41, 2) = 18
1222  conec(42, 2) = 18
1223  conec(43, 2) = 18
1224  conec(44, 2) = 18
1225  conec(45, 2) = 18
1226  conec(46, 2) = 18
1227  conec(47, 2) = 18
1228  conec(48, 2) = 18
1229  conec(49, 2) = 19
1230  conec(50, 2) = 19
1231  conec(51, 2) = 19
1232  conec(52, 2) = 19
1233  conec(53, 2) = 19
1234  conec(54, 2) = 19
1235  conec(55, 2) = 19
1236  conec(56, 2) = 19
1237  conec(57, 2) = 19
1238  conec(58, 2) = 19
1239  conec(59, 2) = 19
1240  conec(60, 2) = 19
1241  conec(61, 2) = 19
1242  conec(62, 2) = 19
1243  conec(63, 2) = 19
1244  conec(64, 2) = 19
1245  conec(65, 2) = 20
1246  conec(66, 2) = 20
1247  conec(67, 2) = 20
1248  conec(68, 2) = 20
1249  conec(69, 2) = 20
1250  conec(70, 2) = 20
1251  conec(71, 2) = 20
1252  conec(72, 2) = 20
1253  conec(73, 2) = 20
1254  conec(74, 2) = 20
1255  conec(75, 2) = 20
1256  conec(76, 2) = 20
1257  conec(77, 2) = 20
1258  conec(78, 2) = 20
1259  conec(79, 2) = 20
1260  conec(80, 2) = 20
1261  conec(81, 2) = 21
1262  conec(82, 2) = 21
1263  conec(83, 2) = 21
1264  conec(84, 2) = 21
1265  conec(85, 2) = 21
1266  conec(86, 2) = 21
1267  conec(87, 2) = 21
1268  conec(88, 2) = 21
1269  conec(89, 2) = 21
1270  conec(90, 2) = 21
1271  conec(91, 2) = 21
1272  conec(92, 2) = 21
1273  conec(93, 2) = 21
1274  conec(94, 2) = 21
1275  conec(95, 2) = 21
1276  conec(96, 2) = 21
1277  conec(97, 2) = 22
1278  conec(98, 2) = 22
1279  conec(99, 2) = 22
1280  conec(100, 2) = 22
1281  conec(101, 2) = 22
1282  conec(102, 2) = 22
1283  conec(103, 2) = 22
1284  conec(104, 2) = 22
1285  conec(105, 2) = 22
1286  conec(106, 2) = 22
1287  conec(107, 2) = 22
1288  conec(108, 2) = 22
1289  conec(109, 2) = 22
1290  conec(110, 2) = 22
1291  conec(111, 2) = 22
1292  conec(112, 2) = 22
1293  conec(113, 2) = 23
1294  conec(114, 2) = 23
1295  conec(115, 2) = 23
1296  conec(116, 2) = 23
1297  conec(117, 2) = 23
1298  conec(118, 2) = 23
1299  conec(119, 2) = 23
1300  conec(120, 2) = 23
1301  conec(121, 2) = 23
1302  conec(122, 2) = 23
1303  conec(123, 2) = 23
1304  conec(124, 2) = 23
1305  conec(125, 2) = 23
1306  conec(126, 2) = 23
1307  conec(127, 2) = 23
1308  conec(128, 2) = 23
1309  conec(129, 2) = 24
1310  conec(130, 2) = 24
1311  conec(131, 2) = 24
1312  conec(132, 2) = 24
1313  conec(133, 2) = 24
1314  conec(134, 2) = 24
1315  conec(135, 2) = 24
1316  conec(136, 2) = 24
1317  conec(137, 2) = 24
1318  conec(138, 2) = 24
1319  conec(139, 2) = 24
1320  conec(140, 2) = 24
1321  conec(141, 2) = 24
1322  conec(142, 2) = 24
1323  conec(143, 2) = 24
1324  conec(144, 2) = 24
1325  conec(145, 2) = 25
1326  conec(146, 2) = 25
1327  conec(147, 2) = 25
1328  conec(148, 2) = 25
1329  conec(149, 2) = 25
1330  conec(150, 2) = 25
1331  conec(151, 2) = 25
1332  conec(152, 2) = 25
1333  conec(153, 2) = 25
1334  conec(154, 2) = 25
1335  conec(155, 2) = 25
1336  conec(156, 2) = 25
1337  conec(157, 2) = 25
1338  conec(158, 2) = 25
1339  conec(159, 2) = 25
1340  conec(160, 2) = 25
1341  conec(161, 2) = 26
1342  conec(162, 2) = 26
1343  conec(163, 2) = 26
1344  conec(164, 2) = 26
1345  conec(165, 2) = 26
1346  conec(166, 2) = 26
1347  conec(167, 2) = 26
1348  conec(168, 2) = 26
1349  conec(169, 2) = 26
1350  conec(170, 2) = 26
1351  conec(171, 2) = 26
1352  conec(172, 2) = 26
1353  conec(173, 2) = 26
1354  conec(174, 2) = 26
1355  conec(175, 2) = 26
1356  conec(176, 2) = 26
1357  conec(177, 2) = 27
1358  conec(178, 2) = 27
1359  conec(179, 2) = 27
1360  conec(180, 2) = 27
1361  conec(181, 2) = 27
1362  conec(182, 2) = 27
1363  conec(183, 2) = 27
1364  conec(184, 2) = 27
1365  conec(185, 2) = 27
1366  conec(186, 2) = 27
1367  conec(187, 2) = 27
1368  conec(188, 2) = 27
1369  conec(189, 2) = 27
1370  conec(190, 2) = 27
1371  conec(191, 2) = 27
1372  conec(192, 2) = 27
1373  conec(193, 2) = 28
1374  conec(194, 2) = 28
1375  conec(195, 2) = 28
1376  conec(196, 2) = 28
1377  conec(197, 2) = 28
1378  conec(198, 2) = 28
1379  conec(199, 2) = 28
1380  conec(200, 2) = 28
1381  conec(201, 2) = 28
1382  conec(202, 2) = 28
1383  conec(203, 2) = 28
1384  conec(204, 2) = 28
1385  conec(205, 2) = 28
1386  conec(206, 2) = 28
1387  conec(207, 2) = 28
1388  conec(208, 2) = 28
1389  conec(209, 2) = 29
1390  conec(210, 2) = 29
1391  conec(211, 2) = 29
1392  conec(212, 2) = 29
1393  conec(213, 2) = 29
1394  conec(214, 2) = 29
1395  conec(215, 2) = 29
1396  conec(216, 2) = 29
1397  conec(217, 2) = 29
1398  conec(218, 2) = 29
1399  conec(219, 2) = 29
1400  conec(220, 2) = 29
1401  conec(221, 2) = 29
1402  conec(222, 2) = 29
1403  conec(223, 2) = 29
1404  conec(224, 2) = 29
1405  conec(225, 2) = 30
1406  conec(226, 2) = 30
1407  conec(227, 2) = 30
1408  conec(228, 2) = 30
1409  conec(229, 2) = 30
1410  conec(230, 2) = 30
1411  conec(231, 2) = 30
1412  conec(232, 2) = 30
1413  conec(233, 2) = 30
1414  conec(234, 2) = 30
1415  conec(235, 2) = 30
1416  conec(236, 2) = 30
1417  conec(237, 2) = 30
1418  conec(238, 2) = 30
1419  conec(239, 2) = 30
1420  conec(240, 2) = 30
1421  conec(241, 2) = 31
1422  conec(242, 2) = 31
1423  conec(243, 2) = 31
1424  conec(244, 2) = 31
1425  conec(245, 2) = 31
1426  conec(246, 2) = 31
1427  conec(247, 2) = 31
1428  conec(248, 2) = 31
1429  conec(249, 2) = 31
1430  conec(250, 2) = 31
1431  conec(251, 2) = 31
1432  conec(252, 2) = 31
1433  conec(253, 2) = 31
1434  conec(254, 2) = 31
1435  conec(255, 2) = 31
1436  conec(256, 2) = 31
1437 c
1438  dconecno(1) = 16
1439  dconecno(2) = 32
1440  dconecno(3) = 48
1441  dconecno(4) = 64
1442  dconecno(5) = 80
1443  dconecno(6) = 96
1444  dconecno(7) = 112
1445  dconecno(8) = 128
1446  dconecno(9) = 144
1447  dconecno(10) = 160
1448  dconecno(11) = 176
1449  dconecno(12) = 192
1450  dconecno(13) = 208
1451  dconecno(14) = 224
1452  dconecno(15) = 240
1453  dconecno(16) = 242
1454  dconecno(17) = 243
1455  dconecno(18) = 244
1456  dconecno(19) = 245
1457  dconecno(20) = 246
1458  dconecno(21) = 247
1459  dconecno(22) = 248
1460  dconecno(23) = 249
1461  dconecno(24) = 250
1462  dconecno(25) = 251
1463  dconecno(26) = 252
1464  dconecno(27) = 253
1465  dconecno(28) = 254
1466  dconecno(29) = 255
1467  dconecno(30) = 256
1468  dconecno(31) = 15
1469  dconecno(32) = 31
1470  dconecno(33) = 47
1471  dconecno(34) = 63
1472  dconecno(35) = 79
1473  dconecno(36) = 95
1474  dconecno(37) = 111
1475  dconecno(38) = 127
1476  dconecno(39) = 143
1477  dconecno(40) = 159
1478  dconecno(41) = 175
1479  dconecno(42) = 191
1480  dconecno(43) = 207
1481  dconecno(44) = 223
1482  dconecno(45) = 239
1483  dconecno(46) = 242
1484  dconecno(47) = 243
1485  dconecno(48) = 244
1486  dconecno(49) = 245
1487  dconecno(50) = 246
1488  dconecno(51) = 247
1489  dconecno(52) = 248
1490  dconecno(53) = 249
1491  dconecno(54) = 250
1492  dconecno(55) = 251
1493  dconecno(56) = 252
1494  dconecno(57) = 253
1495  dconecno(58) = 254
1496  dconecno(59) = 255
1497  dconecno(60) = 256
1498  dconecno(61) = 14
1499  dconecno(62) = 30
1500  dconecno(63) = 46
1501  dconecno(64) = 62
1502  dconecno(65) = 78
1503  dconecno(66) = 94
1504  dconecno(67) = 110
1505  dconecno(68) = 126
1506  dconecno(69) = 142
1507  dconecno(70) = 158
1508  dconecno(71) = 174
1509  dconecno(72) = 190
1510  dconecno(73) = 206
1511  dconecno(74) = 222
1512  dconecno(75) = 238
1513  dconecno(76) = 242
1514  dconecno(77) = 243
1515  dconecno(78) = 244
1516  dconecno(79) = 245
1517  dconecno(80) = 246
1518  dconecno(81) = 247
1519  dconecno(82) = 248
1520  dconecno(83) = 249
1521  dconecno(84) = 250
1522  dconecno(85) = 251
1523  dconecno(86) = 252
1524  dconecno(87) = 253
1525  dconecno(88) = 254
1526  dconecno(89) = 255
1527  dconecno(90) = 256
1528  dconecno(91) = 13
1529  dconecno(92) = 29
1530  dconecno(93) = 45
1531  dconecno(94) = 61
1532  dconecno(95) = 77
1533  dconecno(96) = 93
1534  dconecno(97) = 109
1535  dconecno(98) = 125
1536  dconecno(99) = 141
1537  dconecno(100) = 157
1538  dconecno(101) = 173
1539  dconecno(102) = 189
1540  dconecno(103) = 205
1541  dconecno(104) = 221
1542  dconecno(105) = 237
1543  dconecno(106) = 242
1544  dconecno(107) = 243
1545  dconecno(108) = 244
1546  dconecno(109) = 245
1547  dconecno(110) = 246
1548  dconecno(111) = 247
1549  dconecno(112) = 248
1550  dconecno(113) = 249
1551  dconecno(114) = 250
1552  dconecno(115) = 251
1553  dconecno(116) = 252
1554  dconecno(117) = 253
1555  dconecno(118) = 254
1556  dconecno(119) = 255
1557  dconecno(120) = 256
1558  dconecno(121) = 12
1559  dconecno(122) = 28
1560  dconecno(123) = 44
1561  dconecno(124) = 60
1562  dconecno(125) = 76
1563  dconecno(126) = 92
1564  dconecno(127) = 108
1565  dconecno(128) = 124
1566  dconecno(129) = 140
1567  dconecno(130) = 156
1568  dconecno(131) = 172
1569  dconecno(132) = 188
1570  dconecno(133) = 204
1571  dconecno(134) = 220
1572  dconecno(135) = 236
1573  dconecno(136) = 242
1574  dconecno(137) = 243
1575  dconecno(138) = 244
1576  dconecno(139) = 245
1577  dconecno(140) = 246
1578  dconecno(141) = 247
1579  dconecno(142) = 248
1580  dconecno(143) = 249
1581  dconecno(144) = 250
1582  dconecno(145) = 251
1583  dconecno(146) = 252
1584  dconecno(147) = 253
1585  dconecno(148) = 254
1586  dconecno(149) = 255
1587  dconecno(150) = 256
1588  dconecno(151) = 11
1589  dconecno(152) = 27
1590  dconecno(153) = 43
1591  dconecno(154) = 59
1592  dconecno(155) = 75
1593  dconecno(156) = 91
1594  dconecno(157) = 107
1595  dconecno(158) = 123
1596  dconecno(159) = 139
1597  dconecno(160) = 155
1598  dconecno(161) = 171
1599  dconecno(162) = 187
1600  dconecno(163) = 203
1601  dconecno(164) = 219
1602  dconecno(165) = 235
1603  dconecno(166) = 242
1604  dconecno(167) = 243
1605  dconecno(168) = 244
1606  dconecno(169) = 245
1607  dconecno(170) = 246
1608  dconecno(171) = 247
1609  dconecno(172) = 248
1610  dconecno(173) = 249
1611  dconecno(174) = 250
1612  dconecno(175) = 251
1613  dconecno(176) = 252
1614  dconecno(177) = 253
1615  dconecno(178) = 254
1616  dconecno(179) = 255
1617  dconecno(180) = 256
1618  dconecno(181) = 10
1619  dconecno(182) = 26
1620  dconecno(183) = 42
1621  dconecno(184) = 58
1622  dconecno(185) = 74
1623  dconecno(186) = 90
1624  dconecno(187) = 106
1625  dconecno(188) = 122
1626  dconecno(189) = 138
1627  dconecno(190) = 154
1628  dconecno(191) = 170
1629  dconecno(192) = 186
1630  dconecno(193) = 202
1631  dconecno(194) = 218
1632  dconecno(195) = 234
1633  dconecno(196) = 242
1634  dconecno(197) = 243
1635  dconecno(198) = 244
1636  dconecno(199) = 245
1637  dconecno(200) = 246
1638  dconecno(201) = 247
1639  dconecno(202) = 248
1640  dconecno(203) = 249
1641  dconecno(204) = 250
1642  dconecno(205) = 251
1643  dconecno(206) = 252
1644  dconecno(207) = 253
1645  dconecno(208) = 254
1646  dconecno(209) = 255
1647  dconecno(210) = 256
1648  dconecno(211) = 9
1649  dconecno(212) = 25
1650  dconecno(213) = 41
1651  dconecno(214) = 57
1652  dconecno(215) = 73
1653  dconecno(216) = 89
1654  dconecno(217) = 105
1655  dconecno(218) = 121
1656  dconecno(219) = 137
1657  dconecno(220) = 153
1658  dconecno(221) = 169
1659  dconecno(222) = 185
1660  dconecno(223) = 201
1661  dconecno(224) = 217
1662  dconecno(225) = 233
1663  dconecno(226) = 242
1664  dconecno(227) = 243
1665  dconecno(228) = 244
1666  dconecno(229) = 245
1667  dconecno(230) = 246
1668  dconecno(231) = 247
1669  dconecno(232) = 248
1670  dconecno(233) = 249
1671  dconecno(234) = 250
1672  dconecno(235) = 251
1673  dconecno(236) = 252
1674  dconecno(237) = 253
1675  dconecno(238) = 254
1676  dconecno(239) = 255
1677  dconecno(240) = 256
1678  dconecno(241) = 8
1679  dconecno(242) = 24
1680  dconecno(243) = 40
1681  dconecno(244) = 56
1682  dconecno(245) = 72
1683  dconecno(246) = 88
1684  dconecno(247) = 104
1685  dconecno(248) = 120
1686  dconecno(249) = 136
1687  dconecno(250) = 152
1688  dconecno(251) = 168
1689  dconecno(252) = 184
1690  dconecno(253) = 200
1691  dconecno(254) = 216
1692  dconecno(255) = 232
1693  dconecno(256) = 242
1694  dconecno(257) = 243
1695  dconecno(258) = 244
1696  dconecno(259) = 245
1697  dconecno(260) = 246
1698  dconecno(261) = 247
1699  dconecno(262) = 248
1700  dconecno(263) = 249
1701  dconecno(264) = 250
1702  dconecno(265) = 251
1703  dconecno(266) = 252
1704  dconecno(267) = 253
1705  dconecno(268) = 254
1706  dconecno(269) = 255
1707  dconecno(270) = 256
1708  dconecno(271) = 7
1709  dconecno(272) = 23
1710  dconecno(273) = 39
1711  dconecno(274) = 55
1712  dconecno(275) = 71
1713  dconecno(276) = 87
1714  dconecno(277) = 103
1715  dconecno(278) = 119
1716  dconecno(279) = 135
1717  dconecno(280) = 151
1718  dconecno(281) = 167
1719  dconecno(282) = 183
1720  dconecno(283) = 199
1721  dconecno(284) = 215
1722  dconecno(285) = 231
1723  dconecno(286) = 242
1724  dconecno(287) = 243
1725  dconecno(288) = 244
1726  dconecno(289) = 245
1727  dconecno(290) = 246
1728  dconecno(291) = 247
1729  dconecno(292) = 248
1730  dconecno(293) = 249
1731  dconecno(294) = 250
1732  dconecno(295) = 251
1733  dconecno(296) = 252
1734  dconecno(297) = 253
1735  dconecno(298) = 254
1736  dconecno(299) = 255
1737  dconecno(300) = 256
1738  dconecno(301) = 6
1739  dconecno(302) = 22
1740  dconecno(303) = 38
1741  dconecno(304) = 54
1742  dconecno(305) = 70
1743  dconecno(306) = 86
1744  dconecno(307) = 102
1745  dconecno(308) = 118
1746  dconecno(309) = 134
1747  dconecno(310) = 150
1748  dconecno(311) = 166
1749  dconecno(312) = 182
1750  dconecno(313) = 198
1751  dconecno(314) = 214
1752  dconecno(315) = 230
1753  dconecno(316) = 242
1754  dconecno(317) = 243
1755  dconecno(318) = 244
1756  dconecno(319) = 245
1757  dconecno(320) = 246
1758  dconecno(321) = 247
1759  dconecno(322) = 248
1760  dconecno(323) = 249
1761  dconecno(324) = 250
1762  dconecno(325) = 251
1763  dconecno(326) = 252
1764  dconecno(327) = 253
1765  dconecno(328) = 254
1766  dconecno(329) = 255
1767  dconecno(330) = 256
1768  dconecno(331) = 5
1769  dconecno(332) = 21
1770  dconecno(333) = 37
1771  dconecno(334) = 53
1772  dconecno(335) = 69
1773  dconecno(336) = 85
1774  dconecno(337) = 101
1775  dconecno(338) = 117
1776  dconecno(339) = 133
1777  dconecno(340) = 149
1778  dconecno(341) = 165
1779  dconecno(342) = 181
1780  dconecno(343) = 197
1781  dconecno(344) = 213
1782  dconecno(345) = 229
1783  dconecno(346) = 242
1784  dconecno(347) = 243
1785  dconecno(348) = 244
1786  dconecno(349) = 245
1787  dconecno(350) = 246
1788  dconecno(351) = 247
1789  dconecno(352) = 248
1790  dconecno(353) = 249
1791  dconecno(354) = 250
1792  dconecno(355) = 251
1793  dconecno(356) = 252
1794  dconecno(357) = 253
1795  dconecno(358) = 254
1796  dconecno(359) = 255
1797  dconecno(360) = 256
1798  dconecno(361) = 4
1799  dconecno(362) = 20
1800  dconecno(363) = 36
1801  dconecno(364) = 52
1802  dconecno(365) = 68
1803  dconecno(366) = 84
1804  dconecno(367) = 100
1805  dconecno(368) = 116
1806  dconecno(369) = 132
1807  dconecno(370) = 148
1808  dconecno(371) = 164
1809  dconecno(372) = 180
1810  dconecno(373) = 196
1811  dconecno(374) = 212
1812  dconecno(375) = 228
1813  dconecno(376) = 242
1814  dconecno(377) = 243
1815  dconecno(378) = 244
1816  dconecno(379) = 245
1817  dconecno(380) = 246
1818  dconecno(381) = 247
1819  dconecno(382) = 248
1820  dconecno(383) = 249
1821  dconecno(384) = 250
1822  dconecno(385) = 251
1823  dconecno(386) = 252
1824  dconecno(387) = 253
1825  dconecno(388) = 254
1826  dconecno(389) = 255
1827  dconecno(390) = 256
1828  dconecno(391) = 3
1829  dconecno(392) = 19
1830  dconecno(393) = 35
1831  dconecno(394) = 51
1832  dconecno(395) = 67
1833  dconecno(396) = 83
1834  dconecno(397) = 99
1835  dconecno(398) = 115
1836  dconecno(399) = 131
1837  dconecno(400) = 147
1838  dconecno(401) = 163
1839  dconecno(402) = 179
1840  dconecno(403) = 195
1841  dconecno(404) = 211
1842  dconecno(405) = 227
1843  dconecno(406) = 242
1844  dconecno(407) = 243
1845  dconecno(408) = 244
1846  dconecno(409) = 245
1847  dconecno(410) = 246
1848  dconecno(411) = 247
1849  dconecno(412) = 248
1850  dconecno(413) = 249
1851  dconecno(414) = 250
1852  dconecno(415) = 251
1853  dconecno(416) = 252
1854  dconecno(417) = 253
1855  dconecno(418) = 254
1856  dconecno(419) = 255
1857  dconecno(420) = 256
1858  dconecno(421) = 2
1859  dconecno(422) = 18
1860  dconecno(423) = 34
1861  dconecno(424) = 50
1862  dconecno(425) = 66
1863  dconecno(426) = 82
1864  dconecno(427) = 98
1865  dconecno(428) = 114
1866  dconecno(429) = 130
1867  dconecno(430) = 146
1868  dconecno(431) = 162
1869  dconecno(432) = 178
1870  dconecno(433) = 194
1871  dconecno(434) = 210
1872  dconecno(435) = 226
1873  dconecno(436) = 242
1874  dconecno(437) = 243
1875  dconecno(438) = 244
1876  dconecno(439) = 245
1877  dconecno(440) = 246
1878  dconecno(441) = 247
1879  dconecno(442) = 248
1880  dconecno(443) = 249
1881  dconecno(444) = 250
1882  dconecno(445) = 251
1883  dconecno(446) = 252
1884  dconecno(447) = 253
1885  dconecno(448) = 254
1886  dconecno(449) = 255
1887  dconecno(450) = 256
1888 c
1889  dconecmk(1) = 0
1890  dconecmk(2) = 30
1891  dconecmk(3) = 60
1892  dconecmk(4) = 90
1893  dconecmk(5) = 120
1894  dconecmk(6) = 150
1895  dconecmk(7) = 180
1896  dconecmk(8) = 210
1897  dconecmk(9) = 240
1898  dconecmk(10) = 270
1899  dconecmk(11) = 300
1900  dconecmk(12) = 330
1901  dconecmk(13) = 360
1902  dconecmk(14) = 390
1903  dconecmk(15) = 420
1904  dconecmk(16) = 450
1905 c
1906  inno(1) = 15
1907  inno(2) = 14
1908  inno(3) = 13
1909  inno(4) = 12
1910  inno(5) = 11
1911  inno(6) = 10
1912  inno(7) = 9
1913  inno(8) = 8
1914  inno(9) = 7
1915  inno(10) = 6
1916  inno(11) = 5
1917  inno(12) = 4
1918  inno(13) = 3
1919  inno(14) = 2
1920  inno(15) = 1
1921 c
1922  outno(1) = 31
1923 c
1924  weights(1) = -0.185529731437
1925  weights(2) = -0.0108938493038
1926  weights(3) = 0.242142937886
1927  weights(4) = -1.81617412373
1928  weights(5) = 2.78756930797
1929  weights(6) = 0.191259974069
1930  weights(7) = 0.154888613466
1931  weights(8) = 0.480760213646
1932  weights(9) = 1.16030949368
1933  weights(10) = -1.8865100742
1934  weights(11) = -1.08225076055
1935  weights(12) = -0.270102123418
1936  weights(13) = -6.01616866986
1937  weights(14) = -9.05981095512
1938  weights(15) = -1.67001871453
1939  weights(16) = -1.24518189941
1940  weights(17) = 11.2773867791
1941  weights(18) = -0.0838833852625
1942  weights(19) = -1.05550411619
1943  weights(20) = -9.17118747309
1944  weights(21) = 1.50628817216
1945  weights(22) = -10.5189565775
1946  weights(23) = -0.337683442747
1947  weights(24) = 5.27246119971
1948  weights(25) = -13.4172525924
1949  weights(26) = 50.4253273124
1950  weights(27) = -18.1723623274
1951  weights(28) = -51.6385442097
1952  weights(29) = 52.3388539971
1953  weights(30) = -25.5348142168
1954  weights(31) = 40.033286914
1955  weights(32) = -43.0802980893
1956  weights(33) = 3.9480027329
1957  weights(34) = 0.1976296245
1958  weights(35) = 0.247052874137
1959  weights(36) = -1.95859020855
1960  weights(37) = 1.59665513192
1961  weights(38) = -1.7297542978
1962  weights(39) = 0.17453668565
1963  weights(40) = 1.13139157504
1964  weights(41) = -1.14874037497
1965  weights(42) = 35.4782442252
1966  weights(43) = -31.2796839481
1967  weights(44) = -1.80818853324
1968  weights(45) = 4.64336639054
1969  weights(46) = -11.4768713712
1970  weights(47) = 6.28221022339
1971  weights(48) = -2.0073783884
1972  weights(49) = -3.83418346174
1973  weights(50) = -9.42229458511
1974  weights(51) = -2.19377917282
1975  weights(52) = -5.35732112619
1976  weights(53) = -7.88955915596
1977  weights(54) = -0.298642152801
1978  weights(55) = -8.03090367481
1979  weights(56) = -6.16909982812
1980  weights(57) = -0.7372358961
1981  weights(58) = -7.35826895009
1982  weights(59) = -2.79987134509
1983  weights(60) = 1.54454974145
1984  weights(61) = 6.09837988772
1985  weights(62) = 0.469373661495
1986  weights(63) = -9.26030329725
1987  weights(64) = -3.19994754276
1988  weights(65) = 17.0776033041
1989  weights(66) = 0.337589098245
1990  weights(67) = -0.487590225205
1991  weights(68) = -2.05125163466
1992  weights(69) = -4.35860540864
1993  weights(70) = -0.889964975831
1994  weights(71) = -0.548179660134
1995  weights(72) = 0.473714455087
1996  weights(73) = -1.51806519977
1997  weights(74) = 8.00272178592
1998  weights(75) = 21.2520279283
1999  weights(76) = -91.5082631166
2000  weights(77) = -98.6435437944
2001  weights(78) = 71.2163627719
2002  weights(79) = -6.93988877224
2003  weights(80) = -3.20465340678
2004  weights(81) = -21.1241781322
2005  weights(82) = -0.390307345781
2006  weights(83) = -0.678508823348
2007  weights(84) = -0.729608994775
2008  weights(85) = -8.29813825082
2009  weights(86) = 7.21589785014
2010  weights(87) = 0.252448263224
2011  weights(88) = -1.14409233789
2012  weights(89) = 7.43649534111
2013  weights(90) = 3.44408738749
2014  weights(91) = 5.97525048729
2015  weights(92) = 31.3389401508
2016  weights(93) = 100.0
2017  weights(94) = -1.93418569137
2018  weights(95) = 4.95797836117
2019  weights(96) = -6.22694345072
2020  weights(97) = -1.90514220525
2021  weights(98) = 0.00862596808847
2022  weights(99) = 0.474865213163
2023  weights(100) = -2.75009629909
2024  weights(101) = -1.79444345815
2025  weights(102) = -2.23509659938
2026  weights(103) = 0.644973786124
2027  weights(104) = 2.00386940363
2028  weights(105) = -3.27054058268
2029  weights(106) = 17.8570185774
2030  weights(107) = 11.3115373356
2031  weights(108) = 8.72458939114
2032  weights(109) = 2.67353189881
2033  weights(110) = 4.08544564304
2034  weights(111) = 8.77631079743
2035  weights(112) = -4.63582463552
2036  weights(113) = 1.11376341101
2037  weights(114) = 1.56287257788
2038  weights(115) = 0.967656806785
2039  weights(116) = 0.900059767562
2040  weights(117) = -0.34416030952
2041  weights(118) = 2.54320410254
2042  weights(119) = 4.29815104861
2043  weights(120) = -4.68475216101
2044  weights(121) = -0.811706279437
2045  weights(122) = 5.50848426887
2046  weights(123) = 0.224813057806
2047  weights(124) = -21.2018802719
2048  weights(125) = -4.43306737463
2049  weights(126) = 27.8630775479
2050  weights(127) = -18.8000806204
2051  weights(128) = -12.8336544905
2052  weights(129) = -0.225879885793
2053  weights(130) = -1.37503017326
2054  weights(131) = -0.114663654815
2055  weights(132) = 0.629627155027
2056  weights(133) = -0.742213175495
2057  weights(134) = 1.69884872521
2058  weights(135) = -0.356378506886
2059  weights(136) = 0.683917403436
2060  weights(137) = -0.946410518751
2061  weights(138) = -4.19948828937
2062  weights(139) = -0.725627973009
2063  weights(140) = 0.715214723396
2064  weights(141) = 9.35097780958
2065  weights(142) = 10.7175453453
2066  weights(143) = -0.647419440784
2067  weights(144) = -3.93803352805
2068  weights(145) = 3.01094760376
2069  weights(146) = -1.58218467083
2070  weights(147) = 0.756578171823
2071  weights(148) = 0.379883037161
2072  weights(149) = -1.92643598646
2073  weights(150) = -0.439330338062
2074  weights(151) = 5.68250915582
2075  weights(152) = -7.01140138055
2076  weights(153) = 5.32366183207
2077  weights(154) = -29.2972942315
2078  weights(155) = -19.1370009742
2079  weights(156) = -14.4841164622
2080  weights(157) = 53.4401023008
2081  weights(158) = 42.1864517973
2082  weights(159) = -23.6378756374
2083  weights(160) = 7.74186368109
2084  weights(161) = 1.62917874305
2085  weights(162) = 0.492201725479
2086  weights(163) = 0.283622214273
2087  weights(164) = 0.399008666954
2088  weights(165) = -1.18303759928
2089  weights(166) = 0.631271141474
2090  weights(167) = 1.91262886194
2091  weights(168) = -1.82425884685
2092  weights(169) = -1.03914062743
2093  weights(170) = 6.03766391289
2094  weights(171) = 3.5239960266
2095  weights(172) = 2.51879461371
2096  weights(173) = -10.947215134
2097  weights(174) = -11.4459289523
2098  weights(175) = -2.39783135454
2099  weights(176) = -5.98653471185
2100  weights(177) = 24.578687778
2101  weights(178) = 19.8865744004
2102  weights(179) = 2.71526862546
2103  weights(180) = 0.64296113944
2104  weights(181) = 20.0042791665
2105  weights(182) = 46.7373378128
2106  weights(183) = -28.3735763076
2107  weights(184) = 7.08051290991
2108  weights(185) = 36.9168642126
2109  weights(186) = 19.4948330387
2110  weights(187) = 21.9257999922
2111  weights(188) = 25.2886779989
2112  weights(189) = 26.7580640419
2113  weights(190) = 18.6362376253
2114  weights(191) = 3.71016659213
2115  weights(192) = 11.7994462159
2116  weights(193) = -5.13468900252
2117  weights(194) = 0.643321613728
2118  weights(195) = 0.853837462033
2119  weights(196) = 0.893693972106
2120  weights(197) = -0.185014091148
2121  weights(198) = 3.83756756623
2122  weights(199) = 7.04107335346
2123  weights(200) = 1.62620565068
2124  weights(201) = -0.351191524175
2125  weights(202) = -5.6641790466
2126  weights(203) = -5.69240557818
2127  weights(204) = -2.90696684277
2128  weights(205) = 15.3744862962
2129  weights(206) = 6.63605210952
2130  weights(207) = -11.9900887292
2131  weights(208) = 16.3246046306
2132  weights(209) = 1.15826429316
2133  weights(210) = -0.202359827163
2134  weights(211) = 0.31690439922
2135  weights(212) = -0.28356722851
2136  weights(213) = -0.0267406782045
2137  weights(214) = 0.942046433238
2138  weights(215) = -0.65893397782
2139  weights(216) = -2.96902066335
2140  weights(217) = -3.11394740829
2141  weights(218) = 9.36293898132
2142  weights(219) = 1.32716383056
2143  weights(220) = -2.59089344787
2144  weights(221) = -10.0876120477
2145  weights(222) = -6.29197435471
2146  weights(223) = -1.24135772653
2147  weights(224) = 1.59884828788
2148  weights(225) = 6.04364417336
2149  weights(226) = 0.368027352148
2150  weights(227) = -0.0042589197887
2151  weights(228) = -3.74131269726
2152  weights(229) = 2.33876244805
2153  weights(230) = -2.91359891988
2154  weights(231) = 0.206197306278
2155  weights(232) = 7.08800404186
2156  weights(233) = -13.2673604363
2157  weights(234) = 19.040837091
2158  weights(235) = -3.74089621702
2159  weights(236) = -20.8830521743
2160  weights(237) = 9.39135561848
2161  weights(238) = 5.03921186525
2162  weights(239) = -3.83287405217
2163  weights(240) = -3.57775857476
2164  weights(241) = -1.84433439947
2165  weights(242) = -2.80755744406
2166  weights(243) = 0.606095249489
2167  weights(244) = -3.00979360493
2168  weights(245) = -1.66285673041
2169  weights(246) = -1.53581620318
2170  weights(247) = 0.834940157339
2171  weights(248) = -3.36547468366
2172  weights(249) = 3.06292553081
2173  weights(250) = 2.44996946181
2174  weights(251) = 1.29137535049
2175  weights(252) = -8.38982884117
2176  weights(253) = 0.0910320753973
2177  weights(254) = 3.26893711413
2178  weights(255) = -2.65685003238
2179  weights(256) = 0.706870134501
2180 c
2181  eni(1, 1) = 2.42214529075
2182  eni(2, 1) = 2.11480355245
2183  eni(3, 1) = 2.1472392799
2184  eni(4, 1) = 2.16718274472
2185  eni(5, 1) = 2.44755240901
2186  eni(6, 1) = 2.52707583881
2187  eni(7, 1) = 2.74509809055
2188  eni(8, 1) = 0.581643471595
2189  eni(9, 1) = 0.610993319098
2190  eni(10, 1) = 0.350000066643
2191  eni(11, 1) = 1.02449510548
2192  eni(12, 1) = 0.392241819355
2193  eni(13, 1) = 1.21073053696
2194  eni(14, 1) = 0.8244994333
2195  eni(15, 1) = 0.0477792726394
2196  eni(1, 2) = -0.0679930848301
2197  eni(2, 2) = 0.0442598208018
2198  eni(3, 2) = 0.0941717775707
2199  eni(4, 2) = 0.130495356137
2200  eni(5, 2) = 0.142657342709
2201  eni(6, 2) = 0.147472924041
2202  eni(7, 2) = 0.15
2203  eni(8, 2) = 0.731553104905
2204  eni(9, 2) = 0.365408008533
2205  eni(10, 2) = 0.499999933357
2206  eni(11, 2) = -0.167096503977
2207  eni(12, 2) = 0.457779687515
2208  eni(13, 2) = -0.360719011682
2209  eni(14, 2) = 0.15
2210  eni(15, 2) = 0.140606135791
2211 c
2212  ded(1, 1) = 19.0625103516
2213  ded(1, 2) = 16.6437020785
2214  ded(1, 3) = 16.8989742922
2215  ded(1, 4) = 17.0559312287
2216  ded(1, 5) = 19.2624667525
2217  ded(1, 6) = 19.888323595
2218  ded(1, 7) = 21.6041791411
2219  ded(1, 8) = 4.57758861144
2220  ded(1, 9) = 4.80857466086
2221  ded(1, 10) = 2.75453331347
2222  ded(1, 11) = 8.06287245772
2223  ded(1, 12) = 3.08697986463
2224  ded(1, 13) = 9.52856275053
2225  ded(1, 14) = 6.48888778148
2226  ded(1, 15) = 0.376027351768
2227 c
2228  CALL normdiff( weights, conec, 256, dconecno, 450,
2229  & dconecmk, units, 31, inno, 15, outno, 1,
2230  & eni, ded, input, deriv)
2231 c
2232  END
subroutine normcall(x, conec, n, units, u, inno, i, outno, o, eni, deo, input, output)
Definition: ffnet.f:339
subroutine normdiff(x, conec, n, dconecno, dn, dconecmk, units, u, inno, i, outno, o, eni, ded, input, deriv)
Definition: ffnet.f:367
subroutine dffnet_aqua(input, deriv)
subroutine ffnet_aqua(input, output)