1 SUBROUTINE myTestFunc(rw,r,tu,tl,hu,hl,l,kw,yhat)
2 C --- *********************************************
4 C --- File used by unit test
5 C --- PMMLBasicsTest1::testExportNeuralNetworkFortran
7 C --- *********************************************
8 IMPLICIT DOUBLE PRECISION (V)
19 C --- Preprocessing of the inputs
20 VXNrw = ( rw - 0.099999D0 ) / 0.028899D0
21 VXNr = ( r - 25048.9D0 ) / 14419.8D0
22 VXNtu = ( tu - 89334.9D0 ) / 15180.8D0
23 VXNtl = ( tl - 89.5523D0 ) / 15.2866D0
24 VXNhu = ( hu - 1050D0 ) / 34.6793D0
25 VXNhl = ( hl - 760.001D0 ) / 34.6718D0
26 VXNl = ( l - 1400.02D0 ) / 161.826D0
27 VXNkw = ( kw - 10950D0 ) / 632.913D0
29 C --- Values of the weights
42 C --- hidden neural number 1
53 VPot1 = 1.D0 / (1.D0 + DEXP(-1.D0 * VAct1))
59 C --- Pretraitment of the output
60 yhat = 77.8117D0 + 45.7061D0 * VOut;