src/pmml/Test/samples/unittest_ref_lr_model.f

   1       SUBROUTINE myTestFunc(P0, P1, P2, P3, RES)
   2 C --- *********************************************
   3 C ---
   4 C ---  File used by unit test
   5 C ---  PMMLBasicsTest1::testExportLinearRegressionFortran
   6 C ---
   7 C --- *********************************************
   8
   9       IMPLICIT DOUBLE PRECISION (P)
  10       DOUBLE PRECISION RES
  11       DOUBLE PRECISION Y
  12
  13 C --- Intercept
  14       Y = 3.83737;
  15
  16 C --- Attribute : x6
  17       Y += P[0]*0.475913;
  18
  19 C --- Attribute : x8
  20       Y += P[1]*0.142884;
  21
  22 C --- Attribute : x6x8
  23       Y += P[2]*-0.022019;
  24
  25 C --- Attribute : x6x6x8
  26       Y += P[3]*0.000536256;
  27
  28 C --- Return the value
  29       RES = Y
  30       RETURN
  31       END