C Forward transfer functions for right hrs with septum at 9 degrees c based on Rtest9_dir.dat c -JJL 5/02/05 c typical call: answer = function(x,5) c INPUTS: x = 5 or more element array c x(1)=x0 (meters) c x(2)=theta0 (really tan(theta0)) c x(3)=y0 (meters) c x(4)=phi0 (really tan(phi0)) c x(5)=delta (fractional value NOT percent) c M=5 c c OUTPUT: units are the same as inputs c c NOMENCLATURE: function name = prefix + _sr9_ +suffix c prefixes: x means xfinal c t means thetafinal c y means yfinal c p means phifinal c l means path length c c suffixes: fp means target to focus c q1ex means target to Q1 exit c dent means target to Dipole entrance c dext means target to dipole exit c q3en means target to Q3 entrance c q3ex means target to Q3 exit c ep3 means septum entrance c ep4 means one quarter the way into the septum c ep5 means halfway through the septum c ep6 means three quarters the way through the septum c ep7 means septum exit c c _sr9_ is for right hrs with septum at 9 degrees c c APERTURES: c Coordinate systems are different in the spectrometer with septum model compared to the spectrometer c without septum. So some apertures even in the body of the spectrometer appear to be different. Numbers c given here supercede any numbers given in regard to transfer functions for the spectrometers alone. C Also note that inside the septum (EP'S 3-7) y is vertical. c c ep3: -0.1486233 < x < -0.08869672 c -0.110 < y < 0.110 c ep4: -0.1792231 < x < -0.1089169 c -0.110 < y < 0.110 c ep5: -0.2209211 < x < -0.1353789 c -0.110 < y < 0.110 c ep6: -0.2763536 < x < -0.1697464 c -0.110 < y < 0.110 c ep7: -0.3485396 < x < -0.2156404 c -0.110 < y < 0.110 c q1ex is a circle of radius 0.1492 m c dent is a trapazoid: c -5.22008 < x < -4.98099 c -(-0.192436784*x -0.192436784) < y < -0.192436784*x -0.192436784 c dext is also a trapazoid: c -0.46188 < x < 0.46188 c -(-0.01610808*x + 0.125) < y < -0.01610808*x + 0.125 c q3en is a circle of radius 0.3 m c q3ex is a circle of radius 0.3 m c function x_sr9_ep3 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 10) data ncoeff/ 9/ data avdat/ -0.1197604E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29953E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.25955271E-02, 0.99508362E-02, 0.33847228E-01, 0.51279407E-04, + 0.16577522E-04, 0.50291314E-05, 0.10686945E-04, 0.35775458E-05, + 0.60343893E-06, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x21 = x2 x22 = x21*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x51 = x5 c c function c x_sr9_ep3 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x22 *x41 5 +coeff( 5) *x42 6 +coeff( 6) *x31*x41 7 +coeff( 7) *x43 8 +coeff( 8) *x22 x_sr9_ep3 =x_sr9_ep3 9 +coeff( 9) *x51 c return end function t_sr9_ep3 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 6) data ncoeff/ 5/ data avdat/ -0.8154941E-01/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29953E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.20892438E-02, 0.71468548E-05, 0.29947119E-01, 0.35343925E-03, + 0.35243145E-04, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x21 = x2 x22 = x21*x2 x31 = x3 x41 = x4 x51 = x5 c c function c t_sr9_ep3 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x22 5 +coeff( 5) *x51 c return end function y_sr9_ep3 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 4) data ncoeff/ 3/ data avdat/ 0.4800405E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29953E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.43952794E-03,-0.62486470E-01,-0.29974878E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) c set up monomials functions x11 = x1 x21 = x2 c c function c y_sr9_ep3 =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3)*x11 c return end function p_sr9_ep3 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 4) data ncoeff/ 3/ data avdat/ 0.3857572E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29953E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.35091201E-03,-0.54932140E-01, 0.18288524E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x2 =1.+(x( 2)-xmax( 2))*scale( 2) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x21 = x2 x41 = x4 c c function c p_sr9_ep3 =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x21 *x41 c return end function l_sr9_ep3 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 7) data ncoeff/ 6/ data avdat/ 0.1137276E+01/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29953E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.73964329E-03, 0.15865912E-03, 0.54081000E-03, 0.17178284E-02, + 0.27047020E-06, 0.51037251E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x21 = x2 x22 = x21*x2 x31 = x3 x41 = x4 x42 = x41*x4 c c function c l_sr9_ep3 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x22 5 +coeff( 5) *x31*x41 6 +coeff( 6) *x42 c return end function x_sr9_ep4 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.1414318E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29930E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.12960172E-02, 0.40238738E-01, 0.62509394E-05, 0.62758714E-04, + 0.14780421E-03, 0.18042055E-05,-0.14987179E-05, 0.73843203E-05, + 0.39120272E-06, 0.73072683E-05, 0.29355924E-04, 0.19849419E-05, + -0.15201211E-05, 0.78173635E-07,-0.31960906E-04, 0.99224914E-02, + 0.10803094E-03, 0.10416277E-03, 0.10644968E-03,-0.14079806E-03, + -0.21843898E-04,-0.49034898E-05, 0.16848022E-04,-0.53159802E-04, + -0.64851389E-06, 0.35436394E-05, 0.10419293E-05, 0.66055741E-05, + -0.99933295E-05,-0.46526598E-05,-0.14628067E-04, 0.41422527E-05, + -0.17546843E-05, 0.22870606E-05,-0.49137338E-05, 0.38526345E-04, + 0.11126210E-04,-0.10176407E-05,-0.15486110E-04,-0.13802422E-03, + -0.13542648E-03,-0.36190349E-05,-0.67428878E-05,-0.36193198E-05, + -0.58536002E-05, 0.15274743E-04, 0.10657964E-05,-0.66343514E-05, + 0.67791538E-04, 0.26874601E-04, 0.62402560E-05, 0.79939809E-05, + -0.65275749E-08, 0.58545420E-05, 0.17089975E-05, 0.42642637E-05, + -0.16972087E-05,-0.68348680E-04, 0.36195484E-04, 0.70898896E-05, + 0.42492393E-04, 0.76393826E-05,-0.48125171E-05, 0.19705496E-05, + 0.69548501E-05,-0.18724257E-04,-0.22846201E-04,-0.14661767E-04, + 0.15086986E-04,-0.62743225E-05,-0.25624628E-04,-0.42795418E-04, + 0.37922811E-04, 0.91600732E-05, 0.12076251E-04,-0.14807192E-04, + 0.53543470E-04,-0.24848108E-04,-0.18430945E-04,-0.22200875E-04, + 0.48022408E-04,-0.29413150E-04, 0.66081298E-05, 0.54966815E-04, + -0.30547795E-04, 0.35104596E-04,-0.34399229E-04,-0.19216064E-04, + 0.16744132E-04, 0.28704429E-04, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_ep4 =avdat 1 +coeff( 1) 2 +coeff( 2) *x41 3 +coeff( 3) *x32 4 +coeff( 4) *x31*x41 5 +coeff( 5) *x42 6 +coeff( 6) *x22*x31 7 +coeff( 7) *x33 8 +coeff( 8) *x31*x42 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 9) *x31 *x52 1 +coeff( 10) *x24*x31 2 +coeff( 11) *x22*x33 3 +coeff( 12) *x34*x41 4 +coeff( 13) *x33*x42 5 +coeff( 14) *x33 *x52 6 +coeff( 15) *x24*x33 7 +coeff( 16) *x31 8 +coeff( 17) *x51 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 18) *x22 1 +coeff( 19) *x22 *x41 2 +coeff( 20) *x22 *x42 3 +coeff( 21) *x24*x31*x41 4 +coeff( 22) *x52 5 +coeff( 23) *x43 6 +coeff( 24) *x22*x31*x41 7 +coeff( 25) *x21 *x41*x51 8 +coeff( 26) *x22*x32 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 27) *x22 *x41*x51 1 +coeff( 28)*x11*x21 2 +coeff( 29) *x23 *x42*x51 3 +coeff( 30)*x11*x21 *x42 4 +coeff( 31)*x11*x21*x33*x41 5 +coeff( 32)*x11*x21*x32 *x52 6 +coeff( 33) *x21*x31 7 +coeff( 34) *x53 8 +coeff( 35) *x22*x31 *x51 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 36) *x22 *x43 1 +coeff( 37) *x23 *x41*x51 2 +coeff( 38) *x21*x32 *x52 3 +coeff( 39) *x22*x34 4 +coeff( 40) *x22*x31*x43 5 +coeff( 41) *x22 *x44 6 +coeff( 42) *x32*x44 7 +coeff( 43) *x23*x31*x41*x51 8 +coeff( 44) *x22 *x42*x52 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 45)*x11*x23 1 +coeff( 46)*x11*x21*x32 2 +coeff( 47)*x11 *x33 3 +coeff( 48) *x22*x34*x41 4 +coeff( 49) *x24*x31*x42 5 +coeff( 50) *x24 *x43 6 +coeff( 51) *x23*x33 *x51 7 +coeff( 52)*x11*x21 *x41*x51 8 +coeff( 53)*x11 *x42*x51 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 54) *x21*x33*x41*x52 1 +coeff( 55)*x11*x24 2 +coeff( 56)*x11*x23*x31 3 +coeff( 57) *x23*x34*x41 4 +coeff( 58) *x24*x32*x42 5 +coeff( 59) *x23*x33*x42 6 +coeff( 60)*x11*x21 *x43 7 +coeff( 61) *x24 *x44 8 +coeff( 62)*x11*x21*x32 *x51 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 63) *x23*x34 *x51 1 +coeff( 64)*x11*x21 *x53 2 +coeff( 65) *x24*x31 *x53 3 +coeff( 66) *x24 *x41*x53 4 +coeff( 67)*x11*x21*x34 5 +coeff( 68)*x11*x21 *x44 6 +coeff( 69)*x11*x23*x31 *x51 7 +coeff( 70)*x11*x21*x33 *x51 8 +coeff( 71)*x11*x23 *x41*x51 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 72)*x11*x22 *x42*x51 1 +coeff( 73) *x22*x34*x41*x52 2 +coeff( 74)*x11*x22 *x53 3 +coeff( 75) *x23*x32 *x54 4 +coeff( 76) *x24 *x41*x54 5 +coeff( 77) *x23*x34*x43 6 +coeff( 78)*x11*x21*x34 *x51 7 +coeff( 79)*x11*x22*x31*x42*x51 8 +coeff( 80)*x11*x22 *x43*x51 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 81)*x11*x22 *x44*x51 1 +coeff( 82)*x11*x23*x31*x41*x52 2 +coeff( 83)*x11*x22*x31 *x54 3 +coeff( 84)*x11*x24*x32*x41*x51 4 +coeff( 85)*x11*x23*x33*x41*x51 5 +coeff( 86)*x11*x23*x33 *x52 6 +coeff( 87)*x11*x22*x32*x41*x53 7 +coeff( 88)*x11*x23*x31 *x54 8 +coeff( 89)*x11*x24*x34*x41 x_sr9_ep4 =x_sr9_ep4 9 +coeff( 90)*x11*x23*x34*x41*x51 c return end function t_sr9_ep4 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 16) data ncoeff/ 15/ data avdat/ -0.1099271E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29930E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.58138021E-03, 0.10625707E-03, 0.30226855E-01, 0.13931927E-02, + -0.24243414E-02,-0.12661270E-02,-0.62662155E-04, 0.29537233E-03, + -0.64960550E-04,-0.89436515E-04, 0.22496913E-03,-0.15672338E-03, + 0.15625088E-03,-0.12641255E-02,-0.10130792E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 c c function c t_sr9_ep4 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 *x42 6 +coeff( 6) *x22*x31*x41 7 +coeff( 7) *x22 8 +coeff( 8) *x42 t_sr9_ep4 =t_sr9_ep4 9 +coeff( 9) *x52 1 +coeff( 10)*x11*x21 2 +coeff( 11) *x22 *x41 3 +coeff( 12) *x22*x32 4 +coeff( 13) *x33*x41 5 +coeff( 14) *x22 *x44 6 +coeff( 15) *x24*x31*x43 c return end function y_sr9_ep4 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 5) data ncoeff/ 4/ data avdat/ 0.5301689E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29930E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.48233030E-03,-0.74415781E-01,-0.29929169E-02, 0.23158596E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x11 = x1 x21 = x2 x41 = x4 c c function c y_sr9_ep4 =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3)*x11 4 +coeff( 4) *x21 *x41 c return end function p_sr9_ep4 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 8) data ncoeff/ 7/ data avdat/ 0.3443103E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29930E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.31111366E-03,-0.53683255E-01, 0.14233713E-02, 0.36214650E-03, + 0.32805974E-03, 0.90696674E-03, 0.75578369E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 c c function c p_sr9_ep4 =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x21 *x41 4 +coeff( 4) *x21*x31 5 +coeff( 5) *x21 *x42 6 +coeff( 6) *x21 *x43 7 +coeff( 7) *x23*x31*x42 c return end function l_sr9_ep4 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 19) data ncoeff/ 18/ data avdat/ 0.1356599E+01/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.29930E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.88588585E-03, 0.21229577E-02, 0.20461108E-02, 0.50316817E-06, + 0.21701335E-05, 0.61289588E-03, 0.41702583E-05, 0.32524841E-06, + -0.99425688E-06,-0.14065008E-05, 0.12226271E-05,-0.48655338E-05, + -0.58118294E-05,-0.18013895E-06, 0.11730286E-05, 0.58025728E-06, + 0.33847882E-05, 0.53932978E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x41 = x4 x42 = x41*x4 x51 = x5 x52 = x51*x5 c c function c l_sr9_ep4 =avdat 1 +coeff( 1) 2 +coeff( 2) *x41 3 +coeff( 3) *x22 4 +coeff( 4) *x32 5 +coeff( 5) *x31*x41 6 +coeff( 6) *x42 7 +coeff( 7) *x22*x31 8 +coeff( 8) *x33 l_sr9_ep4 =l_sr9_ep4 9 +coeff( 9) *x31*x42 1 +coeff( 10) *x31 *x52 2 +coeff( 11)*x12 *x31 3 +coeff( 12) *x24*x31 4 +coeff( 13) *x22*x33 5 +coeff( 14) *x33*x42 6 +coeff( 15) *x33 *x52 7 +coeff( 16)*x12 *x33 8 +coeff( 17) *x24*x33 l_sr9_ep4 =l_sr9_ep4 9 +coeff( 18) *x31 c return end function x_sr9_ep5 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.1708214E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.12018072E-02, 0.98546958E-02, 0.45235205E-01, 0.64877374E-03, + -0.49576796E-04,-0.38159298E-03,-0.11225216E-03, 0.20772700E-03, + 0.98364217E-04,-0.35668338E-04,-0.23038797E-02,-0.22130262E-02, + -0.25612104E-04,-0.12532528E-03, 0.14925767E-03,-0.31322325E-04, + 0.13369584E-03,-0.79208876E-05,-0.71265025E-03, 0.25457318E-03, + -0.21265159E-03,-0.13525091E-03, 0.42423188E-04,-0.97539130E-04, + -0.26574668E-04,-0.38713933E-04, 0.94148616E-03,-0.78228506E-04, + -0.19306669E-03, 0.11717335E-04, 0.15788344E-04, 0.41551841E-04, + 0.10396456E-04,-0.12087037E-03,-0.54481652E-05, 0.25522409E-04, + -0.92965283E-05, 0.18612414E-04, 0.14033445E-03,-0.53588774E-05, + -0.49494509E-04,-0.90087888E-05,-0.86952990E-04, 0.72115677E-03, + -0.18639063E-04,-0.11377640E-03,-0.44869099E-04,-0.11946832E-03, + 0.16457029E-03,-0.36483132E-04, 0.11292083E-03, 0.15798241E-04, + 0.98990582E-04,-0.19567729E-03, 0.87161563E-04, 0.41294593E-03, + -0.25229511E-03,-0.40803501E-04, 0.55070902E-03, 0.98122610E-03, + -0.30484117E-03,-0.53512660E-03,-0.58628380E-03, 0.52408373E-04, + -0.11161002E-02, 0.36214115E-03, 0.40737301E-03, 0.18533758E-02, + 0.12585496E-02,-0.10305946E-04, 0.24118164E-04,-0.83525019E-05, + 0.20781049E-05, 0.24256038E-04, 0.46772166E-05, 0.15223185E-04, + 0.55364067E-05, 0.11694069E-04,-0.72410739E-05, 0.12160644E-04, + -0.24053634E-04,-0.17862169E-04, 0.50017126E-04, 0.57027275E-04, + -0.14365299E-04, 0.35087909E-04,-0.14126274E-04, 0.91324728E-05, + -0.14127426E-04,-0.15126888E-04, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_ep5 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x22 *x42 7 +coeff( 7) *x24*x31*x41 8 +coeff( 8) *x42 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 9) *x44 1 +coeff( 10) *x24 *x42 2 +coeff( 11) *x22*x31*x43 3 +coeff( 12) *x22 *x44 4 +coeff( 13) *x22*x32 *x52 5 +coeff( 14) *x22*x34*x42 6 +coeff( 15) *x31*x41 7 +coeff( 16) *x52 8 +coeff( 17) *x22 *x41 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 18)*x11*x21 1 +coeff( 19) *x22*x32*x42 2 +coeff( 20)*x11*x24*x31*x41*x53 3 +coeff( 21) *x22*x31*x41 4 +coeff( 22) *x22 *x43 5 +coeff( 23) *x21*x31*x41*x52 6 +coeff( 24)*x11*x21 *x42 7 +coeff( 25)*x11*x22 *x41*x51 8 +coeff( 26)*x11*x23*x31*x41 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 27) *x22*x34*x44 1 +coeff( 28)*x11*x24*x31*x42*x51 2 +coeff( 29)*x11*x22*x33*x41*x53 3 +coeff( 30) *x22*x31 4 +coeff( 31) *x32*x41 5 +coeff( 32) *x43 6 +coeff( 33) *x22 *x51 7 +coeff( 34) *x33*x41 8 +coeff( 35) *x31*x43 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 36) *x21 *x42*x51 1 +coeff( 37) *x22*x32*x41 2 +coeff( 38) *x33*x42 3 +coeff( 39) *x33*x43 4 +coeff( 40) *x32*x44 5 +coeff( 41) *x24 *x41*x51 6 +coeff( 42)*x11*x23 7 +coeff( 43) *x22*x31*x44 8 +coeff( 44) *x22*x33*x43 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 45)*x11*x21*x32 *x51 1 +coeff( 46) *x22 *x44*x52 2 +coeff( 47) *x24 *x41*x53 3 +coeff( 48) *x23 *x42*x53 4 +coeff( 49) *x22 *x42*x54 5 +coeff( 50) *x24 *x43*x52 6 +coeff( 51) *x22*x33*x41*x53 7 +coeff( 52)*x11*x22 *x41*x53 8 +coeff( 53) *x24*x34*x42*x51 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 54)*x11*x21*x33*x41*x52 1 +coeff( 55)*x11*x23*x33*x42 2 +coeff( 56)*x11*x24 *x43*x51 3 +coeff( 57) *x24 *x44*x54 4 +coeff( 58)*x11*x24*x34 *x51 5 +coeff( 59)*x11*x24*x34*x41*x51 6 +coeff( 60)*x11*x24*x31*x44*x51 7 +coeff( 61)*x11*x22*x33*x44*x51 8 +coeff( 62)*x11*x24 *x44*x52 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 63)*x11*x24*x32*x41*x53 1 +coeff( 64)*x11*x24*x32 *x54 2 +coeff( 65)*x11*x22*x31*x43*x54 3 +coeff( 66)*x11*x23*x31*x43*x54 4 +coeff( 67)*x11*x23*x32*x43*x54 5 +coeff( 68)*x11*x22*x33*x43*x54 6 +coeff( 69)*x11*x24*x34*x44*x52 7 +coeff( 70) *x21*x31 8 +coeff( 71) *x32 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 72) *x21 *x41 1 +coeff( 73) *x41*x51 2 +coeff( 74) *x21*x32 3 +coeff( 75) *x21 *x42 4 +coeff( 76) *x31*x42 5 +coeff( 77) *x32 *x51 6 +coeff( 78) *x21 *x41*x51 7 +coeff( 79) *x21 *x52 8 +coeff( 80) *x23*x31 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 81) *x22*x32 1 +coeff( 82) *x34 2 +coeff( 83) *x21*x31*x42 3 +coeff( 84) *x21 *x43 4 +coeff( 85) *x21*x32 *x51 5 +coeff( 86) *x22 *x41*x51 6 +coeff( 87) *x21 *x41*x52 7 +coeff( 88) *x21 *x53 8 +coeff( 89) *x23*x32 x_sr9_ep5 =x_sr9_ep5 9 +coeff( 90) *x21*x34 c return end function t_sr9_ep5 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 81) data ncoeff/ 80/ data avdat/ -0.1610142E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.27503131E-03,-0.24717845E-04, 0.29227013E-01, 0.38829567E-02, + -0.82112796E-03, 0.19803047E-03,-0.17835633E-03,-0.13142666E-03, + -0.35155632E-02, 0.21163637E-02,-0.32071599E-02,-0.39618970E-02, + -0.90924380E-02,-0.10204435E-02,-0.94294315E-02,-0.83197308E-04, + -0.89773159E-04,-0.16962654E-02, 0.36397961E-02,-0.72862278E-02, + -0.19981896E-02,-0.12983020E-01,-0.17535489E-03,-0.15009564E-03, + -0.83919149E-03,-0.71848638E-03, 0.39742035E-02,-0.22150527E-02, + 0.27874371E-03,-0.26150647E-03, 0.13513912E-04, 0.64165550E-04, + -0.11958232E-03,-0.12538949E-03,-0.18827533E-03, 0.29037529E-03, + -0.16213547E-03, 0.96066098E-04,-0.75230061E-03, 0.15459156E-02, + -0.49751974E-02, 0.75626984E-03, 0.30005618E-04, 0.45805945E-03, + -0.41854539E-03, 0.78621066E-04,-0.73038851E-03,-0.77517814E-03, + 0.22488959E-03, 0.45327395E-02,-0.11883405E-03,-0.20567097E-02, + -0.34357450E-03,-0.39634842E-03,-0.62864949E-02, 0.50988916E-03, + -0.12326961E-02,-0.57764986E-03, 0.17950368E-03,-0.12415083E-02, + 0.13193272E-01, 0.61548227E-02,-0.32435366E-03,-0.79141872E-04, + -0.35580590E-02, 0.19172847E-02, 0.52698595E-02, 0.65709278E-02, + 0.77919813E-03, 0.12501547E-02,-0.16707663E-02,-0.69726433E-03, + 0.20545505E-02,-0.47019976E-02, 0.73692543E-02, 0.23600471E-02, + -0.46243099E-02, 0.12084447E-02, 0.15302966E-02,-0.22261820E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c t_sr9_ep5 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x42 7 +coeff( 7) *x22 *x41 8 +coeff( 8) *x33*x41 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 9) *x22 *x42 1 +coeff( 10) *x24*x31*x41 2 +coeff( 11) *x22*x31*x41 3 +coeff( 12) *x22 *x43 4 +coeff( 13) *x22 *x44 5 +coeff( 14) *x24*x31*x42 6 +coeff( 15) *x24*x31*x43 7 +coeff( 16)*x11*x21 8 +coeff( 17) *x22*x32 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 18) *x22*x31*x42 1 +coeff( 19) *x24 *x42 2 +coeff( 20) *x22*x31*x43 3 +coeff( 21) *x24*x32*x42 4 +coeff( 22) *x24 *x44 5 +coeff( 23) *x52 6 +coeff( 24)*x11*x21 *x41 7 +coeff( 25)*x11*x21 *x42 8 +coeff( 26)*x11*x23*x31*x41 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 27) *x23*x31*x43 1 +coeff( 28)*x11*x22*x31*x41*x51 2 +coeff( 29) *x31*x41 3 +coeff( 30) *x21 *x42 4 +coeff( 31) *x21 *x52 5 +coeff( 32) *x32*x42 6 +coeff( 33) *x31*x43 7 +coeff( 34)*x11 *x41*x51 8 +coeff( 35) *x22 *x41*x51 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 36)*x11*x22*x31 1 +coeff( 37) *x21*x33*x41 2 +coeff( 38)*x11*x22 *x51 3 +coeff( 39) *x21*x31*x41*x52 4 +coeff( 40) *x21 *x42*x52 5 +coeff( 41) *x22*x32*x42 6 +coeff( 42)*x11*x22 *x41*x51 7 +coeff( 43)*x11 *x31*x42*x51 8 +coeff( 44) *x22*x31*x41*x52 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 45)*x11*x24*x31 1 +coeff( 46)*x11*x24 *x41 2 +coeff( 47) *x23*x33*x41 3 +coeff( 48)*x11*x22*x31*x42 4 +coeff( 49) *x21*x33*x43 5 +coeff( 50) *x23 *x44 6 +coeff( 51)*x11 *x33*x41*x51 7 +coeff( 52)*x11*x22 *x42*x51 8 +coeff( 53)*x11 *x31*x43*x51 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 54) *x24 *x41*x52 1 +coeff( 55) *x23 *x42*x52 2 +coeff( 56) *x21*x32*x42*x52 3 +coeff( 57) *x21 *x42*x54 4 +coeff( 58) *x23 *x43*x52 5 +coeff( 59)*x12*x23 *x42 6 +coeff( 60)*x11*x24 *x43 7 +coeff( 61)*x11*x22*x31*x43*x51 8 +coeff( 62)*x11*x22 *x44*x51 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 63)*x11 *x32*x44*x51 1 +coeff( 64)*x12*x23 *x52 2 +coeff( 65) *x23 *x44*x52 3 +coeff( 66) *x21*x33*x41*x54 4 +coeff( 67) *x23 *x42*x54 5 +coeff( 68) *x24*x32*x44 6 +coeff( 69)*x11*x22*x34*x41*x51 7 +coeff( 70) *x21*x34*x43*x52 8 +coeff( 71) *x23 *x44*x53 t_sr9_ep5 =t_sr9_ep5 9 +coeff( 72)*x12*x24*x32*x41 1 +coeff( 73)*x12*x23*x32*x42 2 +coeff( 74)*x12*x23 *x44 3 +coeff( 75)*x11*x22*x32*x44*x51 4 +coeff( 76)*x12*x23 *x42*x52 5 +coeff( 77) *x23*x33*x43*x52 6 +coeff( 78)*x12*x23*x31*x44 7 +coeff( 79) *x23*x34*x44*x51 8 +coeff( 80)*x11*x24*x32*x41*x53 c return end function y_sr9_ep5 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 6) data ncoeff/ 5/ data avdat/ 0.4525921E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.39850181E-03,-0.33416068E-05,-0.85667178E-01,-0.29785880E-02, + 0.45097334E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x11 = x1 x21 = x2 x31 = x3 x41 = x4 c c function c y_sr9_ep5 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x21 4 +coeff( 4)*x11 5 +coeff( 5) *x21 *x41 c return end function p_sr9_ep5 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 13) data ncoeff/ 12/ data avdat/ 0.2410847E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.20898508E-03,-0.53440090E-01, 0.25066841E-03, 0.13756604E-02, + 0.12333962E-03, 0.11930502E-02, 0.53899833E-02, 0.11599626E-02, + 0.31062895E-02, 0.83711529E-04, 0.88249566E-03, 0.16266679E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x11 = x1 x21 = x2 x31 = x3 x32 = x31*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 c c function c p_sr9_ep5 =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x21 *x41 4 +coeff( 4) *x21 *x42 5 +coeff( 5) *x21*x31 6 +coeff( 6) *x21*x31*x41 7 +coeff( 7) *x21 *x43 8 +coeff( 8) *x21*x31*x44 p_sr9_ep5 =p_sr9_ep5 9 +coeff( 9) *x21*x31*x42 1 +coeff( 10)*x11 2 +coeff( 11) *x21*x32*x41 3 +coeff( 12) *x21 *x44 c return end function l_sr9_ep5 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 20) data ncoeff/ 19/ data avdat/ 0.1567433E+01/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.10530179E-02, 0.45012296E-02, 0.23287951E-02, 0.17198340E-05, + 0.66454167E-03, 0.10387605E-04,-0.54927687E-05,-0.73593142E-05, + -0.90209682E-06, 0.40855293E-05,-0.23247885E-04,-0.78641742E-05, + 0.43651598E-05, 0.11651671E-04, 0.36831943E-05,-0.22719607E-05, + 0.28260187E-04, 0.10717671E-02, 0.38366594E-04, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x51 = x5 x52 = x51*x5 c c function c l_sr9_ep5 =avdat 1 +coeff( 1) 2 +coeff( 2) *x41 3 +coeff( 3) *x22 4 +coeff( 4) *x32 5 +coeff( 5) *x42 6 +coeff( 6) *x22*x31 7 +coeff( 7) *x33 8 +coeff( 8) *x31*x42 l_sr9_ep5 =l_sr9_ep5 9 +coeff( 9) *x31 *x52 1 +coeff( 10)*x12 *x31 2 +coeff( 11) *x24*x31 3 +coeff( 12) *x22*x33 4 +coeff( 13) *x34*x41 5 +coeff( 14) *x33*x42 6 +coeff( 15) *x33 *x52 7 +coeff( 16)*x12 *x33 8 +coeff( 17) *x24*x33 l_sr9_ep5 =l_sr9_ep5 9 +coeff( 18) *x31 1 +coeff( 19) *x51 c return end function x_sr9_ep6 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.2102514E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.10414806E-02, 0.97602252E-02, 0.50845452E-01, 0.17101899E-02, + 0.89353971E-05,-0.21495869E-03, 0.16671608E-03,-0.35933856E-03, + 0.35595507E-03, 0.10590635E-03, 0.56156685E-04,-0.19379839E-02, + -0.83019799E-02,-0.89135598E-02,-0.73468080E-03, 0.34930250E-04, + -0.26667953E-03, 0.15141613E-04, 0.51939645E-04,-0.26463829E-02, + 0.23515543E-03,-0.76930271E-04, 0.41091909E-04,-0.38770307E-03, + 0.68474001E-04,-0.81228500E-04,-0.33433444E-03, 0.24235515E-03, + -0.17015026E-03,-0.30626051E-03, 0.33286007E-03, 0.26391123E-06, + -0.35740403E-03, 0.33307222E-05,-0.41835380E-03, 0.98944071E-03, + 0.93624421E-03,-0.51767231E-04, 0.32075273E-03, 0.17995911E-03, + -0.68173118E-04, 0.10359117E-03, 0.78074168E-03,-0.60328637E-03, + 0.48448893E-03,-0.13039990E-03, 0.72937277E-04, 0.94015404E-05, + 0.13682277E-03,-0.10059756E-02,-0.22067108E-03,-0.12125748E-02, + 0.92479872E-03, 0.92510640E-03, 0.10607120E-03,-0.51522884E-03, + -0.52962446E-03, 0.15041010E-02, 0.87867631E-03,-0.34934529E-02, + 0.19651938E-02,-0.28398163E-02, 0.21642195E-02, 0.11750228E-02, + 0.14051710E-02,-0.34261344E-03,-0.40801883E-05,-0.88852485E-05, + -0.81339431E-05, 0.21523969E-04,-0.44701846E-04,-0.33711866E-03, + -0.81324310E-04, 0.12656108E-04,-0.10141508E-03, 0.64271473E-03, + 0.45776638E-03, 0.41424813E-04, 0.84552274E-04, 0.11132597E-03, + 0.16258143E-03,-0.11471851E-03,-0.65171880E-04,-0.93425464E-04, + 0.30650270E-04, 0.17975304E-04,-0.13849490E-03,-0.37776485E-04, + 0.76533193E-04, 0.13711645E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_ep6 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 *x42 6 +coeff( 6) *x22*x31*x41 7 +coeff( 7) *x22 *x41 8 +coeff( 8) *x22 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 9) *x42 1 +coeff( 10) *x43 2 +coeff( 11) *x44 3 +coeff( 12) *x22 *x43 4 +coeff( 13) *x22*x31*x43 5 +coeff( 14) *x22 *x44 6 +coeff( 15) *x24*x31*x42 7 +coeff( 16) *x32 8 +coeff( 17) *x32*x42 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 18)*x11*x21 1 +coeff( 19) *x24*x32 2 +coeff( 20) *x22*x32*x42 3 +coeff( 21) *x31*x41 4 +coeff( 22) *x52 5 +coeff( 23) *x22 *x41*x51 6 +coeff( 24) *x22*x31*x42 7 +coeff( 25) *x21*x31*x41*x52 8 +coeff( 26)*x11*x21 *x41 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 27)*x11*x21 *x42 1 +coeff( 28) *x22 *x43*x52 2 +coeff( 29) *x22*x31*x43*x52 3 +coeff( 30)*x11*x23*x31*x41 4 +coeff( 31)*x11*x24*x31*x41*x52 5 +coeff( 32) *x21 *x42 6 +coeff( 33) *x33*x41 7 +coeff( 34) *x22*x31*x41*x51 8 +coeff( 35) *x21 *x42*x52 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 36) *x33*x43 1 +coeff( 37) *x32*x44 2 +coeff( 38)*x11 *x41*x51 3 +coeff( 39) *x22 *x43*x51 4 +coeff( 40) *x21*x31*x42*x52 5 +coeff( 41)*x11*x23 6 +coeff( 42)*x11*x22*x31 7 +coeff( 43) *x23*x31*x43 8 +coeff( 44) *x21*x33*x43 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 45) *x21*x32*x42*x52 1 +coeff( 46) *x32*x43*x52 2 +coeff( 47)*x11*x22 *x41*x51 3 +coeff( 48)*x11 *x31*x42*x51 4 +coeff( 49)*x11 *x43*x51 5 +coeff( 50) *x24 *x43*x51 6 +coeff( 51)*x11*x24*x31 7 +coeff( 52) *x24 *x43*x52 8 +coeff( 53) *x22*x32*x43*x52 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 54) *x24*x34*x42 1 +coeff( 55)*x11*x22*x31*x42*x51 2 +coeff( 56)*x11*x22 *x42*x52 3 +coeff( 57)*x11 *x32*x42*x52 4 +coeff( 58) *x24*x31*x43*x52 5 +coeff( 59)*x11*x24 *x43*x51 6 +coeff( 60)*x11*x22*x31*x43*x52 7 +coeff( 61)*x11 *x33*x43*x52 8 +coeff( 62)*x11*x22 *x44*x52 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 63)*x11 *x32*x44*x52 1 +coeff( 64)*x11*x22*x31*x42*x53 2 +coeff( 65)*x11*x22 *x42*x54 3 +coeff( 66)*x11*x24*x33 *x53 4 +coeff( 67) *x21 5 +coeff( 68) *x32 *x51 6 +coeff( 69) *x34 7 +coeff( 70) *x21 *x43 8 +coeff( 71) *x21*x31 *x52 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 72) *x23*x31*x41 1 +coeff( 73) *x22*x32*x41 2 +coeff( 74) *x23 *x42 3 +coeff( 75) *x21*x32*x42 4 +coeff( 76) *x21*x31*x43 5 +coeff( 77) *x21 *x44 6 +coeff( 78) *x23*x31 *x51 7 +coeff( 79) *x22*x32 *x51 8 +coeff( 80) *x23 *x41*x51 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 81) *x21*x32*x41*x51 1 +coeff( 82) *x22 *x42*x51 2 +coeff( 83) *x21 *x43*x51 3 +coeff( 84) *x21 *x41*x53 4 +coeff( 85) *x21 *x54 5 +coeff( 86)*x11*x22 6 +coeff( 87) *x22*x34 7 +coeff( 88)*x11 *x31*x41 8 +coeff( 89) *x21*x34*x41 x_sr9_ep6 =x_sr9_ep6 9 +coeff( 90) *x23*x31*x42 c return end function t_sr9_ep6 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.2118559E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.12409891E-02,-0.15517563E-03, 0.28562771E-01, 0.63568861E-02, + -0.20621379E-02,-0.31060286E-03,-0.10515107E-03, 0.29038233E-03, + 0.96174568E-03,-0.29162737E-03, 0.47446997E-02, 0.72512007E-03, + -0.12247729E-01, 0.39235948E-03,-0.45526788E-01,-0.25009764E-02, + 0.10779373E-01, 0.22604497E-03, 0.91122562E-03, 0.33068951E-03, + -0.45221327E-02,-0.10956562E-02,-0.41279368E-01, 0.62111940E-03, + 0.70259441E-03,-0.10570836E-02,-0.40579666E-03,-0.59095073E-04, + 0.18000843E-04, 0.70619391E-03,-0.19882431E-02,-0.97408592E-04, + -0.12051237E-01,-0.38702600E-02,-0.10856433E-02,-0.25932584E-02, + 0.49742302E-02, 0.40869950E-02,-0.52275611E-02, 0.52537476E-02, + 0.62820041E-02,-0.69104386E-02,-0.11851834E-03, 0.37199343E-03, + -0.91730806E-04,-0.38131105E-03,-0.89523190E-03, 0.18159279E-02, + 0.16913124E-02, 0.22602007E-03,-0.67280862E-03,-0.42007837E-03, + 0.17221864E-03,-0.47039855E-03,-0.21524931E-03,-0.13988812E-02, + 0.37429272E-03, 0.32607539E-03,-0.14201014E-02,-0.16930688E-02, + 0.21091037E-04, 0.34770658E-03, 0.86311011E-04,-0.17249723E-02, + -0.70053013E-03,-0.27359472E-03, 0.12250175E-03, 0.27045009E-02, + -0.18250683E-03, 0.89708902E-03, 0.90309596E-02, 0.21453315E-01, + -0.73853959E-02, 0.28025131E-02,-0.51437686E-02,-0.16029953E-02, + 0.63647702E-02, 0.64914464E-02,-0.12908841E-02, 0.80491677E-02, + -0.28932362E-02, 0.53917235E-02,-0.50551235E-02,-0.13741822E-01, + 0.51858383E-02, 0.43399450E-02,-0.40881098E-02,-0.45616566E-02, + 0.29947504E-02,-0.50395918E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c t_sr9_ep6 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x42 7 +coeff( 7) *x22 *x41 8 +coeff( 8) *x43 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 9) *x22*x31*x41 1 +coeff( 10) *x33*x41 2 +coeff( 11) *x22 *x42 3 +coeff( 12) *x44 4 +coeff( 13) *x22 *x43 5 +coeff( 14) *x31*x44 6 +coeff( 15) *x22 *x44 7 +coeff( 16) *x24*x31*x42 8 +coeff( 17) *x24*x31*x43 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 18)*x11*x21 1 +coeff( 19) *x31*x43 2 +coeff( 20) *x22 *x41*x51 3 +coeff( 21) *x22*x31*x42 4 +coeff( 22) *x24*x31*x41 5 +coeff( 23) *x22*x31*x43 6 +coeff( 24) *x32*x44 7 +coeff( 25) *x22*x32 *x52 8 +coeff( 26) *x24*x32*x42 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 27) *x52 1 +coeff( 28) *x42*x51 2 +coeff( 29)*x11*x21 *x41 3 +coeff( 30)*x11*x22*x31 4 +coeff( 31)*x11*x21 *x42 5 +coeff( 32) *x21*x31*x41*x52 6 +coeff( 33) *x22*x32*x42 7 +coeff( 34) *x22 *x43*x51 8 +coeff( 35)*x11*x23*x31*x41 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 36) *x22 *x43*x52 1 +coeff( 37) *x23*x31*x42*x52 2 +coeff( 38) *x22*x31*x43*x52 3 +coeff( 39) *x24 *x44*x51 4 +coeff( 40)*x12*x22 *x43*x51 5 +coeff( 41)*x12*x24 *x42*x51 6 +coeff( 42)*x11*x24 *x43*x52 7 +coeff( 43) *x21*x33 8 +coeff( 44) *x21 *x43 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 45) *x22*x31 *x51 1 +coeff( 46)*x11*x23 2 +coeff( 47) *x21*x33*x41 3 +coeff( 48) *x21*x31*x43 4 +coeff( 49) *x21 *x44 5 +coeff( 50) *x23*x31 *x51 6 +coeff( 51) *x21 *x42*x52 7 +coeff( 52) *x31*x42*x52 8 +coeff( 53) *x22*x34 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 54)*x11*x22*x31*x41 1 +coeff( 55)*x11*x22 *x42 2 +coeff( 56)*x11*x21 *x43 3 +coeff( 57)*x11*x23 *x51 4 +coeff( 58) *x42*x54 5 +coeff( 59)*x11*x24*x31 6 +coeff( 60)*x12*x21*x31*x41 7 +coeff( 61)*x11 *x34*x41 8 +coeff( 62)*x12*x21 *x52 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 63)*x11 *x32*x41*x52 1 +coeff( 64) *x23 *x42*x52 2 +coeff( 65)*x12*x22*x32 3 +coeff( 66)*x12*x21*x31*x42 4 +coeff( 67) *x21*x34*x43 5 +coeff( 68)*x11*x22 *x43*x51 6 +coeff( 69)*x11*x21*x32*x41*x52 7 +coeff( 70)*x11 *x31*x42*x53 8 +coeff( 71)*x12*x21*x31*x43 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 72) *x24*x32*x44 1 +coeff( 73) *x22*x34*x44 2 +coeff( 74)*x11*x24 *x42*x52 3 +coeff( 75) *x23*x33*x42*x52 4 +coeff( 76)*x12*x22*x34*x41 5 +coeff( 77)*x12*x21*x32*x44 6 +coeff( 78)*x11*x21*x34*x43*x51 7 +coeff( 79)*x12*x22*x33 *x52 8 +coeff( 80)*x11*x22*x32*x43*x52 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 81)*x11*x21*x32*x43*x53 1 +coeff( 82)*x12*x23*x31*x44 2 +coeff( 83)*x12*x24*x32*x41*x51 3 +coeff( 84)*x11*x24 *x44*x52 4 +coeff( 85)*x11*x22*x32*x44*x52 5 +coeff( 86)*x11*x22*x33*x42*x53 6 +coeff( 87) *x24*x33*x42*x53 7 +coeff( 88)*x11*x23 *x44*x53 8 +coeff( 89)*x12*x22 *x42*x54 t_sr9_ep6 =t_sr9_ep6 9 +coeff( 90)*x11*x21*x31*x44*x54 c return end function y_sr9_ep6 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 11) data ncoeff/ 10/ data avdat/ 0.4922425E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.43073139E-03,-0.44229805E-05,-0.97102270E-01,-0.29541398E-02, + 0.11502327E-03, 0.19039752E-03, 0.10300176E-02, 0.23673770E-02, + 0.61150349E-03, 0.16282516E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x11 = x1 x21 = x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 c c function c y_sr9_ep6 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x21 4 +coeff( 4)*x11 5 +coeff( 5) *x21 *x41 6 +coeff( 6) *x21*x31 7 +coeff( 7) *x21 *x42 8 +coeff( 8) *x21 *x43 y_sr9_ep6 =y_sr9_ep6 9 +coeff( 9) *x21*x33*x41 1 +coeff( 10) *x21*x31*x44 c return end function p_sr9_ep6 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 18) data ncoeff/ 17/ data avdat/ 0.2289998E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.19669614E-03,-0.53568959E-01,-0.11290951E-02,-0.10256886E-02, + -0.20131579E-03, 0.86520361E-02,-0.11876100E-02, 0.52570319E-02, + 0.11660072E-01, 0.15082925E-02, 0.99595860E-02, 0.50687613E-04, + 0.90778456E-04, 0.14275761E-03, 0.28711215E-02, 0.42594961E-03, + -0.24178911E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 c c function c p_sr9_ep6 =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x21 *x41 4 +coeff( 4) *x21 *x42 5 +coeff( 5) *x21*x31*x41 6 +coeff( 6) *x21 *x43 7 +coeff( 7) *x23*x31*x42 8 +coeff( 8) *x21*x31*x42 p_sr9_ep6 =p_sr9_ep6 9 +coeff( 9) *x21 *x44 1 +coeff( 10) *x21*x32*x41 2 +coeff( 11) *x21*x31*x43 3 +coeff( 12) *x21*x34*x42 4 +coeff( 13)*x11 5 +coeff( 14)*x11 *x41 6 +coeff( 15) *x21*x32*x42 7 +coeff( 16) *x21 *x43*x51 8 +coeff( 17) *x23*x32*x43 c return end function l_sr9_ep6 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 11) data ncoeff/ 10/ data avdat/ 0.1779968E+01/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.12160236E-02, 0.14959208E-02, 0.67744898E-02, 0.26398040E-02, + -0.43275908E-04, 0.76260814E-03,-0.95110772E-06, 0.11482068E-03, + -0.13994410E-03,-0.29207085E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x21 = x2 x22 = x21*x2 x31 = x3 x41 = x4 x42 = x41*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c l_sr9_ep6 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x22 5 +coeff( 5) *x31*x41 6 +coeff( 6) *x42 7 +coeff( 7) *x53 8 +coeff( 8) *x51 l_sr9_ep6 =l_sr9_ep6 9 +coeff( 9) *x22 *x41 1 +coeff( 10) *x22 *x42 c return end function x_sr9_ep7 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.2628684E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.60043175E-03, 0.95299864E-02, 0.55925488E-01, 0.32418068E-02, + -0.11868185E-02, 0.38013229E-03, 0.10863015E-02, 0.15149909E-03, + 0.65607892E-04, 0.17451725E-02, 0.15199478E-03, 0.18426088E-03, + -0.49929423E-02, 0.74080087E-03,-0.19723795E-01,-0.70695940E-03, + 0.17156101E-03, 0.31636762E-04, 0.15586476E-04, 0.16762375E-04, + -0.19919646E-02,-0.62641682E-03,-0.66115446E-02,-0.19995825E-01, + -0.20209113E-03, 0.62435793E-04,-0.50120673E-03,-0.11178691E-03, + -0.18811642E-03,-0.74519642E-03,-0.79463900E-03,-0.56556030E-03, + -0.49811294E-02, 0.24846708E-03, 0.13703277E-03, 0.32527365E-04, + -0.36088951E-03, 0.11430930E-03,-0.32998440E-02, 0.91676781E-03, + -0.32507288E-03, 0.17980216E-02, 0.59888803E-03, 0.29695928E-03, + -0.96115262E-04, 0.38876661E-03,-0.23879629E-03, 0.19440465E-02, + 0.12839558E-02,-0.15326038E-02, 0.10929083E-02, 0.71433670E-03, + 0.38750339E-02,-0.53955573E-02, 0.11330005E-03,-0.42311763E-03, + -0.24885060E-02,-0.56583813E-03,-0.74665179E-03, 0.16872179E-03, + 0.53721969E-03, 0.56527762E-04, 0.11212043E-01, 0.13718382E-01, + 0.58590900E-02, 0.23123196E-02, 0.12073310E-02,-0.20310271E-02, + -0.23261882E-04, 0.24230541E-03, 0.16660459E-02,-0.31669340E-04, + 0.40122344E-04,-0.79111969E-05,-0.62226805E-04, 0.97222241E-04, + -0.28955252E-03,-0.60892959E-04, 0.46945552E-04, 0.44153880E-04, + -0.50658721E-03,-0.27160934E-03,-0.30971860E-03, 0.51642989E-03, + 0.27216674E-03,-0.14961512E-03,-0.51154711E-04,-0.97050921E-04, + 0.41299115E-03,-0.31536640E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_ep7 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x42 7 +coeff( 7) *x22 *x42 8 +coeff( 8) *x31*x41 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 9) *x22 *x41 1 +coeff( 10) *x22*x31*x41 2 +coeff( 11) *x43 3 +coeff( 12) *x44 4 +coeff( 13) *x22 *x43 5 +coeff( 14) *x31*x44 6 +coeff( 15) *x22 *x44 7 +coeff( 16) *x24*x31*x42 8 +coeff( 17) *x24*x31*x43 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 18) *x31*x43 1 +coeff( 19) *x32 *x52 2 +coeff( 20)*x11*x21 3 +coeff( 21) *x22*x31*x42 4 +coeff( 22) *x24*x31*x41 5 +coeff( 23) *x22*x32*x42 6 +coeff( 24) *x22*x31*x43 7 +coeff( 25) *x52 8 +coeff( 26) *x22 *x41*x51 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 27) *x22 *x42*x51 1 +coeff( 28) *x21*x31*x41*x52 2 +coeff( 29)*x11*x21 *x41 3 +coeff( 30)*x11*x21 *x42 4 +coeff( 31) *x22 *x43*x52 5 +coeff( 32)*x11*x23*x31*x41 6 +coeff( 33) *x24 *x44*x52 7 +coeff( 34) *x21*x31*x41 8 +coeff( 35) *x22 *x51 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 36) *x33*x41 1 +coeff( 37) *x21*x33*x41 2 +coeff( 38) *x21*x31 *x53 3 +coeff( 39) *x22*x33*x41 4 +coeff( 40) *x22 *x43*x51 5 +coeff( 41) *x23 *x41*x52 6 +coeff( 42) *x22 *x42*x52 7 +coeff( 43) *x21*x31*x42*x52 8 +coeff( 44) *x21 *x43*x52 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 45)*x11*x23 1 +coeff( 46)*x11*x22*x31 2 +coeff( 47)*x11*x22 *x41 3 +coeff( 48) *x23*x31*x43 4 +coeff( 49) *x23 *x44 5 +coeff( 50) *x23 *x42*x52 6 +coeff( 51) *x21*x32*x42*x52 7 +coeff( 52) *x21*x31*x43*x52 8 +coeff( 53) *x22*x33*x43 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 54) *x22*x32*x44 1 +coeff( 55)*x11*x23 *x51 2 +coeff( 56)*x11*x22 *x41*x51 3 +coeff( 57) *x24 *x43*x51 4 +coeff( 58)*x11*x24*x31 5 +coeff( 59)*x11*x22*x31*x42 6 +coeff( 60)*x11*x22 *x42*x51 7 +coeff( 61) *x32*x43*x54 8 +coeff( 62) *x24*x34*x42 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 63) *x24*x33*x43 1 +coeff( 64) *x24*x32*x44 2 +coeff( 65) *x22*x34*x44 3 +coeff( 66)*x11*x22 *x43*x51 4 +coeff( 67) *x24*x32*x43*x51 5 +coeff( 68) *x22*x34*x43*x51 6 +coeff( 69)*x11 *x31*x44*x51 7 +coeff( 70)*x11 *x31*x42*x53 8 +coeff( 71)*x11*x22*x31*x42*x53 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 72) *x21*x31 1 +coeff( 73) *x21 *x41 2 +coeff( 74) *x31 *x51 3 +coeff( 75) *x22*x31 4 +coeff( 76) *x32*x41 5 +coeff( 77) *x31*x42 6 +coeff( 78) *x31*x41*x51 7 +coeff( 79) *x21 *x52 8 +coeff( 80)*x11 *x41 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 81) *x23*x31*x41 1 +coeff( 82) *x22*x32*x41 2 +coeff( 83) *x34*x41 3 +coeff( 84) *x32*x43 4 +coeff( 85) *x21*x32*x41*x51 5 +coeff( 86) *x21 *x43*x51 6 +coeff( 87)*x11 *x31*x41 7 +coeff( 88) *x24*x31 *x51 8 +coeff( 89) *x23*x31*x41*x51 x_sr9_ep7 =x_sr9_ep7 9 +coeff( 90) *x21*x33*x41*x51 c return end function t_sr9_ep7 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.2407496E+00/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.17123935E-02,-0.73440649E-04, 0.28952250E-01, 0.77744122E-02, + -0.29101011E-02, 0.92611248E-04,-0.14285712E-02, 0.25196373E-03, + 0.13191355E-02, 0.18709670E-03, 0.38665519E-02, 0.16016598E-03, + -0.69020716E-02,-0.12804908E-01,-0.49838301E-01,-0.22033404E-02, + -0.13348421E-03,-0.44345103E-04,-0.76161152E-04,-0.51489862E-03, + 0.16189527E-02,-0.38947135E-01, 0.67962450E-03, 0.61046183E-02, + -0.42291638E-03,-0.65377116E-03, 0.25598376E-03, 0.25560081E-03, + -0.15136355E-03,-0.23109566E-03,-0.17040787E-01,-0.26178048E-02, + -0.18274165E-02,-0.15784574E-02,-0.11968606E-02,-0.31375012E-02, + 0.51348642E-02, 0.28148789E-02,-0.34528736E-02, 0.19263683E-02, + 0.16587575E-02, 0.11120989E-02, 0.18875756E-03,-0.78682693E-04, + -0.28406485E-03, 0.50699324E-04,-0.89620567E-04,-0.21127131E-03, + -0.72300812E-03, 0.36266827E-03, 0.49819599E-03, 0.17527145E-03, + -0.63801524E-02, 0.89570513E-03, 0.18403287E-02,-0.20318589E-03, + -0.95097971E-03, 0.10744415E-02,-0.92296285E-03, 0.10034587E-02, + -0.14284865E-02,-0.29491833E-02, 0.26727156E-03,-0.11310371E-02, + 0.88998373E-03,-0.29472213E-02, 0.18047966E-03, 0.75481588E-03, + -0.59139548E-03,-0.46976592E-03, 0.72997878E-03, 0.27861400E-02, + 0.15771464E-01, 0.21545729E-02, 0.13803041E-01,-0.41880012E-02, + 0.25904286E-02,-0.42240348E-03, 0.24391639E-02,-0.21845156E-02, + 0.11472955E-02, 0.22129035E-02,-0.26329884E-02, 0.20506401E-02, + 0.53701102E-03, 0.40237722E-02,-0.22150767E-02,-0.41602789E-02, + 0.49999021E-02, 0.41278359E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c t_sr9_ep7 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x42 7 +coeff( 7) *x22 *x41 8 +coeff( 8) *x43 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 9) *x22*x31*x41 1 +coeff( 10) *x33*x41 2 +coeff( 11) *x22 *x42 3 +coeff( 12) *x44 4 +coeff( 13) *x22*x31*x42 5 +coeff( 14) *x22 *x43 6 +coeff( 15) *x22 *x44 7 +coeff( 16) *x24*x31*x43 8 +coeff( 17)*x11*x21 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 18) *x31*x43 1 +coeff( 19) *x22 *x41*x51 2 +coeff( 20) *x34*x41 3 +coeff( 21) *x24*x31*x41 4 +coeff( 22) *x22*x31*x43 5 +coeff( 23) *x22*x32 *x52 6 +coeff( 24) *x24*x32*x42 7 +coeff( 25) *x52 8 +coeff( 26)*x11*x21 *x41 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 27) *x32*x42 1 +coeff( 28)*x11*x22*x31 2 +coeff( 29)*x11*x21 *x42 3 +coeff( 30) *x21*x31*x41*x52 4 +coeff( 31) *x22*x32*x42 5 +coeff( 32) *x22 *x43*x51 6 +coeff( 33) *x23 *x41*x52 7 +coeff( 34)*x11*x24*x31 8 +coeff( 35)*x11*x23*x31*x41 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 36) *x23*x33*x41 1 +coeff( 37) *x23*x31*x43 2 +coeff( 38) *x23 *x44 3 +coeff( 39) *x22 *x43*x52 4 +coeff( 40) *x24*x31*x41*x52 5 +coeff( 41)*x11*x24 *x42*x51 6 +coeff( 42)*x11*x21*x32*x41*x54 7 +coeff( 43) *x21 *x41 8 +coeff( 44) *x31 *x51 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 45) *x22*x31 1 +coeff( 46) *x21*x31 *x51 2 +coeff( 47) *x42*x51 3 +coeff( 48)*x11 *x31*x41 4 +coeff( 49)*x11*x22 *x41 5 +coeff( 50)*x11 *x32*x41 6 +coeff( 51) *x21*x32*x42 7 +coeff( 52) *x21 *x42*x52 8 +coeff( 53) *x22*x33*x41 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 54)*x11*x23 *x51 1 +coeff( 55) *x21*x32*x42*x51 2 +coeff( 56) *x23 *x53 3 +coeff( 57) *x21 *x42*x53 4 +coeff( 58)*x11*x22*x33 5 +coeff( 59)*x12*x22 *x41 6 +coeff( 60)*x12*x21*x31*x41 7 +coeff( 61) *x24*x31*x42 8 +coeff( 62)*x11*x21 *x44 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 63)*x12*x22 *x51 1 +coeff( 64) *x24 *x42*x51 2 +coeff( 65) *x23*x31*x41*x52 3 +coeff( 66) *x23 *x42*x52 4 +coeff( 67) *x32*x42*x53 5 +coeff( 68) *x43*x54 6 +coeff( 69)*x12*x22*x32 7 +coeff( 70)*x11*x24*x32 8 +coeff( 71)*x12*x21*x31*x42 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 72) *x23*x32*x43 1 +coeff( 73) *x22*x33*x43 2 +coeff( 74) *x23*x31*x44 3 +coeff( 75) *x22*x32*x44 4 +coeff( 76)*x11*x23*x32 *x51 5 +coeff( 77)*x11*x24 *x41*x51 6 +coeff( 78)*x11*x22*x32*x41*x51 7 +coeff( 79)*x12*x22 *x42*x51 8 +coeff( 80) *x22*x32*x44*x51 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 81)*x11*x22*x32*x41*x52 1 +coeff( 82) *x23*x31*x42*x53 2 +coeff( 83) *x23 *x43*x53 3 +coeff( 84) *x21*x32*x43*x53 4 +coeff( 85)*x12*x21 *x54 5 +coeff( 86)*x11*x23*x34 *x51 6 +coeff( 87)*x11*x23*x31*x42*x52 7 +coeff( 88)*x11*x24 *x41*x53 8 +coeff( 89)*x11*x22*x31*x42*x53 t_sr9_ep7 =t_sr9_ep7 9 +coeff( 90)*x11*x22 *x43*x53 c return end function y_sr9_ep7 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 13) data ncoeff/ 12/ data avdat/ 0.6416058E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.57511555E-03,-0.50955359E-05,-0.10950433E+00,-0.29288204E-02, + -0.54457365E-03, 0.25806187E-02,-0.67296183E-04, 0.11313943E-02, + 0.41060867E-02, 0.34408782E-04, 0.82076881E-02,-0.66678077E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x35 = x34*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 c c function c y_sr9_ep7 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x21 4 +coeff( 4)*x11 5 +coeff( 5) *x21 *x41 6 +coeff( 6) *x21 *x42 7 +coeff( 7) *x21*x33*x41 8 +coeff( 8) *x21*x31*x41 y_sr9_ep7 =y_sr9_ep7 9 +coeff( 9) *x21 *x43 1 +coeff( 10) *x23*x31 2 +coeff( 11) *x21*x33*x42 3 +coeff( 12) *x21*x35*x42 c return end function p_sr9_ep7 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 20) data ncoeff/ 19/ data avdat/ 0.2653055E-03/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.23471910E-03,-0.52687131E-01,-0.11953170E-02,-0.43751343E-03, + -0.30538822E-05, 0.10301727E-01,-0.10740944E-02, 0.61696200E-02, + 0.12943637E-01, 0.12105190E-03, 0.11106618E-02, 0.10890897E-01, + -0.10668831E-03,-0.27508882E-03, 0.13112137E-03, 0.28927680E-03, + 0.46368249E-03, 0.31557940E-02,-0.16171996E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 c c function c p_sr9_ep7 =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x21 *x41 4 +coeff( 4) *x21 *x42 5 +coeff( 5) *x21*x31*x41 6 +coeff( 6) *x21 *x43 7 +coeff( 7) *x23*x31*x42 8 +coeff( 8) *x21*x31*x42 p_sr9_ep7 =p_sr9_ep7 9 +coeff( 9) *x21 *x44 1 +coeff( 10)*x11 2 +coeff( 11) *x21*x32*x41 3 +coeff( 12) *x21*x31*x43 4 +coeff( 13) *x21*x34*x42 5 +coeff( 14) *x21 *x51 6 +coeff( 15)*x11 *x41 7 +coeff( 16) *x21 *x41*x51 8 +coeff( 17) *x21 *x42*x51 p_sr9_ep7 =p_sr9_ep7 9 +coeff( 18) *x21*x32*x42 1 +coeff( 19) *x23 *x43 c return end function l_sr9_ep7 (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 15) data ncoeff/ 14/ data avdat/ 0.2010208E+01/ data xmin/ 1 -0.29988E-02,-0.54973E-01,-0.99991E-02,-0.29895E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54903E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.14060965E-02, 0.24402274E-02, 0.12329650E-01, 0.43996554E-03, + 0.28625014E-02, 0.21618700E-04, 0.91948494E-03, 0.90554910E-04, + -0.59249176E-03, 0.92311180E-04,-0.65486273E-03,-0.14231362E-02, + -0.11603856E-02,-0.92929881E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 c c function c l_sr9_ep7 =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x31*x41 7 +coeff( 7) *x42 8 +coeff( 8) *x22 *x41 l_sr9_ep7 =l_sr9_ep7 9 +coeff( 9) *x22 *x42 1 +coeff( 10) *x43 2 +coeff( 11) *x22*x31*x41 3 +coeff( 12) *x22 *x43 4 +coeff( 13) *x22 *x44 5 +coeff( 14) *x24*x31*x42 c return end function x_sr9_q1ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.5809752E-03/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.82655624E-03, 0.14574797E+00, 0.31411652E-02, 0.35526105E-02, + 0.15467225E-02, 0.15689891E-02, 0.51602023E-03, 0.45048061E-03, + -0.21579945E-01,-0.14941735E-02,-0.48155317E-03,-0.11141815E-01, + -0.24389226E-01, 0.29318864E-03,-0.35534140E-02,-0.20762917E-01, + 0.10775839E-02,-0.29203475E-02,-0.19536254E-02,-0.66788845E-04, + -0.81673115E-02,-0.32476967E-02,-0.32798786E-03,-0.20723061E-03, + 0.14421548E-01,-0.18694219E-02, 0.21653350E-02,-0.94972092E-04, + -0.67803438E-03, 0.10716921E-04,-0.11773617E-02, 0.76871467E-04, + 0.80396039E-02, 0.46272157E-02,-0.97850326E-03,-0.74097415E-03, + -0.43011949E-03,-0.99130617E-02, 0.55252320E-04,-0.28927489E-02, + -0.34970391E-03, 0.19704916E-02, 0.15848888E-02,-0.24405611E-02, + -0.11944987E-02, 0.56149489E-02,-0.53983167E-04, 0.70133578E-05, + -0.21533317E-03, 0.21287304E-03,-0.69631339E-03,-0.10895845E-02, + -0.13893662E-03,-0.57076762E-03, 0.14712927E-02, 0.95973177E-04, + -0.14887658E-02, 0.51741721E-03,-0.69360009E-04,-0.14085429E-03, + 0.25616847E-02, 0.56876894E-03, 0.14616557E-02,-0.64026252E-02, + -0.92107960E-03, 0.34958723E-02,-0.59548457E-03, 0.14617333E-03, + 0.44689051E-03, 0.38141059E-03,-0.73340116E-03,-0.17876812E-02, + -0.12107318E-03, 0.41797635E-03,-0.32884977E-03, 0.52582212E-02, + 0.29970671E-03, 0.23056289E-03, 0.21854902E-02, 0.38516035E-02, + 0.30595148E-02,-0.98878227E-03, 0.15879571E-02, 0.29661861E-03, + -0.17459041E-02, 0.18339333E-02, 0.70810708E-03, 0.92494529E-03, + -0.96645992E-03, 0.72560873E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_q1ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x21 *x41 4 +coeff( 4) *x21 *x51 5 +coeff( 5) *x21 *x42 6 +coeff( 6)*x11 7 +coeff( 7) *x21*x31 8 +coeff( 8) *x21*x31*x41 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 9) *x21 *x43 1 +coeff( 10) *x21*x33*x42 2 +coeff( 11) *x21*x33 3 +coeff( 12) *x21*x31*x42 4 +coeff( 13) *x21 *x44 5 +coeff( 14) *x21 *x41*x51 6 +coeff( 15) *x21*x32*x41 7 +coeff( 16) *x21*x31*x43 8 +coeff( 17) *x21*x34*x42 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 18) *x23 *x41 1 +coeff( 19) *x21 *x42*x51 2 +coeff( 20)*x11 *x41 3 +coeff( 21) *x21*x32*x42 4 +coeff( 22) *x21 *x43*x51 5 +coeff( 23) *x23 *x52 6 +coeff( 24)*x11 *x42 7 +coeff( 25) *x23 *x43 8 +coeff( 26) *x23*x31*x43 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 27) *x23*x32*x43 1 +coeff( 28) *x21*x31 *x51 2 +coeff( 29) *x21*x31*x41*x51 3 +coeff( 30)*x11 *x31 4 +coeff( 31) *x21*x33*x41 5 +coeff( 32)*x11 *x51 6 +coeff( 33) *x23*x31*x42 7 +coeff( 34) *x22*x31*x43 8 +coeff( 35) *x23 *x41*x52 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 36)*x11*x21*x31*x41 1 +coeff( 37)*x11 *x43 2 +coeff( 38) *x23 *x44 3 +coeff( 39)*x11*x21 *x41*x51 4 +coeff( 40) *x22*x33*x43 5 +coeff( 41)*x11*x22*x31*x42 6 +coeff( 42) *x22*x34*x42*x51 7 +coeff( 43) *x22*x33*x41*x53 8 +coeff( 44)*x11*x23 *x42*x52 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 45)*x11*x21*x31*x43*x52 1 +coeff( 46) *x24*x33*x42*x54 2 +coeff( 47) *x41 3 +coeff( 48) *x31 *x51 4 +coeff( 49) *x23 5 +coeff( 50) *x43 6 +coeff( 51) *x23*x31 7 +coeff( 52) *x22*x31*x41 8 +coeff( 53) *x22 *x42 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 54) *x22*x32*x41 1 +coeff( 55) *x23 *x42 2 +coeff( 56) *x31*x44 3 +coeff( 57) *x21*x31*x42*x51 4 +coeff( 58) *x23*x33 5 +coeff( 59)*x11*x21 *x41 6 +coeff( 60)*x11 *x31*x41 7 +coeff( 61) *x23*x32*x41 8 +coeff( 62) *x22*x33*x41 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 63) *x22 *x44 1 +coeff( 64) *x21*x31*x44 2 +coeff( 65) *x21*x32*x42*x51 3 +coeff( 66) *x21 *x44*x51 4 +coeff( 67) *x22 *x42*x52 5 +coeff( 68) *x22 *x54 6 +coeff( 69) *x21 *x41*x54 7 +coeff( 70) *x22*x34*x41 8 +coeff( 71)*x11 *x31*x42 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 72) *x23*x32*x41*x51 1 +coeff( 73)*x11 *x32*x42 2 +coeff( 74)*x11*x21 *x43 3 +coeff( 75)*x11 *x44 4 +coeff( 76) *x21*x33*x44 5 +coeff( 77)*x11*x21*x32 *x51 6 +coeff( 78)*x11*x21*x31*x41*x51 7 +coeff( 79) *x23*x33*x41*x51 8 +coeff( 80) *x23*x32*x42*x51 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 81) *x23*x31*x43*x51 1 +coeff( 82) *x24 *x42*x52 2 +coeff( 83) *x22*x32*x42*x52 3 +coeff( 84) *x22*x33 *x53 4 +coeff( 85) *x23*x31*x41*x53 5 +coeff( 86) *x21*x31*x43*x53 6 +coeff( 87)*x11*x21*x33*x41 7 +coeff( 88) *x24*x34*x41 8 +coeff( 89) *x24*x33*x42 x_sr9_q1ex =x_sr9_q1ex 9 +coeff( 90)*x11 *x31*x44 c return end function t_sr9_q1ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 51) data ncoeff/ 50/ data avdat/ 0.6372276E-04/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.76786462E-04,-0.74761170E-02,-0.12016650E-02, 0.81533683E-03, + 0.29110920E-02, 0.49526407E-03, 0.23637673E-04,-0.26517191E-02, + -0.57876119E-02,-0.30350540E-03, 0.92710907E-04,-0.24346229E-03, + -0.59128460E-03,-0.77597117E-02, 0.16808840E-02,-0.21206493E-03, + -0.15863522E-03,-0.12056033E-03,-0.16480530E-03,-0.63668648E-02, + 0.42557842E-02, 0.11882744E-02, 0.23829592E-04, 0.91957654E-05, + 0.60480073E-04,-0.45411554E-04,-0.73541443E-04,-0.23574210E-02, + -0.81779243E-03,-0.12808418E-04,-0.17952125E-04,-0.56570303E-03, + 0.80348298E-04,-0.73015181E-04,-0.12518886E-03,-0.28042353E-03, + -0.13950210E-02,-0.13907161E-03, 0.38679435E-04,-0.41875965E-03, + 0.11396645E-03, 0.14623846E-02,-0.13828430E-02,-0.17756337E-03, + 0.13857186E-03, 0.43547057E-03,-0.63847704E-03, 0.43872974E-03, + 0.51185850E-03,-0.75235107E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 c c function c t_sr9_q1ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3)*x11 4 +coeff( 4) *x21 *x41 5 +coeff( 5) *x21 *x51 6 +coeff( 6) *x21 *x42 7 +coeff( 7) *x23*x31 8 +coeff( 8) *x21*x31*x42 t_sr9_q1ex =t_sr9_q1ex 9 +coeff( 9) *x21 *x43 1 +coeff( 10) *x23*x31*x41 2 +coeff( 11) *x21*x31*x41 3 +coeff( 12) *x21 *x41*x51 4 +coeff( 13) *x21*x32*x41 5 +coeff( 14) *x21 *x44 6 +coeff( 15) *x23*x31*x43 7 +coeff( 16) *x23 8 +coeff( 17) *x21 *x52 t_sr9_q1ex =t_sr9_q1ex 9 +coeff( 18)*x11 *x42 1 +coeff( 19) *x21 *x42*x51 2 +coeff( 20) *x21*x31*x43 3 +coeff( 21) *x23 *x43 4 +coeff( 22) *x23*x32*x42 5 +coeff( 23) *x21*x32 6 +coeff( 24)*x11 *x41 7 +coeff( 25)*x11 *x51 8 +coeff( 26) *x21*x31 *x51 t_sr9_q1ex =t_sr9_q1ex 9 +coeff( 27) *x23*x32 1 +coeff( 28) *x21*x32*x42 2 +coeff( 29) *x21 *x43*x51 3 +coeff( 30)*x11 *x31 4 +coeff( 31) *x21*x33 5 +coeff( 32) *x23 *x41 6 +coeff( 33) *x23 *x51 7 +coeff( 34) *x21*x31*x41*x51 8 +coeff( 35)*x11*x21*x31*x41 t_sr9_q1ex =t_sr9_q1ex 9 +coeff( 36) *x21*x33*x41 1 +coeff( 37) *x23 *x42 2 +coeff( 38)*x11 *x43 3 +coeff( 39)*x11*x21 *x41*x51 4 +coeff( 40) *x21*x31*x42*x51 5 +coeff( 41)*x11*x21*x32*x41 6 +coeff( 42) *x23*x31*x42 7 +coeff( 43) *x21*x31*x44 8 +coeff( 44)*x11*x22*x31*x42 t_sr9_q1ex =t_sr9_q1ex 9 +coeff( 45) *x22*x31*x44 1 +coeff( 46) *x23*x34*x41 2 +coeff( 47) *x21*x34*x43 3 +coeff( 48)*x12*x23 *x42*x51 4 +coeff( 49)*x11*x23*x32*x42*x51 5 +coeff( 50) *x23*x34*x43*x51 c return end function y_sr9_q1ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 84) data ncoeff/ 83/ data avdat/ 0.3260128E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.38240722E-02, 0.14266055E-01, 0.15225346E+00, 0.22757558E-01, + 0.19670974E-02,-0.77779950E-02,-0.13034417E-02,-0.46069236E-03, + -0.22463219E-01, 0.10257931E-02,-0.20140098E-04,-0.96840953E-03, + -0.55211922E-03,-0.24777684E-01,-0.15633187E-02, 0.30770712E-03, + 0.43836725E-02,-0.48629052E-04, 0.53312141E-01, 0.12634362E+00, + 0.15211254E-02,-0.89675739E-01, 0.59748251E-01,-0.11276194E+00, + -0.16422354E-03, 0.66975434E-03,-0.89478225E-03, 0.17499131E-02, + 0.22989381E-02,-0.18265985E-01,-0.56011319E-01,-0.80202293E-03, + -0.25122681E+00,-0.20180333E-01,-0.70152089E-01,-0.27914197E-03, + -0.21234662E-02, 0.32541712E-02,-0.28995145E-02, 0.78201614E-03, + -0.12576610E-02,-0.31893092E-03,-0.11634666E-01,-0.11162947E-01, + -0.96499413E-01,-0.23283014E+00,-0.52368108E-01, 0.11054832E-02, + 0.12834211E+00, 0.15562098E-01, 0.63741725E-03,-0.35475798E-04, + -0.35247046E-02,-0.10045933E-01,-0.80182472E-04,-0.47627105E-02, + 0.10785257E-01,-0.52185263E-03, 0.16073046E-01, 0.46389732E-02, + -0.12017106E-01,-0.20619869E-01,-0.48361518E-02, 0.21091192E-02, + -0.51469048E-02, 0.86706653E-02, 0.24048446E-02,-0.12754228E-02, + -0.14849699E-02,-0.10392033E-01,-0.39414740E-02,-0.15852654E-01, + 0.26378252E-01,-0.17058598E-02, 0.92558013E-02,-0.18265651E-02, + -0.80401730E-02, 0.10175533E-02, 0.80164336E-02, 0.79642078E-02, + 0.64995741E-02,-0.21397225E-02,-0.70273401E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x35 = x34*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x45 = x44*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c y_sr9_q1ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x42 6 +coeff( 6) *x22 7 +coeff( 7) *x52 8 +coeff( 8) *x43 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 9) *x22 *x41 1 +coeff( 10) *x33*x41 2 +coeff( 11) *x31*x43 3 +coeff( 12) *x44 4 +coeff( 13) *x43*x51 5 +coeff( 14) *x22 *x42 6 +coeff( 15)*x11*x21 *x41 7 +coeff( 16) *x31*x44 8 +coeff( 17) *x45 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 18) *x22*x33 1 +coeff( 19) *x22*x31*x42 2 +coeff( 20) *x22 *x43 3 +coeff( 21) *x22*x33*x41 4 +coeff( 22) *x22 *x44 5 +coeff( 23) *x24*x31*x43 6 +coeff( 24) *x24 *x45 7 +coeff( 25) *x32 8 +coeff( 26) *x32*x41 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 27)*x11*x21 1 +coeff( 28)*x11*x21 *x42 2 +coeff( 29) *x24 *x41 3 +coeff( 30) *x22*x32*x42 4 +coeff( 31) *x22*x31*x43 5 +coeff( 32) *x22 *x43*x51 6 +coeff( 33) *x22 *x45 7 +coeff( 34) *x22*x31*x45 8 +coeff( 35) *x24*x31*x44 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 36) *x31 *x51 1 +coeff( 37) *x41*x51 2 +coeff( 38) *x31*x42 3 +coeff( 39) *x32*x43 4 +coeff( 40) *x44*x51 5 +coeff( 41)*x11*x21*x31*x41 6 +coeff( 42) *x21*x31*x41*x52 7 +coeff( 43) *x24 *x42 8 +coeff( 44) *x22*x31*x41*x52 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 45) *x22*x32*x43 1 +coeff( 46) *x22*x31*x44 2 +coeff( 47) *x22 *x44*x51 3 +coeff( 48) *x24*x32*x41 4 +coeff( 49) *x24 *x44 5 +coeff( 50) *x24*x31*x41*x54 6 +coeff( 51) *x33 7 +coeff( 52) *x31*x41*x51 8 +coeff( 53) *x22*x31 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 54) *x22*x31*x41 1 +coeff( 55)*x11*x21*x31 2 +coeff( 56) *x33*x42 3 +coeff( 57) *x22*x32*x41 4 +coeff( 58)*x11 *x31*x42 5 +coeff( 59) *x22 *x42*x51 6 +coeff( 60) *x22*x31 *x52 7 +coeff( 61)*x11*x21 *x44 8 +coeff( 62) *x22*x31*x43*x51 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 63) *x22*x33 *x52 1 +coeff( 64)*x11*x23*x32 2 +coeff( 65)*x11*x23*x31*x41 3 +coeff( 66) *x24*x31*x41*x51 4 +coeff( 67)*x11*x22 *x42*x51 5 +coeff( 68)*x12*x22*x31 6 +coeff( 69)*x11*x24*x31 7 +coeff( 70) *x22*x35*x41 8 +coeff( 71) *x22*x33*x42*x51 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 72) *x22*x32*x43*x51 1 +coeff( 73) *x22 *x45*x51 2 +coeff( 74) *x21 *x45*x52 3 +coeff( 75) *x22*x33*x41*x52 4 +coeff( 76)*x11 *x31*x43*x52 5 +coeff( 77)*x11*x23*x31*x42 6 +coeff( 78)*x11 *x35 *x52 7 +coeff( 79)*x11*x23*x33*x41 8 +coeff( 80)*x12*x21*x32*x42 y_sr9_q1ex =y_sr9_q1ex 9 +coeff( 81)*x12*x21*x31*x43 1 +coeff( 82) *x23*x34 *x52 2 +coeff( 83) *x22 *x44*x53 c return end function p_sr9_q1ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ 0.1442201E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.88856218E-03, 0.44626659E-02, 0.65539896E-01, 0.12192890E-01, + -0.51865112E-02, 0.14280219E-03,-0.17530664E-02, 0.19129734E-02, + 0.12719363E-02,-0.29090079E-02, 0.51453267E-03, 0.27493882E-03, + 0.25461239E-03,-0.12781332E-01,-0.44535324E-01,-0.80012326E-03, + -0.91097021E-03,-0.12649233E-03,-0.47030773E-01,-0.39490130E-01, + 0.59238097E-04,-0.29357066E-03,-0.35002962E-03, 0.12625507E-02, + -0.67581132E-04, 0.96896786E-03,-0.18862321E-02, 0.91522569E-02, + -0.20312162E-01,-0.37047502E-01,-0.36375767E-02, 0.10238298E-01, + -0.34584722E-03,-0.32478562E-03, 0.23843229E-03, 0.31235412E-03, + -0.35059275E-03,-0.68302946E-02,-0.74036630E-04,-0.89303143E-02, + 0.53293731E-01,-0.89900447E-02, 0.67452301E-03, 0.10032355E-02, + 0.35641619E-02,-0.28581580E-02,-0.25104480E-02,-0.73610455E-01, + -0.78663463E-02, 0.17559401E-02, 0.14777075E-01, 0.11421299E-01, + -0.86284505E-03, 0.11760364E-01,-0.10821468E-01, 0.99419206E-02, + 0.19541765E-01, 0.22350268E-02, 0.14413564E-01, 0.23488744E-03, + 0.28708487E-03, 0.45227451E-03, 0.10274790E-02, 0.11068715E-03, + -0.13707097E-02,-0.10335662E-01,-0.48201674E-03,-0.10882756E-02, + 0.16507467E-01,-0.93576981E-03,-0.12051188E-02, 0.17646884E-02, + 0.28562115E-02,-0.29448204E-03,-0.22410087E-02, 0.44704214E-03, + 0.49844855E-02,-0.35887298E-02, 0.29167912E-02,-0.70364247E-02, + -0.10631478E-02,-0.41980618E-02, 0.21488375E-02, 0.11568534E-02, + 0.41696135E-03, 0.98583032E-03, 0.17173477E-02,-0.38494237E-02, + -0.10629614E-02, 0.46180791E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c p_sr9_q1ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x42 7 +coeff( 7) *x41*x51 8 +coeff( 8) *x22 *x41 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 9) *x43 1 +coeff( 10) *x22*x31*x41 2 +coeff( 11) *x33*x41 3 +coeff( 12) *x22 *x42 4 +coeff( 13) *x44 5 +coeff( 14) *x22*x31*x42 6 +coeff( 15) *x22 *x43 7 +coeff( 16) *x52 8 +coeff( 17)*x11*x21 *x41 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 18) *x31*x43 1 +coeff( 19) *x22 *x44 2 +coeff( 20) *x24*x31*x43 3 +coeff( 21) *x32 4 +coeff( 22)*x11*x21 5 +coeff( 23) *x32*x41 6 +coeff( 24)*x11*x21 *x42 7 +coeff( 25) *x22 *x42*x51 8 +coeff( 26) *x22 *x41*x52 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 27)*x11*x22*x31*x41 1 +coeff( 28) *x24*x31*x41 2 +coeff( 29) *x22*x32*x42 3 +coeff( 30) *x22*x31*x43 4 +coeff( 31)*x11*x23*x31*x42 5 +coeff( 32) *x23*x31*x42*x52 6 +coeff( 33) *x31 *x51 7 +coeff( 34) *x22*x31 8 +coeff( 35) *x43*x51 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 36)*x11*x22 *x51 1 +coeff( 37) *x23*x33 2 +coeff( 38) *x22*x33*x41 3 +coeff( 39)*x11*x22 *x41*x51 4 +coeff( 40) *x22 *x43*x51 5 +coeff( 41) *x24 *x43 6 +coeff( 42)*x11*x21 *x44 7 +coeff( 43)*x12*x22 *x51 8 +coeff( 44) *x23*x33 *x51 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 45) *x24*x31 *x52 1 +coeff( 46) *x22*x33 *x52 2 +coeff( 47) *x24 *x41*x52 3 +coeff( 48) *x24 *x44 4 +coeff( 49) *x21*x31*x42*x54 5 +coeff( 50)*x11*x22*x34*x41 6 +coeff( 51) *x24*x33*x42 7 +coeff( 52) *x24*x32*x43 8 +coeff( 53)*x11*x24 *x44 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 54)*x12*x22 *x43*x51 1 +coeff( 55)*x11*x24 *x42*x52 2 +coeff( 56)*x11*x22*x32*x42*x52 3 +coeff( 57)*x12*x23*x31*x43 4 +coeff( 58) *x23*x34*x44 5 +coeff( 59)*x11*x24 *x44*x51 6 +coeff( 60) *x21*x31*x41 7 +coeff( 61) *x24 8 +coeff( 62) *x23 *x41 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 63) *x22 *x41*x51 1 +coeff( 64) *x21 *x41*x52 2 +coeff( 65) *x24*x31 3 +coeff( 66) *x24 *x41 4 +coeff( 67) *x23*x31*x41 5 +coeff( 68) *x22*x32*x41 6 +coeff( 69) *x24 *x42 7 +coeff( 70)*x12 *x41*x51 8 +coeff( 71) *x23 *x41*x52 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 72) *x22*x31*x41*x52 1 +coeff( 73) *x21*x31*x42*x52 2 +coeff( 74) *x21 *x42*x53 3 +coeff( 75) *x23*x33*x41 4 +coeff( 76)*x12*x21 *x42 5 +coeff( 77) *x24*x31*x42 6 +coeff( 78)*x11*x21*x31*x43 7 +coeff( 79) *x23 *x44 8 +coeff( 80) *x22*x31*x44 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 81)*x11*x21*x32*x41*x51 1 +coeff( 82)*x11*x22 *x42*x51 2 +coeff( 83)*x11 *x32*x42*x51 3 +coeff( 84)*x11 *x31*x43*x51 4 +coeff( 85)*x11 *x33 *x52 5 +coeff( 86)*x11*x22 *x41*x52 6 +coeff( 87)*x11*x21*x31*x41*x52 7 +coeff( 88) *x23 *x42*x52 8 +coeff( 89) *x21 *x43*x53 p_sr9_q1ex =p_sr9_q1ex 9 +coeff( 90) *x23 *x54 c return end function l_sr9_q1ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 30) data ncoeff/ 29/ data avdat/ 0.3932557E+01/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49940E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.22116851E-02, 0.72451322E-02, 0.13844146E-03, 0.38948173E-02, + -0.64978703E-05, 0.26556649E-03, 0.33486253E-02, 0.10928643E-02, + -0.37236739E-03, 0.14017418E-04, 0.37670568E-04,-0.14442971E-03, + 0.37365469E-04,-0.12338430E-02,-0.21714348E-03, 0.72602093E-05, + 0.42478219E-03, 0.14926132E-04,-0.10680567E-03,-0.11724143E-03, + -0.38682213E-02,-0.19965457E-04,-0.27685088E-04,-0.15737269E-02, + 0.15978704E-02,-0.97585184E-03, 0.89662142E-04,-0.12095530E-03, + -0.41287037E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x51 = x5 x52 = x51*x5 c c function c l_sr9_q1ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x41 3 +coeff( 3) *x51 4 +coeff( 4) *x22 5 +coeff( 5) *x32 6 +coeff( 6) *x31*x41 7 +coeff( 7) *x42 8 +coeff( 8) *x41*x51 l_sr9_q1ex =l_sr9_q1ex 9 +coeff( 9) *x22*x31 1 +coeff( 10) *x33 2 +coeff( 11) *x22 *x41 3 +coeff( 12) *x31*x42 4 +coeff( 13) *x31 *x52 5 +coeff( 14) *x22 *x42 6 +coeff( 15) *x22 *x41*x51 7 +coeff( 16)*x12 *x31 8 +coeff( 17) *x24*x31 l_sr9_q1ex =l_sr9_q1ex 9 +coeff( 18) *x22*x33 1 +coeff( 19) *x34*x41 2 +coeff( 20) *x33*x42 3 +coeff( 21) *x22 *x43 4 +coeff( 22) *x33 *x52 5 +coeff( 23)*x12 *x33 6 +coeff( 24) *x24*x31*x42 7 +coeff( 25) *x31 8 +coeff( 26) *x22 *x42*x51 l_sr9_q1ex =l_sr9_q1ex 9 +coeff( 27) *x52 1 +coeff( 28)*x11*x21 *x41 2 +coeff( 29) *x22*x31*x41 c return end function x_sr9_dent (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.5099878E+01/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.40090326E-03,-0.13124694E+00,-0.56692255E-02,-0.67128795E-02, + -0.11060509E-02, 0.19959288E-02, 0.41555552E-03, 0.40037036E-02, + -0.55280549E-03, 0.39787851E-01,-0.14280654E-01, 0.21276060E-01, + 0.48491247E-01, 0.83907723E-03, 0.23015551E-03, 0.49148952E-02, + 0.40461157E-01, 0.50168997E-02, 0.14321835E-03,-0.28832829E-01, + -0.25466441E-02,-0.48468569E-02, 0.83342100E-04, 0.16880527E-03, + 0.10960621E-02, 0.54259493E-03, 0.35233021E-03,-0.11228074E-03, + 0.14208923E-01,-0.27061140E-03, 0.51077706E-03, 0.80225221E-03, + -0.51670033E-02, 0.93278452E-03, 0.14042429E-01,-0.99186820E-03, + -0.28341645E-03, 0.45444211E-03, 0.18786751E-03, 0.46194666E-02, + -0.78770961E-03,-0.68708207E-04, 0.23415330E-04, 0.23524216E-02, + -0.21006949E-02,-0.17819917E-03,-0.31730945E-02, 0.74991779E-02, + -0.92318986E-03, 0.13421256E-02,-0.30870140E-02,-0.39734659E-02, + 0.60057943E-02, 0.10551568E-02,-0.72272599E-03,-0.83494885E-03, + 0.39229315E-03, 0.39446403E-03, 0.15440471E-02, 0.95811015E-03, + 0.74761425E-03,-0.71072654E-03,-0.27183443E-03,-0.24199091E-03, + -0.23154629E-03,-0.39359095E-03, 0.20434940E-02, 0.10060850E-02, + 0.42052881E-03,-0.12581992E-02,-0.39856923E-02,-0.54609467E-03, + 0.18139447E-02,-0.20627107E-02,-0.13093636E-02, 0.47668329E-03, + -0.37951939E-03, 0.20023482E-02, 0.14478106E-02,-0.43278417E-03, + -0.32175105E-03, 0.26316603E-03,-0.76905981E-03, 0.55731687E-03, + -0.16015542E-02,-0.16127574E-02,-0.52489364E-03, 0.14300779E-02, + -0.90307376E-03, 0.42434337E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_dent =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x21 *x41 4 +coeff( 4) *x21 *x51 5 +coeff( 5) *x21 *x42 6 +coeff( 6)*x11 7 +coeff( 7) *x23*x31*x41 8 +coeff( 8) *x22 x_sr9_dent =x_sr9_dent 9 +coeff( 9) *x21*x31*x41 1 +coeff( 10) *x21 *x43 2 +coeff( 11) *x23*x31*x42 3 +coeff( 12) *x21*x31*x42 4 +coeff( 13) *x21 *x44 5 +coeff( 14) *x23 *x41*x51 6 +coeff( 15) *x42 7 +coeff( 16) *x21*x32*x41 8 +coeff( 17) *x21*x31*x43 x_sr9_dent =x_sr9_dent 9 +coeff( 18) *x21 *x43*x51 1 +coeff( 19) *x21*x32 *x52 2 +coeff( 20) *x23 *x43 3 +coeff( 21) *x23*x32*x42 4 +coeff( 22) *x23*x32*x43 5 +coeff( 23) *x41 6 +coeff( 24) *x31*x41 7 +coeff( 25) *x23 8 +coeff( 26) *x21*x31 *x51 x_sr9_dent =x_sr9_dent 9 +coeff( 27) *x22 *x42 1 +coeff( 28)*x11 *x41 2 +coeff( 29) *x21*x32*x42 3 +coeff( 30)*x11 *x51 4 +coeff( 31) *x23 *x52 5 +coeff( 32)*x11 *x42 6 +coeff( 33) *x22*x31*x43 7 +coeff( 34)*x11*x21*x31*x41 8 +coeff( 35) *x23 *x44 x_sr9_dent =x_sr9_dent 9 +coeff( 36) *x21*x31 1 +coeff( 37) *x43 2 +coeff( 38) *x22 *x51 3 +coeff( 39) *x21 *x41*x51 4 +coeff( 40) *x23 *x41 5 +coeff( 41) *x44 6 +coeff( 42) *x22 *x41*x51 7 +coeff( 43)*x11 *x31 8 +coeff( 44) *x21*x33*x41 x_sr9_dent =x_sr9_dent 9 +coeff( 45) *x22 *x43 1 +coeff( 46) *x32 *x53 2 +coeff( 47) *x22*x32*x42 3 +coeff( 48) *x21*x31*x44 4 +coeff( 49) *x23 *x53 5 +coeff( 50)*x11 *x43 6 +coeff( 51) *x22*x31*x44 7 +coeff( 52) *x23*x34*x41 8 +coeff( 53) *x21*x34*x43 x_sr9_dent =x_sr9_dent 9 +coeff( 54)*x11*x22*x31*x42 1 +coeff( 55)*x11*x23 *x41*x51 2 +coeff( 56)*x11*x21*x34*x41 3 +coeff( 57) *x22 *x41 4 +coeff( 58) *x21 *x52 5 +coeff( 59) *x23*x31 6 +coeff( 60) *x21*x33 7 +coeff( 61) *x22*x31*x41 8 +coeff( 62) *x31*x43 x_sr9_dent =x_sr9_dent 9 +coeff( 63) *x22*x31 *x51 1 +coeff( 64) *x32*x41*x51 2 +coeff( 65)*x11*x21 3 +coeff( 66) *x21*x33 *x51 4 +coeff( 67) *x21*x31*x42*x51 5 +coeff( 68) *x21 *x41*x53 6 +coeff( 69) *x24*x32 7 +coeff( 70) *x23*x33 8 +coeff( 71) *x22 *x44 x_sr9_dent =x_sr9_dent 9 +coeff( 72) *x23 *x42*x51 1 +coeff( 73) *x21*x32*x42*x51 2 +coeff( 74) *x21 *x44*x51 3 +coeff( 75) *x23*x31 *x52 4 +coeff( 76) *x21*x33 *x52 5 +coeff( 77) *x22*x31*x41*x52 6 +coeff( 78) *x22 *x42*x52 7 +coeff( 79) *x21*x31*x42*x52 8 +coeff( 80) *x32*x42*x52 x_sr9_dent =x_sr9_dent 9 +coeff( 81) *x22 *x54 1 +coeff( 82)*x11*x23 2 +coeff( 83) *x22*x34*x41 3 +coeff( 84)*x11 *x31*x42 4 +coeff( 85) *x23*x31*x42*x51 5 +coeff( 86) *x22*x32*x42*x51 6 +coeff( 87) *x21*x33*x41*x52 7 +coeff( 88) *x23 *x42*x52 8 +coeff( 89) *x22*x31*x41*x53 x_sr9_dent =x_sr9_dent 9 +coeff( 90)*x11*x23 *x41 c return end function t_sr9_dent (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 49) data ncoeff/ 48/ data avdat/ 0.1299656E+01/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.13795277E-02, 0.59138861E-01,-0.12660134E-02, 0.42807837E-02, + 0.24907417E-02, 0.29903641E-02,-0.52248366E-03,-0.49244810E-03, + 0.11921939E-01, 0.65886491E-03, 0.65082342E-04,-0.13281034E-02, + -0.11082209E-01,-0.19048372E-01,-0.90928639E-04, 0.26342665E-04, + -0.11218555E-02,-0.20350432E-02,-0.24452090E-01,-0.20409487E-02, + 0.45757545E-02,-0.33183140E-03, 0.52034913E-03,-0.93023834E-03, + 0.25496021E-03,-0.41584868E-03,-0.44286993E-03,-0.32865471E-03, + -0.21194378E-01, 0.12020090E-02, 0.17727037E-03,-0.19087945E-03, + 0.50618551E-05, 0.16822513E-03, 0.46175075E-03,-0.49037032E-03, + -0.76002389E-03,-0.31051057E-03,-0.93057152E-03,-0.88443970E-02, + -0.17275382E-02,-0.99402643E-03, 0.70232213E-02,-0.73359412E-03, + -0.86335425E-03, 0.31456666E-02,-0.46772943E-02,-0.66560274E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 c c function c t_sr9_dent =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3)*x11 4 +coeff( 4) *x22 5 +coeff( 5) *x21 *x41 6 +coeff( 6) *x21 *x51 7 +coeff( 7) *x21 *x42 8 +coeff( 8) *x23*x31*x41 t_sr9_dent =t_sr9_dent 9 +coeff( 9) *x23 *x43 1 +coeff( 10) *x51 2 +coeff( 11) *x21*x31 3 +coeff( 12) *x23 *x41 4 +coeff( 13) *x21*x31*x42 5 +coeff( 14) *x21 *x43 6 +coeff( 15) *x22 *x41 7 +coeff( 16) *x21*x31*x41 8 +coeff( 17) *x21 *x41*x51 t_sr9_dent =t_sr9_dent 9 +coeff( 18) *x21*x32*x41 1 +coeff( 19) *x21 *x44 2 +coeff( 20) *x24 *x42 3 +coeff( 21) *x23*x31*x43 4 +coeff( 22) *x31*x41 5 +coeff( 23) *x41*x51 6 +coeff( 24) *x23 7 +coeff( 25) *x21*x32 8 +coeff( 26) *x21 *x52 t_sr9_dent =t_sr9_dent 9 +coeff( 27)*x11 *x42 1 +coeff( 28)*x11*x23 2 +coeff( 29) *x21*x31*x43 3 +coeff( 30) *x21*x34*x42 4 +coeff( 31) *x41 5 +coeff( 32)*x11 *x41 6 +coeff( 33) *x43 7 +coeff( 34)*x11 *x51 8 +coeff( 35) *x42*x51 t_sr9_dent =t_sr9_dent 9 +coeff( 36) *x22*x31*x41 1 +coeff( 37) *x22 *x41*x51 2 +coeff( 38) *x21*x34 3 +coeff( 39) *x21*x33*x41 4 +coeff( 40) *x21*x32*x42 5 +coeff( 41) *x22 *x43 6 +coeff( 42) *x21 *x43*x51 7 +coeff( 43) *x23*x31*x42 8 +coeff( 44)*x11*x23*x31*x41 t_sr9_dent =t_sr9_dent 9 +coeff( 45)*x11*x22*x31*x42 1 +coeff( 46) *x23*x32*x42 2 +coeff( 47) *x23 *x44 3 +coeff( 48) *x23*x31*x44 c return end function y_sr9_dent (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 96) data ncoeff/ 95/ data avdat/ 0.3000972E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.39000966E-03, 0.27605484E-02, 0.10746596E+00, 0.25167568E-01, + 0.21880716E-02, 0.53163655E-02, 0.98942558E-03, 0.15456825E-01, + 0.26123953E-04,-0.85310983E-02,-0.29300945E-03,-0.41409740E-02, + -0.77616470E-03,-0.63786667E-03,-0.25104998E-01,-0.25323683E-02, + -0.45181788E-03,-0.18887687E-02, 0.57425670E-03,-0.13918249E-02, + -0.34118984E-02, 0.41803858E-04,-0.17459918E-01,-0.54415960E-01, + -0.15863362E-02,-0.20295801E-03,-0.55302633E-02, 0.96828695E-02, + -0.24237509E-02, 0.73569283E-01, 0.13444453E+00, 0.12358670E-01, + -0.12730640E-01, 0.35442782E-02, 0.33319856E-02,-0.32318711E+00, + -0.33160084E+00, 0.28055753E-02,-0.41675169E-01,-0.16524278E-01, + -0.51121239E-01, 0.18946140E-02,-0.54546413E-02,-0.21031491E-01, + -0.84663723E-02, 0.28080456E-01,-0.16306641E-01,-0.66962726E-01, + 0.15627650E-02,-0.21038321E-03,-0.22872293E-04, 0.53909834E-03, + 0.26305183E-03, 0.54948957E-03,-0.18938365E-02, 0.94938785E-03, + -0.73707703E-03, 0.85512605E-04, 0.12678953E-02, 0.43723006E-02, + 0.23070516E-03,-0.37232153E-02,-0.15952648E-02,-0.14539054E-02, + 0.17419980E-02,-0.48614270E-02, 0.13361947E-02,-0.10540358E+00, + -0.18378681E-02, 0.13252964E-02,-0.82843127E-02,-0.22265829E-01, + 0.40641534E-02, 0.96019059E-02, 0.19868040E-01, 0.52404911E-02, + -0.20361336E-01, 0.23598464E-02,-0.13436341E-01,-0.34044497E-03, + 0.72209211E-03,-0.51472912E-03, 0.16304423E-02, 0.11505010E-02, + 0.73626013E-02, 0.16903767E-01,-0.66177589E-02, 0.15678862E-02, + 0.18438250E-02,-0.79162223E-02, 0.45014098E-02, 0.26322703E-02, + -0.14959034E-02,-0.39951588E-03, 0.54670377E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x35 = x34*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x45 = x44*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c y_sr9_dent =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x42 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x31 *x51 8 +coeff( 8) *x41*x51 y_sr9_dent =y_sr9_dent 9 +coeff( 9)*x11 1 +coeff( 10) *x22 2 +coeff( 11) *x32*x41 3 +coeff( 12) *x43 4 +coeff( 13) *x21*x31*x41 5 +coeff( 14) *x42*x51 6 +coeff( 15) *x22 *x41 7 +coeff( 16) *x41*x52 8 +coeff( 17)*x11*x21 y_sr9_dent =y_sr9_dent 9 +coeff( 18) *x22 *x51 1 +coeff( 19) *x33*x41 2 +coeff( 20) *x31*x43 3 +coeff( 21) *x44 4 +coeff( 22) *x21*x31*x42 5 +coeff( 23) *x22*x31*x41 6 +coeff( 24) *x22 *x42 7 +coeff( 25)*x11*x21 *x41 8 +coeff( 26) *x22 *x41*x51 y_sr9_dent =y_sr9_dent 9 +coeff( 27) *x33*x42 1 +coeff( 28) *x45 2 +coeff( 29) *x22*x33 3 +coeff( 30) *x22*x31*x42 4 +coeff( 31) *x22 *x43 5 +coeff( 32) *x22 *x42*x51 6 +coeff( 33) *x22 *x44 7 +coeff( 34) *x33*x44 8 +coeff( 35) *x23 *x41*x52 y_sr9_dent =y_sr9_dent 9 +coeff( 36) *x22*x31*x44 1 +coeff( 37) *x22 *x45 2 +coeff( 38)*x11*x23 *x42 3 +coeff( 39) *x22*x34*x43 4 +coeff( 40) *x22*x32*x45 5 +coeff( 41) *x22*x35*x44 6 +coeff( 42) *x52 7 +coeff( 43) *x22*x31 8 +coeff( 44) *x22*x31*x43 y_sr9_dent =y_sr9_dent 9 +coeff( 45)*x11*x21*x31*x42 1 +coeff( 46) *x24 *x42 2 +coeff( 47)*x11*x21 *x44 3 +coeff( 48) *x22 *x44*x51 4 +coeff( 49) *x24*x31*x41*x51 5 +coeff( 50) *x21 6 +coeff( 51) *x32 7 +coeff( 52) *x21*x31 8 +coeff( 53) *x21 *x51 y_sr9_dent =y_sr9_dent 9 +coeff( 54) *x21 *x43 1 +coeff( 55) *x22*x32 2 +coeff( 56) *x32*x43 3 +coeff( 57) *x31*x43*x51 4 +coeff( 58)*x11*x21*x31*x41 5 +coeff( 59) *x21*x31*x41*x52 6 +coeff( 60) *x22*x31 *x52 7 +coeff( 61) *x22*x31*x42*x51 8 +coeff( 62)*x11*x21 *x42*x51 y_sr9_dent =y_sr9_dent 9 +coeff( 63)*x11 *x31*x41*x52 1 +coeff( 64) *x22 *x42*x52 2 +coeff( 65)*x11*x22*x31 *x51 3 +coeff( 66) *x22 *x41*x53 4 +coeff( 67) *x22*x34*x41 5 +coeff( 68) *x22*x32*x43 6 +coeff( 69) *x35 *x52 7 +coeff( 70)*x11*x21 *x53 8 +coeff( 71)*x11*x21*x31*x43 y_sr9_dent =y_sr9_dent 9 +coeff( 72) *x22*x31*x43*x51 1 +coeff( 73)*x11*x22 *x42*x51 2 +coeff( 74)*x11*x21*x33*x42 3 +coeff( 75) *x22 *x45*x51 4 +coeff( 76)*x12*x21*x31*x42 5 +coeff( 77) *x23 *x43*x52 6 +coeff( 78) *x23 *x42*x53 7 +coeff( 79) *x23 *x45*x53 8 +coeff( 80) *x21 *x52 y_sr9_dent =y_sr9_dent 9 +coeff( 81) *x21*x32 *x51 1 +coeff( 82) *x21*x31 *x52 2 +coeff( 83) *x41*x53 3 +coeff( 84) *x35 4 +coeff( 85) *x31*x44 5 +coeff( 86) *x22*x32*x41 6 +coeff( 87) *x24 *x41 7 +coeff( 88) *x41*x54 8 +coeff( 89) *x21*x35 y_sr9_dent =y_sr9_dent 9 +coeff( 90) *x21*x33*x42 1 +coeff( 91) *x21*x31*x44 2 +coeff( 92) *x21 *x43*x52 3 +coeff( 93) *x32*x41*x53 4 +coeff( 94)*x12 *x32 5 +coeff( 95) *x24*x31*x41 c return end function p_sr9_dent (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.3159719E-03/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.83501154E-03,-0.33154304E-02,-0.22558082E-01,-0.19458202E-02, + 0.89936220E-03,-0.35458142E-02,-0.83763996E-03, 0.43308898E-02, + 0.81651489E-03,-0.17892300E-02,-0.37664591E-03,-0.35689893E-03, + -0.28860194E-02, 0.71220251E-03, 0.62690151E-03, 0.17314494E-01, + 0.37087768E-03,-0.87538484E-03, 0.13082490E-02,-0.25784812E-03, + 0.13021622E-02, 0.12914711E-01,-0.11323791E-04,-0.22539160E-03, + 0.24592329E-03, 0.49679057E-03,-0.11764577E-02, 0.40911091E-03, + 0.80520147E-03, 0.32982151E-02, 0.42656665E-02, 0.92764216E-03, + -0.72749658E-05,-0.40483157E-03, 0.38572787E-04,-0.33807944E-03, + 0.38529932E-04,-0.64480893E-03,-0.34995223E-03, 0.37699737E-03, + 0.51099242E-03,-0.10125777E-02,-0.15771851E-04,-0.21164201E-03, + -0.68233785E-03, 0.18384871E-02, 0.23258806E-02,-0.17128715E-03, + 0.32456040E-02, 0.24655717E-02,-0.34080627E-02, 0.18123434E-03, + -0.41021096E-04,-0.11170716E-03,-0.16404660E-04, 0.19795354E-03, + 0.56241982E-03, 0.12911166E-02,-0.13848366E-02, 0.10438310E-03, + -0.62358165E-04, 0.30260242E-03, 0.18659700E-03, 0.55550580E-03, + 0.18230742E-02, 0.54440898E-03, 0.39518109E-03, 0.29599117E-03, + -0.38752567E-02, 0.46313807E-03,-0.28696534E-03,-0.50647417E-02, + -0.82131726E-03,-0.50416845E-03,-0.18133644E-03, 0.77168639E-04, + -0.48756416E-03, 0.19312927E-02, 0.15298763E-02, 0.41504153E-02, + -0.56552159E-03, 0.14942653E-02,-0.78420108E-03,-0.85803441E-03, + -0.36034586E-02,-0.44750364E-03, 0.23346141E-02,-0.20636890E-03, + -0.17494588E-02, 0.82079892E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c p_sr9_dent =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x21 *x51 8 +coeff( 8) *x41*x51 p_sr9_dent =p_sr9_dent 9 +coeff( 9) *x52 1 +coeff( 10) *x22 *x41 2 +coeff( 11) *x21 *x42 3 +coeff( 12) *x43 4 +coeff( 13) *x22 *x42 5 +coeff( 14) *x24*x31*x41 6 +coeff( 15) *x24 *x42 7 +coeff( 16) *x22 *x44 8 +coeff( 17) *x31 *x51 p_sr9_dent =p_sr9_dent 9 +coeff( 18) *x22 *x51 1 +coeff( 19) *x23 *x41 2 +coeff( 20) *x31*x43 3 +coeff( 21) *x22*x31*x42 4 +coeff( 22) *x22*x31*x43 5 +coeff( 23) *x32 6 +coeff( 24) *x42*x51 7 +coeff( 25)*x11*x21 *x41 8 +coeff( 26) *x21 *x43 p_sr9_dent =p_sr9_dent 9 +coeff( 27) *x22 *x41*x51 1 +coeff( 28) *x23*x31*x41 2 +coeff( 29) *x23 *x42 3 +coeff( 30) *x22 *x43 4 +coeff( 31) *x22*x32*x42 5 +coeff( 32) *x21 *x44*x52 6 +coeff( 33)*x11*x21 7 +coeff( 34) *x21 *x41*x51 8 +coeff( 35) *x31*x41*x51 p_sr9_dent =p_sr9_dent 9 +coeff( 36) *x41*x52 1 +coeff( 37)*x11*x22 2 +coeff( 38) *x22*x31*x41 3 +coeff( 39) *x44 4 +coeff( 40) *x23 *x51 5 +coeff( 41) *x22 *x42*x51 6 +coeff( 42) *x21 *x42*x52 7 +coeff( 43)*x11*x22*x31*x41 8 +coeff( 44)*x11*x22 *x42 p_sr9_dent =p_sr9_dent 9 +coeff( 45) *x23 *x42*x51 1 +coeff( 46) *x24*x31*x41*x51 2 +coeff( 47) *x23 *x42*x52 3 +coeff( 48)*x11*x24 *x41*x51 4 +coeff( 49) *x24 *x43*x52 5 +coeff( 50)*x12*x23 *x43 6 +coeff( 51) *x24*x32*x44 7 +coeff( 52) *x23 8 +coeff( 53) *x21*x31 *x51 p_sr9_dent =p_sr9_dent 9 +coeff( 54) *x53 1 +coeff( 55)*x11*x21*x31 2 +coeff( 56) *x21*x31*x42 3 +coeff( 57)*x11*x21 *x42 4 +coeff( 58) *x21 *x44 5 +coeff( 59) *x22*x31*x41*x51 6 +coeff( 60) *x44*x51 7 +coeff( 61) *x23 *x52 8 +coeff( 62) *x22*x31 *x52 p_sr9_dent =p_sr9_dent 9 +coeff( 63)*x11*x23*x31 1 +coeff( 64) *x22*x33*x41 2 +coeff( 65) *x22 *x43*x51 3 +coeff( 66) *x22 *x41*x53 4 +coeff( 67) *x23*x33*x41 5 +coeff( 68)*x11*x22 *x43 6 +coeff( 69) *x24 *x43 7 +coeff( 70) *x21*x33*x43 8 +coeff( 71)*x11*x23 *x41*x51 p_sr9_dent =p_sr9_dent 9 +coeff( 72) *x22 *x44*x51 1 +coeff( 73) *x24*x31 *x52 2 +coeff( 74) *x23 *x41*x53 3 +coeff( 75) *x21 *x43*x53 4 +coeff( 76)*x12*x24 5 +coeff( 77)*x12*x23 *x41 6 +coeff( 78)*x11*x22*x31*x43 7 +coeff( 79)*x11*x22 *x44 8 +coeff( 80) *x24 *x44 p_sr9_dent =p_sr9_dent 9 +coeff( 81) *x23*x32 *x53 1 +coeff( 82) *x23 *x42*x53 2 +coeff( 83)*x11*x24 *x42*x51 3 +coeff( 84)*x11*x23*x31*x42*x51 4 +coeff( 85) *x24*x31*x43*x51 5 +coeff( 86) *x24*x32 *x53 6 +coeff( 87) *x23 *x43*x53 7 +coeff( 88)*x12*x21 *x54 8 +coeff( 89) *x22 *x43*x54 p_sr9_dent =p_sr9_dent 9 +coeff( 90)*x12*x24 *x42 c return end function l_sr9_dent (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 19) data ncoeff/ 18/ data avdat/ 0.1074580E+02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.43053930E-02,-0.25270924E+00, 0.71323398E-02, 0.43581673E-02, + 0.18005962E-01,-0.56030080E-02,-0.13178277E-01, 0.22162754E-01, + -0.12150073E-01, 0.24684571E-01, 0.62125199E-01, 0.19080479E-01, + 0.12936459E-02,-0.23316122E-02, 0.32598082E-01,-0.95997965E-02, + 0.44093441E-01, 0.84222937E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 c c function c l_sr9_dent =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4)*x11 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x21 *x51 8 +coeff( 8) *x21 *x42 l_sr9_dent =l_sr9_dent 9 +coeff( 9) *x23*x31*x41 1 +coeff( 10) *x21*x31*x41 2 +coeff( 11) *x21 *x43 3 +coeff( 12) *x23*x31*x42 4 +coeff( 13) *x31 5 +coeff( 14) *x31*x41 6 +coeff( 15) *x21*x31*x42 7 +coeff( 16) *x22 *x43 8 +coeff( 17) *x21 *x44 l_sr9_dent =l_sr9_dent 9 +coeff( 18) *x21 *x43*x51 c return end function x_sr9_dext (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ 0.1364970E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.52786409E-03, 0.36227089E+00,-0.11245934E-03, 0.13298000E+00, + 0.17050132E-01, 0.45125447E-01,-0.54333722E-02,-0.76971189E-02, + -0.21787924E-02, 0.13958281E-01,-0.10807511E-02,-0.12145442E+00, + 0.69754675E-01,-0.35540084E-02,-0.17309708E-02,-0.76869085E-01, + -0.14259297E+00,-0.29813794E-02,-0.42970304E-03,-0.32414182E-02, + -0.18942935E-01,-0.70472285E-02,-0.11686503E+00, 0.90970367E-01, + -0.12875191E-02,-0.10640161E-02,-0.11576021E-02,-0.10228113E-02, + -0.16766742E-02,-0.25664330E-02, 0.13577234E-03,-0.37961017E-01, + -0.24111468E-01,-0.28123758E-02,-0.71026878E-02,-0.12338581E-01, + 0.24741639E-02,-0.36763860E-03,-0.13932583E-01, 0.15399568E-02, + -0.12843036E-02,-0.23970887E-03,-0.57046884E-02, 0.29803331E-02, + 0.39123234E-03,-0.13269837E-01,-0.15155426E-02, 0.17621709E-01, + -0.10670137E-02,-0.21150608E-02,-0.31433408E-02,-0.48067119E-01, + -0.22499952E-03,-0.58249932E-01, 0.82670792E-03,-0.58910050E-02, + -0.16536454E-01, 0.80806130E-04, 0.95990859E-02, 0.15439654E-01, + 0.36134957E-02,-0.33983195E-02, 0.21753099E-02, 0.33256497E-01, + 0.96019795E-02, 0.36108587E-01,-0.17021829E-01, 0.13395515E-01, + -0.13150704E-02,-0.51732692E-02,-0.43535337E-03, 0.67597983E-03, + 0.85786328E-03,-0.31331819E-02, 0.45617431E-03,-0.15407148E-02, + 0.34282168E-02, 0.13097298E-01, 0.14220383E-02, 0.47665178E-02, + 0.93195512E-03,-0.27217991E-02,-0.17091354E-02, 0.13689005E-02, + -0.13792370E-01, 0.34115005E-02,-0.28590807E-02, 0.56871977E-02, + 0.92414249E-03, 0.15268052E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_dext =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x21 *x41 6 +coeff( 6) *x21 *x51 7 +coeff( 7) *x21 *x42 8 +coeff( 8)*x11 x_sr9_dext =x_sr9_dext 9 +coeff( 9) *x23*x31*x41 1 +coeff( 10) *x22 2 +coeff( 11) *x21*x31*x41 3 +coeff( 12) *x21 *x43 4 +coeff( 13) *x23*x31*x42 5 +coeff( 14) *x52 6 +coeff( 15) *x21 *x41*x51 7 +coeff( 16) *x21*x31*x42 8 +coeff( 17) *x21 *x44 x_sr9_dext =x_sr9_dext 9 +coeff( 18) *x42 1 +coeff( 19) *x21*x32 2 +coeff( 20) *x23*x31 3 +coeff( 21) *x21*x32*x41 4 +coeff( 22) *x21 *x42*x51 5 +coeff( 23) *x21*x31*x43 6 +coeff( 24) *x23 *x43 7 +coeff( 25) *x21*x34*x42 8 +coeff( 26) *x41*x51 x_sr9_dext =x_sr9_dext 9 +coeff( 27) *x23 1 +coeff( 28) *x21*x31 *x51 2 +coeff( 29) *x21 *x52 3 +coeff( 30) *x24 4 +coeff( 31)*x11 *x41 5 +coeff( 32) *x21*x32*x42 6 +coeff( 33) *x21 *x43*x51 7 +coeff( 34)*x11 *x42 8 +coeff( 35) *x22 *x42*x52 x_sr9_dext =x_sr9_dext 9 +coeff( 36) *x23*x32*x43 1 +coeff( 37) *x21*x31 2 +coeff( 38) *x31*x41 3 +coeff( 39) *x23 *x41 4 +coeff( 40) *x23 *x51 5 +coeff( 41) *x21*x31*x41*x51 6 +coeff( 42)*x11 *x31 7 +coeff( 43) *x21*x33*x41 8 +coeff( 44) *x23 *x42 x_sr9_dext =x_sr9_dext 9 +coeff( 45)*x11 *x51 1 +coeff( 46) *x21*x31*x42*x51 2 +coeff( 47)*x11 *x31*x41 3 +coeff( 48) *x23*x32*x41 4 +coeff( 49)*x11*x23 5 +coeff( 50)*x11*x21*x31*x41 6 +coeff( 51)*x11 *x43 7 +coeff( 52) *x23 *x44 8 +coeff( 53) *x21*x34*x41*x51 x_sr9_dext =x_sr9_dext 9 +coeff( 54) *x23*x31*x44 1 +coeff( 55)*x11*x21*x32 *x51 2 +coeff( 56)*x11*x21*x31*x41*x51 3 +coeff( 57) *x23 *x43*x52 4 +coeff( 58) *x24*x31 *x53 5 +coeff( 59) *x21 *x43*x54 6 +coeff( 60) *x23*x33*x42*x51 7 +coeff( 61) *x24 *x44*x51 8 +coeff( 62)*x11 *x31*x42*x52 x_sr9_dext =x_sr9_dext 9 +coeff( 63)*x11*x21*x32*x42*x51 1 +coeff( 64)*x11*x21*x31*x43*x51 2 +coeff( 65)*x11*x23 *x43*x51 3 +coeff( 66)*x11*x21*x32*x44*x51 4 +coeff( 67)*x11 *x34*x42*x52 5 +coeff( 68)*x11 *x32*x42*x54 6 +coeff( 69) *x21*x33 7 +coeff( 70) *x22*x31*x41 8 +coeff( 71) *x22 *x42 x_sr9_dext =x_sr9_dext 9 +coeff( 72) *x22 *x52 1 +coeff( 73) *x21 *x53 2 +coeff( 74) *x21*x32*x41*x51 3 +coeff( 75) *x32 *x53 4 +coeff( 76) *x21 *x41*x53 5 +coeff( 77) *x22*x33*x41 6 +coeff( 78) *x22*x31*x43 7 +coeff( 79) *x22*x33 *x51 8 +coeff( 80) *x21 *x44*x51 x_sr9_dext =x_sr9_dext 9 +coeff( 81) *x23*x31 *x52 1 +coeff( 82) *x22 *x41*x53 2 +coeff( 83) *x22*x33*x42 3 +coeff( 84)*x11*x21*x32*x41 4 +coeff( 85) *x22*x33*x43 5 +coeff( 86) *x22*x34*x41*x51 6 +coeff( 87)*x11*x21 *x42*x51 7 +coeff( 88) *x23 *x44*x51 8 +coeff( 89)*x11*x21*x31 *x52 x_sr9_dext =x_sr9_dext 9 +coeff( 90)*x11 *x31*x41*x52 c return end function t_sr9_dext (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 34) data ncoeff/ 33/ data avdat/ 0.5320774E+00/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.22909835E-02,-0.82218267E-01,-0.13888154E-03, 0.22733347E-01, + -0.38585581E-02,-0.23615733E-02,-0.38218524E-02, 0.12139749E-03, + 0.69028290E-04, 0.12563451E-02,-0.13255511E-02, 0.17673383E-03, + 0.21366771E-01,-0.64410330E-02, 0.13834559E-01, 0.32392204E-01, + -0.42054092E-03, 0.68017904E-03, 0.33297378E-02, 0.17049471E-02, + 0.25246739E-01, 0.15387158E-02,-0.75098150E-02, 0.14471184E-01, + 0.82578454E-02,-0.15510045E-01, 0.25760199E-03, 0.25058610E-03, + -0.17841680E-03, 0.13228091E-02, 0.44225980E-03, 0.63018600E-03, + -0.64541567E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 c c function c t_sr9_dext =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x21 *x51 8 +coeff( 8) *x21 *x42 t_sr9_dext =t_sr9_dext 9 +coeff( 9) *x23*x31*x41 1 +coeff( 10)*x11 2 +coeff( 11) *x52 3 +coeff( 12) *x21*x31*x41 4 +coeff( 13) *x21 *x43 5 +coeff( 14) *x23*x31*x42 6 +coeff( 15) *x21*x31*x42 7 +coeff( 16) *x21 *x44 8 +coeff( 17) *x23 *x41*x51 t_sr9_dext =t_sr9_dext 9 +coeff( 18) *x21 *x52 1 +coeff( 19) *x21*x32*x41 2 +coeff( 20) *x22 *x43 3 +coeff( 21) *x21*x31*x43 4 +coeff( 22) *x21 *x43*x51 5 +coeff( 23) *x23 *x43 6 +coeff( 24) *x23*x32*x42 7 +coeff( 25) *x21*x34*x42 8 +coeff( 26) *x23*x34*x42 t_sr9_dext =t_sr9_dext 9 +coeff( 27)*x11*x21 1 +coeff( 28)*x11 *x41 2 +coeff( 29)*x11 *x51 3 +coeff( 30) *x21 *x41*x51 4 +coeff( 31)*x11 *x42 5 +coeff( 32)*x11*x21*x31*x41 6 +coeff( 33) *x23*x32*x43 c return end function y_sr9_dext (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 96) data ncoeff/ 95/ data avdat/ 0.2604137E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.53729694E-02,-0.18594595E-01, 0.14198422E-01, 0.50491188E-03, + 0.26517918E-01,-0.14345159E-03,-0.89669815E-03, 0.13629730E-02, + -0.19077053E-02,-0.51487587E-01, 0.41567450E-02, 0.52933484E-01, + 0.11036894E-03,-0.92324633E-02,-0.10282961E-01, 0.80043711E-02, + 0.17333023E-02,-0.39908225E-02,-0.11123380E-02,-0.30763564E-02, + -0.20457886E-01,-0.12300359E-02,-0.18175439E-02,-0.60889018E-02, + -0.53889506E-01,-0.48668911E-02,-0.37943062E-02,-0.20409584E-03, + 0.27123957E-02,-0.93649132E-02,-0.94059180E-03,-0.19050378E-03, + 0.34961247E-03,-0.25640063E-02, 0.18098564E-02,-0.49402788E-02, + 0.20908845E-03,-0.22385756E-02,-0.53098660E-01,-0.15245944E-02, + 0.90160919E-02,-0.18496395E-02,-0.88870544E-02,-0.18193228E-02, + -0.58192486E-03, 0.25320025E-02, 0.23478959E-01, 0.50942577E-01, + 0.98920963E-03, 0.52621290E-01, 0.10605111E+00,-0.12579738E-03, + 0.21343319E-01, 0.63448022E-02, 0.62106829E-02, 0.15683945E-01, + 0.31361669E-01,-0.11900602E-01,-0.37622891E-01,-0.11389319E-01, + 0.14061207E-01,-0.51393108E-02, 0.49771280E-02, 0.10039258E-01, + 0.44661714E-02, 0.40743288E-01,-0.82830764E-01,-0.25941300E+00, + -0.85924156E-01, 0.40483973E-02, 0.47509660E-03, 0.19637805E-02, + -0.33414375E-01,-0.10681608E-01,-0.27542492E-01, 0.19824971E-01, + -0.30593574E-03, 0.66454202E-03, 0.27078413E-03,-0.55934819E-02, + -0.38223778E-03, 0.16043702E-01, 0.22689800E-02, 0.69250599E-02, + -0.17107192E-02, 0.16745938E-02,-0.42344318E-02, 0.19074922E-01, + -0.24859466E+00,-0.10066937E-01,-0.47891054E-01,-0.14145294E-01, + -0.47943154E-02, 0.14466600E-01, 0.42163162E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x45 = x44*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c y_sr9_dext =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x21 5 +coeff( 5) *x51 6 +coeff( 6) *x32 7 +coeff( 7) *x31*x41 8 +coeff( 8) *x42 y_sr9_dext =y_sr9_dext 9 +coeff( 9) *x21*x31 1 +coeff( 10) *x21 *x41 2 +coeff( 11) *x31 *x51 3 +coeff( 12) *x41*x51 4 +coeff( 13)*x11 5 +coeff( 14) *x22 6 +coeff( 15) *x21 *x51 7 +coeff( 16) *x52 8 +coeff( 17) *x32*x41 y_sr9_dext =y_sr9_dext 9 +coeff( 18) *x43 1 +coeff( 19) *x21*x32 2 +coeff( 20) *x21*x31*x41 3 +coeff( 21) *x21 *x42 4 +coeff( 22) *x31*x41*x51 5 +coeff( 23) *x42*x51 6 +coeff( 24) *x22*x31 7 +coeff( 25) *x22 *x41 8 +coeff( 26) *x21 *x41*x51 y_sr9_dext =y_sr9_dext 9 +coeff( 27) *x41*x52 1 +coeff( 28)*x11*x21 2 +coeff( 29) *x23 3 +coeff( 30) *x22 *x51 4 +coeff( 31) *x21 *x52 5 +coeff( 32) *x32*x42 6 +coeff( 33) *x31*x43 7 +coeff( 34) *x44 8 +coeff( 35) *x21*x32*x41 y_sr9_dext =y_sr9_dext 9 +coeff( 36) *x21 *x43 1 +coeff( 37) *x43*x51 2 +coeff( 38) *x22*x32 3 +coeff( 39) *x22 *x42 4 +coeff( 40)*x11*x21 *x41 5 +coeff( 41) *x23 *x41 6 +coeff( 42) *x22*x31 *x51 7 +coeff( 43) *x22 *x41*x51 8 +coeff( 44) *x33*x42 y_sr9_dext =y_sr9_dext 9 +coeff( 45) *x31*x44 1 +coeff( 46) *x45 2 +coeff( 47) *x21*x31*x43 3 +coeff( 48) *x21 *x44 4 +coeff( 49)*x11 *x32*x41 5 +coeff( 50) *x22*x31*x42 6 +coeff( 51) *x22 *x43 7 +coeff( 52)*x11*x21 *x42 8 +coeff( 53) *x23 *x42 y_sr9_dext =y_sr9_dext 9 +coeff( 54) *x22 *x42*x51 1 +coeff( 55) *x21 *x42*x52 2 +coeff( 56) *x21*x31*x44 3 +coeff( 57) *x21 *x45 4 +coeff( 58) *x22*x33*x41 5 +coeff( 59) *x22*x31*x43 6 +coeff( 60) *x22 *x44 7 +coeff( 61) *x21 *x44*x51 8 +coeff( 62)*x11*x21*x31*x42 y_sr9_dext =y_sr9_dext 9 +coeff( 63) *x23*x31*x42 1 +coeff( 64) *x22 *x43*x51 2 +coeff( 65) *x24*x32 3 +coeff( 66) *x24 *x42 4 +coeff( 67) *x22*x32*x43 5 +coeff( 68) *x22 *x45 6 +coeff( 69) *x22 *x44*x51 7 +coeff( 70) *x24*x31*x41*x51 8 +coeff( 71) *x22*x31*x45 y_sr9_dext =y_sr9_dext 9 +coeff( 72) *x22*x31*x44*x51 1 +coeff( 73) *x24*x32*x42 2 +coeff( 74) *x24*x31*x44 3 +coeff( 75) *x24 *x45 4 +coeff( 76) *x21*x31*x45*x53 5 +coeff( 77) *x33 6 +coeff( 78)*x11 *x41 7 +coeff( 79)*x11 *x51 8 +coeff( 80) *x32*x43 y_sr9_dext =y_sr9_dext 9 +coeff( 81) *x21*x33*x41 1 +coeff( 82) *x21*x32*x42 2 +coeff( 83) *x21*x32*x41*x51 3 +coeff( 84) *x23*x31*x41 4 +coeff( 85) *x24*x31 5 +coeff( 86)*x11*x22 *x41 6 +coeff( 87)*x11*x21 *x42*x51 7 +coeff( 88) *x21*x31*x45 8 +coeff( 89) *x22*x31*x44 y_sr9_dext =y_sr9_dext 9 +coeff( 90)*x11*x21 *x44 1 +coeff( 91) *x22*x31*x43*x51 2 +coeff( 92) *x21 *x44*x52 3 +coeff( 93) *x32*x42*x53 4 +coeff( 94) *x24*x32*x41 5 +coeff( 95) *x24*x31 *x52 c return end function p_sr9_dext (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ 0.2060502E-03/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.11933882E-02,-0.45529264E-02,-0.11924003E-01, 0.24219260E-02, + -0.11384920E-02,-0.61166420E-03,-0.10972302E-01,-0.14310646E-04, + -0.54752374E-04,-0.21497095E-02, 0.69727079E-03, 0.96597373E-02, + 0.16737652E-02, 0.74664620E-03,-0.71440125E-02,-0.94712485E-03, + -0.19079779E-02,-0.38456064E-03, 0.25151635E-02, 0.36777144E-02, + -0.14649412E-02,-0.61896205E-03,-0.43119633E-03,-0.33233818E-02, + -0.10932977E-02,-0.30261258E-03, 0.21287359E-03,-0.36078731E-02, + 0.14600889E-02,-0.14184421E-02, 0.35564865E-02,-0.13937418E-02, + -0.13569843E-03, 0.62730601E-02, 0.84902169E-02, 0.70511000E-04, + -0.10062013E-02, 0.57836514E-04,-0.19156280E-02,-0.24494762E-03, + -0.46872097E-03, 0.42925228E-03, 0.20938608E-03, 0.10645043E-03, + 0.24740229E-03, 0.76849427E-03,-0.61026058E-03, 0.25087134E-02, + -0.12659716E-04,-0.59216993E-03, 0.22367107E-03, 0.14740750E-02, + 0.10653694E-01,-0.81658298E-02,-0.24053114E-02,-0.28591556E-04, + 0.36422811E-04,-0.15517145E-03,-0.19292333E-02,-0.36545398E-03, + -0.27874956E-03, 0.11500692E-02, 0.17961814E-02, 0.30862503E-02, + -0.21230257E-02,-0.51288510E-03,-0.77048468E-03,-0.49926003E-03, + -0.31190121E-02, 0.10977817E-02,-0.47376934E-02, 0.51123259E-03, + -0.59832069E-02,-0.73722838E-02,-0.12356823E-02, 0.22051726E-02, + 0.16367037E-02,-0.35003878E-02, 0.15518615E-02,-0.97814365E-04, + 0.24687513E-04,-0.21958561E-03,-0.13133592E-04,-0.78679077E-04, + 0.21193447E-03, 0.19536600E-03, 0.54859044E-03, 0.12131021E-02, + -0.11360579E-03,-0.24218470E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c p_sr9_dext =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x21*x31 7 +coeff( 7) *x21 *x41 8 +coeff( 8) *x31*x41 p_sr9_dext =p_sr9_dext 9 +coeff( 9) *x42 1 +coeff( 10) *x21 *x51 2 +coeff( 11) *x31 *x51 3 +coeff( 12) *x41*x51 4 +coeff( 13) *x52 5 +coeff( 14) *x23 6 +coeff( 15) *x22 *x41 7 +coeff( 16) *x21 *x42 8 +coeff( 17) *x22 *x51 p_sr9_dext =p_sr9_dext 9 +coeff( 18) *x42*x51 1 +coeff( 19) *x23 *x41 2 +coeff( 20) *x21 *x43 3 +coeff( 21) *x22 *x41*x51 4 +coeff( 22) *x23*x31*x41 5 +coeff( 23) *x23 *x42 6 +coeff( 24) *x22 *x43 7 +coeff( 25) *x22 *x42*x51 8 +coeff( 26) *x22*x31 p_sr9_dext =p_sr9_dext 9 +coeff( 27)*x11 *x41 1 +coeff( 28) *x22 *x42 2 +coeff( 29) *x21*x31*x42 3 +coeff( 30) *x22*x31*x42 4 +coeff( 31) *x21 *x44 5 +coeff( 32) *x22*x31*x41*x51 6 +coeff( 33) *x32*x41*x52 7 +coeff( 34) *x24 *x42 8 +coeff( 35) *x23*x31*x43 p_sr9_dext =p_sr9_dext 9 +coeff( 36) *x21*x31*x41 1 +coeff( 37) *x43 2 +coeff( 38) *x21*x31 *x51 3 +coeff( 39) *x21 *x41*x51 4 +coeff( 40) *x21 *x52 5 +coeff( 41) *x41*x52 6 +coeff( 42) *x24 7 +coeff( 43) *x21*x32*x41 8 +coeff( 44)*x11 *x42 p_sr9_dext =p_sr9_dext 9 +coeff( 45) *x23 *x51 1 +coeff( 46) *x21 *x42*x51 2 +coeff( 47)*x11*x21 *x42 3 +coeff( 48) *x21*x31*x43 4 +coeff( 49) *x44*x51 5 +coeff( 50)*x11*x21 *x42*x51 6 +coeff( 51) *x21*x31*x41*x53 7 +coeff( 52) *x23*x32*x42 8 +coeff( 53) *x23 *x44 p_sr9_dext =p_sr9_dext 9 +coeff( 54) *x22 *x44*x51 1 +coeff( 55) *x22*x34*x43 2 +coeff( 56)*x11*x21 3 +coeff( 57)*x11 *x51 4 +coeff( 58) *x53 5 +coeff( 59) *x22*x31*x41 6 +coeff( 60) *x22*x31 *x51 7 +coeff( 61) *x31*x42*x51 8 +coeff( 62) *x23 *x41*x51 p_sr9_dext =p_sr9_dext 9 +coeff( 63) *x21 *x43*x51 1 +coeff( 64) *x24*x31*x41 2 +coeff( 65) *x23 *x43 3 +coeff( 66) *x22 *x44 4 +coeff( 67) *x22 *x43*x51 5 +coeff( 68) *x21 *x43*x52 6 +coeff( 69) *x22*x31*x44 7 +coeff( 70) *x23*x31*x42*x51 8 +coeff( 71) *x22*x31*x43*x51 p_sr9_dext =p_sr9_dext 9 +coeff( 72)*x11*x24 *x42 1 +coeff( 73) *x24*x31*x43 2 +coeff( 74) *x24 *x44 3 +coeff( 75) *x22*x32*x43*x51 4 +coeff( 76) *x24*x33*x41*x51 5 +coeff( 77)*x12*x21*x31*x42*x51 6 +coeff( 78) *x24*x32*x44 7 +coeff( 79)*x12*x21*x34*x41*x51 8 +coeff( 80) *x21 p_sr9_dext =p_sr9_dext 9 +coeff( 81)*x11 *x31 1 +coeff( 82) *x31*x42 2 +coeff( 83) *x32 *x51 3 +coeff( 84)*x11*x21*x31 4 +coeff( 85) *x23*x31 5 +coeff( 86)*x11*x23 6 +coeff( 87) *x24 *x41 7 +coeff( 88) *x21*x32*x42 8 +coeff( 89)*x11*x21*x31 *x51 p_sr9_dext =p_sr9_dext 9 +coeff( 90) *x22*x32 *x51 c return end function l_sr9_dext (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 18) data ncoeff/ 17/ data avdat/ 0.1734456E+02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54848E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.95219556E-02, 0.51514959E+00, 0.98623745E-01,-0.10864918E-01, + 0.33387467E-01, 0.11082894E-01, 0.44237029E-01,-0.53619493E-01, + 0.21969387E-01,-0.53123523E-01,-0.12905136E+00,-0.43693669E-01, + 0.73242662E-02,-0.13271060E-01,-0.66300146E-01,-0.17430866E-01, + -0.96822344E-01, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 c c function c l_sr9_dext =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x51 4 +coeff( 4)*x11 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x21 *x51 8 +coeff( 8) *x21 *x42 l_sr9_dext =l_sr9_dext 9 +coeff( 9) *x23*x31*x41 1 +coeff( 10) *x21*x31*x41 2 +coeff( 11) *x21 *x43 3 +coeff( 12) *x23*x31*x42 4 +coeff( 13) *x41 5 +coeff( 14) *x21 *x41*x51 6 +coeff( 15) *x21*x31*x42 7 +coeff( 16) *x22 *x43 8 +coeff( 17) *x21 *x44 c return end function x_sr9_q3en (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.3535776E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.53380472E-02, 0.22949694E+00,-0.17994845E-03, 0.13844310E+00, + 0.21684987E-01, 0.11371891E-01, 0.35724256E-01,-0.30264303E-02, + -0.55212178E-02,-0.13110277E-02,-0.60436372E-02,-0.16431749E-03, + -0.80264799E-01, 0.32663964E-01,-0.28906793E-02,-0.18860421E-02, + -0.44564776E-01,-0.96811399E-01, 0.67356112E-03, 0.27311719E-02, + -0.93140360E-02,-0.86885719E-02,-0.53507881E-02,-0.80658667E-01, + -0.26160313E-03,-0.87346480E-03, 0.59757456E-01,-0.15531864E-02, + -0.35618249E-03,-0.13046028E-02,-0.55953680E-03,-0.13481474E-02, + -0.31405580E-03, 0.34698183E-04,-0.39653936E-02,-0.27030915E-01, + -0.15526977E-01,-0.11522028E-02, 0.49893046E-02,-0.87706937E-03, + 0.52286261E-02,-0.29552007E-01, 0.13413171E-02,-0.10889541E-03, + -0.21145444E-02, 0.12635603E-03,-0.40616007E-02,-0.17414523E-03, + -0.35880010E-02,-0.86186780E-02,-0.14233047E-01,-0.18074559E-01, + -0.17043323E-02,-0.83649461E-03,-0.13130887E-02, 0.39764270E-02, + -0.19588042E-02,-0.36113341E-02,-0.14812569E-02,-0.14550249E-01, + -0.27873258E-02,-0.30724837E-02, 0.12173981E-01, 0.62904493E-02, + 0.92457375E-03,-0.10197853E-03,-0.42356850E-03, 0.30463093E-03, + -0.19630173E-02,-0.41280920E-03,-0.41850703E-02, 0.56108326E-03, + -0.24103497E-02, 0.16214164E-03, 0.92013652E-03, 0.73064555E-03, + -0.11677371E-02,-0.21121867E-02, 0.66686762E-02, 0.47472140E-03, + 0.82328133E-02, 0.26392720E-02,-0.15712233E-02, 0.16304041E-02, + -0.41797754E-03,-0.19738714E-02,-0.28903082E-02, 0.10320159E-02, + 0.15698468E-01,-0.14611133E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c x_sr9_q3en =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x21 *x51 8 +coeff( 8) *x21 *x42 x_sr9_q3en =x_sr9_q3en 9 +coeff( 9)*x11 1 +coeff( 10) *x23*x31*x41 2 +coeff( 11) *x52 3 +coeff( 12) *x21*x31*x41 4 +coeff( 13) *x21 *x43 5 +coeff( 14) *x23*x31*x42 6 +coeff( 15) *x42 7 +coeff( 16) *x21 *x41*x51 8 +coeff( 17) *x21*x31*x42 x_sr9_q3en =x_sr9_q3en 9 +coeff( 18) *x21 *x44 1 +coeff( 19) *x22 *x41 2 +coeff( 20) *x22 *x51 3 +coeff( 21) *x23 *x41 4 +coeff( 22) *x21*x32*x41 5 +coeff( 23) *x21 *x42*x51 6 +coeff( 24) *x21*x31*x43 7 +coeff( 25) *x21*x32 *x52 8 +coeff( 26) *x24 *x42 x_sr9_q3en =x_sr9_q3en 9 +coeff( 27) *x23 *x43 1 +coeff( 28) *x21*x34*x42 2 +coeff( 29) *x31*x41 3 +coeff( 30) *x41*x51 4 +coeff( 31) *x21*x31 *x51 5 +coeff( 32) *x22*x31*x41 6 +coeff( 33)*x11*x21 7 +coeff( 34)*x11 *x41 8 +coeff( 35) *x21*x33*x41 x_sr9_q3en =x_sr9_q3en 9 +coeff( 36) *x21*x32*x42 1 +coeff( 37) *x21 *x43*x51 2 +coeff( 38) *x23 *x52 3 +coeff( 39) *x23*x32*x41 4 +coeff( 40)*x11 *x42 5 +coeff( 41) *x22 *x42*x52 6 +coeff( 42) *x23 *x44 7 +coeff( 43) *x21*x31 8 +coeff( 44) *x22*x31 x_sr9_q3en =x_sr9_q3en 9 +coeff( 45) *x23*x31 1 +coeff( 46) *x23 *x51 2 +coeff( 47) *x21*x31*x41*x51 3 +coeff( 48)*x11 *x31 4 +coeff( 49) *x22 *x43 5 +coeff( 50) *x21*x31*x42*x51 6 +coeff( 51) *x21*x32*x43 7 +coeff( 52) *x21*x31*x44 8 +coeff( 53) *x21*x32*x42*x51 x_sr9_q3en =x_sr9_q3en 9 +coeff( 54)*x11*x23 1 +coeff( 55)*x11*x21*x31*x41 2 +coeff( 56) *x23*x32*x42 3 +coeff( 57)*x11 *x43 4 +coeff( 58) *x21*x34*x41*x51 5 +coeff( 59) *x23 *x42*x52 6 +coeff( 60) *x22 *x44*x52 7 +coeff( 61)*x11*x23 *x41*x51 8 +coeff( 62)*x11 *x31*x42*x52 x_sr9_q3en =x_sr9_q3en 9 +coeff( 63)*x11*x23 *x43*x51 1 +coeff( 64)*x11*x21*x31*x44*x51 2 +coeff( 65) *x23 3 +coeff( 66) *x31*x42 4 +coeff( 67) *x32 *x51 5 +coeff( 68) *x53 6 +coeff( 69) *x24 7 +coeff( 70) *x21*x33 8 +coeff( 71) *x22 *x42 x_sr9_q3en =x_sr9_q3en 9 +coeff( 72) *x21*x32 *x51 1 +coeff( 73) *x22*x31*x42 2 +coeff( 74)*x11 *x51 3 +coeff( 75) *x22*x32 *x51 4 +coeff( 76) *x32 *x53 5 +coeff( 77)*x11 *x31*x41 6 +coeff( 78) *x22*x33*x41 7 +coeff( 79) *x23*x31*x41*x51 8 +coeff( 80) *x34*x41*x51 x_sr9_q3en =x_sr9_q3en 9 +coeff( 81) *x23 *x42*x51 1 +coeff( 82) *x23*x31 *x52 2 +coeff( 83) *x21*x33 *x52 3 +coeff( 84) *x23 *x53 4 +coeff( 85)*x11 *x31*x41*x51 5 +coeff( 86) *x23 *x43*x51 6 +coeff( 87) *x23 *x41*x53 7 +coeff( 88)*x11 *x33*x41 8 +coeff( 89) *x23*x32*x43 x_sr9_q3en =x_sr9_q3en 9 +coeff( 90)*x11 *x44 c return end function t_sr9_q3en (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 36) data ncoeff/ 35/ data avdat/ -0.2528077E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.17251830E-02,-0.82647681E-01, 0.97760087E-04, 0.22881972E-01, + -0.56768092E-02,-0.23916641E-02,-0.52230419E-02, 0.68200490E-03, + 0.15307234E-02, 0.12681806E-02, 0.51504362E-03, 0.21274287E-01, + -0.33086580E-02,-0.20528219E-03,-0.14040741E-02, 0.71067661E-04, + 0.28696177E-02, 0.13485051E-01, 0.31037821E-01, 0.37655740E-02, + 0.87217421E-04, 0.53548673E-03, 0.22792227E-02, 0.57128299E-03, + -0.13974099E-02, 0.23765987E-01, 0.20461553E-02,-0.65208897E-02, + 0.13337057E-02, 0.36563645E-02, 0.32830768E-03, 0.26854745E-03, + -0.47182586E-03, 0.40035314E-03, 0.58603105E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 c c function c t_sr9_q3en =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x21 *x51 8 +coeff( 8) *x21 *x42 t_sr9_q3en =t_sr9_q3en 9 +coeff( 9) *x21*x33*x41 1 +coeff( 10)*x11 2 +coeff( 11) *x21*x31*x41 3 +coeff( 12) *x21 *x43 4 +coeff( 13) *x23*x31*x42 5 +coeff( 14) *x21*x31 6 +coeff( 15) *x52 7 +coeff( 16) *x23*x31 8 +coeff( 17) *x22 *x42 t_sr9_q3en =t_sr9_q3en 9 +coeff( 18) *x21*x31*x42 1 +coeff( 19) *x21 *x44 2 +coeff( 20) *x21 *x43*x51 3 +coeff( 21) *x21*x32 4 +coeff( 22) *x21 *x52 5 +coeff( 23) *x21*x32*x41 6 +coeff( 24)*x11 *x42 7 +coeff( 25) *x23*x31*x41 8 +coeff( 26) *x21*x31*x43 t_sr9_q3en =t_sr9_q3en 9 +coeff( 27) *x22*x33*x41 1 +coeff( 28) *x23 *x43 2 +coeff( 29) *x21*x34*x42 3 +coeff( 30) *x24 *x43*x52 4 +coeff( 31)*x11*x21 5 +coeff( 32)*x11 *x41 6 +coeff( 33) *x22 *x51 7 +coeff( 34) *x21*x31 *x51 8 +coeff( 35) *x21*x32*x42 c return end function y_sr9_q3en (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 96) data ncoeff/ 95/ data avdat/ 0.2614348E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.69302749E-02,-0.24274973E-01, 0.24195744E-02, 0.44594610E-04, + 0.30776624E-01, 0.89159032E-04, 0.24075550E-03, 0.35425930E-02, + -0.24313279E-02,-0.62461607E-01, 0.53860066E-02, 0.65200478E-01, + 0.16245752E-03,-0.10032700E-01,-0.13876880E-01, 0.99762632E-02, + 0.12785188E-02,-0.48218588E-02,-0.66218578E-03,-0.43513444E-02, + -0.18457524E-01,-0.14673765E-02,-0.44457684E-02,-0.66662477E-02, + -0.60840476E-01,-0.75797591E-03,-0.64604278E-02,-0.50909333E-02, + 0.50995000E-04, 0.34480700E-02,-0.12376362E-01,-0.19549686E-02, + -0.44126171E-02,-0.58937403E-02, 0.23553220E-02,-0.84283883E-02, + 0.18796307E-02,-0.15313979E-02,-0.66335410E-01, 0.52402904E-02, + -0.13027189E-02, 0.14022624E-01,-0.29679167E-02,-0.74181203E-02, + -0.54273603E-03, 0.72508422E-03, 0.15855799E-02, 0.12030043E-03, + 0.37665009E-01, 0.50396290E-01, 0.18457733E-02, 0.14033660E-02, + 0.50522938E-01, 0.11300720E+00,-0.65339203E-02, 0.26154136E-01, + 0.15369467E-01,-0.17821740E-02, 0.40204566E-01, 0.46641104E-01, + -0.22768859E-01,-0.36430866E-01,-0.67886594E-02, 0.20780088E-02, + 0.84301719E-03, 0.47996335E-01,-0.11028319E+00,-0.27237037E+00, + -0.11045232E+00, 0.15403855E-02,-0.57427559E-01,-0.42630881E-01, + -0.30700991E-01, 0.69219433E-01,-0.33364799E-01, 0.12713489E-02, + 0.94990755E-04,-0.14238880E-02,-0.32762596E-02, 0.27275719E-02, + -0.94352657E-03, 0.14440369E-01, 0.73935143E-02,-0.13503018E-01, + 0.46745492E-02,-0.71180280E-03,-0.41183564E-02, 0.10621804E-01, + -0.24002817E+00,-0.33749811E-01,-0.19752294E-01, 0.14427430E-01, + 0.50790161E-02, 0.11183786E-01, 0.31851563E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x35 = x34*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x45 = x44*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c y_sr9_q3en =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x21 5 +coeff( 5) *x51 6 +coeff( 6) *x32 7 +coeff( 7) *x31*x41 8 +coeff( 8) *x42 y_sr9_q3en =y_sr9_q3en 9 +coeff( 9) *x21*x31 1 +coeff( 10) *x21 *x41 2 +coeff( 11) *x31 *x51 3 +coeff( 12) *x41*x51 4 +coeff( 13)*x11 5 +coeff( 14) *x22 6 +coeff( 15) *x21 *x51 7 +coeff( 16) *x52 8 +coeff( 17) *x32*x41 y_sr9_q3en =y_sr9_q3en 9 +coeff( 18) *x43 1 +coeff( 19) *x21*x32 2 +coeff( 20) *x21*x31*x41 3 +coeff( 21) *x21 *x42 4 +coeff( 22) *x31*x41*x51 5 +coeff( 23) *x42*x51 6 +coeff( 24) *x22*x31 7 +coeff( 25) *x22 *x41 8 +coeff( 26) *x21*x31 *x51 y_sr9_q3en =y_sr9_q3en 9 +coeff( 27) *x21 *x41*x51 1 +coeff( 28) *x41*x52 2 +coeff( 29)*x11*x21 3 +coeff( 30) *x23 4 +coeff( 31) *x22 *x51 5 +coeff( 32) *x21 *x52 6 +coeff( 33) *x31*x43 7 +coeff( 34) *x44 8 +coeff( 35) *x21*x32*x41 y_sr9_q3en =y_sr9_q3en 9 +coeff( 36) *x21 *x43 1 +coeff( 37) *x43*x51 2 +coeff( 38) *x22*x32 3 +coeff( 39) *x22 *x42 4 +coeff( 40) *x21 *x42*x51 5 +coeff( 41)*x11*x21 *x41 6 +coeff( 42) *x23 *x41 7 +coeff( 43) *x22*x31 *x51 8 +coeff( 44) *x22 *x41*x51 y_sr9_q3en =y_sr9_q3en 9 +coeff( 45) *x33*x42 1 +coeff( 46) *x31*x44 2 +coeff( 47) *x45 3 +coeff( 48) *x23 *x51 4 +coeff( 49) *x21*x31*x43 5 +coeff( 50) *x21 *x44 6 +coeff( 51) *x44*x51 7 +coeff( 52)*x11 *x32*x41 8 +coeff( 53) *x22*x31*x42 y_sr9_q3en =y_sr9_q3en 9 +coeff( 54) *x22 *x43 1 +coeff( 55)*x11*x21 *x42 2 +coeff( 56) *x23 *x42 3 +coeff( 57) *x22 *x42*x51 4 +coeff( 58)*x11*x21 *x41*x51 5 +coeff( 59) *x21*x31*x44 6 +coeff( 60) *x21 *x45 7 +coeff( 61) *x22*x33*x41 8 +coeff( 62) *x22*x31*x43 y_sr9_q3en =y_sr9_q3en 9 +coeff( 63) *x22 *x44 1 +coeff( 64) *x23*x31*x42 2 +coeff( 65) *x24*x32 3 +coeff( 66) *x24 *x42 4 +coeff( 67) *x22*x32*x43 5 +coeff( 68) *x22 *x45 6 +coeff( 69) *x22 *x44*x51 7 +coeff( 70) *x24*x31*x41*x51 8 +coeff( 71) *x24*x31*x44 y_sr9_q3en =y_sr9_q3en 9 +coeff( 72) *x24 *x45 1 +coeff( 73) *x24*x31*x43*x51 2 +coeff( 74) *x24*x33*x43 3 +coeff( 75) *x22*x35*x44 4 +coeff( 76)*x11 *x41 5 +coeff( 77)*x11 *x51 6 +coeff( 78) *x53 7 +coeff( 79) *x32*x42 8 +coeff( 80) *x21*x31*x41*x51 y_sr9_q3en =y_sr9_q3en 9 +coeff( 81)*x11*x21*x31 1 +coeff( 82) *x21*x32*x42 2 +coeff( 83) *x23*x31*x41 3 +coeff( 84) *x21*x33*x42 4 +coeff( 85) *x23*x33 5 +coeff( 86) *x24*x31*x41 6 +coeff( 87)*x11*x21 *x42*x51 7 +coeff( 88) *x23 *x42*x51 8 +coeff( 89) *x22*x31*x44 y_sr9_q3en =y_sr9_q3en 9 +coeff( 90) *x22*x31*x43*x51 1 +coeff( 91) *x21 *x44*x52 2 +coeff( 92) *x24*x32*x41 3 +coeff( 93)*x11*x22 *x42*x51 4 +coeff( 94) *x21 *x42*x54 5 +coeff( 95)*x12*x21*x31 *x51 c return end function p_sr9_q3en (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ 0.3553974E-03/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.14362853E-02,-0.17744918E-03,-0.55047614E-02,-0.11317449E-01, + 0.38282592E-02,-0.16601676E-02,-0.73674700E-03,-0.13457370E-01, + 0.47932890E-07, 0.86412743E-04,-0.25997423E-02, 0.79579977E-03, + 0.12523714E-01, 0.22705626E-02, 0.96121541E-03,-0.94342753E-02, + -0.13021814E-02,-0.11885960E-02,-0.24645766E-02,-0.68458571E-03, + 0.21033850E-02, 0.34841385E-02,-0.21053895E-02,-0.51892479E-03, + 0.47486261E-03,-0.11332156E-02, 0.98025054E-02,-0.63463504E-03, + 0.29208174E-03,-0.51203091E-03,-0.16846750E-02,-0.88835521E-04, + 0.53749449E-03, 0.15999121E-03,-0.50436384E-02, 0.11565557E-02, + -0.19270807E-03, 0.11954178E-02,-0.66059139E-02, 0.49709124E-02, + -0.98405564E-02,-0.27547337E-02, 0.81056952E-02, 0.11031559E-01, + -0.22755768E-02,-0.16860378E-02, 0.37832001E-05,-0.10482289E-04, + -0.36827961E-03, 0.37019400E-03, 0.50295494E-03,-0.56204677E-03, + 0.26328940E-03,-0.77126213E-04,-0.97525486E-03, 0.22849536E-02, + 0.38600231E-02,-0.25754544E-03,-0.24845251E-02, 0.36652881E-03, + -0.30771396E-02,-0.19167430E-02, 0.19060934E-05, 0.15362138E-03, + -0.15566080E-03, 0.10794454E-03,-0.25399672E-03,-0.19453910E-03, + -0.42261669E-03, 0.15097334E-02, 0.14725217E-03,-0.19231111E-03, + -0.23733126E-03, 0.61670149E-03, 0.19100637E-02,-0.26837140E-03, + -0.70540997E-03,-0.19243367E-02,-0.27170856E-03, 0.45257057E-02, + -0.16050125E-02, 0.13252179E-02,-0.10378383E-01,-0.16656796E-01, + -0.43281857E-02,-0.63110855E-02,-0.11652150E-02, 0.27764270E-02, + -0.43838774E-02,-0.90060080E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c p_sr9_q3en =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x31 4 +coeff( 4) *x41 5 +coeff( 5) *x51 6 +coeff( 6) *x22 7 +coeff( 7) *x21*x31 8 +coeff( 8) *x21 *x41 p_sr9_q3en =p_sr9_q3en 9 +coeff( 9) *x31*x41 1 +coeff( 10) *x42 2 +coeff( 11) *x21 *x51 3 +coeff( 12) *x31 *x51 4 +coeff( 13) *x41*x51 5 +coeff( 14) *x52 6 +coeff( 15) *x23 7 +coeff( 16) *x22 *x41 8 +coeff( 17) *x21 *x42 p_sr9_q3en =p_sr9_q3en 9 +coeff( 18) *x43 1 +coeff( 19) *x22 *x51 2 +coeff( 20) *x42*x51 3 +coeff( 21) *x23 *x41 4 +coeff( 22) *x21 *x43 5 +coeff( 23) *x22 *x41*x51 6 +coeff( 24) *x23*x31*x41 7 +coeff( 25) *x23 *x42 8 +coeff( 26) *x22 *x42*x51 p_sr9_q3en =p_sr9_q3en 9 +coeff( 27) *x24 *x42 1 +coeff( 28) *x22*x31 2 +coeff( 29)*x11 *x41 3 +coeff( 30) *x31*x42 4 +coeff( 31) *x21 *x41*x51 5 +coeff( 32) *x31*x41*x51 6 +coeff( 33) *x24 7 +coeff( 34) *x22*x31*x41 8 +coeff( 35) *x22 *x42 p_sr9_q3en =p_sr9_q3en 9 +coeff( 36) *x21*x31*x42 1 +coeff( 37) *x44 2 +coeff( 38) *x21 *x42*x51 3 +coeff( 39) *x22 *x43 4 +coeff( 40) *x21 *x44 5 +coeff( 41) *x22*x31*x43 6 +coeff( 42) *x22 *x44 7 +coeff( 43) *x23*x31*x43 8 +coeff( 44) *x23 *x44 p_sr9_q3en =p_sr9_q3en 9 +coeff( 45) *x23 *x42*x52 1 +coeff( 46) *x24*x32*x42 2 +coeff( 47)*x11*x21 3 +coeff( 48) *x21*x32 4 +coeff( 49) *x41*x52 5 +coeff( 50) *x21*x32*x41 6 +coeff( 51) *x23 *x51 7 +coeff( 52) *x22*x31 *x51 8 +coeff( 53) *x21*x31*x41*x51 p_sr9_q3en =p_sr9_q3en 9 +coeff( 54)*x11*x21 *x42 1 +coeff( 55) *x22*x31*x42 2 +coeff( 56) *x21*x32*x42 3 +coeff( 57) *x21*x31*x43 4 +coeff( 58)*x11*x21 *x41*x51 5 +coeff( 59) *x22*x31*x41*x51 6 +coeff( 60) *x44*x51 7 +coeff( 61) *x22 *x43*x51 8 +coeff( 62)*x12 *x32*x42*x52 p_sr9_q3en =p_sr9_q3en 9 +coeff( 63)*x11 *x31 1 +coeff( 64) *x32*x41 2 +coeff( 65) *x53 3 +coeff( 66)*x11 *x42 4 +coeff( 67) *x31*x42*x51 5 +coeff( 68) *x21*x31 *x52 6 +coeff( 69) *x34*x41 7 +coeff( 70) *x21 *x43*x51 8 +coeff( 71)*x11 *x31 *x52 p_sr9_q3en =p_sr9_q3en 9 +coeff( 72)*x11*x21*x33 1 +coeff( 73)*x12 *x31*x41 2 +coeff( 74)*x11*x22 *x42 3 +coeff( 75) *x23*x31*x42 4 +coeff( 76) *x34*x41*x51 5 +coeff( 77)*x11*x21 *x42*x51 6 +coeff( 78) *x22*x31*x42*x51 7 +coeff( 79)*x11*x22 *x52 8 +coeff( 80) *x24 *x43 p_sr9_q3en =p_sr9_q3en 9 +coeff( 81)*x11*x21 *x44 1 +coeff( 82) *x23*x31*x42*x51 2 +coeff( 83) *x22 *x44*x51 3 +coeff( 84) *x24 *x44 4 +coeff( 85) *x22*x32*x44 5 +coeff( 86) *x24*x31*x44 6 +coeff( 87)*x11*x24*x31*x41*x51 7 +coeff( 88) *x24*x33*x41*x51 8 +coeff( 89) *x24*x31*x43*x51 p_sr9_q3en =p_sr9_q3en 9 +coeff( 90)*x12 *x34*x41*x51 c return end function l_sr9_q3en (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 19) data ncoeff/ 18/ data avdat/ 0.1835486E+02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.49987E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.34032643E-02, 0.33403674E+00, 0.32265615E-01,-0.66447072E-02, + 0.30400399E-01, 0.69182566E-02, 0.19991705E-01,-0.30890785E-01, + 0.14492058E-01, 0.76591265E-02,-0.33363413E-01,-0.81756562E-01, + -0.26192145E-01, 0.12776388E-02,-0.68379850E-02,-0.70917560E-02, + -0.42585175E-01,-0.64475670E-01, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 c c function c l_sr9_q3en =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x51 4 +coeff( 4)*x11 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x21 *x51 8 +coeff( 8) *x21 *x42 l_sr9_q3en =l_sr9_q3en 9 +coeff( 9) *x23*x31*x41 1 +coeff( 10) *x41 2 +coeff( 11) *x21*x31*x41 3 +coeff( 12) *x21 *x43 4 +coeff( 13) *x23*x31*x42 5 +coeff( 14) *x31 6 +coeff( 15) *x22 *x41 7 +coeff( 16) *x21 *x41*x51 8 +coeff( 17) *x21*x31*x42 l_sr9_q3en =l_sr9_q3en 9 +coeff( 18) *x21 *x44 c return end function x_sr9_q3ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.4368445E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.47543E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.12402192E-01, 0.75858273E-01,-0.14097115E-03, 0.31843814E+00, + 0.62579964E-02, 0.37252568E-01,-0.20933110E-01,-0.68983966E-02, + -0.59148585E-02,-0.10684556E-02,-0.45499192E-02, 0.16965196E-01, + -0.55815745E-02,-0.20166114E-02,-0.42834520E-01, 0.18778512E-01, + -0.21520634E-02,-0.73789334E-03,-0.20777389E-01,-0.49806397E-01, + 0.24953135E-02,-0.39304472E-02,-0.66291806E-02,-0.76726037E-02, + -0.41057240E-01, 0.31079279E-01, 0.19403994E-02,-0.52009302E-03, + -0.91104378E-03, 0.32390587E-03, 0.36715455E-02,-0.12471028E-03, + -0.18691125E-02, 0.16904165E-03,-0.26155589E-02,-0.15398780E-01, + -0.87236840E-03,-0.10681755E-01,-0.82647247E-03,-0.61946148E-02, + -0.14365843E-01,-0.24388792E-01,-0.18339147E-03, 0.11130442E-02, + -0.11001770E-03, 0.17229402E-02,-0.22092832E-02,-0.22129649E-04, + 0.17388336E-02,-0.31263386E-02,-0.11624903E-02,-0.56030629E-02, + 0.30664802E-02, 0.33264556E-02, 0.56887639E-03, 0.10731068E-01, + -0.31707752E-02,-0.47243997E-02,-0.15367257E-02, 0.10137532E-01, + 0.16194543E-01,-0.12150561E-01,-0.15078542E-01, 0.29636966E-03, + -0.23847760E-02,-0.71597501E-03, 0.25277070E-02,-0.10020986E-02, + 0.25308604E-03,-0.41073843E-03, 0.11202162E-02,-0.16226028E-02, + -0.20006546E-02,-0.11299417E-02,-0.62404107E-03,-0.25175777E-03, + 0.48203049E-02,-0.17443000E-02,-0.23864601E-02, 0.37726355E-02, + -0.52019106E-02, 0.22761885E-02, 0.92288933E-03,-0.17500869E-02, + 0.30136653E-02,-0.42890301E-02,-0.15896760E-02,-0.36184848E-03, + 0.97475015E-03,-0.77333499E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_q3ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x21 *x41 6 +coeff( 6) *x21 *x51 7 +coeff( 7) *x52 8 +coeff( 8) *x21 *x42 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 9) *x24 1 +coeff( 10) *x21*x31*x41 2 +coeff( 11)*x11 3 +coeff( 12) *x22 4 +coeff( 13) *x42 5 +coeff( 14) *x21 *x41*x51 6 +coeff( 15) *x21 *x43 7 +coeff( 16) *x23*x31*x42 8 +coeff( 17) *x41*x51 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 18) *x21 *x52 1 +coeff( 19) *x21*x31*x42 2 +coeff( 20) *x21 *x44 3 +coeff( 21) *x53 4 +coeff( 22) *x23 *x41 5 +coeff( 23) *x21*x32*x41 6 +coeff( 24) *x21 *x42*x51 7 +coeff( 25) *x21*x31*x43 8 +coeff( 26) *x23 *x43 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 27) *x23*x32*x42 1 +coeff( 28) *x21*x34*x42 2 +coeff( 29) *x31*x41 3 +coeff( 30) *x22 *x41 4 +coeff( 31) *x22 *x51 5 +coeff( 32) *x21*x31 *x51 6 +coeff( 33) *x22 *x42 7 +coeff( 34)*x11 *x41 8 +coeff( 35) *x21*x33*x41 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 36) *x21*x32*x42 1 +coeff( 37) *x23 *x41*x51 2 +coeff( 38) *x21 *x43*x51 3 +coeff( 39)*x11 *x42 4 +coeff( 40) *x21*x33*x41*x51 5 +coeff( 41) *x23 *x44 6 +coeff( 42) *x23*x31*x44 7 +coeff( 43) *x31 *x51 8 +coeff( 44) *x23 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 45) *x31*x41*x51 1 +coeff( 46) *x21*x31*x41*x51 2 +coeff( 47) *x21 *x41*x52 3 +coeff( 48)*x11 *x31 4 +coeff( 49) *x22 *x43 5 +coeff( 50) *x24 *x51 6 +coeff( 51) *x22*x31*x41*x51 7 +coeff( 52) *x21*x31*x42*x51 8 +coeff( 53) *x24 *x42 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 54) *x22*x31*x43 1 +coeff( 55) *x22*x32*x41*x51 2 +coeff( 56) *x23 *x42*x51 3 +coeff( 57) *x21*x32*x42*x51 4 +coeff( 58) *x21*x31*x43*x51 5 +coeff( 59)*x11 *x43 6 +coeff( 60) *x23*x33*x41*x51 7 +coeff( 61) *x23*x33*x44 8 +coeff( 62)*x11*x24 *x44*x53 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 63)*x11*x22*x34*x44*x52 1 +coeff( 64) *x41*x52 2 +coeff( 65) *x23 *x51 3 +coeff( 66) *x21*x32 *x51 4 +coeff( 67) *x22 *x41*x51 5 +coeff( 68) *x22 *x52 6 +coeff( 69) *x41*x53 7 +coeff( 70) *x54 8 +coeff( 71) *x22*x31*x42 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 72) *x21*x32*x41*x51 1 +coeff( 73) *x23 *x52 2 +coeff( 74) *x21 *x41*x53 3 +coeff( 75) *x23*x33 4 +coeff( 76)*x11 *x31*x41 5 +coeff( 77) *x23*x32*x41 6 +coeff( 78) *x22*x33*x41 7 +coeff( 79) *x21*x33*x42 8 +coeff( 80) *x22 *x44 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 81) *x21*x31*x44 1 +coeff( 82) *x23*x32 *x51 2 +coeff( 83) *x23*x31 *x52 3 +coeff( 84) *x22 *x42*x52 4 +coeff( 85) *x21 *x43*x52 5 +coeff( 86) *x22 *x41*x53 6 +coeff( 87) *x21*x31*x41*x53 7 +coeff( 88)*x11*x21*x31*x41 8 +coeff( 89) *x24*x32*x41 x_sr9_q3ex =x_sr9_q3ex 9 +coeff( 90)*x11 *x31*x42 c return end function t_sr9_q3ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 17) data ncoeff/ 16/ data avdat/ -0.2570022E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.47543E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.49042855E-02,-0.25621956E-01, 0.11072295E-03, 0.10670312E+00, + 0.57978942E-02,-0.98376917E-02,-0.58269175E-03, 0.31518974E-03, + -0.16605066E-02, 0.26189343E-02, 0.11767192E-02,-0.51570835E-03, + 0.59026002E-03,-0.91737672E-03,-0.67325402E-03, 0.60782360E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c t_sr9_q3ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x21 *x51 6 +coeff( 6) *x52 7 +coeff( 7)*x11 8 +coeff( 8) *x22 t_sr9_q3ex =t_sr9_q3ex 9 +coeff( 9) *x42 1 +coeff( 10) *x22 *x42 2 +coeff( 11) *x21 *x43 3 +coeff( 12) *x41*x51 4 +coeff( 13) *x21*x31*x41 5 +coeff( 14) *x21 *x41*x51 6 +coeff( 15) *x21 *x52 7 +coeff( 16) *x53 c return end function y_sr9_q3ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 96) data ncoeff/ 95/ data avdat/ 0.3115142E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.47543E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.53655268E-02,-0.21562751E-01,-0.23371486E-01,-0.54158131E-03, + 0.20997176E-01,-0.31232301E-03,-0.73145964E-03,-0.27326774E-03, + -0.23289821E-02,-0.55510584E-01, 0.27171052E-02, 0.52128054E-01, + 0.59789523E-04,-0.88637518E-02,-0.11033721E-01, 0.90693496E-02, + 0.16741655E-02, 0.70822367E-04,-0.48874144E-03,-0.67710681E-02, + -0.27382653E-02,-0.44592097E-02,-0.45918435E-01,-0.67758607E-02, + -0.31050434E-03,-0.11487772E-03, 0.37815208E-02,-0.10147062E-01, + -0.15275695E-02, 0.11700061E-02,-0.70977828E-03, 0.12386033E-02, + 0.17985859E-02, 0.12726854E-01, 0.85541094E-03,-0.33135142E-01, + 0.19859972E-02,-0.89603511E-03, 0.11569689E-01,-0.10426994E-01, + -0.29683290E-02,-0.81103295E-02,-0.39483896E-02, 0.95838396E-03, + 0.50714117E-03, 0.26959637E-01, 0.25577212E-01, 0.16937331E-03, + 0.17824490E-02, 0.24864286E-01, 0.64850099E-01, 0.10938523E-03, + -0.96493849E-03,-0.26485586E-03, 0.27358851E-02,-0.83051017E-02, + -0.30714436E-01,-0.66457107E-02,-0.51146131E-02, 0.12469589E-01, + -0.20250887E-01, 0.24389075E-01,-0.34685603E-02,-0.52683901E-01, + -0.18472160E+00, 0.13751465E-01,-0.69115740E-04, 0.36793873E-02, + -0.10402194E-02, 0.10753245E-02, 0.14637673E-02, 0.15932462E-02, + 0.22715286E-02,-0.71621491E-02, 0.11998292E-01, 0.28220108E-02, + -0.18192340E-01,-0.18106509E-02,-0.14298486E-01, 0.48210947E-02, + -0.54499069E-02, 0.12274861E-01,-0.60354285E-02, 0.37917034E-02, + 0.60891742E-02,-0.16046628E+00,-0.98132035E-02, 0.45982897E-01, + -0.69982164E-01,-0.35330627E-01,-0.17760692E-01,-0.16150031E-01, + 0.26078248E-01,-0.53528170E-02, 0.26814306E-01, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x45 = x44*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c y_sr9_q3ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x21 5 +coeff( 5) *x51 6 +coeff( 6) *x32 7 +coeff( 7) *x31*x41 8 +coeff( 8) *x42 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 9) *x21*x31 1 +coeff( 10) *x21 *x41 2 +coeff( 11) *x31 *x51 3 +coeff( 12) *x41*x51 4 +coeff( 13)*x11 5 +coeff( 14) *x22 6 +coeff( 15) *x21 *x51 7 +coeff( 16) *x52 8 +coeff( 17) *x32*x41 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 18) *x43 1 +coeff( 19) *x21*x32 2 +coeff( 20) *x21 *x42 3 +coeff( 21) *x42*x51 4 +coeff( 22) *x22*x31 5 +coeff( 23) *x22 *x41 6 +coeff( 24) *x21 *x41*x51 7 +coeff( 25) *x41*x52 8 +coeff( 26)*x11*x21 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 27) *x23 1 +coeff( 28) *x22 *x51 2 +coeff( 29) *x21 *x52 3 +coeff( 30) *x31*x43 4 +coeff( 31) *x44 5 +coeff( 32) *x21*x32*x41 6 +coeff( 33) *x21*x31*x42 7 +coeff( 34) *x21 *x43 8 +coeff( 35) *x22*x32 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 36) *x22 *x42 1 +coeff( 37) *x21 *x42*x51 2 +coeff( 38)*x11*x21 *x41 3 +coeff( 39) *x23 *x41 4 +coeff( 40) *x22 *x41*x51 5 +coeff( 41) *x33*x42 6 +coeff( 42) *x31*x44 7 +coeff( 43) *x45 8 +coeff( 44) *x23 *x51 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 45) *x21*x33*x41 1 +coeff( 46) *x21*x31*x43 2 +coeff( 47) *x21 *x44 3 +coeff( 48) *x33*x41*x51 4 +coeff( 49)*x11 *x32*x41 5 +coeff( 50) *x22*x31*x42 6 +coeff( 51) *x22 *x43 7 +coeff( 52)*x11*x21 *x42 8 +coeff( 53) *x23 *x42 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 54) *x22 *x42*x51 1 +coeff( 55)*x11*x22 *x41 2 +coeff( 56) *x22*x33*x41 3 +coeff( 57) *x22*x31*x43 4 +coeff( 58) *x22 *x44 5 +coeff( 59)*x11*x21*x31*x42 6 +coeff( 60) *x23*x31*x42 7 +coeff( 61) *x22 *x43*x51 8 +coeff( 62) *x24 *x42 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 63) *x24*x31 *x51 1 +coeff( 64) *x22*x32*x43 2 +coeff( 65) *x22 *x45 3 +coeff( 66) *x24*x31*x41*x51 4 +coeff( 67) *x33 5 +coeff( 68) *x31*x42 6 +coeff( 69) *x53 7 +coeff( 70) *x32*x42 8 +coeff( 71) *x31*x42*x51 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 72) *x21*x31*x41*x51 1 +coeff( 73) *x24 2 +coeff( 74) *x32*x43 3 +coeff( 75) *x21*x32*x42 4 +coeff( 76) *x44*x51 5 +coeff( 77) *x22*x31*x41*x51 6 +coeff( 78) *x21 *x42*x52 7 +coeff( 79) *x22*x32*x42 8 +coeff( 80) *x24*x31*x41 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 81)*x11*x21 *x42*x51 1 +coeff( 82) *x23 *x42*x51 2 +coeff( 83) *x21*x31*x45 3 +coeff( 84) *x22*x34*x41 4 +coeff( 85) *x22*x33*x42 5 +coeff( 86) *x22*x31*x44 6 +coeff( 87)*x11*x21 *x44 7 +coeff( 88) *x23 *x44 8 +coeff( 89) *x22 *x44*x51 y_sr9_q3ex =y_sr9_q3ex 9 +coeff( 90) *x22*x31*x44*x51 1 +coeff( 91) *x32*x43*x53 2 +coeff( 92) *x31*x44*x53 3 +coeff( 93) *x24 *x43*x51 4 +coeff( 94)*x12*x22*x31*x41 5 +coeff( 95) *x23*x31*x45 c return end function p_sr9_q3ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.1177177E-02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.47543E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.22075304E-02, 0.20850578E-03, 0.72395313E-02,-0.60231830E-02, + -0.99287275E-02, 0.55099255E-02, 0.29393888E-03, 0.19629719E-01, + -0.23852517E-03, 0.10843624E-02, 0.44651404E-02,-0.22665965E-02, + -0.20468738E-01,-0.23071670E-02,-0.12791838E-02, 0.10736739E-01, + 0.45022848E-02, 0.74953394E-03, 0.26284258E-02, 0.10049356E-02, + 0.34574387E-02, 0.63561910E-03,-0.41496214E-02, 0.14357081E-04, + -0.85592512E-02,-0.52199378E-02,-0.16499768E-02,-0.13714331E-04, + -0.41560763E-02, 0.19190343E-02,-0.32828792E-02,-0.34462761E-02, + -0.44472102E-03,-0.83320076E-03, 0.51813563E-02, 0.33159919E-01, + -0.13538243E-01, 0.89141736E-02, 0.46946542E-03, 0.50322831E-01, + 0.13728876E-01,-0.50437375E-03, 0.27368222E-02, 0.45512270E-03, + -0.21112289E-02,-0.45949439E-03,-0.14977355E-01, 0.59124053E-03, + 0.12089254E-02,-0.15670152E-02, 0.10656329E-02, 0.40853243E-01, + 0.17039098E-02, 0.89411587E-02, 0.25680293E-02,-0.43247114E-02, + 0.87015172E-02, 0.13387434E-02, 0.37147824E-03, 0.45403172E-03, + 0.20541417E-03, 0.76829607E-03,-0.25917715E-03, 0.53944008E-03, + 0.61053815E-02,-0.61622644E-02,-0.12596401E-02, 0.18035979E-02, + 0.13126649E-01, 0.81097631E-03, 0.37269283E-02,-0.24021321E-02, + 0.63631595E-02,-0.33478949E-01, 0.65346234E-02,-0.17039571E-01, + 0.95470750E-03, 0.35868881E-02,-0.64921035E-02, 0.18887728E-01, + -0.19495400E-01, 0.28217139E-02,-0.16332483E-02,-0.36617266E-02, + 0.34964348E-02, 0.85326610E-02,-0.92309067E-03, 0.21021096E-02, + -0.55746646E-02,-0.18279215E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c p_sr9_q3ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x31 4 +coeff( 4) *x41 5 +coeff( 5) *x51 6 +coeff( 6) *x22 7 +coeff( 7) *x21*x31 8 +coeff( 8) *x21 *x41 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 9) *x31*x41 1 +coeff( 10) *x42 2 +coeff( 11) *x21 *x51 3 +coeff( 12) *x31 *x51 4 +coeff( 13) *x41*x51 5 +coeff( 14) *x52 6 +coeff( 15) *x23 7 +coeff( 16) *x22 *x41 8 +coeff( 17) *x21 *x42 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 18) *x43 1 +coeff( 19) *x22 *x51 2 +coeff( 20) *x42*x51 3 +coeff( 21) *x41*x52 4 +coeff( 22)*x11*x21 *x41 5 +coeff( 23) *x23 *x41 6 +coeff( 24) *x22*x31*x41 7 +coeff( 25) *x22 *x42 8 +coeff( 26) *x21 *x43 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 27) *x44 1 +coeff( 28) *x22 *x41*x51 2 +coeff( 29) *x21 *x42*x51 3 +coeff( 30) *x24*x31 4 +coeff( 31) *x23*x31*x41 5 +coeff( 32) *x22*x32*x41 6 +coeff( 33)*x11*x21 *x42 7 +coeff( 34) *x23 *x42 8 +coeff( 35) *x22*x31*x42 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 36) *x22 *x43 1 +coeff( 37) *x21 *x44 2 +coeff( 38) *x22 *x42*x51 3 +coeff( 39) *x23*x31*x42 4 +coeff( 40) *x22 *x44 5 +coeff( 41) *x22*x31*x44 6 +coeff( 42)*x11 *x41 7 +coeff( 43) *x21*x31*x41 8 +coeff( 44) *x31*x41*x51 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 45) *x24 1 +coeff( 46) *x31*x43 2 +coeff( 47) *x21*x31*x43 3 +coeff( 48) *x32*x43 4 +coeff( 49) *x22*x31*x41*x51 5 +coeff( 50) *x23*x32*x41 6 +coeff( 51) *x34*x42 7 +coeff( 52) *x22*x31*x43 8 +coeff( 53)*x11*x21 *x42*x51 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 54) *x22 *x43*x51 1 +coeff( 55) *x21*x34*x42 2 +coeff( 56) *x22*x34*x42 3 +coeff( 57) *x22*x31*x42*x53 4 +coeff( 58) *x21 *x41*x51 5 +coeff( 59) *x31 *x52 6 +coeff( 60) *x53 7 +coeff( 61)*x11*x21*x31 8 +coeff( 62) *x33*x41 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 63) *x32*x42 1 +coeff( 64) *x22*x31 *x51 2 +coeff( 65) *x24 *x41 3 +coeff( 66) *x21*x32*x42 4 +coeff( 67) *x21 *x43*x51 5 +coeff( 68) *x21 *x42*x52 6 +coeff( 69) *x22*x32*x42 7 +coeff( 70)*x11*x22 *x52 8 +coeff( 71) *x21 *x42*x53 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 72)*x12*x21*x31*x41 1 +coeff( 73) *x22*x34*x41 2 +coeff( 74) *x24 *x43 3 +coeff( 75)*x11*x21 *x44 4 +coeff( 76) *x23 *x44 5 +coeff( 77)*x11*x22*x31*x41*x51 6 +coeff( 78)*x11*x23*x31*x42 7 +coeff( 79) *x24*x31*x43 8 +coeff( 80) *x24 *x44 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 81) *x23*x31*x44 1 +coeff( 82) *x21*x33*x44 2 +coeff( 83)*x12*x21*x32 *x51 3 +coeff( 84)*x12*x21*x31*x41*x51 4 +coeff( 85) *x23*x33*x41*x51 5 +coeff( 86) *x23*x33*x43 6 +coeff( 87)*x12*x24 *x51 7 +coeff( 88)*x12*x22*x32 *x51 8 +coeff( 89)*x12*x22 *x42*x51 p_sr9_q3ex =p_sr9_q3ex 9 +coeff( 90)*x11*x22*x33 *x52 c return end function l_sr9_q3ex (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 20) data ncoeff/ 19/ data avdat/ 0.2133449E+02/ data xmin/ 1 -0.29988E-02,-0.54656E-01,-0.99720E-02,-0.29674E-01,-0.47543E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29973E-02, 0.54839E-01, 0.99976E-02, 0.28751E-01, 0.49870E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.53721485E-02, 0.33518085E+00, 0.73958975E-02, 0.31083586E-01, + -0.66928319E-02, 0.35143130E-01, 0.76505612E-02,-0.41922815E-01, + 0.16798317E-01, 0.10955235E-01, 0.70584407E-02,-0.34291599E-01, + -0.88155754E-01,-0.20607969E-01, 0.10763559E-02,-0.46973307E-01, + 0.16719827E-01,-0.13082580E-01,-0.55085167E-01, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 c c function c l_sr9_q3ex =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5)*x11 6 +coeff( 6) *x22 7 +coeff( 7) *x21 *x41 8 +coeff( 8) *x21 *x42 l_sr9_q3ex =l_sr9_q3ex 9 +coeff( 9) *x23*x31*x41 1 +coeff( 10) *x21 *x51 2 +coeff( 11) *x52 3 +coeff( 12) *x21*x31*x41 4 +coeff( 13) *x21 *x43 5 +coeff( 14) *x23*x31*x42 6 +coeff( 15) *x31 7 +coeff( 16) *x21*x31*x42 8 +coeff( 17) *x23 *x42 l_sr9_q3ex =l_sr9_q3ex 9 +coeff( 18) *x22 *x43 1 +coeff( 19) *x21 *x44 c return end function x_sr9_fp (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ -0.2334005E-01/ data xmin/ 1 -0.29992E-02,-0.52863E-01,-0.99913E-02,-0.29683E-01,-0.48246E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29941E-02, 0.55048E-01, 0.99879E-02, 0.29273E-01, 0.49909E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.34253288E-01, 0.24263288E-02,-0.64736960E-03, 0.63217497E+00, + 0.55007968E-01,-0.50673742E-01, 0.20636834E-01,-0.14328624E-01, + -0.63796379E-02,-0.11508134E-01,-0.23080073E-02, 0.32622388E-02, + -0.43027387E-02,-0.28381811E-02,-0.21713125E-03, 0.20881330E-03, + 0.11431179E-02, 0.52162753E-02,-0.95135523E-02,-0.58481790E-03, + -0.35393506E-01, 0.10289319E-01,-0.40654098E-02,-0.16838223E-02, + -0.35526673E-02,-0.39837588E-03,-0.20147061E-03,-0.35135848E-02, + 0.50454764E-02,-0.18795049E-01,-0.20099070E-03,-0.11295763E-01, + 0.50838303E-03,-0.49742423E-02,-0.43524161E-01, 0.17512977E-02, + 0.26910352E-02, 0.18163522E-02, 0.62988619E-02, 0.72862912E-03, + -0.27845705E-04,-0.66836958E-03, 0.46364772E-02, 0.79336176E-02, + -0.33885833E-01,-0.77565555E-02,-0.15315194E-01, 0.27679553E-01, + -0.26430241E-02,-0.45850503E-03, 0.15025060E-02,-0.25943776E-02, + -0.17182143E-01,-0.90955618E-04, 0.18710193E-03,-0.46040639E-02, + 0.27037100E-02,-0.27596778E-02,-0.63777501E-04, 0.47120924E-04, + 0.88239300E-04, 0.52601378E-03,-0.15445389E-02,-0.85878065E-02, + -0.26409526E-03, 0.13089331E-03,-0.22691428E-02,-0.73093190E-02, + -0.38946320E-02, 0.10208332E-02,-0.39034933E-03, 0.92192236E-02, + 0.62494404E-02,-0.38000613E-02,-0.10873418E-02,-0.12267944E-02, + 0.57112956E-02, 0.28089732E-02,-0.37566838E-02, 0.24017632E-01, + 0.47571147E-02,-0.12432341E-02, 0.20368446E-01,-0.16611742E-01, + -0.28268261E-01, 0.11630372E-01,-0.17055077E-01,-0.15513425E-01, + -0.85267974E-02,-0.44012078E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c x_sr9_fp =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x21 *x51 6 +coeff( 6) *x52 7 +coeff( 7) *x22 8 +coeff( 8) *x21 *x42 x_sr9_fp =x_sr9_fp 9 +coeff( 9)*x11 1 +coeff( 10) *x42 2 +coeff( 11) *x21*x31*x41 3 +coeff( 12) *x21 *x41 4 +coeff( 13) *x21 *x41*x51 5 +coeff( 14) *x21 *x52 6 +coeff( 15) *x41*x53 7 +coeff( 16) *x21*x31 8 +coeff( 17) *x22 *x41 x_sr9_fp =x_sr9_fp 9 +coeff( 18) *x53 1 +coeff( 19) *x24 2 +coeff( 20) *x23 *x41 3 +coeff( 21) *x21 *x43 4 +coeff( 22) *x23*x31*x42 5 +coeff( 23) *x21*x31*x44 6 +coeff( 24) *x31*x41 7 +coeff( 25) *x41*x51 8 +coeff( 26) *x21*x32 x_sr9_fp =x_sr9_fp 9 +coeff( 27) *x23*x31 1 +coeff( 28) *x21*x32*x41 2 +coeff( 29) *x22 *x42 3 +coeff( 30) *x21*x31*x42 4 +coeff( 31) *x22*x31 *x51 5 +coeff( 32) *x21 *x42*x51 6 +coeff( 33)*x11*x21 7 +coeff( 34) *x23 *x42 8 +coeff( 35) *x21 *x44 x_sr9_fp =x_sr9_fp 9 +coeff( 36) *x23*x31*x43 1 +coeff( 37) *x24*x31*x41*x51 2 +coeff( 38) *x23 3 +coeff( 39) *x22 *x51 4 +coeff( 40) *x41*x52 5 +coeff( 41) *x21 *x41*x52 6 +coeff( 42) *x23*x31*x41 7 +coeff( 43) *x22*x31*x42 8 +coeff( 44) *x22 *x43 x_sr9_fp =x_sr9_fp 9 +coeff( 45) *x21*x31*x43 1 +coeff( 46) *x24 *x51 2 +coeff( 47) *x21 *x43*x51 3 +coeff( 48) *x23 *x43 4 +coeff( 49) *x23 *x41*x52 5 +coeff( 50) *x22 *x54 6 +coeff( 51) *x23*x32*x42 7 +coeff( 52) *x21*x34*x42 8 +coeff( 53) *x22 *x43*x53 x_sr9_fp =x_sr9_fp 9 +coeff( 54) *x31 1 +coeff( 55) *x21*x31 *x51 2 +coeff( 56) *x23 *x51 3 +coeff( 57) *x22 *x41*x51 4 +coeff( 58) *x21*x31*x41*x51 5 +coeff( 59) *x31*x42*x51 6 +coeff( 60) *x31 *x53 7 +coeff( 61)*x11 *x41 8 +coeff( 62) *x22*x32*x41 x_sr9_fp =x_sr9_fp 9 +coeff( 63) *x21*x33*x41 1 +coeff( 64) *x21*x32*x42 2 +coeff( 65)*x11 *x51 3 +coeff( 66) *x23*x31 *x51 4 +coeff( 67) *x23 *x41*x51 5 +coeff( 68) *x21*x31*x42*x51 6 +coeff( 69) *x23 *x52 7 +coeff( 70) *x24*x31*x41 8 +coeff( 71)*x11 *x42 x_sr9_fp =x_sr9_fp 9 +coeff( 72) *x23 *x42*x51 1 +coeff( 73) *x22*x31*x42*x51 2 +coeff( 74) *x24 *x52 3 +coeff( 75)*x11 *x31*x42 4 +coeff( 76)*x11 *x43 5 +coeff( 77) *x23 *x43*x51 6 +coeff( 78) *x22*x32*x41*x52 7 +coeff( 79) *x22*x31*x41*x53 8 +coeff( 80) *x23*x31*x43*x51 x_sr9_fp =x_sr9_fp 9 +coeff( 81) *x21*x33*x43*x51 1 +coeff( 82) *x34*x43*x51 2 +coeff( 83) *x23 *x44*x51 3 +coeff( 84) *x22*x31*x42*x53 4 +coeff( 85) *x24*x31*x44*x51 5 +coeff( 86) *x21*x34*x44*x51 6 +coeff( 87) *x23*x31*x44*x52 7 +coeff( 88)*x11*x24*x31*x44*x51 8 +coeff( 89)*x11*x24*x33*x41*x52 x_sr9_fp =x_sr9_fp 9 +coeff( 90) *x31 *x51 c return end function t_sr9_fp (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 19) data ncoeff/ 18/ data avdat/ -0.4599211E-02/ data xmin/ 1 -0.29992E-02,-0.52863E-01,-0.99913E-02,-0.29683E-01,-0.48246E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29941E-02, 0.55048E-01, 0.99879E-02, 0.29273E-01, 0.49909E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.60398877E-02,-0.25256841E-01, 0.10384037E-03, 0.10775828E+00, + 0.57894983E-02,-0.10112477E-01,-0.58579596E-03, 0.27246244E-03, + -0.17153705E-02,-0.10427434E-02, 0.52078038E-04, 0.28464464E-02, + -0.51629479E-03, 0.20021641E-03,-0.94660022E-03, 0.10515957E-02, + 0.12550512E-02, 0.93746808E-03, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x31 = x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c t_sr9_fp =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x41 4 +coeff( 4) *x51 5 +coeff( 5) *x21 *x51 6 +coeff( 6) *x52 7 +coeff( 7)*x11 8 +coeff( 8) *x22 t_sr9_fp =t_sr9_fp 9 +coeff( 9) *x42 1 +coeff( 10) *x21 *x52 2 +coeff( 11) *x23 *x41 3 +coeff( 12) *x22 *x42 4 +coeff( 13) *x41*x51 5 +coeff( 14)*x11*x21 6 +coeff( 15) *x21 *x41*x51 7 +coeff( 16) *x53 8 +coeff( 17) *x21 *x43 t_sr9_fp =t_sr9_fp 9 +coeff( 18) *x23*x31*x41 c return end function y_sr9_fp (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 96) data ncoeff/ 95/ data avdat/ 0.1275722E-02/ data xmin/ 1 -0.29992E-02,-0.52863E-01,-0.99913E-02,-0.29683E-01,-0.48246E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29941E-02, 0.55048E-01, 0.99879E-02, 0.29273E-01, 0.49909E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.10050430E-02,-0.12866405E-02,-0.39934255E-01, 0.67207037E-03, + -0.76818364E-02,-0.47474727E-03,-0.11598219E-02,-0.11486262E-02, + 0.74832054E-03,-0.35726090E-02,-0.49075680E-02, 0.27183446E-02, + 0.11095831E-02, 0.23647000E-02,-0.52107843E-02,-0.79957186E-04, + -0.19951482E-03, 0.85763057E-03, 0.50655645E-02, 0.10943380E-02, + -0.61002588E-02, 0.96677104E-02, 0.21603522E-03,-0.19717098E-02, + -0.21417430E-02,-0.30105753E-03, 0.56986604E-03, 0.64174942E-03, + 0.52708015E-03,-0.11140836E-02, 0.10137733E-02, 0.66827405E-02, + 0.13438040E-01,-0.65489598E-02,-0.51012901E-02, 0.29699926E-02, + 0.14781958E-01, 0.72585656E-02, 0.16742116E-02,-0.12012092E-03, + -0.19845545E-01,-0.48145582E-03, 0.61780069E-04, 0.44603865E-02, + 0.31323270E-02,-0.53394237E-03,-0.26278850E-03, 0.29603271E-02, + 0.21488717E-01, 0.34572542E-01, 0.45729545E-02,-0.22699684E-02, + -0.16086359E-02, 0.63193189E-02,-0.20883719E-02, 0.21924370E-02, + 0.22548987E-02,-0.60492242E-03, 0.27148551E-03, 0.14047867E-02, + 0.63046433E-01,-0.31683225E-01,-0.22134688E-01, 0.17475894E-01, + 0.67715892E-02,-0.29312477E-01,-0.10430457E-01, 0.10251403E-01, + 0.25879363E-01, 0.18078798E-01, 0.15132736E-01,-0.68692896E-02, + -0.58907224E-03,-0.93296013E-03,-0.63799765E-04, 0.10584276E-01, + -0.12542148E-02, 0.37875674E-02, 0.33075947E-03,-0.45140227E-02, + -0.19076200E-02, 0.52510493E-03,-0.12382065E-02, 0.22347844E-02, + 0.81163336E-03, 0.20623072E-02, 0.17966749E-02,-0.19905814E-02, + 0.23330601E-02,-0.24454915E-02,-0.13801611E-02, 0.46474370E-03, + -0.44258740E-02, 0.39359167E-01, 0.35990414E-02, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x35 = x34*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x45 = x44*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c y_sr9_fp =avdat 1 +coeff( 1) 2 +coeff( 2) *x31 3 +coeff( 3) *x41 4 +coeff( 4) *x21 5 +coeff( 5) *x51 6 +coeff( 6) *x31*x41 7 +coeff( 7) *x42 8 +coeff( 8) *x21*x31 y_sr9_fp =y_sr9_fp 9 +coeff( 9) *x21 *x41 1 +coeff( 10) *x31 *x51 2 +coeff( 11) *x41*x51 3 +coeff( 12) *x22 4 +coeff( 13) *x21 *x51 5 +coeff( 14) *x52 6 +coeff( 15) *x43 7 +coeff( 16) *x21 *x42 8 +coeff( 17) *x31*x41*x51 y_sr9_fp =y_sr9_fp 9 +coeff( 18) *x42*x51 1 +coeff( 19) *x22 *x41 2 +coeff( 20) *x21*x31 *x51 3 +coeff( 21) *x21 *x41*x51 4 +coeff( 22) *x41*x52 5 +coeff( 23)*x11*x21 6 +coeff( 24) *x22 *x51 7 +coeff( 25) *x21 *x52 8 +coeff( 26) *x31*x43 y_sr9_fp =y_sr9_fp 9 +coeff( 27) *x44 1 +coeff( 28) *x21*x31*x42 2 +coeff( 29) *x31*x42*x51 3 +coeff( 30) *x43*x51 4 +coeff( 31) *x22*x32 5 +coeff( 32) *x22*x31*x41 6 +coeff( 33) *x22 *x42 7 +coeff( 34) *x22 *x41*x51 8 +coeff( 35) *x41*x53 y_sr9_fp =y_sr9_fp 9 +coeff( 36) *x33*x42 1 +coeff( 37) *x31*x44 2 +coeff( 38) *x45 3 +coeff( 39) *x31*x43*x51 4 +coeff( 40) *x22*x33 5 +coeff( 41) *x22 *x43 6 +coeff( 42) *x33 *x52 7 +coeff( 43)*x11*x21 *x42 8 +coeff( 44) *x22*x31*x41*x51 y_sr9_fp =y_sr9_fp 9 +coeff( 45) *x22 *x42*x51 1 +coeff( 46) *x24*x31 2 +coeff( 47) *x34*x42 3 +coeff( 48) *x23 *x41*x51 4 +coeff( 49) *x22*x31*x43 5 +coeff( 50) *x22 *x44 6 +coeff( 51) *x22*x31*x42*x52 7 +coeff( 52) *x22*x34*x42 8 +coeff( 53) *x22*x35*x42 y_sr9_fp =y_sr9_fp 9 +coeff( 54) *x23 *x42*x53 1 +coeff( 55) *x32*x41 2 +coeff( 56) *x22*x31 3 +coeff( 57) *x31 *x52 4 +coeff( 58) *x23 5 +coeff( 59)*x11*x21 *x41 6 +coeff( 60)*x11*x21*x31*x41 7 +coeff( 61) *x22 *x45 8 +coeff( 62) *x22*x31*x43*x51 y_sr9_fp =y_sr9_fp 9 +coeff( 63) *x22 *x44*x51 1 +coeff( 64) *x23*x31*x42*x51 2 +coeff( 65) *x23 *x43*x51 3 +coeff( 66) *x24 *x44 4 +coeff( 67) *x22*x34*x42*x51 5 +coeff( 68) *x24*x31*x44 6 +coeff( 69) *x24 *x45 7 +coeff( 70) *x24*x34*x42 8 +coeff( 71)*x11*x23*x31*x44*x51 y_sr9_fp =y_sr9_fp 9 +coeff( 72) *x31*x42 1 +coeff( 73) *x21 *x42*x51 2 +coeff( 74) *x23 *x41 3 +coeff( 75) *x22*x31 *x51 4 +coeff( 76) *x32*x43 5 +coeff( 77) *x22 *x52 6 +coeff( 78) *x22*x32*x41 7 +coeff( 79)*x11 *x31*x42 8 +coeff( 80) *x21*x31*x42*x51 y_sr9_fp =y_sr9_fp 9 +coeff( 81) *x23*x31 *x51 1 +coeff( 82)*x11*x21 *x41*x51 2 +coeff( 83) *x22*x31 *x52 3 +coeff( 84) *x22 *x41*x52 4 +coeff( 85) *x22 *x53 5 +coeff( 86)*x11*x21*x31*x42 6 +coeff( 87)*x11*x21 *x43 7 +coeff( 88) *x22*x33 *x51 8 +coeff( 89) *x21 *x43*x52 y_sr9_fp =y_sr9_fp 9 +coeff( 90) *x31*x42*x53 1 +coeff( 91) *x24*x32 2 +coeff( 92)*x12 *x31*x41 3 +coeff( 93) *x24*x31*x41 4 +coeff( 94) *x22*x31*x44 5 +coeff( 95)*x11*x21 *x44 c return end function p_sr9_fp (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 91) data ncoeff/ 90/ data avdat/ 0.2140281E-02/ data xmin/ 1 -0.29992E-02,-0.52863E-01,-0.99913E-02,-0.29683E-01,-0.48246E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29941E-02, 0.55048E-01, 0.99879E-02, 0.29273E-01, 0.49909E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + -0.21797619E-02, 0.69290918E-03, 0.72031971E-02,-0.56138262E-02, + -0.99565871E-02, 0.41852882E-02, 0.47687691E-03, 0.19806333E-01, + -0.37437351E-03, 0.38865395E-02,-0.23128865E-02,-0.20196974E-01, + -0.25155609E-02,-0.12314649E-02,-0.44393263E-03, 0.11618041E-01, + 0.40599520E-03, 0.11913886E-02, 0.33341078E-02, 0.11208747E-02, + 0.36661539E-02, 0.99268591E-03,-0.31023810E-02, 0.45461403E-02, + 0.93817784E-04, 0.95310751E-02,-0.62618577E-02,-0.12671444E-03, + -0.33118363E-03,-0.97109238E-03, 0.28687993E-02, 0.94247479E-02, + 0.23310242E-01, 0.81276242E-03,-0.13601135E-01, 0.38484883E-01, + -0.30451640E-05, 0.44959618E-03,-0.28136529E-02,-0.61164983E-03, + 0.90462982E-03,-0.26256670E-02,-0.19855220E-02, 0.31802338E-01, + 0.94246846E-02, 0.81626941E-02,-0.31370386E-02,-0.66398685E-02, + 0.52859499E-02, 0.30347828E-01, 0.15948148E-02, 0.14444254E-02, + -0.38505509E-03,-0.11283302E-02, 0.20484791E-03, 0.18923379E-02, + -0.10281462E-02,-0.19439936E-02, 0.12509781E-02, 0.44197892E-02, + 0.70626782E-04,-0.58882744E-02,-0.15609751E-03,-0.32524390E-02, + -0.27006287E-02,-0.12623992E-01,-0.12476893E-01,-0.13492965E-01, + -0.16910449E-02, 0.65257377E-02,-0.56843753E-02, 0.57501728E-02, + -0.36507824E-02,-0.23755943E-02,-0.24006201E-02,-0.21188208E-02, + 0.46848864E-02,-0.53491225E-02, 0.12112966E-01,-0.19813387E-02, + -0.24663010E-02,-0.28681749E-01,-0.26931325E-02, 0.40090844E-01, + 0.49703107E-02, 0.30994697E-01,-0.13086044E-02,-0.39088675E-02, + 0.24080494E-01, 0.10758050E-01, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x12 = x11*x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 x54 = x53*x5 c c function c p_sr9_fp =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x31 4 +coeff( 4) *x41 5 +coeff( 5) *x51 6 +coeff( 6) *x22 7 +coeff( 7) *x21*x31 8 +coeff( 8) *x21 *x41 p_sr9_fp =p_sr9_fp 9 +coeff( 9) *x42 1 +coeff( 10) *x21 *x51 2 +coeff( 11) *x31 *x51 3 +coeff( 12) *x41*x51 4 +coeff( 13) *x52 5 +coeff( 14) *x23 6 +coeff( 15)*x11 *x41 7 +coeff( 16) *x22 *x41 8 +coeff( 17) *x21 *x42 p_sr9_fp =p_sr9_fp 9 +coeff( 18) *x43 1 +coeff( 19) *x22 *x51 2 +coeff( 20) *x21 *x41*x51 3 +coeff( 21) *x41*x52 4 +coeff( 22)*x11*x21 *x41 5 +coeff( 23) *x23 *x41 6 +coeff( 24) *x22*x31*x41 7 +coeff( 25) *x33*x41 8 +coeff( 26) *x22 *x42 p_sr9_fp =p_sr9_fp 9 +coeff( 27) *x21 *x43 1 +coeff( 28) *x44 2 +coeff( 29) *x24*x31 3 +coeff( 30) *x23*x31*x41 4 +coeff( 31)*x11*x21 *x42 5 +coeff( 32) *x22*x31*x42 6 +coeff( 33) *x22 *x43 7 +coeff( 34) *x22 *x42*x51 8 +coeff( 35) *x24 *x42 p_sr9_fp =p_sr9_fp 9 +coeff( 36) *x22 *x44 1 +coeff( 37)*x11*x21*x31 2 +coeff( 38) *x22*x32 3 +coeff( 39) *x21*x31*x42 4 +coeff( 40) *x31*x43 5 +coeff( 41)*x11*x21*x31*x41 6 +coeff( 42) *x23 *x42 7 +coeff( 43) *x21*x31*x42*x51 8 +coeff( 44) *x22*x31*x43 p_sr9_fp =p_sr9_fp 9 +coeff( 45) *x22 *x43*x51 1 +coeff( 46) *x24*x32*x41 2 +coeff( 47) *x23*x31*x42*x51 3 +coeff( 48) *x22*x31*x42*x52 4 +coeff( 49) *x22*x34*x42 5 +coeff( 50)*x11*x23*x31*x44*x51 6 +coeff( 51) *x22*x31 7 +coeff( 52) *x42*x51 8 +coeff( 53) *x21 *x52 p_sr9_fp =p_sr9_fp 9 +coeff( 54) *x24 1 +coeff( 55)*x11*x21 *x51 2 +coeff( 56) *x21 *x41*x52 3 +coeff( 57) *x41*x53 4 +coeff( 58) *x21 *x44 5 +coeff( 59)*x11*x21 *x41*x51 6 +coeff( 60) *x22*x31*x41*x51 7 +coeff( 61) *x21 *x41*x53 8 +coeff( 62) *x24*x31*x41 p_sr9_fp =p_sr9_fp 9 +coeff( 63) *x21*x34*x41 1 +coeff( 64) *x23*x31*x41*x51 2 +coeff( 65) *x23 *x41*x52 3 +coeff( 66) *x23*x31*x43 4 +coeff( 67) *x23 *x44 5 +coeff( 68) *x22*x31*x43*x51 6 +coeff( 69) *x32*x44*x51 7 +coeff( 70) *x24 *x41*x52 8 +coeff( 71) *x22 *x41*x54 p_sr9_fp =p_sr9_fp 9 +coeff( 72)*x11*x23*x31*x42 1 +coeff( 73)*x12*x21 *x42*x51 2 +coeff( 74) *x24*x31*x42*x51 3 +coeff( 75) *x23*x31*x43*x51 4 +coeff( 76) *x34*x43*x51 5 +coeff( 77) *x21*x32*x44*x51 6 +coeff( 78) *x21*x34*x41*x52 7 +coeff( 79) *x22*x31*x42*x53 8 +coeff( 80)*x11*x21 *x41*x54 p_sr9_fp =p_sr9_fp 9 +coeff( 81)*x12*x21*x32*x42 1 +coeff( 82) *x24*x32*x43 2 +coeff( 83)*x11*x24*x31*x41*x51 3 +coeff( 84) *x23*x31*x44*x51 4 +coeff( 85)*x11*x21*x31*x43*x52 5 +coeff( 86) *x22*x31*x44*x52 6 +coeff( 87)*x12*x22*x34 7 +coeff( 88)*x11*x24*x31*x43 8 +coeff( 89) *x24*x32*x44 p_sr9_fp =p_sr9_fp 9 +coeff( 90) *x22*x34*x42*x52 c return end function l_sr9_fp (x,m) dimension x(m) dimension xmin(10),xmax(10),scale(10),xmean(10) dimension coeff( 24) data ncoeff/ 23/ data avdat/ -0.1621501E-01/ data xmin/ 1 -0.29992E-02,-0.52863E-01,-0.99913E-02,-0.29683E-01,-0.48246E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data xmax/ 1 0.29941E-02, 0.55048E-01, 0.99879E-02, 0.29273E-01, 0.49909E-01, 2 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ data scale /10*0./ data coeff/ + 0.74361786E-02,-0.33152348E+00,-0.33101406E-01, 0.66360021E-02, + -0.35210054E-01,-0.12386972E-01,-0.24534322E-01, 0.25188744E-01, + -0.37889313E-01,-0.89235343E-02,-0.57487824E-03, 0.33260848E-01, + 0.10013787E+00,-0.73925983E-02,-0.25279396E-02, 0.56890310E-02, + 0.58899526E-02,-0.84748626E-03, 0.66589899E-01, 0.10450226E-01, + 0.88051103E-01, 0.18047959E-01, 0.95677115E-01, + 0. / data ientry/0/ c if (ientry.ne.0) go to 10 ientry=1 do 5 i=1,m if (xmin(i).eq.xmax(i)) go to 5 scale(i)=2./(xmax(i)-xmin(i)) 5 continue c 10 continue c normalize variables between -1 and +1 x1 =1.+(x( 1)-xmax( 1))*scale( 1) x2 =1.+(x( 2)-xmax( 2))*scale( 2) x3 =1.+(x( 3)-xmax( 3))*scale( 3) x4 =1.+(x( 4)-xmax( 4))*scale( 4) x5 =1.+(x( 5)-xmax( 5))*scale( 5) c set up monomials functions x11 = x1 x21 = x2 x22 = x21*x2 x23 = x22*x2 x24 = x23*x2 x31 = x3 x32 = x31*x3 x33 = x32*x3 x34 = x33*x3 x41 = x4 x42 = x41*x4 x43 = x42*x4 x44 = x43*x4 x51 = x5 x52 = x51*x5 x53 = x52*x5 c c function c l_sr9_fp =avdat 1 +coeff( 1) 2 +coeff( 2) *x21 3 +coeff( 3) *x51 4 +coeff( 4)*x11 5 +coeff( 5) *x22 6 +coeff( 6) *x21 *x41 7 +coeff( 7) *x52 8 +coeff( 8) *x21 *x42 l_sr9_fp =l_sr9_fp 9 +coeff( 9) *x23*x31*x41 1 +coeff( 10) *x41 2 +coeff( 11) *x21*x31 3 +coeff( 12) *x21*x31*x41 4 +coeff( 13) *x21 *x43 5 +coeff( 14) *x23*x31*x42 6 +coeff( 15) *x21 *x51 7 +coeff( 16) *x43 8 +coeff( 17) *x53 l_sr9_fp =l_sr9_fp 9 +coeff( 18) *x23*x31 1 +coeff( 19) *x21*x31*x42 2 +coeff( 20) *x24 *x41 3 +coeff( 21) *x21 *x44 4 +coeff( 22) *x21*x34*x41 5 +coeff( 23) *x23*x31*x43 c return end