C[  TEST PROGRAM MPPSPANA:                                            ]*
C[  ======================                                            ]*
C[                                                                    ]*
C[  A: RESULTS AT THE NODES T(I), I=0(1)12:                           ]*
C[  ---------------------------------------                           ]*
C[                                                                    ]*
C[  1) FUNCTION VALUES OF THE SPLINES SX AND SY:                      ]*
C[                                                                    ]*
C[   I          SX                 SY                                 ]*
C[  ----------------------------------------                          ]*
C[   0   0.3200000000E+02   0.1500000000E+01                          ]*
C[   1   0.2500000000E+02   0.2500000000E+01                          ]*
C[   2   0.1600000000E+02   0.3200000000E+01                          ]*
C[   3   0.5000000000E+01   0.3000000000E+01                          ]*
C[   4   -.6000000000E+01   0.3100000000E+01                          ]*
C[   5   -.1800000000E+02   0.1800000000E+01                          ]*
C[   6   -.1600000000E+02   -.7000000000E+00                          ]*
C[   7   -.1300000000E+02   -.2200000000E+01                          ]*
C[   8   -.6000000000E+01   -.3400000000E+01                          ]*
C[   9   0.4000000000E+01   -.3100000000E+01                          ]*
C[  10   0.2100000000E+02   -.2500000000E+01                          ]*
C[  11   0.3300000000E+02   -.1100000000E+01                          ]*
C[  12   0.3200000000E+02   0.1500000000E+01                          ]*
C[                                                                    ]*
C[                                                                    ]*
C[  2) 1ST AND 2ND DERIVATIVES OF THE SPLINES SX AND SY:              ]*
C[                                                                    ]*
C[   I      ABLX(1)        ABLY(1)        ABLX(2)        ABLY(2)      ]*
C[  --------------------------------------------------------------    ]*
C[   0   -.645071E+00   0.758479E+00   -.166378E+00   -.292001E+00    ]*
C[   1   -.109147E+01   -.603148E-01   0.401166E-01   0.604111E-01    ]*
C[   2   -.989092E+00   0.805893E-01   -.174339E-01   -.291934E-01    ]*
C[   3   -.925418E+00   -.551250E-01   0.290091E-01   0.452211E-02    ]*
C[   4   -.130860E+01   0.112649E+00   -.986753E-01   0.259810E-01    ]*
C[   5   0.230161E+00   -.705206E+00   0.353643E+00   -.161497E+00    ]*
C[   6   0.847657E+00   -.673674E+00   0.321034E-01   0.181195E+00    ]*
C[   7   0.934128E+00   -.298167E+00   0.194581E-01   0.427136E-01    ]*
C[   8   0.101951E+01   -.622353E-01   0.458688E-02   0.237264E-01    ]*
C[   9   0.936679E+00   0.957449E-01   -.211462E-01   0.785547E-02    ]*
C[  10   0.130463E+01   -.152486E+00   0.644074E-01   -.370410E-01    ]*
C[  11   -.185340E-01   0.876368E+00   -.283449E+00   0.207362E+00    ]*
C[  12   -.645071E+00   0.758479E+00   -.166378E+00   -.292001E+00    ]*
C[                                                                    ]*
C[                                                                    ]*
C[  3) 1ST AND 2ND DERIVATIVES OF THE CURVE K:                        ]*
C[                                                                    ]*
C[   I          C1                 C2            IFEHL                ]*
C[  --------------------------------------------------                ]*
C[   0   -.1175808116E+01   -.1171860022E+01       0                  ]*
C[   1   0.5526001719E-01   0.4884889735E-01       0                  ]*
C[   2   -.8147807259E-01   -.3129280322E-01       0                  ]*
C[   3   0.5956771518E-01   0.3262619838E-02       0                  ]*
C[   4   -.8608378273E-01   0.1021162170E-01       0                  ]*
C[   5   -.3063962891E+01   0.1740568788E+02       0                  ]*
C[   6   -.7947476545E+00   0.2876864162E+00       0                  ]*
C[   7   -.3191929932E+00   0.5606772011E-01       0                  ]*
C[   8   -.6104411467E-01   0.2309620272E-01       0                  ]*
C[   9   0.1022173719E+00   0.1141707069E-01       0                  ]*
C[  10   -.1168810704E+00   -.1733959641E-01       0                  ]*
C[  11   -.4728426728E+02   -.3841313692E+05       0                  ]*
C[  12   -.1175808116E+01   -.1171860022E+01       0                  ]*
C[                                                                    ]*
C[                                                                    ]*
C[  B: 1ST AND 2ND DERIVATIVES OF THE CURVE K IN A REGION WITH LARGE  ]*
C[     SLOPE:                                                         ]*
C[  ----------------------------------------------------------------  ]*
C[                                                                    ]*
C[   I          TW                 C1                 C2        IFEHL ]*
C[  ----------------------------------------------------------------- ]*
C[   1   0.4949567000E+02   0.1902829151E+05   -.6289828370E+13   0   ]*
C[   2   0.4949568000E+02   0.2124123045E+05   -.8749346855E+13   0   ]*
C[   3   0.4949569000E+02   0.2403661274E+05   -.1267808434E+14   0   ]*
C[   4   0.4949570000E+02   0.2767923301E+05   -.1935945856E+14   0   ]*
C[   5   0.4949571000E+02   0.3262306499E+05   -.3169586081E+14   0   ]*
C[   6   0.4949572000E+02   0.3971694415E+05   -.5719432786E+14   0   ]*
C[   7   0.4949573000E+02   0.5075316763E+05   -.1193471783E+15   0   ]*
C[   8   0.4949574000E+02   0.7028267269E+05   -.3169309971E+15   0   ]*
C[   9   0.4949575000E+02   0.1142421896E+06   -.1361120834E+16   0   ]*
C[  10   0.4949576000E+02   0.3050239968E+06   -.2590695460E+17   0   ]*
C[  11   0.4949577000E+02   -.4552798749E+06   0.8614834068E+17   0   ]*
C[  12   0.4949578000E+02   -.1303558061E+06   0.2022087345E+16   0   ]*
C[  13   0.4949579000E+02   -.7606789463E+05   0.4018002250E+15   0   ]*
C[  14   0.4949580000E+02   -.5370289987E+05   0.1413827467E+15   0   ]*
C[  15   0.4949581000E+02   -.4150106909E+05   0.6524966264E+14   0   ]*
C[  16   0.4949582000E+02   -.3381744137E+05   0.3530367118E+14   0   ]*
C[  17   0.4949583000E+02   -.2853450191E+05   0.2120829399E+14   0   ]*
C[  18   0.4949584000E+02   -.2467915484E+05   0.1372090984E+14   0   ]*
C[  19   0.4949585000E+02   -.2174161781E+05   0.9381339408E+13   0   ]*
C[  20   0.4949586000E+02   -.1942900972E+05   0.6694813585E+13   0   ]*
C[                                                                    ]*
C[                                                                    ]*
C[  MEANING OF PARAMETER IFEHL:                                       ]*
C[  ---------------------------                                       ]*
C[                                                                    ]*
C[  IFEHL = 0 : ALL OK                                                ]*
C[  IFEHL = 1 : DUE TO ABLX(I)=0 NO VALUES FOR C1 AND C2 WERE COMPUTED]*
C[  IFEHL = 2 : DUE TO ABS(ABLX(I)) <= 4*MACHINE CONSTANT THE VALUES  ]*
C[              FOR C1 AND C2 ARE NOT VERY GOOD                       ]*
