c************************************************************************* SUBROUTINE opa_int_zsx(xh,t,ro,kappa,dkapdt,dkapdr,dkapdx) c routine private du module mod_opacite c approximation 4D de l'opacité et dérivées c données d'Yveleine Lebreton et Joao Fernandez DASGAL c tables OPAL raccordées Kurucz c Auteur: P. Morel, Département J.D. Cassini, O.C.A. c CESAM2k c correction du dkapdx , (signalé par, S. Brun) 26 10 96 c entrées : c xh(1)=X : comp. chim. en H c t : température K c ro : densité cgs c sorties : c kapa : opacité gr / cm2) c dkapdt : kappa / d t c dkapdr : kappa / d densité c dkapdx : kappa / d xh(1) c Z est obtenu par 1-X-Y c Abondances consistantes avec le Z de Grevesse 91: c He3=4.2d-5, C12=3.2962d-3, C13=6.0474d-5 c N14=9.7897d-4, N15=3.4939d-6, O16=9.5225d-3, O17=6.3402d-06 c---------------------------------------------------------------- USE mod_donnees, ONLY : ihe4, ln10, nchim, z0 USE mod_kind USE mod_numerique, ONLY : bval1, linf, neville, noein, no_croiss IMPLICIT NONE REAL (kind=dp), INTENT(in), DIMENSION(:) :: xh REAL (kind=dp), INTENT(in) :: t, ro REAL (kind=dp), INTENT(out) :: kappa, dkapdt, dkapdr, dkapdx INTEGER, PARAMETER :: pnr=19, pnx=3, pnt=72, pnz=3, pm=4 REAL (kind=dp), SAVE, DIMENSION(pnr*pnx*pnt*pnz) :: kap REAL (kind=dp), SAVE, DIMENSION(pnt) :: t6t REAL (kind=dp), SAVE, DIMENSION(pnr) :: lrt REAL (kind=dp), SAVE, DIMENSION(pnx) :: xt REAL (kind=dp), SAVE, DIMENSION(pnz) :: zt REAL (kind=dp), SAVE, DIMENSION(pnt+pm) :: t6tt REAL (kind=dp), SAVE, DIMENSION(pnz+pm) :: ztt REAL (kind=dp), SAVE, DIMENSION(pnx+pm) :: xtt REAL (kind=dp), SAVE, DIMENSION(pnr+pm) :: lrtt REAL (kind=dp), DIMENSION(pm) :: qt, qr, qx, qz, dt, dr, dx, dz REAL (kind=dp), DIMENSION(0:2) :: x, f REAL (kind=dp), SAVE :: z_tab_lim REAL (kind=dp) :: xi, t6, lr, zr, xx INTEGER, SAVE :: nr, nx, nz, nt, mx, mr, mz, mt, ni, 1 knotx, knotz, knott, knotr INTEGER :: l1, l2, l3, l4, it, ir, iiz, ix, i, j, k, l, indice LOGICAL, SAVE :: init=.TRUE. DATA(t6t(i),i=1,54) !t6=T*1.d-6 1/ 2.089D-03, 2.188D-03, 2.291D-03, 2.399D-03, 2.512D-03, 2.630D-03, 2 2.754D-03, 2.884D-03, 3.020D-03, 3.162D-03, 3.311D-03, 3.467D-03, 3 3.631D-03, 3.802D-03, 3.981D-03, 4.169D-03, 4.365D-03, 4.571D-03, 4 4.786D-03, 5.012D-03, 5.370D-03, 5.754D-03, 6.000D-03, 7.000D-03, 5 8.000D-03, 9.000D-03, 1.000D-02, 1.100D-02, 1.200D-02, 1.400D-02, 6 1.600D-02, 1.800D-02, 2.000D-02, 2.500D-02, 3.000D-02, 3.500D-02, 7 4.000D-02, 4.500D-02, 5.000D-02, 5.500D-02, 6.000D-02, 7.000D-02, 8 8.000D-02, 9.000D-02, 1.000D-01, 1.200D-01, 1.500D-01, 2.000D-01, 9 2.500D-01, 3.000D-01, 4.000D-01, 5.000D-01, 6.000D-01, 8.000D-01/ DATA(t6t(i),i=55,pnt) 1/ 1.000D+00, 1.200D+00, 1.500D+00, 2.000D+00, 2.500D+00, 3.000D+00, 2 4.000D+00, 5.000D+00, 6.000D+00, 8.000D+00, 1.000D+01, 1.500D+01, 3 2.000D+01, 3.000D+01, 4.000D+01, 6.000D+01, 8.000D+01, 1.000D+02/ DATA(lrt(i),i=1,pnr) !log10 R=log10(ro/t6**3) 1/-7.000D+00,-6.500D+00,-6.000D+00,-5.500D+00,-5.000D+00,-4.500D+00, 2 -4.000D+00,-3.500D+00,-3.000D+00,-2.500D+00,-2.000D+00,-1.500D+00, 3 -1.000D+00,-5.000D-01, 0.000D+00, 5.000D-01, 1.000D+00, 1.500D+00, 4 2.000D+00/ DATA(xt(i),i=1,pnx)/0.d0,0.35d0,0.7d0/ DATA(zt(i),i=1,pnz)/0.010d0,0.019d0,0.03d0/ c table: DATA/klgx00z010.dat DATA(kap(i),i= 1, 54) 1/-6.238D+00,-5.893D+00,-5.635D+00,-5.458D+00,-5.361D+00,-5.338D+00, 2 -5.374D+00,-5.409D+00,-5.429D+00,-5.431D+00,-5.414D+00,-5.394D+00, 3 -5.367D+00,-5.326D+00,-5.263D+00,-5.168D+00,-5.035D+00,-4.877D+00, 4 -4.698D+00,-6.196D+00,-5.843D+00,-5.577D+00,-5.393D+00,-5.287D+00, 5 -5.255D+00,-5.271D+00,-5.288D+00,-5.292D+00,-5.274D+00,-5.232D+00, 6 -5.170D+00,-5.111D+00,-5.050D+00,-4.983D+00,-4.895D+00,-4.772D+00, 7 -4.633D+00,-4.484D+00,-6.049D+00,-5.712D+00,-5.461D+00,-5.292D+00, 8 -5.200D+00,-5.182D+00,-5.193D+00,-5.190D+00,-5.171D+00,-5.127D+00, 9 -5.058D+00,-4.955D+00,-4.849D+00,-4.752D+00,-4.664D+00,-4.570D+00/ DATA(kap(i),i= 55, 108) 1/-4.456D+00,-4.328D+00,-4.189D+00,-5.694D+00,-5.410D+00,-5.210D+00, 2 -5.092D+00,-5.050D+00,-5.082D+00,-5.113D+00,-5.110D+00,-5.074D+00, 3 -5.001D+00,-4.895D+00,-4.752D+00,-4.598D+00,-4.454D+00,-4.331D+00, 4 -4.222D+00,-4.110D+00,-3.998D+00,-3.871D+00,-5.337D+00,-5.097D+00, 5 -4.942D+00,-4.867D+00,-4.868D+00,-4.942D+00,-5.004D+00,-5.023D+00, 6 -4.989D+00,-4.896D+00,-4.750D+00,-4.559D+00,-4.358D+00,-4.171D+00, 7 -4.007D+00,-3.869D+00,-3.753D+00,-3.647D+00,-3.538D+00,-5.088D+00, 8 -4.867D+00,-4.730D+00,-4.672D+00,-4.690D+00,-4.780D+00,-4.857D+00, 9 -4.901D+00,-4.887D+00,-4.796D+00,-4.626D+00,-4.393D+00,-4.139D+00/ DATA(kap(i),i= 109, 162) 1/-3.904D+00,-3.704D+00,-3.534D+00,-3.400D+00,-3.292D+00,-3.192D+00, 2 -4.959D+00,-4.733D+00,-4.591D+00,-4.528D+00,-4.539D+00,-4.612D+00, 3 -4.683D+00,-4.730D+00,-4.728D+00,-4.656D+00,-4.487D+00,-4.236D+00, 4 -3.945D+00,-3.663D+00,-3.422D+00,-3.222D+00,-3.064D+00,-2.942D+00, 5 -2.842D+00,-4.901D+00,-4.662D+00,-4.506D+00,-4.428D+00,-4.424D+00, 6 -4.471D+00,-4.518D+00,-4.547D+00,-4.538D+00,-4.474D+00,-4.314D+00, 7 -4.066D+00,-3.760D+00,-3.446D+00,-3.164D+00,-2.932D+00,-2.750D+00, 8 -2.610D+00,-2.500D+00,-4.872D+00,-4.620D+00,-4.451D+00,-4.359D+00, 9 -4.341D+00,-4.362D+00,-4.380D+00,-4.379D+00,-4.344D+00,-4.268D+00/ DATA(kap(i),i= 163, 216) 1/-4.107D+00,-3.869D+00,-3.570D+00,-3.242D+00,-2.931D+00,-2.667D+00, 2 -2.459D+00,-2.297D+00,-2.171D+00,-4.875D+00,-4.611D+00,-4.428D+00, 3 -4.323D+00,-4.290D+00,-4.285D+00,-4.274D+00,-4.237D+00,-4.165D+00, 4 -4.054D+00,-3.876D+00,-3.640D+00,-3.356D+00,-3.039D+00,-2.717D+00, 5 -2.428D+00,-2.192D+00,-2.008D+00,-1.865D+00,-4.839D+00,-4.578D+00, 6 -4.398D+00,-4.295D+00,-4.263D+00,-4.241D+00,-4.202D+00,-4.130D+00, 7 -4.016D+00,-3.859D+00,-3.649D+00,-3.400D+00,-3.123D+00,-2.824D+00, 8 -2.508D+00,-2.208D+00,-1.949D+00,-1.741D+00,-1.578D+00,-4.741D+00, 9 -4.502D+00,-4.342D+00,-4.258D+00,-4.246D+00,-4.220D+00,-4.163D+00/ DATA(kap(i),i= 217, 270) 1/-4.060D+00,-3.904D+00,-3.696D+00,-3.447D+00,-3.173D+00,-2.888D+00, 2 -2.593D+00,-2.292D+00,-1.994D+00,-1.722D+00,-1.495D+00,-1.313D+00, 3 -4.518D+00,-4.328D+00,-4.217D+00,-4.181D+00,-4.206D+00,-4.192D+00, 4 -4.135D+00,-4.014D+00,-3.824D+00,-3.569D+00,-3.277D+00,-2.970D+00, 5 -2.665D+00,-2.365D+00,-2.067D+00,-1.775D+00,-1.501D+00,-1.261D+00, 6 -1.065D+00,-4.146D+00,-4.030D+00,-3.993D+00,-4.029D+00,-4.107D+00, 7 -4.133D+00,-4.096D+00,-3.978D+00,-3.774D+00,-3.480D+00,-3.145D+00, 8 -2.801D+00,-2.469D+00,-2.152D+00,-1.847D+00,-1.555D+00,-1.280D+00, 9 -1.035D+00,-8.296D-01,-3.746D+00,-3.692D+00,-3.715D+00,-3.812D+00/ DATA(kap(i),i= 271, 324) 1/-3.935D+00,-4.012D+00,-4.021D+00,-3.931D+00,-3.741D+00,-3.426D+00, 2 -3.054D+00,-2.673D+00,-2.308D+00,-1.964D+00,-1.645D+00,-1.342D+00, 3 -1.062D+00,-8.112D-01,-6.002D-01,-3.364D+00,-3.352D+00,-3.418D+00, 4 -3.557D+00,-3.709D+00,-3.825D+00,-3.879D+00,-3.836D+00,-3.681D+00, 5 -3.378D+00,-2.992D+00,-2.580D+00,-2.181D+00,-1.808D+00,-1.463D+00, 6 -1.146D+00,-8.535D-01,-5.950D-01,-3.785D-01,-2.992D+00,-3.013D+00, 7 -3.112D+00,-3.283D+00,-3.455D+00,-3.594D+00,-3.677D+00,-3.670D+00, 8 -3.554D+00,-3.294D+00,-2.929D+00,-2.510D+00,-2.088D+00,-1.684D+00, 9 -1.311D+00,-9.709D-01,-6.615D-01,-3.907D-01,-1.643D-01,-2.631D+00/ DATA(kap(i),i= 325, 378) 1/-2.680D+00,-2.805D+00,-3.002D+00,-3.188D+00,-3.342D+00,-3.441D+00, 2 -3.452D+00,-3.356D+00,-3.144D+00,-2.830D+00,-2.440D+00,-2.013D+00, 3 -1.589D+00,-1.188D+00,-8.206D-01,-4.908D-01,-2.027D-01, 3.584D-02, 4 -2.282D+00,-2.355D+00,-2.502D+00,-2.716D+00,-2.911D+00,-3.075D+00, 5 -3.181D+00,-3.199D+00,-3.109D+00,-2.923D+00,-2.658D+00,-2.325D+00, 6 -1.931D+00,-1.510D+00,-1.090D+00,-6.970D-01,-3.418D-01,-3.483D-02, 7 2.201D-01,-1.952D+00,-2.043D+00,-2.208D+00,-2.425D+00,-2.626D+00, 8 -2.793D+00,-2.901D+00,-2.926D+00,-2.837D+00,-2.663D+00,-2.427D+00, 9 -2.143D+00,-1.808D+00,-1.419D+00,-1.005D+00,-5.949D-01,-2.168D-01/ DATA(kap(i),i= 379, 432) 1/ 1.122D-01, 3.865D-01,-1.485D+00,-1.599D+00,-1.785D+00,-2.002D+00, 2 -2.204D+00,-2.373D+00,-2.480D+00,-2.511D+00,-2.421D+00,-2.254D+00, 3 -2.039D+00,-1.792D+00,-1.514D+00,-1.202D+00,-8.432D-01,-4.525D-01, 4 -6.025D-02, 2.959D-01, 6.006D-01,-1.075D+00,-1.199D+00,-1.394D+00, 5 -1.600D+00,-1.793D+00,-1.954D+00,-2.055D+00,-2.076D+00,-1.989D+00, 6 -1.829D+00,-1.628D+00,-1.403D+00,-1.156D+00,-8.882D-01,-5.901D-01, 7 -2.554D-01, 1.033D-01, 4.586D-01, 7.830D-01,-1.208D+00,-1.324D+00, 8 -1.504D+00,-1.695D+00,-1.876D+00,-2.026D+00,-2.118D+00,-2.130D+00, 9 -2.047D+00,-1.896D+00,-1.703D+00,-1.487D+00,-1.254D+00,-3.292D+00/ DATA(kap(i),i= 433, 486) 1/-2.912D+00,-2.495D+00,-2.052D+00,-1.600D+00,-1.600D+00,-3.350D+00, 2 -3.391D+00,-3.413D+00,-3.416D+00,-3.413D+00,-3.406D+00,-3.398D+00, 3 -3.390D+00,-3.363D+00,-3.351D+00,-3.236D+00,-3.037D+00,-2.788D+00, 4 -2.675D+00,-2.324D+00,-1.975D+00,-1.622D+00,-1.622D+00,-1.622D+00, 5 -2.675D+00,-2.878D+00,-3.047D+00,-3.184D+00,-3.273D+00,-3.316D+00, 6 -3.332D+00,-3.322D+00,-3.286D+00,-3.212D+00,-3.093D+00,-2.862D+00, 7 -2.584D+00,-2.246D+00,-1.897D+00,-1.540D+00,-1.180D+00,-8.194D-01, 8 -4.594D-01,-1.914D+00,-2.132D+00,-2.346D+00,-2.557D+00,-2.750D+00, 9 -2.925D+00,-3.049D+00,-3.123D+00,-3.124D+00,-3.056D+00,-2.877D+00/ DATA(kap(i),i= 487, 540) 1/-2.597D+00,-2.299D+00,-1.872D+00,-1.516D+00,-1.161D+00,-8.066D-01, 2 -4.547D-01,-1.053D-01,-1.356D+00,-1.546D+00,-1.744D+00,-1.950D+00, 3 -2.146D+00,-2.331D+00,-2.496D+00,-2.639D+00,-2.722D+00,-2.772D+00, 4 -2.640D+00,-2.389D+00,-2.053D+00,-1.630D+00,-1.220D+00,-8.319D-01, 5 -4.600D-01,-1.056D-01, 2.300D-01,-1.056D+00,-1.155D+00,-1.287D+00, 6 -1.451D+00,-1.611D+00,-1.766D+00,-1.895D+00,-1.998D+00,-2.054D+00, 7 -2.101D+00,-2.056D+00,-1.912D+00,-1.685D+00,-1.339D+00,-9.859D-01, 8 -6.106D-01,-2.281D-01, 1.498D-01, 5.102D-01,-9.680D-01,-9.810D-01, 9 -1.029D+00,-1.112D+00,-1.201D+00,-1.296D+00,-1.371D+00,-1.428D+00/ DATA(kap(i),i= 541, 594) 1/-1.458D+00,-1.454D+00,-1.412D+00,-1.342D+00,-1.238D+00,-1.028D+00, 2 -7.410D-01,-3.894D-01,-4.219D-03, 3.934D-01, 7.638D-01,-9.330D-01, 3 -9.240D-01,-8.990D-01,-8.590D-01,-7.860D-01,-6.800D-01,-5.900D-01, 4 -5.160D-01,-4.480D-01,-3.980D-01,-3.390D-01,-2.680D-01,-1.810D-01, 5 -8.753D-02, 1.106D-01, 3.470D-01, 6.268D-01, 9.331D-01, 1.252D+00, 6 -9.300D-01,-9.030D-01,-8.680D-01,-8.250D-01,-7.040D-01,-5.050D-01, 7 -2.870D-01,-5.100D-02, 1.480D-01, 2.910D-01, 4.050D-01, 5.040D-01, 8 6.040D-01, 7.249D-01, 8.669D-01, 1.031D+00, 1.233D+00, 1.466D+00, 9 1.732D+00,-9.280D-01,-9.110D-01,-8.750D-01,-8.190D-01,-6.970D-01/ DATA(kap(i),i= 595, 648) 1/-5.080D-01,-2.570D-01, 5.800D-02, 3.790D-01, 6.530D-01, 8.620D-01, 2 1.021D+00, 1.159D+00, 1.319D+00, 1.468D+00, 1.625D+00, 1.800D+00, 3 1.997D+00, 2.225D+00,-9.140D-01,-9.000D-01,-8.750D-01,-8.380D-01, 4 -7.230D-01,-5.310D-01,-2.740D-01, 4.800D-02, 4.140D-01, 7.790D-01, 5 1.094D+00, 1.340D+00, 1.530D+00, 1.778D+00, 1.957D+00, 2.123D+00, 6 2.288D+00, 2.462D+00, 2.659D+00,-7.890D-01,-8.090D-01,-8.100D-01, 7 -7.920D-01,-7.150D-01,-5.790D-01,-3.580D-01,-5.200D-02, 3.330D-01, 8 7.620D-01, 1.204D+00, 1.615D+00, 1.969D+00, 2.264D+00, 2.563D+00, 9 2.811D+00, 3.027D+00, 3.224D+00, 3.224D+00,-6.130D-01,-5.950D-01/ DATA(kap(i),i= 649, 702) 1/-5.830D-01,-5.790D-01,-5.310D-01,-4.400D-01,-2.710D-01,-2.500D-02, 2 3.040D-01, 7.090D-01, 1.175D+00, 1.637D+00, 2.088D+00, 2.532D+00, 3 2.911D+00, 3.230D+00, 3.501D+00, 3.731D+00, 3.731D+00,-5.880D-01, 4 -5.710D-01,-4.990D-01,-3.700D-01,-2.340D-01,-9.200D-02, 7.500D-02, 5 2.700D-01, 5.190D-01, 8.290D-01, 1.222D+00, 1.663D+00, 2.138D+00, 6 2.682D+00, 3.042D+00, 3.385D+00, 3.721D+00, 3.721D+00, 3.721D+00, 7 -5.940D-01,-5.700D-01,-4.980D-01,-3.780D-01,-1.680D-01, 1.330D-01, 8 4.110D-01, 6.670D-01, 9.050D-01, 1.148D+00, 1.423D+00, 1.780D+00, 9 2.214D+00, 2.748D+00, 3.108D+00, 3.491D+00, 3.908D+00, 3.908D+00/ DATA(kap(i),i= 703, 756) 1/ 3.908D+00,-6.030D-01,-5.760D-01,-5.140D-01,-4.160D-01,-2.000D-01, 2 1.360D-01, 5.050D-01, 9.080D-01, 1.244D+00, 1.513D+00, 1.750D+00, 3 2.020D+00, 2.367D+00, 2.796D+00, 3.173D+00, 3.602D+00, 4.094D+00, 4 4.094D+00, 4.094D+00,-6.080D-01,-5.880D-01,-5.300D-01,-4.350D-01, 5 -2.420D-01, 4.900D-02, 4.330D-01, 9.100D-01, 1.381D+00, 1.761D+00, 6 2.048D+00, 2.298D+00, 2.583D+00, 2.864D+00, 3.262D+00, 3.728D+00, 7 3.728D+00, 3.728D+00, 3.728D+00,-6.150D-01,-5.940D-01,-5.420D-01, 8 -4.600D-01,-2.850D-01,-1.800D-02, 3.460D-01, 8.060D-01, 1.328D+00, 9 1.820D+00, 2.219D+00, 2.523D+00, 2.700D+00, 3.063D+00, 3.455D+00/ DATA(kap(i),i= 757, 810) 1/ 3.890D+00, 4.347D+00, 4.797D+00, 4.797D+00,-6.150D-01,-5.970D-01, 2 -5.500D-01,-4.730D-01,-3.100D-01,-6.000D-02, 2.820D-01, 7.180D-01, 3 1.224D+00, 1.767D+00, 2.269D+00, 2.668D+00, 2.869D+00, 3.241D+00, 4 3.616D+00, 4.008D+00, 4.435D+00, 4.880D+00, 4.880D+00,-6.140D-01, 5 -5.920D-01,-5.500D-01,-4.870D-01,-3.450D-01,-1.220D-01, 1.890D-01, 6 5.900D-01, 1.074D+00, 1.600D+00, 2.163D+00, 2.703D+00, 3.131D+00, 7 3.505D+00, 3.837D+00, 4.151D+00, 4.586D+00, 4.586D+00, 4.586D+00, 8 -6.110D-01,-5.860D-01,-5.430D-01,-4.820D-01,-3.490D-01,-1.430D-01, 9 1.510D-01, 5.340D-01, 1.000D+00, 1.514D+00, 2.063D+00, 2.727D+00/ DATA(kap(i),i= 811, 864) 1/ 3.193D+00, 3.598D+00, 3.953D+00, 4.301D+00, 4.674D+00, 4.674D+00, 2 4.674D+00,-5.990D-01,-5.750D-01,-5.310D-01,-4.690D-01,-3.420D-01, 3 -1.510D-01, 1.340D-01, 5.110D-01, 9.720D-01, 1.482D+00, 2.161D+00, 4 2.705D+00, 3.215D+00, 3.672D+00, 4.078D+00, 4.437D+00, 4.748D+00, 5 4.748D+00, 4.748D+00,-5.700D-01,-5.430D-01,-5.010D-01,-4.440D-01, 6 -3.220D-01,-1.340D-01, 1.490D-01, 5.260D-01, 9.820D-01, 1.486D+00, 7 2.100D+00, 2.674D+00, 3.230D+00, 3.747D+00, 4.190D+00, 4.528D+00, 8 4.730D+00, 4.730D+00, 4.730D+00,-4.570D-01,-4.440D-01,-4.070D-01, 9 -3.450D-01,-2.290D-01,-5.900D-02, 2.180D-01, 6.020D-01, 1.062D+00/ DATA(kap(i),i= 865, 918) 1/ 1.550D+00, 2.129D+00, 2.720D+00, 3.287D+00, 3.795D+00, 4.198D+00, 2 4.452D+00, 4.452D+00, 4.452D+00, 4.452D+00,-3.390D-01,-2.970D-01, 3 -2.350D-01,-1.510D-01,-2.100D-02, 1.550D-01, 4.190D-01, 7.700D-01, 4 1.187D+00, 1.592D+00, 2.169D+00, 2.734D+00, 3.259D+00, 3.702D+00, 5 4.025D+00, 4.025D+00, 4.025D+00, 4.025D+00, 4.025D+00,-4.800D-01, 6 -4.140D-01,-3.110D-01,-1.690D-01, 3.600D-02, 3.060D-01, 6.120D-01, 7 9.540D-01, 1.333D+00, 1.758D+00, 2.207D+00, 2.653D+00, 3.064D+00, 8 3.380D+00, 3.651D+00, 3.794D+00, 3.775D+00, 3.775D+00, 3.775D+00, 9 -6.200D-01,-5.620D-01,-4.720D-01,-3.520D-01,-1.390D-01, 1.690D-01/ DATA(kap(i),i= 919, 972) 1/ 5.120D-01, 8.910D-01, 1.282D+00, 1.676D+00, 2.072D+00, 2.455D+00, 2 2.808D+00, 3.122D+00, 3.337D+00, 3.423D+00, 3.423D+00, 3.423D+00, 3 3.423D+00,-6.740D-01,-6.440D-01,-5.820D-01,-4.880D-01,-2.890D-01, 4 1.600D-02, 3.760D-01, 7.890D-01, 1.187D+00, 1.563D+00, 1.929D+00, 5 2.274D+00, 2.597D+00, 2.881D+00, 3.060D+00, 3.121D+00, 3.121D+00, 6 3.121D+00, 3.121D+00,-6.900D-01,-6.780D-01,-6.610D-01,-6.390D-01, 7 -5.060D-01,-2.620D-01, 8.400D-02, 5.330D-01, 9.760D-01, 1.368D+00, 8 1.713D+00, 2.025D+00, 2.316D+00, 2.491D+00, 2.651D+00, 2.651D+00, 9 2.651D+00, 2.651D+00, 2.651D+00,-6.930D-01,-6.870D-01,-6.750D-01/ DATA(kap(i),i= 973, 1026) 1/-6.580D-01,-5.780D-01,-4.360D-01,-1.700D-01, 2.180D-01, 7.430D-01, 2 1.198D+00, 1.563D+00, 1.875D+00, 2.152D+00, 2.235D+00, 2.235D+00, 3 2.235D+00, 2.235D+00, 2.235D+00, 2.235D+00,-6.850D-01,-6.870D-01, 4 -6.780D-01,-6.600D-01,-6.050D-01,-5.160D-01,-2.940D-01, 6.000D-02, 5 5.420D-01, 1.034D+00, 1.439D+00, 1.763D+00, 2.043D+00, 2.122D+00, 6 2.290D+00, 2.444D+00, 2.614D+00, 2.794D+00, 2.794D+00,-6.940D-01, 7 -6.920D-01,-6.820D-01,-6.640D-01,-6.220D-01,-5.560D-01,-3.810D-01, 8 -9.700D-02, 3.160D-01, 8.010D-01, 1.245D+00, 1.596D+00, 1.887D+00, 9 1.958D+00, 2.132D+00, 2.334D+00, 2.576D+00, 2.576D+00, 2.576D+00/ DATA(kap(i),i= 1027, 1080) 1/-6.830D-01,-6.850D-01,-6.790D-01,-6.640D-01,-6.280D-01,-5.700D-01, 2 -4.180D-01,-1.720D-01, 2.000D-01, 6.630D-01, 1.113D+00, 1.491D+00, 3 1.798D+00, 2.068D+00, 2.030D+00, 2.264D+00, 2.610D+00, 2.905D+00, 4 3.200D+00,-6.870D-01,-6.810D-01,-6.690D-01,-6.520D-01,-6.190D-01, 5 -5.730D-01,-4.390D-01,-2.180D-01, 1.370D-01, 5.860D-01, 1.037D+00, 6 1.428D+00, 1.742D+00, 2.001D+00, 1.979D+00, 2.238D+00, 2.519D+00, 7 2.816D+00, 2.816D+00,-6.900D-01,-6.860D-01,-6.710D-01,-6.440D-01, 8 -6.050D-01,-5.550D-01,-4.330D-01,-2.400D-01, 8.000D-02, 5.170D-01, 9 9.700D-01, 1.360D+00, 1.660D+00, 1.884D+00, 1.906D+00, 2.112D+00/ DATA(kap(i),i= 1081, 1134) 1/ 2.410D+00, 2.410D+00, 2.410D+00,-6.990D-01,-7.010D-01,-6.920D-01, 2 -6.730D-01,-6.290D-01,-5.620D-01,-4.280D-01,-2.260D-01, 7.000D-02, 3 4.620D-01, 8.760D-01, 1.222D+00, 1.473D+00, 1.656D+00, 1.694D+00, 4 1.912D+00, 2.246D+00, 2.572D+00, 2.872D+00,-7.000D-01,-7.010D-01, 5 -6.960D-01,-6.850D-01,-6.590D-01,-6.160D-01,-4.820D-01,-2.580D-01, 6 5.300D-02, 4.260D-01, 7.750D-01, 1.055D+00, 1.276D+00, 1.455D+00, 7 1.501D+00, 1.779D+00, 2.134D+00, 2.447D+00, 2.447D+00,-7.000D-01, 8 -7.020D-01,-6.980D-01,-6.880D-01,-6.700D-01,-6.460D-01,-5.360D-01, 9 -3.420D-01,-2.700D-02, 3.300D-01, 6.410D-01, 8.890D-01, 1.096D+00/ DATA(kap(i),i= 1135, 1188) 1/ 1.283D+00, 1.369D+00, 1.700D+00, 2.033D+00, 2.355D+00, 2.355D+00, 2 -7.020D-01,-7.020D-01,-7.000D-01,-6.940D-01,-6.850D-01,-6.710D-01, 3 -5.950D-01,-4.570D-01,-2.030D-01, 1.160D-01, 3.970D-01, 6.260D-01, 4 8.300D-01, 1.041D+00, 1.209D+00, 1.554D+00, 1.891D+00, 1.891D+00, 5 1.891D+00,-7.030D-01,-7.040D-01,-7.010D-01,-6.960D-01,-6.900D-01, 6 -6.850D-01,-6.290D-01,-5.240D-01,-3.240D-01,-5.300D-02, 2.090D-01, 7 4.320D-01, 6.400D-01, 8.790D-01, 1.098D+00, 1.448D+00, 1.448D+00, 8 1.448D+00, 1.448D+00,-6.930D-01,-7.010D-01,-7.030D-01,-6.990D-01, 9 -6.940D-01,-6.890D-01,-6.460D-01,-5.650D-01,-4.070D-01,-1.760D-01/ DATA(kap(i),i= 1189, 1242) 1/ 6.400D-02, 2.820D-01, 4.980D-01, 7.650D-01, 9.900D-01, 1.348D+00, 2 1.710D+00, 2.045D+00, 2.045D+00,-7.060D-01,-7.060D-01,-7.050D-01, 3 -7.020D-01,-6.990D-01,-6.950D-01,-6.660D-01,-6.110D-01,-5.010D-01, 4 -3.290D-01,-1.260D-01, 8.600D-02, 3.330D-01, 6.170D-01, 8.638D-01, 5 1.230D+00, 1.543D+00, 1.543D+00, 1.543D+00,-7.080D-01,-7.080D-01, 6 -7.070D-01,-7.040D-01,-7.000D-01,-6.960D-01,-6.720D-01,-6.300D-01, 7 -5.450D-01,-4.050D-01,-2.260D-01,-1.600D-02, 2.450D-01, 5.210D-01, 8 8.000D-01, 1.121D+00, 1.390D+00, 1.685D+00, 1.980D+00,-7.130D-01, 9 -7.130D-01,-7.120D-01,-7.090D-01,-7.060D-01,-7.020D-01,-6.800D-01/ DATA(kap(i),i= 1243, 1296) 1/-6.390D-01,-5.670D-01,-4.610D-01,-3.170D-01,-1.250D-01, 9.200D-02, 2 3.510D-01, 6.204D-01, 9.341D-01, 1.253D+00, 1.253D+00, 1.253D+00, 3 -7.180D-01,-7.180D-01,-7.170D-01,-7.160D-01,-7.140D-01,-7.130D-01, 4 -6.940D-01,-6.580D-01,-5.910D-01,-4.950D-01,-3.710D-01,-2.140D-01, 5 -2.400D-02, 2.270D-01, 5.187D-01, 8.431D-01, 1.183D+00, 1.516D+00, 6 1.846D+00,-7.270D-01,-7.270D-01,-7.270D-01,-7.260D-01,-7.250D-01, 7 -7.250D-01,-7.150D-01,-6.930D-01,-6.510D-01,-5.790D-01,-4.750D-01, 8 -3.470D-01,-1.700D-01, 6.700D-02, 3.904D-01, 6.881D-01, 1.080D+00, 9 1.467D+00, 1.467D+00,-7.360D-01,-7.370D-01,-7.370D-01,-7.360D-01/ DATA(kap(i),i= 1297, 1350) 1/-7.350D-01,-7.350D-01,-7.280D-01,-7.130D-01,-6.850D-01,-6.280D-01, 2 -5.420D-01,-4.260D-01,-2.630D-01,-4.000D-02, 2.675D-01, 6.500D-01, 3 1.078D+00, 1.078D+00, 1.078D+00,-7.550D-01,-7.550D-01,-7.550D-01, 4 -7.550D-01,-7.540D-01,-7.520D-01,-7.480D-01,-7.410D-01,-7.220D-01, 5 -6.790D-01,-6.170D-01,-5.250D-01,-3.900D-01,-1.840D-01, 1.478D-01, 6 5.753D-01, 1.100D+00, 1.611D+00, 1.611D+00,-7.730D-01,-7.720D-01, 7 -7.730D-01,-7.730D-01,-7.720D-01,-7.700D-01,-7.680D-01,-7.650D-01, 8 -7.460D-01,-7.150D-01,-6.680D-01,-5.960D-01,-4.830D-01,-2.820D-01, 9 9.743D-02, 5.817D-01, 1.179D+00, 1.179D+00, 1.179D+00,-7.910D-01/ DATA(kap(i),i= 1351, 1368) 1/-7.910D-01,-7.910D-01,-7.910D-01,-7.910D-01,-7.890D-01,-7.870D-01, 2 -7.850D-01,-7.690D-01,-7.460D-01,-7.110D-01,-6.560D-01,-5.580D-01, 3 -3.590D-01, 0.000D+00, 5.094D-01, 1.330D+00, 2.000D+00, 2.670D+00/ c table: DATA/klgx35z010.dat DATA(kap(i),i= 1369, 1422) 1/-6.238D+00,-5.893D+00,-5.635D+00,-5.458D+00,-5.361D+00,-5.338D+00, 2 -5.374D+00,-5.409D+00,-5.429D+00,-5.431D+00,-5.414D+00,-5.394D+00, 3 -5.367D+00,-5.326D+00,-5.263D+00,-5.168D+00,-5.035D+00,-4.877D+00, 4 -4.698D+00,-6.196D+00,-5.843D+00,-5.577D+00,-5.393D+00,-5.287D+00, 5 -5.255D+00,-5.271D+00,-5.288D+00,-5.292D+00,-5.274D+00,-5.232D+00, 6 -5.170D+00,-5.111D+00,-5.050D+00,-4.983D+00,-4.895D+00,-4.772D+00, 7 -4.633D+00,-4.484D+00,-6.049D+00,-5.712D+00,-5.461D+00,-5.292D+00, 8 -5.200D+00,-5.182D+00,-5.193D+00,-5.190D+00,-5.171D+00,-5.127D+00, 9 -5.058D+00,-4.955D+00,-4.849D+00,-4.752D+00,-4.664D+00,-4.570D+00/ DATA(kap(i),i= 1423, 1476) 1/-4.456D+00,-4.328D+00,-4.189D+00,-5.694D+00,-5.410D+00,-5.210D+00, 2 -5.092D+00,-5.050D+00,-5.082D+00,-5.113D+00,-5.110D+00,-5.074D+00, 3 -5.001D+00,-4.895D+00,-4.752D+00,-4.598D+00,-4.454D+00,-4.331D+00, 4 -4.222D+00,-4.110D+00,-3.998D+00,-3.871D+00,-5.337D+00,-5.097D+00, 5 -4.942D+00,-4.867D+00,-4.868D+00,-4.942D+00,-5.004D+00,-5.023D+00, 6 -4.989D+00,-4.896D+00,-4.750D+00,-4.559D+00,-4.358D+00,-4.171D+00, 7 -4.007D+00,-3.869D+00,-3.753D+00,-3.647D+00,-3.538D+00,-5.088D+00, 8 -4.867D+00,-4.730D+00,-4.672D+00,-4.690D+00,-4.780D+00,-4.857D+00, 9 -4.901D+00,-4.887D+00,-4.796D+00,-4.626D+00,-4.393D+00,-4.139D+00/ DATA(kap(i),i= 1477, 1530) 1/-3.904D+00,-3.704D+00,-3.534D+00,-3.400D+00,-3.292D+00,-3.192D+00, 2 -4.959D+00,-4.733D+00,-4.591D+00,-4.528D+00,-4.539D+00,-4.612D+00, 3 -4.683D+00,-4.730D+00,-4.728D+00,-4.656D+00,-4.487D+00,-4.236D+00, 4 -3.945D+00,-3.663D+00,-3.422D+00,-3.222D+00,-3.064D+00,-2.942D+00, 5 -2.842D+00,-4.901D+00,-4.662D+00,-4.506D+00,-4.428D+00,-4.424D+00, 6 -4.471D+00,-4.518D+00,-4.547D+00,-4.538D+00,-4.474D+00,-4.314D+00, 7 -4.066D+00,-3.760D+00,-3.446D+00,-3.164D+00,-2.932D+00,-2.750D+00, 8 -2.610D+00,-2.500D+00,-4.872D+00,-4.620D+00,-4.451D+00,-4.359D+00, 9 -4.341D+00,-4.362D+00,-4.380D+00,-4.379D+00,-4.344D+00,-4.268D+00/ DATA(kap(i),i= 1531, 1584) 1/-4.107D+00,-3.869D+00,-3.570D+00,-3.242D+00,-2.931D+00,-2.667D+00, 2 -2.459D+00,-2.297D+00,-2.171D+00,-4.875D+00,-4.611D+00,-4.428D+00, 3 -4.323D+00,-4.290D+00,-4.285D+00,-4.274D+00,-4.237D+00,-4.165D+00, 4 -4.054D+00,-3.876D+00,-3.640D+00,-3.356D+00,-3.039D+00,-2.717D+00, 5 -2.428D+00,-2.192D+00,-2.008D+00,-1.865D+00,-4.839D+00,-4.578D+00, 6 -4.398D+00,-4.295D+00,-4.263D+00,-4.241D+00,-4.202D+00,-4.130D+00, 7 -4.016D+00,-3.859D+00,-3.649D+00,-3.400D+00,-3.123D+00,-2.824D+00, 8 -2.508D+00,-2.208D+00,-1.949D+00,-1.741D+00,-1.578D+00,-4.741D+00, 9 -4.502D+00,-4.342D+00,-4.258D+00,-4.246D+00,-4.220D+00,-4.163D+00/ DATA(kap(i),i= 1585, 1638) 1/-4.060D+00,-3.904D+00,-3.696D+00,-3.447D+00,-3.173D+00,-2.888D+00, 2 -2.593D+00,-2.292D+00,-1.994D+00,-1.722D+00,-1.495D+00,-1.313D+00, 3 -4.518D+00,-4.328D+00,-4.217D+00,-4.181D+00,-4.206D+00,-4.192D+00, 4 -4.135D+00,-4.014D+00,-3.824D+00,-3.569D+00,-3.277D+00,-2.970D+00, 5 -2.665D+00,-2.365D+00,-2.067D+00,-1.775D+00,-1.501D+00,-1.261D+00, 6 -1.065D+00,-4.146D+00,-4.030D+00,-3.993D+00,-4.029D+00,-4.107D+00, 7 -4.133D+00,-4.096D+00,-3.978D+00,-3.774D+00,-3.480D+00,-3.145D+00, 8 -2.801D+00,-2.469D+00,-2.152D+00,-1.847D+00,-1.555D+00,-1.280D+00, 9 -1.035D+00,-8.296D-01,-3.746D+00,-3.692D+00,-3.715D+00,-3.812D+00/ DATA(kap(i),i= 1639, 1692) 1/-3.935D+00,-4.012D+00,-4.021D+00,-3.931D+00,-3.741D+00,-3.426D+00, 2 -3.054D+00,-2.673D+00,-2.308D+00,-1.964D+00,-1.645D+00,-1.342D+00, 3 -1.062D+00,-8.112D-01,-6.002D-01,-3.364D+00,-3.352D+00,-3.418D+00, 4 -3.557D+00,-3.709D+00,-3.825D+00,-3.879D+00,-3.836D+00,-3.681D+00, 5 -3.378D+00,-2.992D+00,-2.580D+00,-2.181D+00,-1.808D+00,-1.463D+00, 6 -1.146D+00,-8.535D-01,-5.950D-01,-3.785D-01,-2.992D+00,-3.013D+00, 7 -3.112D+00,-3.283D+00,-3.455D+00,-3.594D+00,-3.677D+00,-3.670D+00, 8 -3.554D+00,-3.294D+00,-2.929D+00,-2.510D+00,-2.088D+00,-1.684D+00, 9 -1.311D+00,-9.709D-01,-6.615D-01,-3.907D-01,-1.643D-01,-2.631D+00/ DATA(kap(i),i= 1693, 1746) 1/-2.680D+00,-2.805D+00,-3.002D+00,-3.188D+00,-3.342D+00,-3.441D+00, 2 -3.452D+00,-3.356D+00,-3.144D+00,-2.830D+00,-2.440D+00,-2.013D+00, 3 -1.589D+00,-1.188D+00,-8.206D-01,-4.908D-01,-2.027D-01, 3.584D-02, 4 -2.282D+00,-2.355D+00,-2.502D+00,-2.716D+00,-2.911D+00,-3.075D+00, 5 -3.181D+00,-3.199D+00,-3.109D+00,-2.923D+00,-2.658D+00,-2.325D+00, 6 -1.931D+00,-1.510D+00,-1.090D+00,-6.970D-01,-3.418D-01,-3.483D-02, 7 2.201D-01,-1.952D+00,-2.043D+00,-2.208D+00,-2.425D+00,-2.626D+00, 8 -2.793D+00,-2.901D+00,-2.926D+00,-2.837D+00,-2.663D+00,-2.427D+00, 9 -2.143D+00,-1.808D+00,-1.419D+00,-1.005D+00,-5.949D-01,-2.168D-01/ DATA(kap(i),i= 1747, 1800) 1/ 1.122D-01, 3.865D-01,-1.485D+00,-1.599D+00,-1.785D+00,-2.002D+00, 2 -2.204D+00,-2.373D+00,-2.480D+00,-2.511D+00,-2.421D+00,-2.254D+00, 3 -2.039D+00,-1.792D+00,-1.514D+00,-1.202D+00,-8.432D-01,-4.525D-01, 4 -6.025D-02, 2.959D-01, 6.006D-01,-1.075D+00,-1.199D+00,-1.394D+00, 5 -1.600D+00,-1.793D+00,-1.954D+00,-2.055D+00,-2.076D+00,-1.989D+00, 6 -1.829D+00,-1.628D+00,-1.403D+00,-1.156D+00,-8.882D-01,-5.901D-01, 7 -2.554D-01, 1.033D-01, 4.586D-01, 7.830D-01,-9.621D-01,-1.095D+00, 8 -1.271D+00,-1.460D+00,-1.636D+00,-1.788D+00,-1.922D+00,-1.943D+00, 9 -1.881D+00,-1.737D+00,-1.565D+00,-1.344D+00,-1.114D+00,-8.615D-01/ DATA(kap(i),i= 1801, 1854) 1/-5.860D-01,-2.750D-01, 6.824D-02, 4.135D-01, 7.511D-01,-8.310D-01, 2 -8.260D-01,-8.480D-01,-8.940D-01,-9.560D-01,-1.032D+00,-1.089D+00, 3 -1.109D+00,-1.093D+00,-1.015D+00,-8.910D-01,-7.320D-01,-5.480D-01, 4 -3.500D-01,-1.390D-01, 9.600D-02, 3.490D-01, 6.020D-01, 8.550D-01, 5 -8.190D-01,-8.010D-01,-7.480D-01,-6.610D-01,-5.630D-01,-4.530D-01, 6 -3.560D-01,-2.800D-01,-2.130D-01,-1.310D-01,-3.800D-02, 7.200D-02, 7 2.080D-01, 3.630D-01, 5.410D-01, 7.280D-01, 9.380D-01, 1.148D+00, 8 1.358D+00,-8.220D-01,-8.060D-01,-7.470D-01,-6.470D-01,-4.780D-01, 9 -2.420D-01, 2.100D-02, 2.530D-01, 4.350D-01, 5.700D-01, 6.740D-01/ DATA(kap(i),i= 1855, 1908) 1/ 7.750D-01, 8.820D-01, 9.990D-01, 1.135D+00, 1.288D+00, 1.463D+00, 2 1.638D+00, 1.813D+00,-7.940D-01,-7.980D-01,-7.560D-01,-6.660D-01, 3 -4.860D-01,-2.150D-01, 1.230D-01, 4.790D-01, 7.940D-01, 1.038D+00, 4 1.199D+00, 1.320D+00, 1.422D+00, 1.526D+00, 1.635D+00, 1.766D+00, 5 1.914D+00, 2.062D+00, 2.210D+00,-7.060D-01,-7.390D-01,-7.230D-01, 6 -6.580D-01,-4.910D-01,-2.220D-01, 1.370D-01, 5.460D-01, 9.560D-01, 7 1.299D+00, 1.547D+00, 1.724D+00, 1.849D+00, 1.951D+00, 2.056D+00, 8 2.166D+00, 2.294D+00, 2.422D+00, 2.655D+00,-6.560D-01,-6.610D-01, 9 -6.490D-01,-6.200D-01,-4.860D-01,-2.460D-01, 9.900D-02, 5.150D-01/ DATA(kap(i),i= 1909, 1962) 1/ 9.620D-01, 1.378D+00, 1.724D+00, 1.970D+00, 2.145D+00, 2.274D+00, 2 2.386D+00, 2.495D+00, 2.614D+00, 2.733D+00, 2.956D+00,-6.300D-01, 3 -6.220D-01,-5.830D-01,-5.120D-01,-3.760D-01,-1.750D-01, 9.400D-02, 4 4.440D-01, 8.750D-01, 1.340D+00, 1.800D+00, 2.189D+00, 2.491D+00, 5 2.708D+00, 2.870D+00, 2.998D+00, 3.118D+00, 3.238D+00, 3.418D+00, 6 -6.200D-01,-5.970D-01,-5.520D-01,-4.850D-01,-3.370D-01,-1.090D-01, 7 1.760D-01, 5.030D-01, 8.700D-01, 1.296D+00, 1.763D+00, 2.215D+00, 8 2.629D+00, 2.945D+00, 3.175D+00, 3.347D+00, 3.485D+00, 3.625D+00, 9 3.773D+00,-6.200D-01,-5.990D-01,-5.510D-01,-4.770D-01,-3.300D-01/ DATA(kap(i),i= 1963, 2016) 1/-1.090D-01, 1.810D-01, 5.400D-01, 9.360D-01, 1.337D+00, 1.760D+00, 2 2.225D+00, 2.685D+00, 3.081D+00, 3.385D+00, 3.606D+00, 3.744D+00, 3 3.908D+00, 4.062D+00,-6.130D-01,-5.910D-01,-5.500D-01,-4.870D-01, 4 -3.460D-01,-1.260D-01, 1.620D-01, 5.310D-01, 9.510D-01, 1.394D+00, 5 1.821D+00, 2.256D+00, 2.718D+00, 3.158D+00, 3.526D+00, 3.804D+00, 6 3.957D+00, 4.142D+00, 4.301D+00,-5.650D-01,-5.500D-01,-5.120D-01, 7 -4.520D-01,-3.250D-01,-1.300D-01, 1.490D-01, 5.330D-01, 9.720D-01, 8 1.468D+00, 1.960D+00, 2.450D+00, 2.913D+00, 3.371D+00, 3.788D+00, 9 4.075D+00, 4.354D+00, 4.587D+00, 4.587D+00,-4.850D-01,-4.590D-01/ DATA(kap(i),i= 2017, 2070) 1/-4.170D-01,-3.580D-01,-2.370D-01,-5.200D-02, 2.040D-01, 5.730D-01, 2 1.032D+00, 1.527D+00, 2.044D+00, 2.575D+00, 3.098D+00, 3.593D+00, 3 3.928D+00, 4.311D+00, 4.634D+00, 4.918D+00, 4.918D+00,-4.700D-01, 4 -4.450D-01,-3.700D-01,-2.440D-01,-8.000D-02, 1.220D-01, 3.650D-01, 5 7.000D-01, 1.136D+00, 1.620D+00, 2.140D+00, 2.671D+00, 3.214D+00, 6 3.740D+00, 4.066D+00, 4.473D+00, 4.827D+00, 4.827D+00, 4.827D+00, 7 -4.720D-01,-4.480D-01,-3.730D-01,-2.460D-01,-3.600D-02, 2.580D-01, 8 5.750D-01, 9.130D-01, 1.305D+00, 1.755D+00, 2.247D+00, 2.761D+00, 9 3.300D+00, 3.702D+00, 4.164D+00, 4.589D+00, 4.957D+00, 4.957D+00/ DATA(kap(i),i= 2071, 2124) 1/ 4.957D+00,-4.810D-01,-4.580D-01,-3.890D-01,-2.750D-01,-6.500D-02, 2 2.420D-01, 6.510D-01, 1.077D+00, 1.486D+00, 1.902D+00, 2.349D+00, 3 2.842D+00, 3.359D+00, 3.765D+00, 4.233D+00, 4.667D+00, 5.032D+00, 4 5.032D+00, 5.032D+00,-4.860D-01,-4.660D-01,-4.050D-01,-3.030D-01, 5 -1.020D-01, 1.960D-01, 5.890D-01, 1.068D+00, 1.569D+00, 2.014D+00, 6 2.451D+00, 2.913D+00, 3.402D+00, 3.810D+00, 4.280D+00, 4.711D+00, 7 4.711D+00, 4.711D+00, 4.711D+00,-4.920D-01,-4.710D-01,-4.160D-01, 8 -3.280D-01,-1.460D-01, 1.320D-01, 5.190D-01, 9.770D-01, 1.505D+00, 9 2.016D+00, 2.495D+00, 2.954D+00, 3.365D+00, 3.845D+00, 4.297D+00/ DATA(kap(i),i= 2125, 2178) 1/ 4.701D+00, 4.989D+00, 5.155D+00, 5.155D+00,-4.920D-01,-4.740D-01, 2 -4.240D-01,-3.420D-01,-1.700D-01, 9.100D-02, 4.510D-01, 8.930D-01, 3 1.406D+00, 1.944D+00, 2.478D+00, 2.967D+00, 3.394D+00, 3.860D+00, 4 4.293D+00, 4.674D+00, 4.933D+00, 5.096D+00, 5.096D+00,-4.910D-01, 5 -4.690D-01,-4.260D-01,-3.590D-01,-2.080D-01, 2.900D-02, 3.590D-01, 6 7.720D-01, 1.264D+00, 1.791D+00, 2.348D+00, 2.926D+00, 3.411D+00, 7 3.855D+00, 4.258D+00, 4.609D+00, 4.842D+00, 4.842D+00, 4.842D+00, 8 -4.900D-01,-4.630D-01,-4.180D-01,-3.550D-01,-2.160D-01,-1.000D-03, 9 3.120D-01, 7.090D-01, 1.188D+00, 1.709D+00, 2.252D+00, 2.896D+00/ DATA(kap(i),i= 2179, 2232) 1/ 3.393D+00, 3.859D+00, 4.279D+00, 4.612D+00, 4.834D+00, 4.834D+00, 2 4.834D+00,-4.800D-01,-4.560D-01,-4.120D-01,-3.450D-01,-2.100D-01, 3 -7.000D-03, 2.940D-01, 6.930D-01, 1.154D+00, 1.672D+00, 2.312D+00, 4 2.861D+00, 3.379D+00, 3.872D+00, 4.303D+00, 4.624D+00, 4.806D+00, 5 4.806D+00, 4.806D+00,-4.560D-01,-4.300D-01,-3.870D-01,-3.250D-01, 6 -1.940D-01, 6.000D-03, 3.030D-01, 6.970D-01, 1.154D+00, 1.662D+00, 7 2.270D+00, 2.834D+00, 3.375D+00, 3.893D+00, 4.325D+00, 4.624D+00, 8 4.745D+00, 4.664D+00, 4.470D+00,-3.550D-01,-3.430D-01,-3.070D-01, 9 -2.470D-01,-1.220D-01, 6.900D-02, 3.680D-01, 7.680D-01, 1.216D+00/ DATA(kap(i),i= 2233, 2286) 1/ 1.681D+00, 2.258D+00, 2.824D+00, 3.364D+00, 3.848D+00, 4.229D+00, 2 4.462D+00, 4.456D+00, 4.320D+00, 4.320D+00,-2.370D-01,-2.010D-01, 3 -1.460D-01,-7.400D-02, 5.600D-02, 2.430D-01, 5.170D-01, 8.810D-01, 4 1.322D+00, 1.685D+00, 2.246D+00, 2.785D+00, 3.272D+00, 3.680D+00, 5 3.990D+00, 4.113D+00, 4.068D+00, 4.068D+00, 4.068D+00,-3.580D-01, 6 -2.950D-01,-2.020D-01,-7.700D-02, 1.100D-01, 3.590D-01, 6.550D-01, 7 1.003D+00, 1.394D+00, 1.815D+00, 2.254D+00, 2.679D+00, 3.064D+00, 8 3.324D+00, 3.571D+00, 3.662D+00, 3.617D+00, 3.617D+00, 3.617D+00, 9 -4.900D-01,-4.330D-01,-3.490D-01,-2.360D-01,-4.800D-02, 2.160D-01/ DATA(kap(i),i= 2287, 2340) 1/ 5.430D-01, 9.250D-01, 1.314D+00, 1.706D+00, 2.098D+00, 2.465D+00, 2 2.794D+00, 3.057D+00, 3.241D+00, 3.296D+00, 3.296D+00, 3.296D+00, 3 3.296D+00,-5.440D-01,-5.160D-01,-4.550D-01,-3.600D-01,-1.840D-01, 4 7.400D-02, 4.210D-01, 8.310D-01, 1.216D+00, 1.593D+00, 1.951D+00, 5 2.283D+00, 2.586D+00, 2.820D+00, 2.965D+00, 3.021D+00, 3.021D+00, 6 3.021D+00, 3.021D+00,-5.610D-01,-5.520D-01,-5.330D-01,-5.040D-01, 7 -3.830D-01,-1.710D-01, 1.630D-01, 6.110D-01, 1.028D+00, 1.408D+00, 8 1.741D+00, 2.040D+00, 2.314D+00, 2.441D+00, 2.586D+00, 2.586D+00, 9 2.586D+00, 2.586D+00, 2.586D+00,-5.640D-01,-5.570D-01,-5.470D-01/ DATA(kap(i),i= 2341, 2394) 1/-5.330D-01,-4.590D-01,-3.240D-01,-6.300D-02, 3.520D-01, 8.270D-01, 2 1.255D+00, 1.600D+00, 1.896D+00, 2.157D+00, 2.202D+00, 2.202D+00, 3 2.202D+00, 2.202D+00, 2.202D+00, 2.202D+00,-5.660D-01,-5.620D-01, 4 -5.510D-01,-5.330D-01,-4.770D-01,-3.830D-01,-1.840D-01, 1.640D-01, 5 6.390D-01, 1.111D+00, 1.488D+00, 1.793D+00, 2.056D+00, 2.102D+00, 6 2.295D+00, 2.494D+00, 2.709D+00, 2.929D+00, 2.929D+00,-5.660D-01, 7 -5.630D-01,-5.550D-01,-5.410D-01,-4.960D-01,-4.180D-01,-2.690D-01, 8 4.000D-03, 4.140D-01, 8.900D-01, 1.307D+00, 1.637D+00, 1.912D+00, 9 1.983D+00, 2.180D+00, 2.395D+00, 2.652D+00, 2.652D+00, 2.652D+00/ DATA(kap(i),i= 2395, 2448) 1/-5.610D-01,-5.590D-01,-5.510D-01,-5.390D-01,-5.020D-01,-4.400D-01, 2 -3.040D-01,-7.400D-02, 2.980D-01, 7.540D-01, 1.185D+00, 1.541D+00, 3 1.831D+00, 2.088D+00, 2.075D+00, 2.310D+00, 2.645D+00, 2.930D+00, 4 3.215D+00,-5.580D-01,-5.510D-01,-5.410D-01,-5.280D-01,-4.940D-01, 5 -4.400D-01,-3.210D-01,-1.100D-01, 2.380D-01, 6.750D-01, 1.116D+00, 6 1.484D+00, 1.780D+00, 2.022D+00, 2.015D+00, 2.268D+00, 2.551D+00, 7 2.841D+00, 2.841D+00,-5.660D-01,-5.570D-01,-5.410D-01,-5.180D-01, 8 -4.780D-01,-4.210D-01,-3.180D-01,-1.320D-01, 1.860D-01, 6.130D-01, 9 1.053D+00, 1.421D+00, 1.699D+00, 1.904D+00, 1.929D+00, 2.147D+00/ DATA(kap(i),i= 2449, 2502) 1/ 2.442D+00, 2.442D+00, 2.442D+00,-5.700D-01,-5.710D-01,-5.630D-01, 2 -5.470D-01,-5.020D-01,-4.270D-01,-3.060D-01,-1.130D-01, 1.690D-01, 3 5.570D-01, 9.570D-01, 1.281D+00, 1.511D+00, 1.681D+00, 1.728D+00, 4 1.952D+00, 2.288D+00, 2.614D+00, 2.916D+00,-5.710D-01,-5.710D-01, 5 -5.680D-01,-5.630D-01,-5.310D-01,-4.730D-01,-3.530D-01,-1.400D-01, 6 1.560D-01, 5.130D-01, 8.450D-01, 1.109D+00, 1.314D+00, 1.485D+00, 7 1.542D+00, 1.825D+00, 2.179D+00, 2.489D+00, 2.489D+00,-5.720D-01, 8 -5.710D-01,-5.690D-01,-5.650D-01,-5.420D-01,-5.000D-01,-4.080D-01, 9 -2.180D-01, 8.400D-02, 4.180D-01, 7.090D-01, 9.420D-01, 1.138D+00/ DATA(kap(i),i= 2503, 2556) 1/ 1.322D+00, 1.416D+00, 1.749D+00, 2.077D+00, 2.394D+00, 2.394D+00, 2 -5.730D-01,-5.720D-01,-5.710D-01,-5.700D-01,-5.560D-01,-5.280D-01, 3 -4.670D-01,-3.320D-01,-8.500D-02, 2.110D-01, 4.680D-01, 6.810D-01, 4 8.810D-01, 1.095D+00, 1.263D+00, 1.602D+00, 1.929D+00, 1.929D+00, 5 1.929D+00,-5.740D-01,-5.730D-01,-5.730D-01,-5.720D-01,-5.620D-01, 6 -5.430D-01,-5.010D-01,-4.000D-01,-2.070D-01, 4.700D-02, 2.870D-01, 7 4.930D-01, 6.980D-01, 9.410D-01, 1.155D+00, 1.490D+00, 1.490D+00, 8 1.490D+00, 1.490D+00,-5.750D-01,-5.750D-01,-5.740D-01,-5.730D-01, 9 -5.660D-01,-5.530D-01,-5.190D-01,-4.400D-01,-2.880D-01,-7.300D-02/ DATA(kap(i),i= 2557, 2610) 1/ 1.480D-01, 3.500D-01, 5.650D-01, 8.310D-01, 1.054D+00, 1.397D+00, 2 1.744D+00, 2.068D+00, 2.068D+00,-5.770D-01,-5.770D-01,-5.760D-01, 3 -5.750D-01,-5.700D-01,-5.610D-01,-5.380D-01,-4.860D-01,-3.810D-01, 4 -2.190D-01,-3.400D-02, 1.700D-01, 4.080D-01, 6.880D-01, 9.338D-01, 5 1.290D+00, 1.600D+00, 1.600D+00, 1.600D+00,-5.790D-01,-5.790D-01, 6 -5.780D-01,-5.760D-01,-5.710D-01,-5.620D-01,-5.450D-01,-5.050D-01, 7 -4.230D-01,-2.960D-01,-1.260D-01, 7.500D-02, 3.220D-01, 5.950D-01, 8 8.750D-01, 1.196D+00, 1.475D+00, 1.778D+00, 2.080D+00,-5.840D-01, 9 -5.840D-01,-5.830D-01,-5.830D-01,-5.780D-01,-5.680D-01,-5.510D-01/ DATA(kap(i),i= 2611, 2664) 1/-5.140D-01,-4.490D-01,-3.540D-01,-2.170D-01,-3.600D-02, 1.710D-01, 2 4.310D-01, 7.018D-01, 1.004D+00, 1.357D+00, 1.357D+00, 1.357D+00, 3 -5.890D-01,-5.890D-01,-5.890D-01,-5.890D-01,-5.860D-01,-5.790D-01, 4 -5.650D-01,-5.330D-01,-4.730D-01,-3.850D-01,-2.700D-01,-1.240D-01, 5 6.000D-02, 3.120D-01, 5.742D-01, 9.134D-01, 1.325D+00, 1.729D+00, 6 2.119D+00,-5.980D-01,-5.980D-01,-5.980D-01,-5.990D-01,-5.970D-01, 7 -5.930D-01,-5.850D-01,-5.670D-01,-5.230D-01,-4.590D-01,-3.670D-01, 8 -2.490D-01,-7.900D-02, 1.590D-01, 4.763D-01, 8.175D-01, 1.260D+00, 9 1.701D+00, 1.701D+00,-6.080D-01,-6.080D-01,-6.080D-01,-6.080D-01/ DATA(kap(i),i= 2665, 2718) 1/-6.070D-01,-6.040D-01,-5.980D-01,-5.870D-01,-5.550D-01,-5.060D-01, 2 -4.310D-01,-3.250D-01,-1.700D-01, 5.600D-02, 3.734D-01, 7.918D-01, 3 1.269D+00, 1.269D+00, 1.269D+00,-6.260D-01,-6.260D-01,-6.260D-01, 4 -6.260D-01,-6.250D-01,-6.230D-01,-6.200D-01,-6.140D-01,-5.930D-01, 5 -5.590D-01,-5.060D-01,-4.250D-01,-2.970D-01,-8.000D-02, 2.562D-01, 6 7.265D-01, 1.310D+00, 1.874D+00, 1.874D+00,-6.440D-01,-6.440D-01, 7 -6.440D-01,-6.440D-01,-6.440D-01,-6.420D-01,-6.410D-01,-6.350D-01, 8 -6.210D-01,-5.950D-01,-5.580D-01,-4.990D-01,-3.890D-01,-1.740D-01, 9 2.314D-01, 7.622D-01, 1.414D+00, 1.414D+00, 1.414D+00,-6.620D-01/ DATA(kap(i),i= 2719, 2736) 1/-6.620D-01,-6.620D-01,-6.630D-01,-6.620D-01,-6.610D-01,-6.580D-01, 2 -6.560D-01,-6.440D-01,-6.280D-01,-6.030D-01,-5.600D-01,-4.620D-01, 3 -2.500D-01, 1.450D-01, 6.966D-01, 1.585D+00, 2.303D+00, 3.020D+00/ c table: DATA/klgx70z010.dat DATA(kap(i),i= 2737, 2790) 1/-6.238D+00,-5.893D+00,-5.635D+00,-5.458D+00,-5.361D+00,-5.338D+00, 2 -5.374D+00,-5.409D+00,-5.429D+00,-5.431D+00,-5.414D+00,-5.394D+00, 3 -5.367D+00,-5.326D+00,-5.263D+00,-5.168D+00,-5.035D+00,-4.877D+00, 4 -4.698D+00,-6.196D+00,-5.843D+00,-5.577D+00,-5.393D+00,-5.287D+00, 5 -5.255D+00,-5.271D+00,-5.288D+00,-5.292D+00,-5.274D+00,-5.232D+00, 6 -5.170D+00,-5.111D+00,-5.050D+00,-4.983D+00,-4.895D+00,-4.772D+00, 7 -4.633D+00,-4.484D+00,-6.049D+00,-5.712D+00,-5.461D+00,-5.292D+00, 8 -5.200D+00,-5.182D+00,-5.193D+00,-5.190D+00,-5.171D+00,-5.127D+00, 9 -5.058D+00,-4.955D+00,-4.849D+00,-4.752D+00,-4.664D+00,-4.570D+00/ DATA(kap(i),i= 2791, 2844) 1/-4.456D+00,-4.328D+00,-4.189D+00,-5.694D+00,-5.410D+00,-5.210D+00, 2 -5.092D+00,-5.050D+00,-5.082D+00,-5.113D+00,-5.110D+00,-5.074D+00, 3 -5.001D+00,-4.895D+00,-4.752D+00,-4.598D+00,-4.454D+00,-4.331D+00, 4 -4.222D+00,-4.110D+00,-3.998D+00,-3.871D+00,-5.337D+00,-5.097D+00, 5 -4.942D+00,-4.867D+00,-4.868D+00,-4.942D+00,-5.004D+00,-5.023D+00, 6 -4.989D+00,-4.896D+00,-4.750D+00,-4.559D+00,-4.358D+00,-4.171D+00, 7 -4.007D+00,-3.869D+00,-3.753D+00,-3.647D+00,-3.538D+00,-5.088D+00, 8 -4.867D+00,-4.730D+00,-4.672D+00,-4.690D+00,-4.780D+00,-4.857D+00, 9 -4.901D+00,-4.887D+00,-4.796D+00,-4.626D+00,-4.393D+00,-4.139D+00/ DATA(kap(i),i= 2845, 2898) 1/-3.904D+00,-3.704D+00,-3.534D+00,-3.400D+00,-3.292D+00,-3.192D+00, 2 -4.959D+00,-4.733D+00,-4.591D+00,-4.528D+00,-4.539D+00,-4.612D+00, 3 -4.683D+00,-4.730D+00,-4.728D+00,-4.656D+00,-4.487D+00,-4.236D+00, 4 -3.945D+00,-3.663D+00,-3.422D+00,-3.222D+00,-3.064D+00,-2.942D+00, 5 -2.842D+00,-4.901D+00,-4.662D+00,-4.506D+00,-4.428D+00,-4.424D+00, 6 -4.471D+00,-4.518D+00,-4.547D+00,-4.538D+00,-4.474D+00,-4.314D+00, 7 -4.066D+00,-3.760D+00,-3.446D+00,-3.164D+00,-2.932D+00,-2.750D+00, 8 -2.610D+00,-2.500D+00,-4.872D+00,-4.620D+00,-4.451D+00,-4.359D+00, 9 -4.341D+00,-4.362D+00,-4.380D+00,-4.379D+00,-4.344D+00,-4.268D+00/ DATA(kap(i),i= 2899, 2952) 1/-4.107D+00,-3.869D+00,-3.570D+00,-3.242D+00,-2.931D+00,-2.667D+00, 2 -2.459D+00,-2.297D+00,-2.171D+00,-4.875D+00,-4.611D+00,-4.428D+00, 3 -4.323D+00,-4.290D+00,-4.285D+00,-4.274D+00,-4.237D+00,-4.165D+00, 4 -4.054D+00,-3.876D+00,-3.640D+00,-3.356D+00,-3.039D+00,-2.717D+00, 5 -2.428D+00,-2.192D+00,-2.008D+00,-1.865D+00,-4.839D+00,-4.578D+00, 6 -4.398D+00,-4.295D+00,-4.263D+00,-4.241D+00,-4.202D+00,-4.130D+00, 7 -4.016D+00,-3.859D+00,-3.649D+00,-3.400D+00,-3.123D+00,-2.824D+00, 8 -2.508D+00,-2.208D+00,-1.949D+00,-1.741D+00,-1.578D+00,-4.741D+00, 9 -4.502D+00,-4.342D+00,-4.258D+00,-4.246D+00,-4.220D+00,-4.163D+00/ DATA(kap(i),i= 2953, 3006) 1/-4.060D+00,-3.904D+00,-3.696D+00,-3.447D+00,-3.173D+00,-2.888D+00, 2 -2.593D+00,-2.292D+00,-1.994D+00,-1.722D+00,-1.495D+00,-1.313D+00, 3 -4.518D+00,-4.328D+00,-4.217D+00,-4.181D+00,-4.206D+00,-4.192D+00, 4 -4.135D+00,-4.014D+00,-3.824D+00,-3.569D+00,-3.277D+00,-2.970D+00, 5 -2.665D+00,-2.365D+00,-2.067D+00,-1.775D+00,-1.501D+00,-1.261D+00, 6 -1.065D+00,-4.146D+00,-4.030D+00,-3.993D+00,-4.029D+00,-4.107D+00, 7 -4.133D+00,-4.096D+00,-3.978D+00,-3.774D+00,-3.480D+00,-3.145D+00, 8 -2.801D+00,-2.469D+00,-2.152D+00,-1.847D+00,-1.555D+00,-1.280D+00, 9 -1.035D+00,-8.296D-01,-3.746D+00,-3.692D+00,-3.715D+00,-3.812D+00/ DATA(kap(i),i= 3007, 3060) 1/-3.935D+00,-4.012D+00,-4.021D+00,-3.931D+00,-3.741D+00,-3.426D+00, 2 -3.054D+00,-2.673D+00,-2.308D+00,-1.964D+00,-1.645D+00,-1.342D+00, 3 -1.062D+00,-8.112D-01,-6.002D-01,-3.364D+00,-3.352D+00,-3.418D+00, 4 -3.557D+00,-3.709D+00,-3.825D+00,-3.879D+00,-3.836D+00,-3.681D+00, 5 -3.378D+00,-2.992D+00,-2.580D+00,-2.181D+00,-1.808D+00,-1.463D+00, 6 -1.146D+00,-8.535D-01,-5.950D-01,-3.785D-01,-2.992D+00,-3.013D+00, 7 -3.112D+00,-3.283D+00,-3.455D+00,-3.594D+00,-3.677D+00,-3.670D+00, 8 -3.554D+00,-3.294D+00,-2.929D+00,-2.510D+00,-2.088D+00,-1.684D+00, 9 -1.311D+00,-9.709D-01,-6.615D-01,-3.907D-01,-1.643D-01,-2.631D+00/ DATA(kap(i),i= 3061, 3114) 1/-2.680D+00,-2.805D+00,-3.002D+00,-3.188D+00,-3.342D+00,-3.441D+00, 2 -3.452D+00,-3.356D+00,-3.144D+00,-2.830D+00,-2.440D+00,-2.013D+00, 3 -1.589D+00,-1.188D+00,-8.206D-01,-4.908D-01,-2.027D-01, 3.584D-02, 4 -2.282D+00,-2.355D+00,-2.502D+00,-2.716D+00,-2.911D+00,-3.075D+00, 5 -3.181D+00,-3.199D+00,-3.109D+00,-2.923D+00,-2.658D+00,-2.325D+00, 6 -1.931D+00,-1.510D+00,-1.090D+00,-6.970D-01,-3.418D-01,-3.483D-02, 7 2.201D-01,-1.952D+00,-2.043D+00,-2.208D+00,-2.425D+00,-2.626D+00, 8 -2.793D+00,-2.901D+00,-2.926D+00,-2.837D+00,-2.663D+00,-2.427D+00, 9 -2.143D+00,-1.808D+00,-1.419D+00,-1.005D+00,-5.949D-01,-2.168D-01/ DATA(kap(i),i= 3115, 3168) 1/ 1.122D-01, 3.865D-01,-1.485D+00,-1.599D+00,-1.785D+00,-2.002D+00, 2 -2.204D+00,-2.373D+00,-2.480D+00,-2.511D+00,-2.421D+00,-2.254D+00, 3 -2.039D+00,-1.792D+00,-1.514D+00,-1.202D+00,-8.432D-01,-4.525D-01, 4 -6.025D-02, 2.959D-01, 6.006D-01,-1.075D+00,-1.199D+00,-1.394D+00, 5 -1.600D+00,-1.793D+00,-1.954D+00,-2.055D+00,-2.076D+00,-1.989D+00, 6 -1.829D+00,-1.628D+00,-1.403D+00,-1.156D+00,-8.882D-01,-5.901D-01, 7 -2.554D-01, 1.033D-01, 4.586D-01, 7.830D-01,-8.846D-01,-1.000D+00, 8 -1.182D+00,-1.373D+00,-1.556D+00,-1.707D+00,-1.800D+00,-1.812D+00, 9 -1.728D+00,-1.576D+00,-1.382D+00,-1.166D+00,-9.318D-01,-6.781D-01/ DATA(kap(i),i= 3169, 3222) 1/-4.014D-01,-9.373D-02, 2.368D-01, 5.690D-01, 8.881D-01,-5.273D-01, 2 -5.348D-01,-5.682D-01,-6.263D-01,-6.961D-01,-7.591D-01,-8.028D-01, 3 -7.872D-01,-7.182D-01,-6.036D-01,-4.538D-01,-2.785D-01,-8.632D-02, 4 1.224D-01, 3.462D-01, 5.898D-01, 8.448D-01, 1.102D+00, 1.366D+00, 5 -4.907D-01,-4.546D-01,-3.925D-01,-3.029D-01,-1.979D-01,-9.606D-02, 6 -3.466D-03, 7.830D-02, 1.601D-01, 2.529D-01, 3.628D-01, 4.921D-01, 7 6.410D-01, 8.079D-01, 9.938D-01, 1.197D+00, 1.414D+00, 1.635D+00, 8 1.867D+00,-5.023D-01,-4.648D-01,-3.876D-01,-2.492D-01,-4.166D-02, 9 2.123D-01, 4.696D-01, 6.776D-01, 8.305D-01, 9.469D-01, 1.049D+00/ DATA(kap(i),i= 3223, 3276) 1/ 1.153D+00, 1.267D+00, 1.396D+00, 1.545D+00, 1.714D+00, 1.897D+00, 2 2.092D+00, 2.303D+00,-5.106D-01,-4.871D-01,-4.125D-01,-2.727D-01, 3 -4.415D-02, 2.782D-01, 6.406D-01, 9.841D-01, 1.249D+00, 1.439D+00, 4 1.573D+00, 1.675D+00, 1.771D+00, 1.875D+00, 1.992D+00, 2.130D+00, 5 2.283D+00, 2.447D+00, 2.621D+00,-4.940D-01,-4.890D-01,-4.220D-01, 6 -2.940D-01,-6.700D-02, 2.630D-01, 6.580D-01, 1.071D+00, 1.453D+00, 7 1.739D+00, 1.940D+00, 2.082D+00, 2.185D+00, 2.280D+00, 2.381D+00, 8 2.491D+00, 2.628D+00, 2.765D+00, 3.056D+00,-4.730D-01,-4.680D-01, 9 -4.120D-01,-3.050D-01,-1.010D-01, 2.160D-01, 6.140D-01, 1.053D+00/ DATA(kap(i),i= 3277, 3330) 1/ 1.495D+00, 1.873D+00, 2.162D+00, 2.357D+00, 2.500D+00, 2.609D+00, 2 2.713D+00, 2.822D+00, 2.943D+00, 3.064D+00, 3.348D+00,-4.550D-01, 3 -4.450D-01,-3.900D-01,-2.920D-01,-1.170D-01, 1.540D-01, 5.060D-01, 4 9.370D-01, 1.412D+00, 1.886D+00, 2.312D+00, 2.650D+00, 2.898D+00, 5 3.075D+00, 3.206D+00, 3.330D+00, 3.448D+00, 3.566D+00, 3.809D+00, 6 -4.420D-01,-4.230D-01,-3.680D-01,-2.750D-01,-1.140D-01, 1.410D-01, 7 4.680D-01, 8.630D-01, 1.314D+00, 1.813D+00, 2.297D+00, 2.738D+00, 8 3.100D+00, 3.362D+00, 3.549D+00, 3.699D+00, 3.832D+00, 4.007D+00, 9 4.158D+00,-4.410D-01,-4.230D-01,-3.660D-01,-2.700D-01,-1.160D-01/ DATA(kap(i),i= 3331, 3384) 1/ 1.220D-01, 4.360D-01, 8.310D-01, 1.285D+00, 1.766D+00, 2.256D+00, 2 2.752D+00, 3.194D+00, 3.538D+00, 3.797D+00, 3.987D+00, 4.147D+00, 3 4.291D+00, 4.435D+00,-4.350D-01,-4.170D-01,-3.660D-01,-2.810D-01, 4 -1.310D-01, 1.020D-01, 4.070D-01, 8.020D-01, 1.254D+00, 1.734D+00, 5 2.239D+00, 2.746D+00, 3.234D+00, 3.654D+00, 3.973D+00, 4.210D+00, 6 4.366D+00, 4.520D+00, 4.660D+00,-4.080D-01,-3.810D-01,-3.260D-01, 7 -2.440D-01,-1.140D-01, 9.700D-02, 4.010D-01, 8.060D-01, 1.271D+00, 8 1.775D+00, 2.300D+00, 2.822D+00, 3.344D+00, 3.841D+00, 4.266D+00, 9 4.514D+00, 4.768D+00, 4.978D+00, 5.178D+00,-3.820D-01,-3.470D-01/ DATA(kap(i),i= 3385, 3438) 1/-2.800D-01,-1.800D-01,-4.500D-02, 1.630D-01, 4.490D-01, 8.540D-01, 2 1.335D+00, 1.846D+00, 2.383D+00, 2.928D+00, 3.484D+00, 4.002D+00, 3 4.357D+00, 4.742D+00, 5.047D+00, 5.314D+00, 5.579D+00,-3.740D-01, 4 -3.470D-01,-2.700D-01,-1.400D-01, 4.100D-02, 2.690D-01, 5.650D-01, 5 9.540D-01, 1.423D+00, 1.942D+00, 2.479D+00, 3.027D+00, 3.593D+00, 6 4.128D+00, 4.465D+00, 4.856D+00, 5.176D+00, 5.438D+00, 5.648D+00, 7 -3.780D-01,-3.530D-01,-2.770D-01,-1.500D-01, 5.900D-02, 3.440D-01, 8 6.900D-01, 1.094D+00, 1.550D+00, 2.052D+00, 2.575D+00, 3.111D+00, 9 3.665D+00, 4.070D+00, 4.517D+00, 4.908D+00, 5.221D+00, 5.437D+00/ DATA(kap(i),i= 3439, 3492) 1/ 5.533D+00,-3.870D-01,-3.650D-01,-2.930D-01,-1.690D-01, 3.700D-02, 2 3.340D-01, 7.300D-01, 1.185D+00, 1.650D+00, 2.135D+00, 2.641D+00, 3 3.161D+00, 3.698D+00, 4.091D+00, 4.530D+00, 4.916D+00, 5.202D+00, 4 5.343D+00, 5.298D+00,-3.910D-01,-3.720D-01,-3.070D-01,-1.940D-01, 5 6.000D-03, 3.010D-01, 6.900D-01, 1.166D+00, 1.672D+00, 2.177D+00, 6 2.674D+00, 3.177D+00, 3.690D+00, 4.089D+00, 4.519D+00, 4.892D+00, 7 5.134D+00, 5.192D+00, 5.192D+00,-3.970D-01,-3.780D-01,-3.190D-01, 8 -2.190D-01,-3.500D-02, 2.470D-01, 6.350D-01, 1.095D+00, 1.608D+00, 9 2.138D+00, 2.654D+00, 3.155D+00, 3.604D+00, 4.069D+00, 4.488D+00/ DATA(kap(i),i= 3493, 3546) 1/ 4.830D+00, 5.034D+00, 5.050D+00, 4.977D+00,-3.970D-01,-3.820D-01, 2 -3.270D-01,-2.330D-01,-6.000D-02, 2.100D-01, 5.800D-01, 1.024D+00, 3 1.529D+00, 2.062D+00, 2.597D+00, 3.113D+00, 3.584D+00, 4.039D+00, 4 4.443D+00, 4.757D+00, 4.931D+00, 4.922D+00, 4.909D+00,-3.980D-01, 5 -3.800D-01,-3.300D-01,-2.500D-01,-9.800D-02, 1.460D-01, 4.860D-01, 6 9.120D-01, 1.407D+00, 1.925D+00, 2.466D+00, 3.037D+00, 3.530D+00, 7 3.969D+00, 4.343D+00, 4.615D+00, 4.755D+00, 4.745D+00, 4.811D+00, 8 -3.980D-01,-3.760D-01,-3.260D-01,-2.470D-01,-1.100D-01, 1.160D-01, 9 4.380D-01, 8.440D-01, 1.332D+00, 1.849D+00, 2.383D+00, 2.988D+00/ DATA(kap(i),i= 3547, 3600) 1/ 3.489D+00, 3.933D+00, 4.298D+00, 4.534D+00, 4.636D+00, 4.669D+00, 2 4.676D+00,-3.900D-01,-3.730D-01,-3.240D-01,-2.440D-01,-1.100D-01, 3 1.040D-01, 4.160D-01, 8.210D-01, 1.297D+00, 1.810D+00, 2.399D+00, 4 2.948D+00, 3.460D+00, 3.909D+00, 4.269D+00, 4.488D+00, 4.586D+00, 5 4.588D+00, 4.513D+00,-3.670D-01,-3.490D-01,-3.030D-01,-2.290D-01, 6 -1.020D-01, 1.120D-01, 4.260D-01, 8.150D-01, 1.292D+00, 1.797D+00, 7 2.357D+00, 2.917D+00, 3.440D+00, 3.891D+00, 4.243D+00, 4.452D+00, 8 4.530D+00, 4.475D+00, 4.287D+00,-2.740D-01,-2.670D-01,-2.310D-01, 9 -1.670D-01,-4.800D-02, 1.550D-01, 4.650D-01, 8.620D-01, 1.331D+00/ DATA(kap(i),i= 3601, 3654) 1/ 1.735D+00, 2.307D+00, 2.867D+00, 3.368D+00, 3.779D+00, 4.082D+00, 2 4.258D+00, 4.292D+00, 4.169D+00, 4.021D+00,-1.600D-01,-1.290D-01, 3 -7.900D-02,-1.100D-02, 1.020D-01, 2.820D-01, 5.640D-01, 9.340D-01, 4 1.382D+00, 1.676D+00, 2.243D+00, 2.773D+00, 3.206D+00, 3.551D+00, 5 3.801D+00, 3.931D+00, 3.918D+00, 3.782D+00, 3.746D+00,-2.660D-01, 6 -2.060D-01,-1.190D-01,-6.000D-03, 1.540D-01, 3.700D-01, 6.460D-01, 7 9.820D-01, 1.370D+00, 1.791D+00, 2.221D+00, 2.617D+00, 2.959D+00, 8 3.150D+00, 3.349D+00, 3.422D+00, 3.428D+00, 3.424D+00, 3.461D+00, 9 -3.900D-01,-3.360D-01,-2.550D-01,-1.460D-01, 8.000D-03, 2.310D-01/ DATA(kap(i),i= 3655, 3708) 1/ 5.320D-01, 8.910D-01, 1.276D+00, 1.665D+00, 2.054D+00, 2.404D+00, 2 2.702D+00, 2.885D+00, 3.038D+00, 3.101D+00, 3.147D+00, 3.230D+00, 3 3.230D+00,-4.440D-01,-4.170D-01,-3.570D-01,-2.630D-01,-1.160D-01, 4 1.020D-01, 4.240D-01, 7.990D-01, 1.186D+00, 1.560D+00, 1.917D+00, 5 2.235D+00, 2.509D+00, 2.670D+00, 2.792D+00, 2.875D+00, 2.979D+00, 6 3.159D+00, 3.159D+00,-4.620D-01,-4.580D-01,-4.350D-01,-3.930D-01, 7 -2.960D-01,-1.080D-01, 2.070D-01, 6.170D-01, 1.020D+00, 1.398D+00, 8 1.726D+00, 2.011D+00, 2.259D+00, 2.333D+00, 2.468D+00, 2.626D+00, 9 2.861D+00, 2.861D+00, 2.861D+00,-4.650D-01,-4.610D-01,-4.490D-01/ DATA(kap(i),i= 3709, 3762) 1/-4.280D-01,-3.700D-01,-2.490D-01, 0.000D+00, 4.010D-01, 8.560D-01, 2 1.267D+00, 1.600D+00, 1.880D+00, 2.117D+00, 2.123D+00, 2.304D+00, 3 2.541D+00, 2.541D+00, 2.541D+00, 2.541D+00,-4.620D-01,-4.610D-01, 4 -4.530D-01,-4.370D-01,-3.870D-01,-3.030D-01,-1.160D-01, 2.210D-01, 5 6.890D-01, 1.144D+00, 1.501D+00, 1.788D+00, 2.029D+00, 2.044D+00, 6 2.258D+00, 2.525D+00, 2.809D+00, 3.084D+00, 3.084D+00,-4.670D-01, 7 -4.640D-01,-4.560D-01,-4.430D-01,-4.020D-01,-3.320D-01,-1.900D-01, 8 6.400D-02, 4.660D-01, 9.340D-01, 1.334D+00, 1.645D+00, 1.903D+00, 9 1.980D+00, 2.204D+00, 2.452D+00, 2.730D+00, 2.730D+00, 2.730D+00/ DATA(kap(i),i= 3763, 3816) 1/-4.580D-01,-4.590D-01,-4.530D-01,-4.420D-01,-4.080D-01,-3.510D-01, 2 -2.220D-01,-4.000D-03, 3.550D-01, 8.000D-01, 1.221D+00, 1.559D+00, 3 1.833D+00, 2.075D+00, 2.110D+00, 2.348D+00, 2.673D+00, 2.952D+00, 4 3.230D+00,-4.590D-01,-4.530D-01,-4.430D-01,-4.280D-01,-4.000D-01, 5 -3.490D-01,-2.380D-01,-3.500D-02, 2.990D-01, 7.290D-01, 1.157D+00, 6 1.509D+00, 1.789D+00, 2.015D+00, 2.041D+00, 2.287D+00, 2.573D+00, 7 2.857D+00, 2.857D+00,-4.600D-01,-4.550D-01,-4.420D-01,-4.190D-01, 8 -3.820D-01,-3.280D-01,-2.310D-01,-5.500D-02, 2.520D-01, 6.720D-01, 9 1.100D+00, 1.451D+00, 1.714D+00, 1.903D+00, 1.941D+00, 2.167D+00/ DATA(kap(i),i= 3817, 3870) 1/ 2.458D+00, 2.458D+00, 2.458D+00,-4.650D-01,-4.700D-01,-4.640D-01, 2 -4.460D-01,-4.010D-01,-3.300D-01,-2.160D-01,-3.300D-02, 2.410D-01, 3 6.190D-01, 1.008D+00, 1.317D+00, 1.531D+00, 1.691D+00, 1.743D+00, 4 1.967D+00, 2.299D+00, 2.622D+00, 2.922D+00,-4.720D-01,-4.750D-01, 5 -4.690D-01,-4.530D-01,-4.310D-01,-3.740D-01,-2.570D-01,-5.500D-02, 6 2.270D-01, 5.700D-01, 8.920D-01, 1.144D+00, 1.336D+00, 1.503D+00, 7 1.559D+00, 1.840D+00, 2.194D+00, 2.499D+00, 2.499D+00,-4.730D-01, 8 -4.740D-01,-4.700D-01,-4.600D-01,-4.430D-01,-4.020D-01,-3.100D-01, 9 -1.240D-01, 1.620D-01, 4.810D-01, 7.570D-01, 9.780D-01, 1.165D+00/ DATA(kap(i),i= 3871, 3924) 1/ 1.346D+00, 1.435D+00, 1.769D+00, 2.093D+00, 2.402D+00, 2.402D+00, 2 -4.740D-01,-4.740D-01,-4.720D-01,-4.680D-01,-4.570D-01,-4.300D-01, 3 -3.700D-01,-2.380D-01, 1.000D-03, 2.790D-01, 5.190D-01, 7.190D-01, 4 9.150D-01, 1.130D+00, 1.291D+00, 1.627D+00, 1.943D+00, 1.943D+00, 5 1.943D+00,-4.750D-01,-4.750D-01,-4.740D-01,-4.710D-01,-4.630D-01, 6 -4.450D-01,-4.020D-01,-3.050D-01,-1.190D-01, 1.190D-01, 3.400D-01, 7 5.350D-01, 7.390D-01, 9.820D-01, 1.192D+00, 1.512D+00, 1.512D+00, 8 1.512D+00, 1.512D+00,-4.740D-01,-4.750D-01,-4.750D-01,-4.730D-01, 9 -4.670D-01,-4.540D-01,-4.220D-01,-3.460D-01,-1.980D-01, 4.000D-03/ DATA(kap(i),i= 3925, 3978) 1/ 2.060D-01, 4.000D-01, 6.130D-01, 8.750D-01, 1.095D+00, 1.424D+00, 2 1.760D+00, 2.079D+00, 2.079D+00,-4.780D-01,-4.780D-01,-4.770D-01, 3 -4.760D-01,-4.710D-01,-4.630D-01,-4.410D-01,-3.910D-01,-2.890D-01, 4 -1.400D-01, 3.300D-02, 2.310D-01, 4.600D-01, 7.360D-01, 9.764D-01, 5 1.328D+00, 1.648D+00, 1.648D+00, 1.648D+00,-4.800D-01,-4.800D-01, 6 -4.790D-01,-4.770D-01,-4.730D-01,-4.640D-01,-4.470D-01,-4.100D-01, 7 -3.320D-01,-2.140D-01,-5.200D-02, 1.410D-01, 3.750D-01, 6.340D-01, 8 9.200D-01, 1.251D+00, 1.563D+00, 1.890D+00, 2.217D+00,-4.850D-01, 9 -4.850D-01,-4.840D-01,-4.830D-01,-4.790D-01,-4.700D-01,-4.550D-01/ DATA(kap(i),i= 3979, 4032) 1/-4.190D-01,-3.590D-01,-2.730D-01,-1.400D-01, 3.000D-02, 2.290D-01, 2 4.880D-01, 7.639D-01, 1.063D+00, 1.461D+00, 1.461D+00, 1.461D+00, 3 -4.900D-01,-4.900D-01,-4.890D-01,-4.880D-01,-4.870D-01,-4.800D-01, 4 -4.670D-01,-4.370D-01,-3.790D-01,-3.000D-01,-1.940D-01,-5.700D-02, 5 1.220D-01, 3.740D-01, 6.096D-01, 9.650D-01, 1.453D+00, 1.925D+00, 6 2.370D+00,-4.990D-01,-4.990D-01,-4.990D-01,-4.990D-01,-4.980D-01, 7 -4.940D-01,-4.880D-01,-4.700D-01,-4.280D-01,-3.690D-01,-2.870D-01, 8 -1.770D-01,-1.200D-02, 2.270D-01, 5.391D-01, 9.285D-01, 1.425D+00, 9 1.917D+00, 1.917D+00,-5.090D-01,-5.090D-01,-5.080D-01,-5.080D-01/ DATA(kap(i),i= 4033, 4086) 1/-5.070D-01,-5.050D-01,-5.020D-01,-4.900D-01,-4.600D-01,-4.140D-01, 2 -3.480D-01,-2.510D-01,-1.020D-01, 1.290D-01, 4.607D-01, 9.203D-01, 3 1.446D+00, 1.446D+00, 1.446D+00,-5.270D-01,-5.270D-01,-5.270D-01, 4 -5.260D-01,-5.260D-01,-5.240D-01,-5.210D-01,-5.160D-01,-4.980D-01, 5 -4.670D-01,-4.230D-01,-3.520D-01,-2.280D-01,-2.000D-03, 3.513D-01, 6 8.670D-01, 1.507D+00, 2.121D+00, 2.121D+00,-5.450D-01,-5.450D-01, 7 -5.450D-01,-5.450D-01,-5.440D-01,-5.430D-01,-5.440D-01,-5.360D-01, 8 -5.240D-01,-5.050D-01,-4.770D-01,-4.270D-01,-3.180D-01,-9.300D-02, 9 3.502D-01, 9.278D-01, 1.633D+00, 1.633D+00, 1.633D+00,-5.630D-01/ DATA(kap(i),i= 4087, 4104) 1/-5.630D-01,-5.630D-01,-5.630D-01,-5.630D-01,-5.620D-01,-5.610D-01, 2 -5.580D-01,-5.490D-01,-5.380D-01,-5.230D-01,-4.900D-01,-3.870D-01, 3 -1.660D-01, 2.733D-01, 8.688D-01, 1.823D+00, 2.600D+00, 3.377D+00/ c table: DATA/klgx00z019.dat DATA(kap(i),i= 4105, 4158) 1/-6.097D+00,-5.758D+00,-5.506D+00,-5.335D+00,-5.244D+00,-5.227D+00, 2 -5.269D+00,-5.308D+00,-5.332D+00,-5.336D+00,-5.326D+00,-5.314D+00, 3 -5.292D+00,-5.253D+00,-5.189D+00,-5.095D+00,-4.964D+00,-4.812D+00, 4 -4.633D+00,-6.067D+00,-5.716D+00,-5.452D+00,-5.270D+00,-5.167D+00, 5 -5.137D+00,-5.157D+00,-5.180D+00,-5.190D+00,-5.174D+00,-5.133D+00, 6 -5.076D+00,-5.022D+00,-4.966D+00,-4.900D+00,-4.814D+00,-4.693D+00, 7 -4.561D+00,-4.413D+00,-5.981D+00,-5.635D+00,-5.375D+00,-5.196D+00, 8 -5.095D+00,-5.068D+00,-5.074D+00,-5.074D+00,-5.061D+00,-5.020D+00, 9 -4.952D+00,-4.847D+00,-4.742D+00,-4.650D+00,-4.568D+00,-4.479D+00/ DATA(kap(i),i= 4159, 4212) 1/-4.370D+00,-4.245D+00,-4.106D+00,-5.660D+00,-5.362D+00,-5.150D+00, 2 -5.018D+00,-4.963D+00,-4.982D+00,-5.002D+00,-4.991D+00,-4.955D+00, 3 -4.884D+00,-4.780D+00,-4.633D+00,-4.476D+00,-4.335D+00,-4.219D+00, 4 -4.119D+00,-4.015D+00,-3.908D+00,-3.780D+00,-5.279D+00,-5.033D+00, 5 -4.871D+00,-4.790D+00,-4.785D+00,-4.852D+00,-4.905D+00,-4.911D+00, 6 -4.867D+00,-4.772D+00,-4.624D+00,-4.429D+00,-4.225D+00,-4.038D+00, 7 -3.882D+00,-3.755D+00,-3.650D+00,-3.551D+00,-3.441D+00,-4.990D+00, 8 -4.771D+00,-4.636D+00,-4.580D+00,-4.601D+00,-4.693D+00,-4.767D+00, 9 -4.800D+00,-4.771D+00,-4.670D+00,-4.492D+00,-4.253D+00,-3.997D+00/ DATA(kap(i),i= 4213, 4266) 1/-3.764D+00,-3.568D+00,-3.410D+00,-3.288D+00,-3.190D+00,-3.091D+00, 2 -4.821D+00,-4.604D+00,-4.471D+00,-4.417D+00,-4.438D+00,-4.520D+00, 3 -4.592D+00,-4.633D+00,-4.620D+00,-4.534D+00,-4.353D+00,-4.092D+00, 4 -3.795D+00,-3.515D+00,-3.280D+00,-3.088D+00,-2.944D+00,-2.833D+00, 5 -2.737D+00,-4.754D+00,-4.523D+00,-4.375D+00,-4.305D+00,-4.310D+00, 6 -4.365D+00,-4.418D+00,-4.447D+00,-4.432D+00,-4.358D+00,-4.185D+00, 7 -3.924D+00,-3.610D+00,-3.295D+00,-3.018D+00,-2.793D+00,-2.623D+00, 8 -2.493D+00,-2.389D+00,-4.722D+00,-4.477D+00,-4.313D+00,-4.228D+00, 9 -4.216D+00,-4.244D+00,-4.267D+00,-4.268D+00,-4.232D+00,-4.152D+00/ DATA(kap(i),i= 4267, 4320) 1/-3.983D+00,-3.733D+00,-3.423D+00,-3.092D+00,-2.782D+00,-2.525D+00, 2 -2.325D+00,-2.172D+00,-2.053D+00,-4.725D+00,-4.465D+00,-4.287D+00, 3 -4.185D+00,-4.157D+00,-4.157D+00,-4.148D+00,-4.113D+00,-4.043D+00, 4 -3.933D+00,-3.753D+00,-3.512D+00,-3.219D+00,-2.894D+00,-2.569D+00, 5 -2.283D+00,-2.053D+00,-1.876D+00,-1.740D+00,-4.712D+00,-4.448D+00, 6 -4.266D+00,-4.160D+00,-4.126D+00,-4.103D+00,-4.064D+00,-3.993D+00, 7 -3.879D+00,-3.726D+00,-3.522D+00,-3.275D+00,-2.995D+00,-2.689D+00, 8 -2.366D+00,-2.062D+00,-1.807D+00,-1.603D+00,-1.447D+00,-4.637D+00, 9 -4.390D+00,-4.223D+00,-4.132D+00,-4.113D+00,-4.079D+00,-4.017D+00/ DATA(kap(i),i= 4321, 4374) 1/-3.910D+00,-3.753D+00,-3.551D+00,-3.310D+00,-3.044D+00,-2.762D+00, 2 -2.467D+00,-2.159D+00,-1.855D+00,-1.581D+00,-1.355D+00,-1.178D+00, 3 -4.469D+00,-4.260D+00,-4.131D+00,-4.078D+00,-4.085D+00,-4.059D+00, 4 -3.989D+00,-3.856D+00,-3.659D+00,-3.409D+00,-3.127D+00,-2.831D+00, 5 -2.536D+00,-2.241D+00,-1.943D+00,-1.645D+00,-1.366D+00,-1.124D+00, 6 -9.281D-01,-4.145D+00,-4.006D+00,-3.946D+00,-3.960D+00,-4.015D+00, 7 -4.018D+00,-3.959D+00,-3.821D+00,-3.602D+00,-3.307D+00,-2.981D+00, 8 -2.651D+00,-2.332D+00,-2.024D+00,-1.724D+00,-1.432D+00,-1.153D+00, 9 -9.034D-01,-6.950D-01,-3.749D+00,-3.680D+00,-3.689D+00,-3.771D+00/ DATA(kap(i),i= 4375, 4428) 1/-3.877D+00,-3.931D+00,-3.909D+00,-3.788D+00,-3.571D+00,-3.246D+00, 2 -2.878D+00,-2.510D+00,-2.159D+00,-1.828D+00,-1.518D+00,-1.221D+00, 3 -9.405D-01,-6.868D-01,-4.714D-01,-3.363D+00,-3.344D+00,-3.402D+00, 4 -3.533D+00,-3.677D+00,-3.777D+00,-3.805D+00,-3.726D+00,-3.534D+00, 5 -3.204D+00,-2.810D+00,-2.406D+00,-2.020D+00,-1.662D+00,-1.330D+00, 6 -1.023D+00,-7.342D-01,-4.751D-01,-2.548D-01,-2.994D+00,-3.010D+00, 7 -3.104D+00,-3.269D+00,-3.436D+00,-3.566D+00,-3.634D+00,-3.601D+00, 8 -3.447D+00,-3.147D+00,-2.756D+00,-2.332D+00,-1.917D+00,-1.527D+00, 9 -1.169D+00,-8.416D-01,-5.414D-01,-2.729D-01,-4.525D-02,-2.635D+00/ DATA(kap(i),i= 4429, 4482) 1/-2.680D+00,-2.801D+00,-2.993D+00,-3.177D+00,-3.326D+00,-3.417D+00, 2 -3.412D+00,-3.291D+00,-3.042D+00,-2.688D+00,-2.271D+00,-1.839D+00, 3 -1.423D+00,-1.036D+00,-6.844D-01,-3.661D-01,-8.420D-02, 1.532D-01, 4 -2.286D+00,-2.355D+00,-2.499D+00,-2.710D+00,-2.904D+00,-3.065D+00, 5 -3.166D+00,-3.176D+00,-3.072D+00,-2.862D+00,-2.564D+00,-2.193D+00, 6 -1.771D+00,-1.342D+00,-9.292D-01,-5.517D-01,-2.109D-01, 8.562D-02, 7 3.373D-01,-1.949D+00,-2.040D+00,-2.204D+00,-2.421D+00,-2.619D+00, 8 -2.785D+00,-2.890D+00,-2.910D+00,-2.813D+00,-2.625D+00,-2.369D+00, 9 -2.055D+00,-1.683D+00,-1.266D+00,-8.446D-01,-4.429D-01,-7.849D-02/ DATA(kap(i),i= 4483, 4536) 1/ 2.386D-01, 5.058D-01,-1.485D+00,-1.597D+00,-1.782D+00,-1.998D+00, 2 -2.198D+00,-2.366D+00,-2.471D+00,-2.500D+00,-2.406D+00,-2.232D+00, 3 -2.008D+00,-1.748D+00,-1.448D+00,-1.105D+00,-7.148D-01,-3.088D-01, 4 8.221D-02, 4.294D-01, 7.250D-01,-1.074D+00,-1.197D+00,-1.391D+00, 5 -1.596D+00,-1.789D+00,-1.949D+00,-2.048D+00,-2.067D+00,-1.977D+00, 6 -1.815D+00,-1.609D+00,-1.377D+00,-1.121D+00,-8.359D-01,-5.132D-01, 7 -1.513D-01, 2.278D-01, 5.891D-01, 9.101D-01,-1.206D+00,-1.320D+00, 8 -1.499D+00,-1.687D+00,-1.866D+00,-2.012D+00,-2.101D+00,-2.112D+00, 9 -2.029D+00,-1.877D+00,-1.683D+00,-1.463D+00,-1.223D+00,-2.961D+00/ DATA(kap(i),i= 4537, 4590) 1/-2.539D+00,-2.106D+00,-1.668D+00,-1.237D+00,-1.237D+00,-3.052D+00, 2 -3.059D+00,-3.050D+00,-3.026D+00,-3.005D+00,-2.987D+00,-2.973D+00, 3 -2.965D+00,-2.950D+00,-2.954D+00,-2.864D+00,-2.690D+00,-2.462D+00, 4 -2.333D+00,-1.999D+00,-1.661D+00,-1.305D+00,-1.305D+00,-1.305D+00, 5 -2.604D+00,-2.772D+00,-2.897D+00,-2.979D+00,-3.016D+00,-3.008D+00, 6 -2.985D+00,-2.945D+00,-2.889D+00,-2.821D+00,-2.699D+00,-2.484D+00, 7 -2.231D+00,-1.897D+00,-1.552D+00,-1.200D+00,-8.477D-01,-4.914D-01, 8 -1.221D-01,-1.895D+00,-2.103D+00,-2.299D+00,-2.481D+00,-2.633D+00, 9 -2.754D+00,-2.822D+00,-2.834D+00,-2.786D+00,-2.695D+00,-2.500D+00/ DATA(kap(i),i= 4591, 4644) 1/-2.226D+00,-1.935D+00,-1.518D+00,-1.179D+00,-8.296D-01,-4.738D-01, 2 -1.212D-01, 2.223D-01,-1.348D+00,-1.534D+00,-1.725D+00,-1.921D+00, 3 -2.104D+00,-2.276D+00,-2.412D+00,-2.512D+00,-2.540D+00,-2.535D+00, 4 -2.350D+00,-2.065D+00,-1.716D+00,-1.251D+00,-8.681D-01,-5.112D-01, 5 -1.637D-01, 1.849D-01, 5.448D-01,-1.046D+00,-1.142D+00,-1.270D+00, 6 -1.427D+00,-1.580D+00,-1.726D+00,-1.843D+00,-1.932D+00,-1.969D+00, 7 -1.972D+00,-1.887D+00,-1.700D+00,-1.433D+00,-1.033D+00,-6.654D-01, 8 -2.863D-01, 9.659D-02, 4.760D-01, 4.760D-01,-9.571D-01,-9.673D-01, 9 -1.013D+00,-1.093D+00,-1.177D+00,-1.265D+00,-1.334D+00,-1.384D+00/ DATA(kap(i),i= 4645, 4698) 1/-1.405D+00,-1.389D+00,-1.329D+00,-1.223D+00,-1.135D+00,-8.032D-01, 2 -4.539D-01,-5.464D-02, 3.571D-01, 7.519D-01, 7.519D-01,-9.156D-01, 3 -9.039D-01,-8.761D-01,-8.343D-01,-7.567D-01,-6.434D-01,-5.478D-01, 4 -4.710D-01,-3.967D-01,-3.439D-01,-2.794D-01,-1.984D-01,-9.766D-02, 5 2.843D-02, 2.674D-01, 5.433D-01, 8.525D-01, 1.190D+00, 1.519D+00, 6 -9.126D-01,-8.792D-01,-8.397D-01,-7.920D-01,-6.646D-01,-4.583D-01, 7 -2.357D-01, 3.090D-03, 2.057D-01, 3.525D-01, 4.719D-01, 5.792D-01, 8 6.901D-01, 7.763D-01, 9.388D-01, 1.135D+00, 1.382D+00, 1.654D+00, 9 1.937D+00,-9.088D-01,-8.881D-01,-8.457D-01,-7.824D-01,-6.512D-01/ DATA(kap(i),i= 4699, 4752) 1/-4.531D-01,-1.938D-01, 1.249D-01, 4.468D-01, 7.236D-01, 9.371D-01, 2 1.105D+00, 1.256D+00, 1.371D+00, 1.536D+00, 1.716D+00, 1.918D+00, 3 2.137D+00, 2.372D+00,-8.902D-01,-8.744D-01,-8.458D-01,-8.032D-01, 4 -6.790D-01,-4.724D-01,-2.053D-01, 1.222D-01, 4.882D-01, 8.541D-01, 5 1.173D+00, 1.427D+00, 1.630D+00, 1.851D+00, 2.039D+00, 2.211D+00, 6 2.379D+00, 2.563D+00, 2.762D+00,-7.598D-01,-7.734D-01,-7.689D-01, 7 -7.462D-01,-6.620D-01,-5.131D-01,-2.802D-01, 3.683D-02, 4.263D-01, 8 8.554D-01, 1.296D+00, 1.713D+00, 2.072D+00, 2.335D+00, 2.632D+00, 9 2.874D+00, 3.086D+00, 3.281D+00, 3.281D+00,-5.856D-01,-5.621D-01/ DATA(kap(i),i= 4753, 4806) 1/-5.447D-01,-5.324D-01,-4.752D-01,-3.733D-01,-1.961D-01, 5.722D-02, 2 3.917D-01, 8.040D-01, 1.276D+00, 1.744D+00, 2.197D+00, 2.597D+00, 3 2.973D+00, 3.287D+00, 3.546D+00, 3.776D+00, 3.776D+00,-5.552D-01, 4 -5.363D-01,-4.615D-01,-3.317D-01,-1.911D-01,-4.084D-02, 1.335D-01, 5 3.321D-01, 5.865D-01, 9.075D-01, 1.313D+00, 1.770D+00, 2.249D+00, 6 2.733D+00, 3.095D+00, 3.437D+00, 3.765D+00, 3.765D+00, 3.765D+00, 7 -5.611D-01,-5.317D-01,-4.551D-01,-3.333D-01,-1.224D-01, 1.778D-01, 8 4.548D-01, 7.117D-01, 9.543D-01, 1.205D+00, 1.496D+00, 1.871D+00, 9 2.315D+00, 2.790D+00, 3.158D+00, 3.546D+00, 3.946D+00, 3.946D+00/ DATA(kap(i),i= 4807, 4860) 1/ 3.946D+00,-5.738D-01,-5.413D-01,-4.711D-01,-3.649D-01,-1.461D-01, 2 1.825D-01, 5.461D-01, 9.436D-01, 1.280D+00, 1.553D+00, 1.802D+00, 3 2.088D+00, 2.451D+00, 2.835D+00, 3.221D+00, 3.658D+00, 4.113D+00, 4 4.113D+00, 4.113D+00,-5.815D-01,-5.570D-01,-4.917D-01,-3.866D-01, 5 -1.872D-01, 1.056D-01, 4.860D-01, 9.520D-01, 1.415D+00, 1.794D+00, 6 2.087D+00, 2.349D+00, 2.648D+00, 2.902D+00, 3.312D+00, 3.779D+00, 7 3.779D+00, 3.779D+00, 3.779D+00,-5.913D-01,-5.648D-01,-5.064D-01, 8 -4.153D-01,-2.320D-01, 4.226D-02, 4.072D-01, 8.608D-01, 1.372D+00, 9 1.855D+00, 2.254D+00, 2.562D+00, 2.722D+00, 3.097D+00, 3.495D+00/ DATA(kap(i),i= 4861, 4914) 1/ 3.921D+00, 4.364D+00, 4.819D+00, 4.819D+00,-5.922D-01,-5.696D-01, 2 -5.162D-01,-4.311D-01,-2.580D-01, 3.000D-03, 3.486D-01, 7.801D-01, 3 1.279D+00, 1.812D+00, 2.306D+00, 2.704D+00, 2.890D+00, 3.270D+00, 4 3.643D+00, 4.025D+00, 4.438D+00, 4.896D+00, 4.896D+00,-5.921D-01, 5 -5.655D-01,-5.162D-01,-4.460D-01,-2.930D-01,-5.815D-02, 2.611D-01, 6 6.630D-01, 1.142D+00, 1.662D+00, 2.214D+00, 2.721D+00, 3.149D+00, 7 3.522D+00, 3.839D+00, 4.163D+00, 4.548D+00, 4.548D+00, 4.548D+00, 8 -5.882D-01,-5.595D-01,-5.111D-01,-4.428D-01,-2.979D-01,-7.636D-02, 9 2.268D-01, 6.116D-01, 1.072D+00, 1.584D+00, 2.125D+00, 2.748D+00/ DATA(kap(i),i= 4915, 4968) 1/ 3.212D+00, 3.616D+00, 3.970D+00, 4.344D+00, 4.731D+00, 4.731D+00, 2 4.731D+00,-5.725D-01,-5.467D-01,-4.982D-01,-4.280D-01,-2.891D-01, 3 -8.161D-02, 2.125D-01, 5.931D-01, 1.047D+00, 1.552D+00, 2.184D+00, 4 2.730D+00, 3.238D+00, 3.691D+00, 4.092D+00, 4.463D+00, 4.763D+00, 5 4.763D+00, 4.763D+00,-5.334D-01,-5.046D-01,-4.608D-01,-4.011D-01, 6 -2.690D-01,-6.551D-02, 2.275D-01, 6.099D-01, 1.059D+00, 1.556D+00, 7 2.128D+00, 2.703D+00, 3.258D+00, 3.766D+00, 4.199D+00, 4.522D+00, 8 4.730D+00, 4.808D+00, 4.760D+00,-3.902D-01,-3.791D-01,-3.421D-01, 9 -2.792D-01,-1.587D-01, 1.953D-02, 3.020D-01, 6.869D-01, 1.142D+00/ DATA(kap(i),i= 4969, 5022) 1/ 1.581D+00, 2.166D+00, 2.758D+00, 3.322D+00, 3.821D+00, 4.201D+00, 2 4.439D+00, 4.552D+00, 4.566D+00, 4.566D+00,-2.556D-01,-2.026D-01, 3 -1.324D-01,-4.291D-02, 9.073D-02, 2.685D-01, 5.279D-01, 8.686D-01, 4 1.272D+00, 1.637D+00, 2.220D+00, 2.787D+00, 3.311D+00, 3.745D+00, 5 4.034D+00, 4.197D+00, 4.251D+00, 4.251D+00, 4.251D+00,-4.305D-01, 6 -3.526D-01,-2.314D-01,-6.464D-02, 1.596D-01, 4.406D-01, 7.485D-01, 7 1.080D+00, 1.445D+00, 1.857D+00, 2.297D+00, 2.741D+00, 3.142D+00, 8 3.444D+00, 3.685D+00, 3.802D+00, 3.774D+00, 3.774D+00, 3.774D+00, 9 -5.980D-01,-5.290D-01,-4.243D-01,-2.851D-01,-5.197D-02, 2.752D-01/ DATA(kap(i),i= 5023, 5076) 1/ 6.329D-01, 1.020D+00, 1.413D+00, 1.804D+00, 2.199D+00, 2.582D+00, 2 2.919D+00, 3.199D+00, 3.387D+00, 3.450D+00, 3.450D+00, 3.450D+00, 3 3.450D+00,-6.667D-01,-6.294D-01,-5.536D-01,-4.413D-01,-2.203D-01, 4 1.095D-01, 4.888D-01, 9.174D-01, 1.326D+00, 1.710D+00, 2.081D+00, 5 2.423D+00, 2.729D+00, 2.974D+00, 3.129D+00, 3.161D+00, 3.161D+00, 6 3.161D+00, 3.161D+00,-6.882D-01,-6.743D-01,-6.528D-01,-6.226D-01, 7 -4.659D-01,-1.806D-01, 1.995D-01, 6.743D-01, 1.132D+00, 1.538D+00, 8 1.890D+00, 2.198D+00, 2.469D+00, 2.617D+00, 2.742D+00, 2.742D+00, 9 2.742D+00, 2.742D+00, 2.742D+00,-6.921D-01,-6.843D-01,-6.695D-01/ DATA(kap(i),i= 5077, 5130) 1/-6.498D-01,-5.543D-01,-3.841D-01,-7.870D-02, 3.627D-01, 9.127D-01, 2 1.382D+00, 1.753D+00, 2.060D+00, 2.317D+00, 2.380D+00, 2.380D+00, 3 2.380D+00, 2.380D+00, 2.380D+00, 2.380D+00,-6.823D-01,-6.833D-01, 4 -6.734D-01,-6.517D-01,-5.858D-01,-4.759D-01,-2.211D-01, 1.797D-01, 5 7.013D-01, 1.220D+00, 1.635D+00, 1.956D+00, 2.217D+00, 2.268D+00, 6 2.400D+00, 2.528D+00, 2.670D+00, 2.819D+00, 2.819D+00,-6.931D-01, 7 -6.893D-01,-6.775D-01,-6.558D-01,-6.029D-01,-5.196D-01,-3.163D-01, 8 8.930D-03, 4.588D-01, 9.751D-01, 1.440D+00, 1.792D+00, 2.071D+00, 9 2.113D+00, 2.266D+00, 2.441D+00, 2.649D+00, 2.649D+00, 2.649D+00/ DATA(kap(i),i= 5131, 5184) 1/-6.803D-01,-6.823D-01,-6.735D-01,-6.559D-01,-6.080D-01,-5.309D-01, 2 -3.506D-01,-6.692D-02, 3.391D-01, 8.315D-01, 1.303D+00, 1.685D+00, 3 1.983D+00, 2.237D+00, 2.187D+00, 2.388D+00, 2.693D+00, 2.942D+00, 4 3.191D+00,-6.842D-01,-6.774D-01,-6.636D-01,-6.429D-01,-5.990D-01, 5 -5.339D-01,-3.707D-01,-1.103D-01, 2.788D-01, 7.537D-01, 1.222D+00, 6 1.620D+00, 1.930D+00, 2.181D+00, 2.148D+00, 2.369D+00, 2.597D+00, 7 2.844D+00, 2.844D+00,-6.873D-01,-6.824D-01,-6.637D-01,-6.303D-01, 8 -5.822D-01,-5.187D-01,-3.693D-01,-1.361D-01, 2.254D-01, 6.864D-01, 9 1.156D+00, 1.555D+00, 1.860D+00, 2.084D+00, 2.085D+00, 2.230D+00/ DATA(kap(i),i= 5185, 5238) 1/ 2.477D+00, 2.477D+00, 2.477D+00,-6.981D-01,-7.001D-01,-6.884D-01, 2 -6.648D-01,-6.080D-01,-5.210D-01,-3.586D-01,-1.229D-01, 2.062D-01, 3 6.305D-01, 1.071D+00, 1.434D+00, 1.696D+00, 1.872D+00, 1.853D+00, 4 2.013D+00, 2.293D+00, 2.560D+00, 2.800D+00,-7.000D-01,-7.001D-01, 5 -6.942D-01,-6.823D-01,-6.435D-01,-5.787D-01,-4.118D-01,-1.429D-01, 6 2.041D-01, 6.075D-01, 9.833D-01, 1.282D+00, 1.504D+00, 1.667D+00, 7 1.639D+00, 1.859D+00, 2.158D+00, 2.419D+00, 2.419D+00,-7.000D-01, 8 -7.020D-01,-6.962D-01,-6.843D-01,-6.582D-01,-6.179D-01,-4.751D-01, 9 -2.279D-01, 1.387D-01, 5.299D-01, 8.630D-01, 1.121D+00, 1.323D+00/ DATA(kap(i),i= 5239, 5292) 1/ 1.487D+00, 1.487D+00, 1.762D+00, 2.044D+00, 2.323D+00, 2.323D+00, 2 -7.020D-01,-7.020D-01,-6.991D-01,-6.912D-01,-6.769D-01,-6.539D-01, 3 -5.487D-01,-3.614D-01,-4.397D-02, 3.194D-01, 6.179D-01, 8.478D-01, 4 1.040D+00, 1.222D+00, 1.293D+00, 1.592D+00, 1.898D+00, 1.898D+00, 5 1.898D+00,-7.030D-01,-7.031D-01,-7.001D-01,-6.932D-01,-6.846D-01, 6 -6.742D-01,-5.955D-01,-4.476D-01,-1.881D-01, 1.309D-01, 4.123D-01, 7 6.362D-01, 8.284D-01, 1.034D+00, 1.158D+00, 1.485D+00, 1.485D+00, 8 1.485D+00, 1.485D+00,-6.912D-01,-7.001D-01,-7.021D-01,-6.972D-01, 9 -6.904D-01,-6.818D-01,-6.197D-01,-5.051D-01,-2.941D-01,-1.616D-02/ DATA(kap(i),i= 5293, 5346) 1/ 2.460D-01, 4.658D-01, 6.689D-01, 8.981D-01, 1.034D+00, 1.373D+00, 2 1.719D+00, 2.038D+00, 2.038D+00,-7.060D-01,-7.060D-01,-7.041D-01, 3 -7.011D-01,-6.963D-01,-6.914D-01,-6.507D-01,-5.739D-01,-4.257D-01, 4 -2.124D-01, 1.633D-02, 2.357D-01, 4.707D-01, 7.225D-01, 8.980D-01, 5 1.252D+00, 1.557D+00, 1.557D+00, 1.557D+00,-7.080D-01,-7.080D-01, 6 -7.061D-01,-7.012D-01,-6.963D-01,-6.915D-01,-6.593D-01,-6.019D-01, 7 -4.897D-01,-3.150D-01,-1.113D-01, 1.107D-01, 3.643D-01, 6.137D-01, 8 8.278D-01, 1.142D+00, 1.418D+00, 1.708D+00, 1.999D+00,-7.130D-01, 9 -7.130D-01,-7.111D-01,-7.081D-01,-7.033D-01,-6.966D-01,-6.655D-01/ DATA(kap(i),i= 5347, 5400) 1/-6.108D-01,-5.198D-01,-3.892D-01,-2.233D-01,-2.029D-02, 1.856D-01, 2 4.208D-01, 6.417D-01, 9.615D-01, 1.273D+00, 1.273D+00, 1.273D+00, 3 -7.180D-01,-7.180D-01,-7.170D-01,-7.151D-01,-7.131D-01,-7.103D-01, 4 -6.841D-01,-6.335D-01,-5.456D-01,-4.259D-01,-2.855D-01,-1.285D-01, 5 4.584D-02, 2.787D-01, 5.460D-01, 8.694D-01, 1.197D+00, 1.521D+00, 6 1.847D+00,-7.270D-01,-7.270D-01,-7.270D-01,-7.260D-01,-7.250D-01, 7 -7.250D-01,-7.105D-01,-6.813D-01,-6.247D-01,-5.364D-01,-4.224D-01, 8 -2.971D-01,-1.283D-01, 1.004D-01, 4.108D-01, 7.027D-01, 1.087D+00, 9 1.468D+00, 1.468D+00,-7.360D-01,-7.370D-01,-7.370D-01,-7.360D-01/ DATA(kap(i),i= 5401, 5454) 1/-7.350D-01,-7.350D-01,-7.253D-01,-7.067D-01,-6.715D-01,-6.045D-01, 2 -5.122D-01,-3.953D-01,-2.341D-01,-1.376D-02, 2.839D-01, 6.612D-01, 3 1.081D+00, 1.081D+00, 1.081D+00,-7.550D-01,-7.550D-01,-7.550D-01, 4 -7.550D-01,-7.540D-01,-7.520D-01,-7.471D-01,-7.383D-01,-7.166D-01, 5 -6.691D-01,-6.025D-01,-5.079D-01,-3.711D-01,-1.651D-01, 1.638D-01, 6 5.813D-01, 1.099D+00, 1.607D+00, 1.607D+00,-7.730D-01,-7.729D-01, 7 -7.730D-01,-7.730D-01,-7.720D-01,-7.700D-01,-7.671D-01,-7.632D-01, 8 -7.424D-01,-7.087D-01,-6.590D-01,-5.834D-01,-4.677D-01,-2.649D-01, 9 1.053D-01, 5.823D-01, 1.181D+00, 1.181D+00, 1.181D+00,-7.910D-01/ DATA(kap(i),i= 5455, 5472) 1/-7.910D-01,-7.910D-01,-7.910D-01,-7.910D-01,-7.890D-01,-7.870D-01, 2 -7.841D-01,-7.663D-01,-7.415D-01,-7.038D-01,-6.452D-01,-5.445D-01, 3 -3.437D-01, 0.000D+00, 5.094D-01, 1.339D+00, 2.009D+00, 2.679D+00/ c table: DATA/klgx35z019.dat DATA(kap(i),i= 5473, 5526) 1/-6.097D+00,-5.758D+00,-5.506D+00,-5.335D+00,-5.244D+00,-5.227D+00, 2 -5.269D+00,-5.308D+00,-5.332D+00,-5.336D+00,-5.326D+00,-5.314D+00, 3 -5.292D+00,-5.253D+00,-5.189D+00,-5.095D+00,-4.964D+00,-4.812D+00, 4 -4.633D+00,-6.067D+00,-5.716D+00,-5.452D+00,-5.270D+00,-5.167D+00, 5 -5.137D+00,-5.157D+00,-5.180D+00,-5.190D+00,-5.174D+00,-5.133D+00, 6 -5.076D+00,-5.022D+00,-4.966D+00,-4.900D+00,-4.814D+00,-4.693D+00, 7 -4.561D+00,-4.413D+00,-5.981D+00,-5.635D+00,-5.375D+00,-5.196D+00, 8 -5.095D+00,-5.068D+00,-5.074D+00,-5.074D+00,-5.061D+00,-5.020D+00, 9 -4.952D+00,-4.847D+00,-4.742D+00,-4.650D+00,-4.568D+00,-4.479D+00/ DATA(kap(i),i= 5527, 5580) 1/-4.370D+00,-4.245D+00,-4.106D+00,-5.660D+00,-5.362D+00,-5.150D+00, 2 -5.018D+00,-4.963D+00,-4.982D+00,-5.002D+00,-4.991D+00,-4.955D+00, 3 -4.884D+00,-4.780D+00,-4.633D+00,-4.476D+00,-4.335D+00,-4.219D+00, 4 -4.119D+00,-4.015D+00,-3.908D+00,-3.780D+00,-5.279D+00,-5.033D+00, 5 -4.871D+00,-4.790D+00,-4.785D+00,-4.852D+00,-4.905D+00,-4.911D+00, 6 -4.867D+00,-4.772D+00,-4.624D+00,-4.429D+00,-4.225D+00,-4.038D+00, 7 -3.882D+00,-3.755D+00,-3.650D+00,-3.551D+00,-3.441D+00,-4.990D+00, 8 -4.771D+00,-4.636D+00,-4.580D+00,-4.601D+00,-4.693D+00,-4.767D+00, 9 -4.800D+00,-4.771D+00,-4.670D+00,-4.492D+00,-4.253D+00,-3.997D+00/ DATA(kap(i),i= 5581, 5634) 1/-3.764D+00,-3.568D+00,-3.410D+00,-3.288D+00,-3.190D+00,-3.091D+00, 2 -4.821D+00,-4.604D+00,-4.471D+00,-4.417D+00,-4.438D+00,-4.520D+00, 3 -4.592D+00,-4.633D+00,-4.620D+00,-4.534D+00,-4.353D+00,-4.092D+00, 4 -3.795D+00,-3.515D+00,-3.280D+00,-3.088D+00,-2.944D+00,-2.833D+00, 5 -2.737D+00,-4.754D+00,-4.523D+00,-4.375D+00,-4.305D+00,-4.310D+00, 6 -4.365D+00,-4.418D+00,-4.447D+00,-4.432D+00,-4.358D+00,-4.185D+00, 7 -3.924D+00,-3.610D+00,-3.295D+00,-3.018D+00,-2.793D+00,-2.623D+00, 8 -2.493D+00,-2.389D+00,-4.722D+00,-4.477D+00,-4.313D+00,-4.228D+00, 9 -4.216D+00,-4.244D+00,-4.267D+00,-4.268D+00,-4.232D+00,-4.152D+00/ DATA(kap(i),i= 5635, 5688) 1/-3.983D+00,-3.733D+00,-3.423D+00,-3.092D+00,-2.782D+00,-2.525D+00, 2 -2.325D+00,-2.172D+00,-2.053D+00,-4.725D+00,-4.465D+00,-4.287D+00, 3 -4.185D+00,-4.157D+00,-4.157D+00,-4.148D+00,-4.113D+00,-4.043D+00, 4 -3.933D+00,-3.753D+00,-3.512D+00,-3.219D+00,-2.894D+00,-2.569D+00, 5 -2.283D+00,-2.053D+00,-1.876D+00,-1.740D+00,-4.712D+00,-4.448D+00, 6 -4.266D+00,-4.160D+00,-4.126D+00,-4.103D+00,-4.064D+00,-3.993D+00, 7 -3.879D+00,-3.726D+00,-3.522D+00,-3.275D+00,-2.995D+00,-2.689D+00, 8 -2.366D+00,-2.062D+00,-1.807D+00,-1.603D+00,-1.447D+00,-4.637D+00, 9 -4.390D+00,-4.223D+00,-4.132D+00,-4.113D+00,-4.079D+00,-4.017D+00/ DATA(kap(i),i= 5689, 5742) 1/-3.910D+00,-3.753D+00,-3.551D+00,-3.310D+00,-3.044D+00,-2.762D+00, 2 -2.467D+00,-2.159D+00,-1.855D+00,-1.581D+00,-1.355D+00,-1.178D+00, 3 -4.469D+00,-4.260D+00,-4.131D+00,-4.078D+00,-4.085D+00,-4.059D+00, 4 -3.989D+00,-3.856D+00,-3.659D+00,-3.409D+00,-3.127D+00,-2.831D+00, 5 -2.536D+00,-2.241D+00,-1.943D+00,-1.645D+00,-1.366D+00,-1.124D+00, 6 -9.281D-01,-4.145D+00,-4.006D+00,-3.946D+00,-3.960D+00,-4.015D+00, 7 -4.018D+00,-3.959D+00,-3.821D+00,-3.602D+00,-3.307D+00,-2.981D+00, 8 -2.651D+00,-2.332D+00,-2.024D+00,-1.724D+00,-1.432D+00,-1.153D+00, 9 -9.034D-01,-6.950D-01,-3.749D+00,-3.680D+00,-3.689D+00,-3.771D+00/ DATA(kap(i),i= 5743, 5796) 1/-3.877D+00,-3.931D+00,-3.909D+00,-3.788D+00,-3.571D+00,-3.246D+00, 2 -2.878D+00,-2.510D+00,-2.159D+00,-1.828D+00,-1.518D+00,-1.221D+00, 3 -9.405D-01,-6.868D-01,-4.714D-01,-3.363D+00,-3.344D+00,-3.402D+00, 4 -3.533D+00,-3.677D+00,-3.777D+00,-3.805D+00,-3.726D+00,-3.534D+00, 5 -3.204D+00,-2.810D+00,-2.406D+00,-2.020D+00,-1.662D+00,-1.330D+00, 6 -1.023D+00,-7.342D-01,-4.751D-01,-2.548D-01,-2.994D+00,-3.010D+00, 7 -3.104D+00,-3.269D+00,-3.436D+00,-3.566D+00,-3.634D+00,-3.601D+00, 8 -3.447D+00,-3.147D+00,-2.756D+00,-2.332D+00,-1.917D+00,-1.527D+00, 9 -1.169D+00,-8.416D-01,-5.414D-01,-2.729D-01,-4.525D-02,-2.635D+00/ DATA(kap(i),i= 5797, 5850) 1/-2.680D+00,-2.801D+00,-2.993D+00,-3.177D+00,-3.326D+00,-3.417D+00, 2 -3.412D+00,-3.291D+00,-3.042D+00,-2.688D+00,-2.271D+00,-1.839D+00, 3 -1.423D+00,-1.036D+00,-6.844D-01,-3.661D-01,-8.420D-02, 1.532D-01, 4 -2.286D+00,-2.355D+00,-2.499D+00,-2.710D+00,-2.904D+00,-3.065D+00, 5 -3.166D+00,-3.176D+00,-3.072D+00,-2.862D+00,-2.564D+00,-2.193D+00, 6 -1.771D+00,-1.342D+00,-9.292D-01,-5.517D-01,-2.109D-01, 8.562D-02, 7 3.373D-01,-1.949D+00,-2.040D+00,-2.204D+00,-2.421D+00,-2.619D+00, 8 -2.785D+00,-2.890D+00,-2.910D+00,-2.813D+00,-2.625D+00,-2.369D+00, 9 -2.055D+00,-1.683D+00,-1.266D+00,-8.446D-01,-4.429D-01,-7.849D-02/ DATA(kap(i),i= 5851, 5904) 1/ 2.386D-01, 5.058D-01,-1.485D+00,-1.597D+00,-1.782D+00,-1.998D+00, 2 -2.198D+00,-2.366D+00,-2.471D+00,-2.500D+00,-2.406D+00,-2.232D+00, 3 -2.008D+00,-1.748D+00,-1.448D+00,-1.105D+00,-7.148D-01,-3.088D-01, 4 8.221D-02, 4.294D-01, 7.250D-01,-1.074D+00,-1.197D+00,-1.391D+00, 5 -1.596D+00,-1.789D+00,-1.949D+00,-2.048D+00,-2.067D+00,-1.977D+00, 6 -1.815D+00,-1.609D+00,-1.377D+00,-1.121D+00,-8.359D-01,-5.132D-01, 7 -1.513D-01, 2.278D-01, 5.891D-01, 9.101D-01,-9.595D-01,-1.091D+00, 8 -1.267D+00,-1.455D+00,-1.630D+00,-1.780D+00,-1.910D+00,-1.929D+00, 9 -1.865D+00,-1.719D+00,-1.544D+00,-1.320D+00,-1.082D+00,-8.189D-01/ DATA(kap(i),i= 5905, 5958) 1/-5.257D-01,-1.930D-01, 1.737D-01, 5.387D-01, 8.908D-01,-8.237D-01, 2 -8.187D-01,-8.398D-01,-8.877D-01,-9.487D-01,-1.026D+00,-1.081D+00, 3 -1.098D+00,-1.079D+00,-9.996D-01,-8.738D-01,-7.129D-01,-5.252D-01, 4 -3.218D-01,-1.035D-01, 1.406D-01, 4.063D-01, 6.721D-01, 9.378D-01, 5 -8.108D-01,-7.910D-01,-7.370D-01,-6.509D-01,-5.539D-01,-4.457D-01, 6 -3.487D-01,-2.718D-01,-2.039D-01,-1.201D-01,-2.526D-02, 8.838D-02, 7 2.290D-01, 3.894D-01, 5.720D-01, 7.663D-01, 9.845D-01, 1.203D+00, 8 1.421D+00,-8.138D-01,-7.950D-01,-7.351D-01,-6.333D-01,-4.643D-01, 9 -2.292D-01, 3.193D-02, 2.640D-01, 4.460D-01, 5.819D-01, 6.867D-01/ DATA(kap(i),i= 5959, 6012) 1/ 7.914D-01, 9.020D-01, 1.026D+00, 1.169D+00, 1.330D+00, 1.513D+00, 2 1.696D+00, 1.880D+00,-7.867D-01,-7.889D-01,-7.442D-01,-6.505D-01, 3 -4.686D-01,-1.967D-01, 1.404D-01, 4.946D-01, 8.086D-01, 1.053D+00, 4 1.215D+00, 1.338D+00, 1.445D+00, 1.553D+00, 1.672D+00, 1.810D+00, 5 1.967D+00, 2.124D+00, 2.281D+00,-6.969D-01,-7.271D-01,-7.074D-01, 6 -6.388D-01,-4.681D-01,-1.964D-01, 1.636D-01, 5.726D-01, 9.798D-01, 7 1.322D+00, 1.571D+00, 1.750D+00, 1.878D+00, 1.987D+00, 2.097D+00, 8 2.213D+00, 2.348D+00, 2.482D+00, 2.694D+00,-6.459D-01,-6.491D-01, 9 -6.344D-01,-6.008D-01,-4.622D-01,-2.177D-01, 1.301D-01, 5.470D-01/ DATA(kap(i),i= 6013, 6066) 1/ 9.922D-01, 1.406D+00, 1.751D+00, 1.998D+00, 2.177D+00, 2.311D+00, 2 2.429D+00, 2.545D+00, 2.670D+00, 2.794D+00, 2.993D+00,-6.154D-01, 3 -6.055D-01,-5.638D-01,-4.891D-01,-3.477D-01,-1.403D-01, 1.333D-01, 4 4.870D-01, 9.171D-01, 1.382D+00, 1.837D+00, 2.226D+00, 2.529D+00, 5 2.749D+00, 2.915D+00, 3.048D+00, 3.173D+00, 3.297D+00, 3.450D+00, 6 -6.035D-01,-5.769D-01,-5.273D-01,-4.557D-01,-3.022D-01,-6.692D-02, 7 2.208D-01, 5.506D-01, 9.166D-01, 1.341D+00, 1.807D+00, 2.260D+00, 8 2.671D+00, 2.986D+00, 3.217D+00, 3.391D+00, 3.530D+00, 3.651D+00, 9 3.799D+00,-6.045D-01,-5.808D-01,-5.272D-01,-4.459D-01,-2.897D-01/ DATA(kap(i),i= 6067, 6120) 1/-6.053D-02, 2.313D-01, 5.903D-01, 9.835D-01, 1.384D+00, 1.807D+00, 2 2.272D+00, 2.731D+00, 3.125D+00, 3.425D+00, 3.643D+00, 3.769D+00, 3 3.932D+00, 4.086D+00,-5.938D-01,-5.719D-01,-5.262D-01,-4.587D-01, 4 -3.076D-01,-7.479D-02, 2.159D-01, 5.821D-01, 9.976D-01, 1.436D+00, 5 1.863D+00, 2.298D+00, 2.762D+00, 3.200D+00, 3.561D+00, 3.838D+00, 6 3.981D+00, 4.161D+00, 4.322D+00,-5.394D-01,-5.226D-01,-4.828D-01, 7 -4.200D-01,-2.857D-01,-8.158D-02, 2.011D-01, 5.851D-01, 1.019D+00, 8 1.510D+00, 1.998D+00, 2.486D+00, 2.948D+00, 3.403D+00, 3.813D+00, 9 4.091D+00, 4.374D+00, 4.611D+00, 4.611D+00,-4.604D-01,-4.307D-01/ DATA(kap(i),i= 6121, 6174) 1/-3.841D-01,-3.196D-01,-1.913D-01, 9.650D-04, 2.560D-01, 6.223D-01, 2 1.075D+00, 1.566D+00, 2.079D+00, 2.609D+00, 3.128D+00, 3.619D+00, 3 3.937D+00, 4.321D+00, 4.663D+00, 4.931D+00, 4.931D+00,-4.417D-01, 4 -4.140D-01,-3.362D-01,-2.084D-01,-3.887D-02, 1.713D-01, 4.162D-01, 5 7.493D-01, 1.180D+00, 1.659D+00, 2.175D+00, 2.704D+00, 3.241D+00, 6 3.762D+00, 4.073D+00, 4.486D+00, 4.849D+00, 4.849D+00, 4.849D+00, 7 -4.419D-01,-4.133D-01,-3.337D-01,-2.049D-01, 6.030D-03, 2.991D-01, 8 6.170D-01, 9.549D-01, 1.345D+00, 1.795D+00, 2.283D+00, 2.790D+00, 9 3.326D+00, 3.710D+00, 4.171D+00, 4.603D+00, 4.967D+00, 4.967D+00/ DATA(kap(i),i= 6175, 6228) 1/ 4.967D+00,-4.536D-01,-4.251D-01,-3.507D-01,-2.284D-01,-1.663D-02, 2 2.867D-01, 6.902D-01, 1.111D+00, 1.521D+00, 1.937D+00, 2.383D+00, 3 2.872D+00, 3.383D+00, 3.774D+00, 4.241D+00, 4.678D+00, 5.032D+00, 4 5.032D+00, 5.032D+00,-4.614D-01,-4.368D-01,-3.694D-01,-2.583D-01, 5 -5.273D-02, 2.480D-01, 6.365D-01, 1.108D+00, 1.604D+00, 2.047D+00, 6 2.483D+00, 2.943D+00, 3.426D+00, 3.822D+00, 4.290D+00, 4.719D+00, 7 4.719D+00, 4.719D+00, 4.719D+00,-4.701D-01,-4.427D-01,-3.823D-01, 8 -2.870D-01,-9.767D-02, 1.858D-01, 5.747D-01, 1.028D+00, 1.547D+00, 9 2.052D+00, 2.527D+00, 2.985D+00, 3.385D+00, 3.861D+00, 4.311D+00/ DATA(kap(i),i= 6229, 6282) 1/ 4.712D+00, 5.017D+00, 5.191D+00, 5.191D+00,-4.701D-01,-4.485D-01, 2 -3.921D-01,-3.028D-01,-1.226D-01, 1.476D-01, 5.122D-01, 9.505D-01, 3 1.459D+00, 1.991D+00, 2.516D+00, 3.001D+00, 3.419D+00, 3.880D+00, 4 4.312D+00, 4.687D+00, 4.968D+00, 5.126D+00, 5.126D+00,-4.691D-01, 5 -4.434D-01,-3.941D-01,-3.207D-01,-1.597D-01, 8.921D-02, 4.238D-01, 6 8.386D-01, 1.327D+00, 1.850D+00, 2.399D+00, 2.963D+00, 3.442D+00, 7 3.879D+00, 4.285D+00, 4.625D+00, 4.873D+00, 4.873D+00, 4.873D+00, 8 -4.690D-01,-4.374D-01,-3.870D-01,-3.157D-01,-1.667D-01, 5.921D-02, 9 3.813D-01, 7.783D-01, 1.256D+00, 1.775D+00, 2.310D+00, 2.933D+00/ DATA(kap(i),i= 6283, 6336) 1/ 3.423D+00, 3.880D+00, 4.295D+00, 4.621D+00, 4.837D+00, 4.837D+00, 2 4.837D+00,-4.544D-01,-4.295D-01,-3.800D-01,-3.049D-01,-1.598D-01, 3 5.501D-02, 3.660D-01, 7.659D-01, 1.223D+00, 1.738D+00, 2.348D+00, 4 2.896D+00, 3.405D+00, 3.891D+00, 4.315D+00, 4.628D+00, 4.806D+00, 5 4.806D+00, 4.806D+00,-4.222D-01,-3.953D-01,-3.487D-01,-2.831D-01, 6 -1.438D-01, 6.801D-02, 3.778D-01, 7.717D-01, 1.224D+00, 1.727D+00, 7 2.307D+00, 2.866D+00, 3.398D+00, 3.909D+00, 4.334D+00, 4.625D+00, 8 4.745D+00, 4.661D+00, 4.470D+00,-2.938D-01,-2.817D-01,-2.458D-01, 9 -1.840D-01,-5.441D-02, 1.429D-01, 4.465D-01, 8.465D-01, 1.292D+00/ DATA(kap(i),i= 6337, 6390) 1/ 1.716D+00, 2.299D+00, 2.861D+00, 3.397D+00, 3.876D+00, 4.248D+00, 2 4.470D+00, 4.459D+00, 4.320D+00, 4.320D+00,-1.555D-01,-1.104D-01, 3 -4.714D-02, 3.315D-02, 1.658D-01, 3.519D-01, 6.203D-01, 9.741D-01, 4 1.405D+00, 1.732D+00, 2.299D+00, 2.839D+00, 3.328D+00, 3.732D+00, 5 4.024D+00, 4.128D+00, 4.072D+00, 4.072D+00, 4.072D+00,-3.076D-01, 6 -2.327D-01,-1.205D-01, 2.825D-02, 2.345D-01, 4.981D-01, 7.923D-01, 7 1.131D+00, 1.507D+00, 1.918D+00, 2.355D+00, 2.782D+00, 3.155D+00, 8 3.398D+00, 3.610D+00, 3.676D+00, 3.622D+00, 3.622D+00, 3.622D+00, 9 -4.671D-01,-3.991D-01,-2.995D-01,-1.673D-01, 4.079D-02, 3.277D-01/ DATA(kap(i),i= 6391, 6444) 1/ 6.694D-01, 1.060D+00, 1.449D+00, 1.840D+00, 2.236D+00, 2.605D+00, 2 2.919D+00, 3.141D+00, 3.295D+00, 3.329D+00, 3.329D+00, 3.329D+00, 3 3.329D+00,-5.367D-01,-4.995D-01,-4.248D-01,-3.115D-01,-1.145D-01, 4 1.674D-01, 5.393D-01, 9.668D-01, 1.359D+00, 1.747D+00, 2.112D+00, 5 2.445D+00, 2.730D+00, 2.917D+00, 3.037D+00, 3.070D+00, 3.070D+00, 6 3.070D+00, 3.070D+00,-5.592D-01,-5.492D-01,-5.248D-01,-4.840D-01, 7 -3.401D-01,-9.238D-02, 2.831D-01, 7.578D-01, 1.189D+00, 1.584D+00, 8 1.926D+00, 2.223D+00, 2.477D+00, 2.566D+00, 2.683D+00, 2.683D+00, 9 2.683D+00, 2.683D+00, 2.683D+00,-5.631D-01,-5.543D-01,-5.415D-01/ DATA(kap(i),i= 6445, 6498) 1/-5.239D-01,-4.344D-01,-2.720D-01, 3.654D-02, 5.003D-01, 1.003D+00, 2 1.446D+00, 1.797D+00, 2.089D+00, 2.330D+00, 2.345D+00, 2.345D+00, 3 2.345D+00, 2.345D+00, 2.345D+00, 2.345D+00,-5.642D-01,-5.592D-01, 4 -5.465D-01,-5.239D-01,-4.560D-01,-3.429D-01,-1.047D-01, 2.948D-01, 5 8.122D-01, 1.308D+00, 1.692D+00, 1.993D+00, 2.236D+00, 2.253D+00, 6 2.415D+00, 2.578D+00, 2.755D+00, 2.936D+00, 2.936D+00,-5.642D-01, 7 -5.603D-01,-5.495D-01,-5.329D-01,-4.759D-01,-3.816D-01,-1.997D-01, 8 1.172D-01, 5.678D-01, 1.078D+00, 1.511D+00, 1.841D+00, 2.102D+00, 9 2.152D+00, 2.320D+00, 2.496D+00, 2.707D+00, 2.707D+00, 2.707D+00/ DATA(kap(i),i= 6499, 6552) 1/-5.592D-01,-5.563D-01,-5.465D-01,-5.300D-01,-4.820D-01,-4.027D-01, 2 -2.347D-01, 3.373D-02, 4.462D-01, 9.335D-01, 1.384D+00, 1.743D+00, 3 2.023D+00, 2.262D+00, 2.232D+00, 2.422D+00, 2.701D+00, 2.935D+00, 4 3.169D+00,-5.553D-01,-5.474D-01,-5.346D-01,-5.180D-01,-4.740D-01, 5 -4.036D-01,-2.518D-01, 1.420D-03, 3.853D-01, 8.499D-01, 1.309D+00, 6 1.683D+00, 1.973D+00, 2.207D+00, 2.180D+00, 2.382D+00, 2.604D+00, 7 2.841D+00, 2.841D+00,-5.642D-01,-5.534D-01,-5.338D-01,-5.043D-01, 8 -4.552D-01,-3.836D-01,-2.543D-01,-2.436D-02, 3.359D-01, 7.899D-01, 9 1.246D+00, 1.623D+00, 1.904D+00, 2.107D+00, 2.098D+00, 2.248D+00/ DATA(kap(i),i= 6553, 6606) 1/ 2.490D+00, 2.490D+00, 2.490D+00,-5.691D-01,-5.701D-01,-5.594D-01, 2 -5.379D-01,-4.801D-01,-3.850D-01,-2.358D-01,-8.015D-03, 3.098D-01, 3 7.347D-01, 1.159D+00, 1.499D+00, 1.738D+00, 1.896D+00, 1.878D+00, 4 2.043D+00, 2.324D+00, 2.595D+00, 2.840D+00,-5.710D-01,-5.701D-01, 5 -5.662D-01,-5.585D-01,-5.156D-01,-4.366D-01,-2.800D-01,-2.399D-02, 6 3.098D-01, 7.000D-01, 1.059D+00, 1.339D+00, 1.544D+00, 1.693D+00, 7 1.671D+00, 1.896D+00, 2.194D+00, 2.457D+00, 2.457D+00,-5.711D-01, 8 -5.710D-01,-5.681D-01,-5.623D-01,-5.302D-01,-4.709D-01,-3.433D-01, 9 -1.011D-01, 2.515D-01, 6.206D-01, 9.338D-01, 1.174D+00, 1.364D+00/ DATA(kap(i),i= 6607, 6660) 1/ 1.521D+00, 1.525D+00, 1.803D+00, 2.082D+00, 2.359D+00, 2.359D+00, 2 -5.730D-01,-5.711D-01,-5.692D-01,-5.691D-01,-5.479D-01,-5.072D-01, 3 -4.198D-01,-2.346D-01, 7.583D-02, 4.134D-01, 6.871D-01, 9.000D-01, 4 1.085D+00, 1.268D+00, 1.337D+00, 1.634D+00, 1.933D+00, 1.933D+00, 5 1.933D+00,-5.740D-01,-5.730D-01,-5.721D-01,-5.711D-01,-5.566D-01, 6 -5.285D-01,-4.666D-01,-3.237D-01,-7.110D-02, 2.281D-01, 4.856D-01, 7 6.916D-01, 8.800D-01, 1.087D+00, 1.207D+00, 1.523D+00, 1.523D+00, 8 1.523D+00, 1.523D+00,-5.750D-01,-5.741D-01,-5.731D-01,-5.721D-01, 9 -5.615D-01,-5.421D-01,-4.928D-01,-3.801D-01,-1.760D-01, 8.315D-02/ DATA(kap(i),i= 6661, 6714) 1/ 3.244D-01, 5.283D-01, 7.266D-01, 9.558D-01, 1.090D+00, 1.418D+00, 2 1.756D+00, 2.069D+00, 2.069D+00,-5.770D-01,-5.761D-01,-5.751D-01, 3 -5.741D-01,-5.673D-01,-5.547D-01,-5.227D-01,-4.489D-01,-3.065D-01, 4 -1.061D-01, 1.028D-01, 3.123D-01, 5.374D-01, 7.852D-01, 9.599D-01, 5 1.307D+00, 1.613D+00, 1.613D+00, 1.613D+00,-5.790D-01,-5.781D-01, 6 -5.771D-01,-5.751D-01,-5.683D-01,-5.556D-01,-5.324D-01,-4.779D-01, 7 -3.685D-01,-2.096D-01,-1.679D-02, 1.943D-01, 4.331D-01, 6.785D-01, 8 8.935D-01, 1.207D+00, 1.494D+00, 1.794D+00, 2.094D+00,-5.840D-01, 9 -5.831D-01,-5.830D-01,-5.830D-01,-5.753D-01,-5.607D-01,-5.374D-01/ DATA(kap(i),i= 6715, 6768) 1/-4.877D-01,-4.027D-01,-2.859D-01,-1.288D-01, 6.138D-02, 2.574D-01, 2 4.944D-01, 7.175D-01, 1.025D+00, 1.373D+00, 1.373D+00, 1.373D+00, 3 -5.890D-01,-5.881D-01,-5.881D-01,-5.890D-01,-5.842D-01,-5.745D-01, 4 -5.551D-01,-5.094D-01,-4.294D-01,-3.215D-01,-1.927D-01,-4.678D-02, 5 1.216D-01, 3.581D-01, 5.973D-01, 9.347D-01, 1.338D+00, 1.733D+00, 6 2.116D+00,-5.980D-01,-5.980D-01,-5.980D-01,-5.990D-01,-5.961D-01, 7 -5.912D-01,-5.805D-01,-5.552D-01,-4.986D-01,-4.200D-01,-3.198D-01, 8 -2.046D-01,-4.097D-02, 1.897D-01, 4.930D-01, 8.300D-01, 1.267D+00, 9 1.703D+00, 1.703D+00,-6.080D-01,-6.080D-01,-6.080D-01,-6.080D-01/ DATA(kap(i),i= 6769, 6822) 1/-6.061D-01,-6.031D-01,-5.962D-01,-5.807D-01,-5.424D-01,-4.843D-01, 2 -4.029D-01,-2.970D-01,-1.438D-01, 8.034D-02, 3.864D-01, 8.025D-01, 3 1.276D+00, 1.276D+00, 1.276D+00,-6.260D-01,-6.260D-01,-6.260D-01, 4 -6.260D-01,-6.250D-01,-6.230D-01,-6.191D-01,-6.113D-01,-5.876D-01, 5 -5.491D-01,-4.925D-01,-4.088D-01,-2.790D-01,-6.105D-02, 2.679D-01, 6 7.362D-01, 1.316D+00, 1.876D+00, 1.876D+00,-6.440D-01,-6.440D-01, 7 -6.440D-01,-6.440D-01,-6.431D-01,-6.420D-01,-6.410D-01,-6.341D-01, 8 -6.183D-01,-5.896D-01,-5.490D-01,-4.864D-01,-3.746D-01,-1.578D-01, 9 2.382D-01, 7.677D-01, 1.418D+00, 1.418D+00, 1.418D+00,-6.620D-01/ DATA(kap(i),i= 6823, 6840) 1/-6.620D-01,-6.620D-01,-6.630D-01,-6.620D-01,-6.610D-01,-6.580D-01, 2 -6.551D-01,-6.413D-01,-6.235D-01,-5.958D-01,-5.501D-01,-4.485D-01, 3 -2.347D-01, 1.496D-01, 7.012D-01, 1.590D+00, 2.309D+00, 3.029D+00/ c table: DATA/klgx70z019.dat DATA(kap(i),i= 6841, 6894) 1/-6.097D+00,-5.758D+00,-5.506D+00,-5.335D+00,-5.244D+00,-5.227D+00, 2 -5.269D+00,-5.308D+00,-5.332D+00,-5.336D+00,-5.326D+00,-5.314D+00, 3 -5.292D+00,-5.253D+00,-5.189D+00,-5.095D+00,-4.964D+00,-4.812D+00, 4 -4.633D+00,-6.067D+00,-5.716D+00,-5.452D+00,-5.270D+00,-5.167D+00, 5 -5.137D+00,-5.157D+00,-5.180D+00,-5.190D+00,-5.174D+00,-5.133D+00, 6 -5.076D+00,-5.022D+00,-4.966D+00,-4.900D+00,-4.814D+00,-4.693D+00, 7 -4.561D+00,-4.413D+00,-5.981D+00,-5.635D+00,-5.375D+00,-5.196D+00, 8 -5.095D+00,-5.068D+00,-5.074D+00,-5.074D+00,-5.061D+00,-5.020D+00, 9 -4.952D+00,-4.847D+00,-4.742D+00,-4.650D+00,-4.568D+00,-4.479D+00/ DATA(kap(i),i= 6895, 6948) 1/-4.370D+00,-4.245D+00,-4.106D+00,-5.660D+00,-5.362D+00,-5.150D+00, 2 -5.018D+00,-4.963D+00,-4.982D+00,-5.002D+00,-4.991D+00,-4.955D+00, 3 -4.884D+00,-4.780D+00,-4.633D+00,-4.476D+00,-4.335D+00,-4.219D+00, 4 -4.119D+00,-4.015D+00,-3.908D+00,-3.780D+00,-5.279D+00,-5.033D+00, 5 -4.871D+00,-4.790D+00,-4.785D+00,-4.852D+00,-4.905D+00,-4.911D+00, 6 -4.867D+00,-4.772D+00,-4.624D+00,-4.429D+00,-4.225D+00,-4.038D+00, 7 -3.882D+00,-3.755D+00,-3.650D+00,-3.551D+00,-3.441D+00,-4.990D+00, 8 -4.771D+00,-4.636D+00,-4.580D+00,-4.601D+00,-4.693D+00,-4.767D+00, 9 -4.800D+00,-4.771D+00,-4.670D+00,-4.492D+00,-4.253D+00,-3.997D+00/ DATA(kap(i),i= 6949, 7002) 1/-3.764D+00,-3.568D+00,-3.410D+00,-3.288D+00,-3.190D+00,-3.091D+00, 2 -4.821D+00,-4.604D+00,-4.471D+00,-4.417D+00,-4.438D+00,-4.520D+00, 3 -4.592D+00,-4.633D+00,-4.620D+00,-4.534D+00,-4.353D+00,-4.092D+00, 4 -3.795D+00,-3.515D+00,-3.280D+00,-3.088D+00,-2.944D+00,-2.833D+00, 5 -2.737D+00,-4.754D+00,-4.523D+00,-4.375D+00,-4.305D+00,-4.310D+00, 6 -4.365D+00,-4.418D+00,-4.447D+00,-4.432D+00,-4.358D+00,-4.185D+00, 7 -3.924D+00,-3.610D+00,-3.295D+00,-3.018D+00,-2.793D+00,-2.623D+00, 8 -2.493D+00,-2.389D+00,-4.722D+00,-4.477D+00,-4.313D+00,-4.228D+00, 9 -4.216D+00,-4.244D+00,-4.267D+00,-4.268D+00,-4.232D+00,-4.152D+00/ DATA(kap(i),i= 7003, 7056) 1/-3.983D+00,-3.733D+00,-3.423D+00,-3.092D+00,-2.782D+00,-2.525D+00, 2 -2.325D+00,-2.172D+00,-2.053D+00,-4.725D+00,-4.465D+00,-4.287D+00, 3 -4.185D+00,-4.157D+00,-4.157D+00,-4.148D+00,-4.113D+00,-4.043D+00, 4 -3.933D+00,-3.753D+00,-3.512D+00,-3.219D+00,-2.894D+00,-2.569D+00, 5 -2.283D+00,-2.053D+00,-1.876D+00,-1.740D+00,-4.712D+00,-4.448D+00, 6 -4.266D+00,-4.160D+00,-4.126D+00,-4.103D+00,-4.064D+00,-3.993D+00, 7 -3.879D+00,-3.726D+00,-3.522D+00,-3.275D+00,-2.995D+00,-2.689D+00, 8 -2.366D+00,-2.062D+00,-1.807D+00,-1.603D+00,-1.447D+00,-4.637D+00, 9 -4.390D+00,-4.223D+00,-4.132D+00,-4.113D+00,-4.079D+00,-4.017D+00/ DATA(kap(i),i= 7057, 7110) 1/-3.910D+00,-3.753D+00,-3.551D+00,-3.310D+00,-3.044D+00,-2.762D+00, 2 -2.467D+00,-2.159D+00,-1.855D+00,-1.581D+00,-1.355D+00,-1.178D+00, 3 -4.469D+00,-4.260D+00,-4.131D+00,-4.078D+00,-4.085D+00,-4.059D+00, 4 -3.989D+00,-3.856D+00,-3.659D+00,-3.409D+00,-3.127D+00,-2.831D+00, 5 -2.536D+00,-2.241D+00,-1.943D+00,-1.645D+00,-1.366D+00,-1.124D+00, 6 -9.281D-01,-4.145D+00,-4.006D+00,-3.946D+00,-3.960D+00,-4.015D+00, 7 -4.018D+00,-3.959D+00,-3.821D+00,-3.602D+00,-3.307D+00,-2.981D+00, 8 -2.651D+00,-2.332D+00,-2.024D+00,-1.724D+00,-1.432D+00,-1.153D+00, 9 -9.034D-01,-6.950D-01,-3.749D+00,-3.680D+00,-3.689D+00,-3.771D+00/ DATA(kap(i),i= 7111, 7164) 1/-3.877D+00,-3.931D+00,-3.909D+00,-3.788D+00,-3.571D+00,-3.246D+00, 2 -2.878D+00,-2.510D+00,-2.159D+00,-1.828D+00,-1.518D+00,-1.221D+00, 3 -9.405D-01,-6.868D-01,-4.714D-01,-3.363D+00,-3.344D+00,-3.402D+00, 4 -3.533D+00,-3.677D+00,-3.777D+00,-3.805D+00,-3.726D+00,-3.534D+00, 5 -3.204D+00,-2.810D+00,-2.406D+00,-2.020D+00,-1.662D+00,-1.330D+00, 6 -1.023D+00,-7.342D-01,-4.751D-01,-2.548D-01,-2.994D+00,-3.010D+00, 7 -3.104D+00,-3.269D+00,-3.436D+00,-3.566D+00,-3.634D+00,-3.601D+00, 8 -3.447D+00,-3.147D+00,-2.756D+00,-2.332D+00,-1.917D+00,-1.527D+00, 9 -1.169D+00,-8.416D-01,-5.414D-01,-2.729D-01,-4.525D-02,-2.635D+00/ DATA(kap(i),i= 7165, 7218) 1/-2.680D+00,-2.801D+00,-2.993D+00,-3.177D+00,-3.326D+00,-3.417D+00, 2 -3.412D+00,-3.291D+00,-3.042D+00,-2.688D+00,-2.271D+00,-1.839D+00, 3 -1.423D+00,-1.036D+00,-6.844D-01,-3.661D-01,-8.420D-02, 1.532D-01, 4 -2.286D+00,-2.355D+00,-2.499D+00,-2.710D+00,-2.904D+00,-3.065D+00, 5 -3.166D+00,-3.176D+00,-3.072D+00,-2.862D+00,-2.564D+00,-2.193D+00, 6 -1.771D+00,-1.342D+00,-9.292D-01,-5.517D-01,-2.109D-01, 8.562D-02, 7 3.373D-01,-1.949D+00,-2.040D+00,-2.204D+00,-2.421D+00,-2.619D+00, 8 -2.785D+00,-2.890D+00,-2.910D+00,-2.813D+00,-2.625D+00,-2.369D+00, 9 -2.055D+00,-1.683D+00,-1.266D+00,-8.446D-01,-4.429D-01,-7.849D-02/ DATA(kap(i),i= 7219, 7272) 1/ 2.386D-01, 5.058D-01,-1.485D+00,-1.597D+00,-1.782D+00,-1.998D+00, 2 -2.198D+00,-2.366D+00,-2.471D+00,-2.500D+00,-2.406D+00,-2.232D+00, 3 -2.008D+00,-1.748D+00,-1.448D+00,-1.105D+00,-7.148D-01,-3.088D-01, 4 8.221D-02, 4.294D-01, 7.250D-01,-1.074D+00,-1.197D+00,-1.391D+00, 5 -1.596D+00,-1.789D+00,-1.949D+00,-2.048D+00,-2.067D+00,-1.977D+00, 6 -1.815D+00,-1.609D+00,-1.377D+00,-1.121D+00,-8.359D-01,-5.132D-01, 7 -1.513D-01, 2.278D-01, 5.891D-01, 9.101D-01,-8.835D-01,-9.983D-01, 8 -1.179D+00,-1.370D+00,-1.552D+00,-1.702D+00,-1.792D+00,-1.803D+00, 9 -1.717D+00,-1.563D+00,-1.367D+00,-1.145D+00,-9.038D-01,-6.385D-01/ DATA(kap(i),i= 7273, 7326) 1/-3.440D-01,-1.456D-02, 3.373D-01, 6.849D-01, 1.010D+00,-5.247D-01, 2 -5.326D-01,-5.659D-01,-6.238D-01,-6.930D-01,-7.551D-01,-7.980D-01, 3 -7.812D-01,-7.108D-01,-5.948D-01,-4.449D-01,-2.667D-01,-7.189D-02, 4 1.405D-01, 3.704D-01, 6.210D-01, 8.842D-01, 1.154D+00, 1.433D+00, 5 -4.881D-01,-4.514D-01,-3.892D-01,-2.997D-01,-1.951D-01,-9.283D-02, 6 -5.420D-04, 8.190D-02, 1.644D-01, 2.590D-01, 3.701D-01, 5.009D-01, 7 6.521D-01, 8.220D-01, 1.011D+00, 1.220D+00, 1.440D+00, 1.666D+00, 8 1.902D+00,-5.000D-01,-4.617D-01,-3.826D-01,-2.434D-01,-3.680D-02, 9 2.158D-01, 4.731D-01, 6.814D-01, 8.352D-01, 9.528D-01, 1.056D+00/ DATA(kap(i),i= 7327, 7380) 1/ 1.161D+00, 1.277D+00, 1.408D+00, 1.560D+00, 1.732D+00, 1.918D+00, 2 2.114D+00, 2.326D+00,-5.019D-01,-4.716D-01,-3.993D-01,-2.574D-01, 3 -2.998D-02, 2.936D-01, 6.627D-01, 1.005D+00, 1.272D+00, 1.457D+00, 4 1.590D+00, 1.696D+00, 1.796D+00, 1.903D+00, 2.024D+00, 2.166D+00, 5 2.322D+00, 2.495D+00, 2.688D+00,-4.858D-01,-4.780D-01,-4.083D-01, 6 -2.776D-01,-4.594D-02, 2.849D-01, 6.800D-01, 1.092D+00, 1.471D+00, 7 1.757D+00, 1.958D+00, 2.103D+00, 2.211D+00, 2.310D+00, 2.416D+00, 8 2.531D+00, 2.673D+00, 2.814D+00, 2.956D+00,-4.639D-01,-4.561D-01, 9 -3.974D-01,-2.867D-01,-7.909D-02, 2.416D-01, 6.405D-01, 1.079D+00/ DATA(kap(i),i= 7381, 7434) 1/ 1.519D+00, 1.893D+00, 2.182D+00, 2.379D+00, 2.526D+00, 2.638D+00, 2 2.748D+00, 2.862D+00, 2.987D+00, 3.111D+00, 3.236D+00,-4.413D-01, 3 -4.295D-01,-3.727D-01,-2.701D-01,-9.054D-02, 1.869D-01, 5.407D-01, 4 9.727D-01, 1.445D+00, 1.916D+00, 2.339D+00, 2.677D+00, 2.926D+00, 5 3.105D+00, 3.240D+00, 3.366D+00, 3.486D+00, 3.606D+00, 3.726D+00, 6 -4.265D-01,-4.048D-01,-3.442D-01,-2.467D-01,-8.016D-02, 1.803D-01, 7 5.082D-01, 9.051D-01, 1.354D+00, 1.847D+00, 2.331D+00, 2.769D+00, 8 3.128D+00, 3.390D+00, 3.577D+00, 3.728D+00, 3.861D+00, 3.994D+00, 9 4.127D+00,-4.264D-01,-4.056D-01,-3.422D-01,-2.380D-01,-7.757D-02/ DATA(kap(i),i= 7435, 7488) 1/ 1.658D-01, 4.808D-01, 8.748D-01, 1.324D+00, 1.802D+00, 2.292D+00, 2 2.785D+00, 3.224D+00, 3.564D+00, 3.821D+00, 4.011D+00, 4.166D+00, 3 4.321D+00, 4.476D+00,-4.195D-01,-4.006D-01,-3.450D-01,-2.517D-01, 4 -9.356D-02, 1.495D-01, 4.535D-01, 8.440D-01, 1.291D+00, 1.768D+00, 5 2.270D+00, 2.776D+00, 3.261D+00, 3.678D+00, 3.993D+00, 4.228D+00, 6 4.417D+00, 4.606D+00, 4.796D+00,-3.842D-01,-3.573D-01,-2.995D-01, 7 -2.130D-01,-7.841D-02, 1.408D-01, 4.485D-01, 8.507D-01, 1.309D+00, 8 1.807D+00, 2.330D+00, 2.849D+00, 3.366D+00, 3.858D+00, 4.282D+00, 9 4.620D+00, 4.865D+00, 5.109D+00, 5.353D+00,-3.583D-01,-3.215D-01/ DATA(kap(i),i= 7489, 7542) 1/-2.490D-01,-1.426D-01,-3.915D-03, 2.104D-01, 4.936D-01, 8.941D-01, 2 1.371D+00, 1.877D+00, 2.412D+00, 2.955D+00, 3.507D+00, 4.019D+00, 3 4.481D+00, 4.863D+00, 5.156D+00, 5.450D+00, 5.743D+00,-3.457D-01, 4 -3.187D-01,-2.380D-01,-1.044D-01, 7.930D-02, 3.165D-01, 6.125D-01, 5 9.969D-01, 1.459D+00, 1.974D+00, 2.508D+00, 3.051D+00, 3.614D+00, 6 4.143D+00, 4.626D+00, 5.017D+00, 5.327D+00, 5.638D+00, 5.948D+00, 7 -3.507D-01,-3.211D-01,-2.414D-01,-1.117D-01, 9.824D-02, 3.851D-01, 8 7.310D-01, 1.133D+00, 1.586D+00, 2.085D+00, 2.603D+00, 3.134D+00, 9 3.683D+00, 4.216D+00, 4.695D+00, 5.089D+00, 5.392D+00, 5.694D+00/ DATA(kap(i),i= 7543, 7596) 1/ 5.996D+00,-3.615D-01,-3.340D-01,-2.566D-01,-1.270D-01, 8.267D-02, 2 3.778D-01, 7.711D-01, 1.222D+00, 1.685D+00, 2.168D+00, 2.670D+00, 3 3.183D+00, 3.717D+00, 4.108D+00, 4.542D+00, 4.922D+00, 5.200D+00, 4 5.336D+00, 5.291D+00,-3.673D-01,-3.437D-01,-2.723D-01,-1.539D-01, 5 5.158D-02, 3.503D-01, 7.375D-01, 1.208D+00, 1.708D+00, 2.212D+00, 6 2.706D+00, 3.202D+00, 3.713D+00, 4.109D+00, 4.533D+00, 4.898D+00, 7 5.133D+00, 5.187D+00, 5.187D+00,-3.751D-01,-3.515D-01,-2.871D-01, 8 -1.798D-01, 9.685D-03, 2.972D-01, 6.880D-01, 1.144D+00, 1.654D+00, 9 2.178D+00, 2.690D+00, 3.186D+00, 3.680D+00, 4.093D+00, 4.505D+00/ DATA(kap(i),i= 7597, 7650) 1/ 4.839D+00, 5.036D+00, 5.046D+00, 4.969D+00,-3.760D-01,-3.573D-01, 2 -2.969D-01,-1.956D-01,-1.532D-02, 2.629D-01, 6.357D-01, 1.078D+00, 3 1.580D+00, 2.111D+00, 2.640D+00, 3.152D+00, 3.635D+00, 4.067D+00, 4 4.465D+00, 4.770D+00, 4.935D+00, 4.918D+00, 4.898D+00,-3.770D-01, 5 -3.554D-01,-3.008D-01,-2.135D-01,-5.147D-02, 2.026D-01, 5.471D-01, 6 9.740D-01, 1.467D+00, 1.985D+00, 2.521D+00, 3.054D+00, 3.553D+00, 7 4.003D+00, 4.370D+00, 4.633D+00, 4.761D+00, 4.738D+00, 4.794D+00, 8 -3.780D-01,-3.514D-01,-2.959D-01,-2.096D-01,-6.347D-02, 1.735D-01, 9 5.037D-01, 9.097D-01, 1.396D+00, 1.913D+00, 2.443D+00, 2.979D+00/ DATA(kap(i),i= 7651, 7704) 1/ 3.489D+00, 3.966D+00, 4.323D+00, 4.547D+00, 4.636D+00, 4.658D+00, 2 4.656D+00,-3.653D-01,-3.465D-01,-2.930D-01,-2.048D-01,-6.167D-02, 3 1.633D-01, 4.844D-01, 8.912D-01, 1.363D+00, 1.874D+00, 2.406D+00, 4 2.938D+00, 3.453D+00, 3.940D+00, 4.290D+00, 4.497D+00, 4.582D+00, 5 4.575D+00, 4.501D+00,-3.350D-01,-3.143D-01,-2.646D-01,-1.861D-01, 6 -5.178D-02, 1.722D-01, 4.972D-01, 8.870D-01, 1.359D+00, 1.860D+00, 7 2.387D+00, 2.923D+00, 3.436D+00, 3.920D+00, 4.262D+00, 4.457D+00, 8 4.524D+00, 4.466D+00, 4.287D+00,-2.164D-01,-2.094D-01,-1.716D-01, 9 -1.040D-01, 2.049D-02, 2.280D-01, 5.416D-01, 9.405D-01, 1.404D+00/ DATA(kap(i),i= 7705, 7758) 1/ 1.884D+00, 2.388D+00, 2.908D+00, 3.409D+00, 3.823D+00, 4.113D+00, 2 4.270D+00, 4.291D+00, 4.166D+00, 4.022D+00,-8.031D-02,-4.017D-02, 3 1.807D-02, 9.335D-02, 2.136D-01, 3.917D-01, 6.682D-01, 1.032D+00, 4 1.470D+00, 1.933D+00, 2.413D+00, 2.887D+00, 3.322D+00, 3.623D+00, 5 3.848D+00, 3.952D+00, 3.922D+00, 3.786D+00, 3.740D+00,-2.147D-01, 6 -1.428D-01,-3.845D-02, 9.835D-02, 2.821D-01, 5.164D-01, 7.934D-01, 7 1.119D+00, 1.494D+00, 1.910D+00, 2.343D+00, 2.746D+00, 3.080D+00, 8 3.252D+00, 3.412D+00, 3.457D+00, 3.441D+00, 3.418D+00, 3.434D+00, 9 -3.662D-01,-3.003D-01,-2.046D-01,-7.823D-02, 9.953D-02, 3.481D-01/ DATA(kap(i),i= 7759, 7812) 1/ 6.683D-01, 1.038D+00, 1.423D+00, 1.812D+00, 2.209D+00, 2.566D+00, 2 2.854D+00, 2.997D+00, 3.117D+00, 3.152D+00, 3.170D+00, 3.223D+00, 3 3.223D+00,-4.348D-01,-4.006D-01,-3.259D-01,-2.136D-01,-4.364D-02, 4 1.991D-01, 5.504D-01, 9.410D-01, 1.341D+00, 1.724D+00, 2.090D+00, 5 2.417D+00, 2.678D+00, 2.793D+00, 2.886D+00, 2.937D+00, 3.006D+00, 6 3.149D+00, 3.149D+00,-4.602D-01,-4.543D-01,-4.249D-01,-3.711D-01, 7 -2.504D-01,-2.749D-02, 3.316D-01, 7.674D-01, 1.184D+00, 1.581D+00, 8 1.921D+00, 2.210D+00, 2.443D+00, 2.480D+00, 2.583D+00, 2.700D+00, 9 2.889D+00, 2.889D+00, 2.889D+00,-4.641D-01,-4.592D-01,-4.436D-01/ DATA(kap(i),i= 7813, 7866) 1/-4.171D-01,-3.445D-01,-1.952D-01, 1.078D-01, 5.595D-01, 1.040D+00, 2 1.465D+00, 1.807D+00, 2.087D+00, 2.308D+00, 2.285D+00, 2.429D+00, 3 2.620D+00, 2.620D+00, 2.620D+00, 2.620D+00,-4.593D-01,-4.583D-01, 4 -4.475D-01,-4.269D-01,-3.651D-01,-2.630D-01,-2.933D-02, 3.628D-01, 5 8.742D-01, 1.350D+00, 1.715D+00, 2.000D+00, 2.224D+00, 2.210D+00, 6 2.388D+00, 2.609D+00, 2.846D+00, 3.072D+00, 3.072D+00,-4.652D-01, 7 -4.613D-01,-4.515D-01,-4.339D-01,-3.820D-01,-2.947D-01,-1.162D-01, 8 1.846D-01, 6.326D-01, 1.136D+00, 1.550D+00, 1.860D+00, 2.104D+00, 9 2.156D+00, 2.348D+00, 2.549D+00, 2.776D+00, 2.776D+00, 2.776D+00/ DATA(kap(i),i= 7867, 7920) 1/-4.562D-01,-4.563D-01,-4.485D-01,-4.320D-01,-3.880D-01,-3.137D-01, 2 -1.518D-01, 1.102D-01, 5.133D-01, 9.915D-01, 1.431D+00, 1.770D+00, 3 2.034D+00, 2.258D+00, 2.267D+00, 2.459D+00, 2.723D+00, 2.953D+00, 4 3.184D+00,-4.563D-01,-4.493D-01,-4.366D-01,-4.171D-01,-3.800D-01, 5 -3.126D-01,-1.670D-01, 7.908D-02, 4.527D-01, 9.150D-01, 1.361D+00, 6 1.717D+00, 1.991D+00, 2.207D+00, 2.207D+00, 2.399D+00, 2.621D+00, 7 2.856D+00, 2.856D+00,-4.563D-01,-4.504D-01,-4.338D-01,-4.044D-01, 8 -3.592D-01,-2.907D-01,-1.655D-01, 5.345D-02, 4.075D-01, 8.562D-01, 9 1.302D+00, 1.661D+00, 1.926D+00, 2.111D+00, 2.109D+00, 2.262D+00/ DATA(kap(i),i= 7921, 7974) 1/ 2.503D+00, 2.503D+00, 2.503D+00,-4.641D-01,-4.691D-01,-4.594D-01, 2 -4.360D-01,-3.782D-01,-2.872D-01,-1.449D-01, 7.383D-02, 3.882D-01, 3 8.031D-01, 1.216D+00, 1.540D+00, 1.760D+00, 1.906D+00, 1.887D+00, 4 2.051D+00, 2.334D+00, 2.607D+00, 2.855D+00,-4.720D-01,-4.759D-01, 5 -4.672D-01,-4.457D-01,-4.156D-01,-3.357D-01,-1.831D-01, 6.200D-02, 6 3.835D-01, 7.626D-01, 1.110D+00, 1.377D+00, 1.568D+00, 1.710D+00, 7 1.683D+00, 1.909D+00, 2.210D+00, 2.472D+00, 2.472D+00,-4.721D-01, 8 -4.749D-01,-4.691D-01,-4.546D-01,-4.303D-01,-3.730D-01,-2.444D-01, 9 -4.345D-03, 3.314D-01, 6.864D-01, 9.827D-01, 1.211D+00, 1.391D+00/ DATA(kap(i),i= 7975, 8028) 1/ 1.540D+00, 1.542D+00, 1.821D+00, 2.101D+00, 2.375D+00, 2.375D+00, 2 -4.740D-01,-4.731D-01,-4.702D-01,-4.644D-01,-4.489D-01,-4.082D-01, 3 -3.219D-01,-1.397D-01, 1.628D-01, 4.805D-01, 7.362D-01, 9.371D-01, 4 1.116D+00, 1.297D+00, 1.363D+00, 1.658D+00, 1.951D+00, 1.951D+00, 5 1.951D+00,-4.750D-01,-4.750D-01,-4.731D-01,-4.683D-01,-4.576D-01, 6 -4.305D-01,-3.676D-01,-2.287D-01, 1.596D-02, 2.973D-01, 5.368D-01, 7 7.318D-01, 9.163D-01, 1.123D+00, 1.239D+00, 1.547D+00, 1.547D+00, 8 1.547D+00, 1.547D+00,-4.731D-01,-4.750D-01,-4.741D-01,-4.712D-01, 9 -4.625D-01,-4.431D-01,-3.967D-01,-2.862D-01,-8.690D-02, 1.575D-01/ DATA(kap(i),i= 8029, 8082) 1/ 3.797D-01, 5.737D-01, 7.691D-01, 9.942D-01, 1.125D+00, 1.444D+00, 2 1.776D+00, 2.085D+00, 2.085D+00,-4.780D-01,-4.780D-01,-4.761D-01, 3 -4.742D-01,-4.683D-01,-4.558D-01,-4.257D-01,-3.539D-01,-2.155D-01, 4 -2.979D-02, 1.662D-01, 3.678D-01, 5.848D-01, 8.296D-01, 9.987D-01, 5 1.346D+00, 1.663D+00, 1.663D+00, 1.663D+00,-4.800D-01,-4.800D-01, 6 -4.781D-01,-4.752D-01,-4.693D-01,-4.577D-01,-4.344D-01,-3.819D-01, 7 -2.776D-01,-1.294D-01, 5.452D-02, 2.557D-01, 4.805D-01, 7.084D-01, 8 9.385D-01, 1.264D+00, 1.582D+00, 1.904D+00, 2.226D+00,-4.850D-01, 9 -4.850D-01,-4.840D-01,-4.821D-01,-4.763D-01,-4.637D-01,-4.414D-01/ DATA(kap(i),i= 8083, 8136) 1/-3.937D-01,-3.145D-01,-2.076D-01,-5.729D-02, 1.209D-01, 3.099D-01, 2 5.487D-01, 7.808D-01, 1.083D+00, 1.474D+00, 1.474D+00, 1.474D+00, 3 -4.900D-01,-4.900D-01,-4.890D-01,-4.880D-01,-4.852D-01,-4.764D-01, 4 -4.571D-01,-4.144D-01,-3.382D-01,-2.410D-01,-1.222D-01, 1.477D-02, 5 1.800D-01, 4.183D-01, 6.315D-01, 9.831D-01, 1.460D+00, 1.923D+00, 6 2.362D+00,-4.990D-01,-4.990D-01,-4.990D-01,-4.990D-01,-4.971D-01, 7 -4.922D-01,-4.835D-01,-4.592D-01,-4.055D-01,-3.318D-01,-2.435D-01, 8 -1.353D-01, 2.328D-02, 2.568D-01, 5.537D-01, 9.372D-01, 1.429D+00, 9 1.917D+00, 1.917D+00,-5.090D-01,-5.090D-01,-5.080D-01,-5.080D-01/ DATA(kap(i),i= 8137, 8190) 1/-5.070D-01,-5.041D-01,-4.993D-01,-4.837D-01,-4.474D-01,-3.932D-01, 2 -3.218D-01,-2.248D-01,-7.671D-02, 1.534D-01, 4.720D-01, 9.288D-01, 3 1.452D+00, 1.452D+00, 1.452D+00,-5.270D-01,-5.270D-01,-5.270D-01, 4 -5.260D-01,-5.260D-01,-5.240D-01,-5.201D-01,-5.133D-01,-4.926D-01, 5 -4.580D-01,-4.094D-01,-3.367D-01,-2.100D-01, 1.695D-02, 3.605D-01, 6 8.754D-01, 1.511D+00, 2.120D+00, 2.120D+00,-5.450D-01,-5.450D-01, 7 -5.450D-01,-5.450D-01,-5.440D-01,-5.430D-01,-5.431D-01,-5.342D-01, 8 -5.204D-01,-4.996D-01,-4.680D-01,-4.144D-01,-3.027D-01,-7.586D-02, 9 3.536D-01, 9.323D-01, 1.636D+00, 1.636D+00, 1.636D+00,-5.630D-01/ DATA(kap(i),i= 8191, 8208) 1/-5.630D-01,-5.630D-01,-5.630D-01,-5.630D-01,-5.620D-01,-5.601D-01, 2 -5.571D-01,-5.463D-01,-5.335D-01,-5.158D-01,-4.792D-01,-3.744D-01, 3 -1.516D-01, 2.764D-01, 8.740D-01, 1.830D+00, 2.608D+00, 3.386D+00/ c table: DATA/klgx00z030.dat DATA(kap(i),i= 8209, 8262) 1/-5.945D+00,-5.611D+00,-5.364D+00,-5.199D+00,-5.112D+00,-5.101D+00, 2 -5.149D+00,-5.192D+00,-5.217D+00,-5.227D+00,-5.225D+00,-5.220D+00, 3 -5.201D+00,-5.158D+00,-5.085D+00,-4.977D+00,-4.830D+00,-4.662D+00, 4 -4.480D+00,-5.911D+00,-5.565D+00,-5.305D+00,-5.127D+00,-5.028D+00, 5 -5.003D+00,-5.028D+00,-5.057D+00,-5.071D+00,-5.056D+00,-5.017D+00, 6 -4.964D+00,-4.914D+00,-4.855D+00,-4.782D+00,-4.681D+00,-4.542D+00, 7 -4.397D+00,-4.251D+00,-5.882D+00,-5.529D+00,-5.262D+00,-5.077D+00, 8 -4.969D+00,-4.934D+00,-4.938D+00,-4.940D+00,-4.933D+00,-4.895D+00, 9 -4.826D+00,-4.717D+00,-4.614D+00,-4.523D+00,-4.438D+00,-4.336D+00/ DATA(kap(i),i= 8263, 8316) 1/-4.211D+00,-4.076D+00,-3.939D+00,-5.624D+00,-5.309D+00,-5.080D+00, 2 -4.931D+00,-4.860D+00,-4.862D+00,-4.868D+00,-4.853D+00,-4.818D+00, 3 -4.750D+00,-4.645D+00,-4.492D+00,-4.330D+00,-4.191D+00,-4.077D+00, 4 -3.973D+00,-3.857D+00,-3.741D+00,-3.615D+00,-5.223D+00,-4.967D+00, 5 -4.796D+00,-4.705D+00,-4.690D+00,-4.748D+00,-4.785D+00,-4.776D+00, 6 -4.726D+00,-4.627D+00,-4.478D+00,-4.279D+00,-4.070D+00,-3.882D+00, 7 -3.729D+00,-3.604D+00,-3.495D+00,-3.391D+00,-3.282D+00,-4.894D+00, 8 -4.674D+00,-4.539D+00,-4.483D+00,-4.503D+00,-4.594D+00,-4.660D+00, 9 -4.676D+00,-4.634D+00,-4.523D+00,-4.338D+00,-4.093D+00,-3.836D+00/ DATA(kap(i),i= 8317, 8370) 1/-3.603D+00,-3.408D+00,-3.254D+00,-3.134D+00,-3.035D+00,-2.939D+00, 2 -4.681D+00,-4.472D+00,-4.346D+00,-4.299D+00,-4.328D+00,-4.417D+00, 3 -4.488D+00,-4.520D+00,-4.492D+00,-4.394D+00,-4.199D+00,-3.929D+00, 4 -3.630D+00,-3.351D+00,-3.117D+00,-2.928D+00,-2.788D+00,-2.683D+00, 5 -2.590D+00,-4.592D+00,-4.370D+00,-4.231D+00,-4.171D+00,-4.185D+00, 6 -4.250D+00,-4.307D+00,-4.334D+00,-4.309D+00,-4.223D+00,-4.038D+00, 7 -3.765D+00,-3.445D+00,-3.129D+00,-2.854D+00,-2.631D+00,-2.464D+00, 8 -2.341D+00,-2.246D+00,-4.555D+00,-4.317D+00,-4.161D+00,-4.082D+00, 9 -4.078D+00,-4.114D+00,-4.142D+00,-4.146D+00,-4.107D+00,-4.022D+00/ DATA(kap(i),i= 8371, 8424) 1/-3.843D+00,-3.582D+00,-3.263D+00,-2.929D+00,-2.618D+00,-2.361D+00, 2 -2.165D+00,-2.019D+00,-1.910D+00,-4.550D+00,-4.296D+00,-4.124D+00, 3 -4.029D+00,-4.007D+00,-4.013D+00,-4.009D+00,-3.978D+00,-3.909D+00, 4 -3.800D+00,-3.619D+00,-3.371D+00,-3.067D+00,-2.734D+00,-2.406D+00, 5 -2.119D+00,-1.891D+00,-1.721D+00,-1.595D+00,-4.557D+00,-4.293D+00, 6 -4.110D+00,-4.003D+00,-3.969D+00,-3.948D+00,-3.912D+00,-3.842D+00, 7 -3.733D+00,-3.585D+00,-3.386D+00,-3.140D+00,-2.854D+00,-2.539D+00, 8 -2.208D+00,-1.900D+00,-1.645D+00,-1.447D+00,-1.299D+00,-4.505D+00, 9 -4.251D+00,-4.078D+00,-3.980D+00,-3.954D+00,-3.916D+00,-3.852D+00/ DATA(kap(i),i= 8425, 8478) 1/-3.745D+00,-3.591D+00,-3.397D+00,-3.166D+00,-2.907D+00,-2.628D+00, 2 -2.329D+00,-2.012D+00,-1.699D+00,-1.421D+00,-1.198D+00,-1.027D+00, 3 -4.377D+00,-4.154D+00,-4.010D+00,-3.941D+00,-3.935D+00,-3.899D+00, 4 -3.819D+00,-3.680D+00,-3.483D+00,-3.240D+00,-2.971D+00,-2.688D+00, 5 -2.401D+00,-2.109D+00,-1.806D+00,-1.501D+00,-1.214D+00,-9.696D-01, 6 -7.774D-01,-4.112D+00,-3.949D+00,-3.864D+00,-3.854D+00,-3.887D+00, 7 -3.870D+00,-3.793D+00,-3.640D+00,-3.413D+00,-3.123D+00,-2.810D+00, 8 -2.496D+00,-2.190D+00,-1.891D+00,-1.594D+00,-1.298D+00,-1.011D+00, 9 -7.557D-01,-5.466D-01,-3.739D+00,-3.649D+00,-3.637D+00,-3.699D+00/ DATA(kap(i),i= 8479, 8532) 1/-3.783D+00,-3.810D+00,-3.760D+00,-3.615D+00,-3.379D+00,-3.049D+00, 2 -2.692D+00,-2.341D+00,-2.006D+00,-1.689D+00,-1.387D+00,-1.090D+00, 3 -8.069D-01,-5.474D-01,-3.276D-01,-3.359D+00,-3.325D+00,-3.369D+00, 4 -3.486D+00,-3.613D+00,-3.691D+00,-3.690D+00,-3.576D+00,-3.352D+00, 5 -3.006D+00,-2.613D+00,-2.223D+00,-1.854D+00,-1.513D+00,-1.193D+00, 6 -8.910D-01,-6.037D-01,-3.417D-01,-1.177D-01,-2.992D+00,-2.998D+00, 7 -3.082D+00,-3.238D+00,-3.395D+00,-3.511D+00,-3.556D+00,-3.490D+00, 8 -3.297D+00,-2.965D+00,-2.559D+00,-2.139D+00,-1.738D+00,-1.366D+00, 9 -1.022D+00,-7.058D-01,-4.096D-01,-1.422D-01, 8.659D-02,-2.634D+00/ DATA(kap(i),i= 8533, 8586) 1/-2.673D+00,-2.787D+00,-2.973D+00,-3.149D+00,-3.289D+00,-3.366D+00, 2 -3.340D+00,-3.187D+00,-2.897D+00,-2.510D+00,-2.080D+00,-1.652D+00, 3 -1.249D+00,-8.789D-01,-5.395D-01,-2.303D-01, 4.559D-02, 2.832D-01, 4 -2.286D+00,-2.350D+00,-2.490D+00,-2.697D+00,-2.885D+00,-3.040D+00, 5 -3.134D+00,-3.131D+00,-3.006D+00,-2.767D+00,-2.428D+00,-2.022D+00, 6 -1.586D+00,-1.161D+00,-7.618D-01,-3.970D-01,-6.839D-02, 2.200D-01, 7 4.673D-01,-1.950D+00,-2.037D+00,-2.198D+00,-2.411D+00,-2.606D+00, 8 -2.767D+00,-2.866D+00,-2.879D+00,-2.770D+00,-2.564D+00,-2.279D+00, 9 -1.927D+00,-1.520D+00,-1.089D+00,-6.697D-01,-2.782D-01, 7.175D-02/ DATA(kap(i),i= 8587, 8640) 1/ 3.783D-01, 6.379D-01,-1.484D+00,-1.594D+00,-1.778D+00,-1.992D+00, 2 -2.189D+00,-2.353D+00,-2.455D+00,-2.479D+00,-2.380D+00,-2.198D+00, 3 -1.961D+00,-1.680D+00,-1.348D+00,-9.690D-01,-5.527D-01,-1.384D-01, 4 2.446D-01, 5.798D-01, 8.636D-01,-1.075D+00,-1.196D+00,-1.388D+00, 5 -1.591D+00,-1.781D+00,-1.939D+00,-2.035D+00,-2.052D+00,-1.959D+00, 6 -1.793D+00,-1.581D+00,-1.340D+00,-1.067D+00,-7.568D-01,-4.008D-01, 7 -8.079D-03, 3.856D-01, 7.444D-01, 1.056D+00,-1.204D+00,-1.316D+00, 8 -1.492D+00,-1.677D+00,-1.851D+00,-1.993D+00,-2.078D+00,-2.088D+00, 9 -2.004D+00,-1.852D+00,-1.655D+00,-1.429D+00,-1.179D+00,-2.681D+00/ DATA(kap(i),i= 8641, 8694) 1/-2.258D+00,-1.815D+00,-1.373D+00,-9.579D-01,-9.579D-01,-2.816D+00, 2 -2.810D+00,-2.794D+00,-2.768D+00,-2.746D+00,-2.727D+00,-2.714D+00, 3 -2.707D+00,-2.696D+00,-2.700D+00,-2.619D+00,-2.453D+00,-2.232D+00, 4 -2.079D+00,-1.756D+00,-1.419D+00,-1.049D+00,-1.049D+00,-1.049D+00, 5 -2.532D+00,-2.650D+00,-2.730D+00,-2.773D+00,-2.784D+00,-2.762D+00, 6 -2.728D+00,-2.684D+00,-2.624D+00,-2.552D+00,-2.434D+00,-2.231D+00, 7 -1.990D+00,-1.641D+00,-1.292D+00,-9.384D-01,-5.940D-01,-2.414D-01, 8 1.462D-01,-1.875D+00,-2.076D+00,-2.250D+00,-2.398D+00,-2.512D+00, 9 -2.592D+00,-2.624D+00,-2.609D+00,-2.542D+00,-2.437D+00,-2.239D+00/ DATA(kap(i),i= 8695, 8748) 1/-1.970D+00,-1.688D+00,-1.253D+00,-9.232D-01,-5.761D-01,-2.194D-01, 2 1.345D-01, 4.773D-01,-1.340D+00,-1.523D+00,-1.707D+00,-1.891D+00, 3 -2.064D+00,-2.225D+00,-2.331D+00,-2.381D+00,-2.373D+00,-2.327D+00, 4 -2.121D+00,-1.827D+00,-1.475D+00,-9.695D-01,-6.060D-01,-2.509D-01, 5 9.983D-02, 4.516D-01, 8.098D-01,-1.037D+00,-1.131D+00,-1.254D+00, 6 -1.407D+00,-1.552D+00,-1.688D+00,-1.794D+00,-1.869D+00,-1.890D+00, 7 -1.851D+00,-1.739D+00,-1.523D+00,-1.233D+00,-7.692D-01,-3.903D-01, 8 -1.716D-02, 3.574D-01, 7.350D-01, 7.350D-01,-9.470D-01,-9.560D-01, 9 -9.990D-01,-1.077D+00,-1.157D+00,-1.240D+00,-1.303D+00,-1.347D+00/ DATA(kap(i),i= 8749, 8802) 1/-1.360D+00,-1.331D+00,-1.254D+00,-1.110D+00,-1.005D+00,-5.583D-01, 2 -1.802D-01, 2.057D-01, 6.003D-01, 9.970D-01, 9.970D-01,-9.010D-01, 3 -8.870D-01,-8.580D-01,-8.140D-01,-7.330D-01,-6.140D-01,-5.150D-01, 4 -4.370D-01,-3.570D-01,-3.030D-01,-2.330D-01,-1.430D-01,-3.100D-02, 5 1.647D-01, 4.279D-01, 7.218D-01, 1.059D+00, 1.416D+00, 1.756D+00, 6 -8.980D-01,-8.600D-01,-8.160D-01,-7.660D-01,-6.340D-01,-4.210D-01, 7 -1.950D-01, 4.500D-02, 2.520D-01, 3.990D-01, 5.240D-01, 6.380D-01, 8 7.580D-01, 8.366D-01, 1.031D+00, 1.262D+00, 1.541D+00, 1.837D+00, 9 2.132D+00,-8.930D-01,-8.690D-01,-8.220D-01,-7.530D-01,-6.150D-01/ DATA(kap(i),i= 8803, 8856) 1/-4.080D-01,-1.440D-01, 1.780D-01, 5.010D-01, 7.790D-01, 9.970D-01, 2 1.172D+00, 1.333D+00, 1.423D+00, 1.608D+00, 1.812D+00, 2.036D+00, 3 2.272D+00, 2.517D+00,-8.710D-01,-8.530D-01,-8.210D-01,-7.760D-01, 4 -6.440D-01,-4.250D-01,-1.500D-01, 1.810D-01, 5.480D-01, 9.150D-01, 5 1.236D+00, 1.498D+00, 1.709D+00, 1.905D+00, 2.097D+00, 2.279D+00, 6 2.460D+00, 2.655D+00, 2.862D+00,-7.340D-01,-7.420D-01,-7.340D-01, 7 -7.090D-01,-6.170D-01,-4.590D-01,-2.170D-01, 1.080D-01, 5.030D-01, 8 9.310D-01, 1.372D+00, 1.792D+00, 2.155D+00, 2.389D+00, 2.686D+00, 9 2.929D+00, 3.143D+00, 3.342D+00, 3.540D+00,-5.620D-01,-5.340D-01/ DATA(kap(i),i= 8857, 8910) 1/-5.110D-01,-4.930D-01,-4.280D-01,-3.170D-01,-1.320D-01, 1.280D-01, 2 4.670D-01, 8.850D-01, 1.359D+00, 1.833D+00, 2.286D+00, 2.661D+00, 3 3.034D+00, 3.344D+00, 3.601D+00, 3.827D+00, 4.045D+00,-5.260D-01, 4 -5.060D-01,-4.300D-01,-2.980D-01,-1.530D-01, 3.000D-03, 1.830D-01, 5 3.860D-01, 6.460D-01, 9.760D-01, 1.393D+00, 1.860D+00, 2.343D+00, 6 2.784D+00, 3.147D+00, 3.488D+00, 3.809D+00, 4.115D+00, 4.408D+00, 7 -5.330D-01,-4.970D-01,-4.180D-01,-2.940D-01,-8.200D-02, 2.160D-01, 8 4.930D-01, 7.510D-01, 9.980D-01, 1.255D+00, 1.561D+00, 1.951D+00, 9 2.405D+00, 2.832D+00, 3.205D+00, 3.591D+00, 3.980D+00, 4.357D+00/ DATA(kap(i),i= 8911, 8964) 1/ 4.710D+00,-5.480D-01,-5.100D-01,-4.340D-01,-3.190D-01,-1.000D-01, 2 2.240D-01, 5.820D-01, 9.750D-01, 1.311D+00, 1.590D+00, 1.850D+00, 3 2.151D+00, 2.527D+00, 2.871D+00, 3.265D+00, 3.696D+00, 4.137D+00, 4 4.564D+00, 4.954D+00,-5.580D-01,-5.290D-01,-4.580D-01,-3.440D-01, 5 -1.400D-01, 1.550D-01, 5.320D-01, 9.880D-01, 1.445D+00, 1.825D+00, 6 2.123D+00, 2.395D+00, 2.708D+00, 2.935D+00, 3.351D+00, 3.810D+00, 7 4.278D+00, 4.732D+00, 4.732D+00,-5.690D-01,-5.390D-01,-4.740D-01, 8 -3.750D-01,-1.860D-01, 9.500D-02, 4.590D-01, 9.080D-01, 1.409D+00, 9 1.886D+00, 2.285D+00, 2.599D+00, 2.745D+00, 3.125D+00, 3.525D+00/ DATA(kap(i),i= 8965, 9018) 1/ 3.943D+00, 4.377D+00, 4.824D+00, 5.001D+00,-5.720D-01,-5.460D-01, 2 -4.860D-01,-3.930D-01,-2.120D-01, 5.800D-02, 4.070D-01, 8.350D-01, 3 1.326D+00, 1.851D+00, 2.340D+00, 2.738D+00, 2.913D+00, 3.293D+00, 4 3.664D+00, 4.042D+00, 4.448D+00, 4.900D+00, 4.987D+00,-5.730D-01, 5 -5.420D-01,-4.870D-01,-4.080D-01,-2.460D-01,-1.000D-03, 3.240D-01, 6 7.280D-01, 1.203D+00, 1.717D+00, 2.261D+00, 2.746D+00, 3.168D+00, 7 3.535D+00, 3.851D+00, 4.176D+00, 4.553D+00, 4.991D+00, 5.011D+00, 8 -5.680D-01,-5.370D-01,-4.830D-01,-4.070D-01,-2.520D-01,-1.800D-02, 9 2.930D-01, 6.800D-01, 1.137D+00, 1.647D+00, 2.180D+00, 2.771D+00/ DATA(kap(i),i= 9019, 9072) 1/ 3.229D+00, 3.628D+00, 3.981D+00, 4.354D+00, 4.738D+00, 5.005D+00, 2 5.070D+00,-5.490D-01,-5.210D-01,-4.680D-01,-3.910D-01,-2.420D-01, 3 -2.100D-02, 2.810D-01, 6.660D-01, 1.115D+00, 1.617D+00, 2.209D+00, 4 2.753D+00, 3.255D+00, 3.704D+00, 4.100D+00, 4.469D+00, 4.764D+00, 5 4.931D+00, 4.921D+00,-5.030D-01,-4.730D-01,-4.260D-01,-3.630D-01, 6 -2.230D-01,-6.000D-03, 2.960D-01, 6.850D-01, 1.128D+00, 1.621D+00, 7 2.153D+00, 2.727D+00, 3.278D+00, 3.779D+00, 4.206D+00, 4.524D+00, 8 4.730D+00, 4.812D+00, 4.760D+00,-3.360D-01,-3.250D-01,-2.880D-01, 9 -2.240D-01,-9.800D-02, 8.800D-02, 3.750D-01, 7.610D-01, 1.216D+00/ DATA(kap(i),i= 9073, 9126) 1/ 1.608D+00, 2.195D+00, 2.786D+00, 3.347D+00, 3.841D+00, 4.213D+00, 2 4.445D+00, 4.562D+00, 4.572D+00, 4.572D+00,-1.900D-01,-1.280D-01, 3 -5.100D-02, 4.300D-02, 1.800D-01, 3.600D-01, 6.180D-01, 9.540D-01, 4 1.348D+00, 1.670D+00, 2.256D+00, 2.825D+00, 3.350D+00, 3.782D+00, 5 4.058D+00, 4.215D+00, 4.263D+00, 4.263D+00, 4.263D+00,-3.920D-01, 6 -3.050D-01,-1.670D-01, 2.000D-02, 2.590D-01, 5.490D-01, 8.570D-01, 7 1.183D+00, 1.537D+00, 1.940D+00, 2.374D+00, 2.815D+00, 3.213D+00, 8 3.501D+00, 3.720D+00, 3.818D+00, 3.784D+00, 3.784D+00, 3.784D+00, 9 -5.800D-01,-5.030D-01,-3.870D-01,-2.320D-01, 1.700D-02, 3.610D-01/ DATA(kap(i),i= 9127, 9180) 1/ 7.290D-01, 1.121D+00, 1.515D+00, 1.905D+00, 2.300D+00, 2.685D+00, 2 3.017D+00, 3.267D+00, 3.436D+00, 3.483D+00, 3.483D+00, 3.483D+00, 3 3.483D+00,-6.610D-01,-6.160D-01,-5.300D-01,-4.030D-01,-1.650D-01, 4 1.830D-01, 5.760D-01, 1.016D+00, 1.430D+00, 1.821D+00, 2.198D+00, 5 2.543D+00, 2.842D+00, 3.054D+00, 3.192D+00, 3.208D+00, 3.208D+00, 6 3.208D+00, 3.208D+00,-6.870D-01,-6.720D-01,-6.450D-01,-6.070D-01, 7 -4.300D-01,-1.130D-01, 2.900D-01, 7.810D-01, 1.247D+00, 1.664D+00, 8 2.025D+00, 2.335D+00, 2.597D+00, 2.721D+00, 2.826D+00, 2.826D+00, 9 2.826D+00, 2.826D+00, 2.826D+00,-6.910D-01,-6.820D-01,-6.660D-01/ DATA(kap(i),i= 9181, 9234) 1/-6.430D-01,-5.330D-01,-3.360D-01, 1.000D-03, 4.790D-01, 1.042D+00, 2 1.520D+00, 1.897D+00, 2.204D+00, 2.453D+00, 2.497D+00, 2.497D+00, 3 2.497D+00, 2.497D+00, 2.497D+00, 2.497D+00,-6.800D-01,-6.810D-01, 4 -6.700D-01,-6.460D-01,-5.690D-01,-4.380D-01,-1.550D-01, 2.810D-01, 5 8.290D-01, 1.364D+00, 1.785D+00, 2.105D+00, 2.358D+00, 2.388D+00, 6 2.497D+00, 2.607D+00, 2.710D+00, 2.810D+00, 2.810D+00,-6.910D-01, 7 -6.870D-01,-6.730D-01,-6.480D-01,-5.850D-01,-4.850D-01,-2.560D-01, 8 1.010D-01, 5.750D-01, 1.112D+00, 1.592D+00, 1.946D+00, 2.217D+00, 9 2.241D+00, 2.381D+00, 2.533D+00, 2.701D+00, 2.701D+00, 2.701D+00/ DATA(kap(i),i= 9235, 9288) 1/-6.780D-01,-6.790D-01,-6.690D-01,-6.470D-01,-5.890D-01,-4.920D-01, 2 -2.880D-01, 2.300D-02, 4.540D-01, 9.660D-01, 1.450D+00, 1.837D+00, 3 2.131D+00, 2.373D+00, 2.323D+00, 2.498D+00, 2.764D+00, 2.983D+00, 4 3.202D+00,-6.830D-01,-6.740D-01,-6.580D-01,-6.350D-01,-5.800D-01, 5 -4.950D-01,-3.070D-01,-1.600D-02, 3.950D-01, 8.860D-01, 1.367D+00, 6 1.770D+00, 2.078D+00, 2.324D+00, 2.289D+00, 2.482D+00, 2.667D+00, 7 2.880D+00, 2.880D+00,-6.850D-01,-6.790D-01,-6.570D-01,-6.190D-01, 8 -5.610D-01,-4.820D-01,-3.090D-01,-4.100D-02, 3.470D-01, 8.220D-01, 9 1.301D+00, 1.706D+00, 2.013D+00, 2.238D+00, 2.229D+00, 2.333D+00/ DATA(kap(i),i= 9289, 9342) 1/ 2.540D+00, 2.540D+00, 2.540D+00,-6.980D-01,-6.990D-01,-6.850D-01, 2 -6.570D-01,-5.890D-01,-4.830D-01,-2.980D-01,-3.200D-02, 3.220D-01, 3 7.660D-01, 1.221D+00, 1.595D+00, 1.864D+00, 2.037D+00, 1.988D+00, 4 2.111D+00, 2.341D+00, 2.561D+00, 2.756D+00,-6.990D-01,-7.000D-01, 5 -6.930D-01,-6.790D-01,-6.290D-01,-5.420D-01,-3.470D-01,-4.400D-02, 6 3.260D-01, 7.480D-01, 1.141D+00, 1.452D+00, 1.679D+00, 1.833D+00, 7 1.764D+00, 1.940D+00, 2.189D+00, 2.410D+00, 2.410D+00,-7.000D-01, 8 -7.010D-01,-6.950D-01,-6.820D-01,-6.460D-01,-5.890D-01,-4.160D-01, 9 -1.280D-01, 2.730D-01, 6.840D-01, 1.031D+00, 1.297D+00, 1.498D+00/ DATA(kap(i),i= 9343, 9396) 1/ 1.651D+00, 1.599D+00, 1.824D+00, 2.066D+00, 2.309D+00, 2.309D+00, 2 -7.020D-01,-7.020D-01,-6.980D-01,-6.900D-01,-6.680D-01,-6.340D-01, 3 -5.020D-01,-2.720D-01, 9.100D-02, 4.800D-01, 7.900D-01, 1.022D+00, 4 1.206D+00, 1.373D+00, 1.377D+00, 1.637D+00, 1.914D+00, 1.914D+00, 5 1.914D+00,-7.030D-01,-7.030D-01,-6.990D-01,-6.920D-01,-6.790D-01, 6 -6.610D-01,-5.590D-01,-3.730D-01,-6.600D-02, 2.830D-01, 5.750D-01, 7 8.000D-01, 9.850D-01, 1.170D+00, 1.223D+00, 1.528D+00, 1.528D+00, 8 1.528D+00, 1.528D+00,-6.900D-01,-7.000D-01,-7.010D-01,-6.960D-01, 9 -6.860D-01,-6.730D-01,-5.920D-01,-4.430D-01,-1.880D-01, 1.220D-01/ DATA(kap(i),i= 9397, 9450) 1/ 3.970D-01, 6.200D-01, 8.140D-01, 1.020D+00, 1.086D+00, 1.405D+00, 2 1.736D+00, 2.039D+00, 2.039D+00,-7.050D-01,-7.060D-01,-7.030D-01, 3 -6.990D-01,-6.930D-01,-6.860D-01,-6.330D-01,-5.330D-01,-3.490D-01, 4 -1.040D-01, 1.430D-01, 3.680D-01, 5.950D-01, 8.240D-01, 9.388D-01, 5 1.278D+00, 1.575D+00, 1.575D+00, 1.575D+00,-7.070D-01,-7.080D-01, 6 -7.050D-01,-7.000D-01,-6.940D-01,-6.870D-01,-6.460D-01,-5.720D-01, 7 -4.320D-01,-2.280D-01,-4.000D-03, 2.270D-01, 4.750D-01, 7.040D-01, 8 8.592D-01, 1.163D+00, 1.443D+00, 1.733D+00, 2.023D+00,-7.130D-01, 9 -7.130D-01,-7.110D-01,-7.070D-01,-7.000D-01,-6.900D-01,-6.510D-01/ DATA(kap(i),i= 9451, 9504) 1/-5.830D-01,-4.720D-01,-3.190D-01,-1.330D-01, 7.800D-02, 2.780D-01, 2 4.930D-01, 6.640D-01, 9.870D-01, 1.296D+00, 1.296D+00, 1.296D+00, 3 -7.180D-01,-7.180D-01,-7.170D-01,-7.150D-01,-7.120D-01,-7.070D-01, 4 -6.730D-01,-6.080D-01,-4.990D-01,-3.580D-01,-2.030D-01,-4.500D-02, 5 1.180D-01, 3.330D-01, 5.716D-01, 8.942D-01, 1.216D+00, 1.535D+00, 6 1.854D+00,-7.270D-01,-7.270D-01,-7.270D-01,-7.250D-01,-7.240D-01, 7 -7.240D-01,-7.050D-01,-6.680D-01,-5.970D-01,-4.920D-01,-3.690D-01, 8 -2.450D-01,-8.400D-02, 1.380D-01, 4.348D-01, 7.228D-01, 1.102D+00, 9 1.477D+00, 1.477D+00,-7.360D-01,-7.370D-01,-7.370D-01,-7.350D-01/ DATA(kap(i),i= 9505, 9558) 1/-7.350D-01,-7.340D-01,-7.230D-01,-7.000D-01,-6.560D-01,-5.790D-01, 2 -4.790D-01,-3.610D-01,-2.020D-01, 1.500D-02, 3.054D-01, 6.775D-01, 3 1.093D+00, 1.093D+00, 1.093D+00,-7.550D-01,-7.550D-01,-7.550D-01, 4 -7.550D-01,-7.540D-01,-7.520D-01,-7.460D-01,-7.350D-01,-7.100D-01, 5 -6.580D-01,-5.870D-01,-4.880D-01,-3.490D-01,-1.420D-01, 1.789D-01, 6 5.942D-01, 1.107D+00, 1.610D+00, 1.610D+00,-7.730D-01,-7.730D-01, 7 -7.730D-01,-7.730D-01,-7.720D-01,-7.700D-01,-7.660D-01,-7.610D-01, 8 -7.380D-01,-7.020D-01,-6.480D-01,-5.690D-01,-4.500D-01,-2.450D-01, 9 1.165D-01, 5.925D-01, 1.188D+00, 1.188D+00, 1.188D+00,-7.910D-01/ DATA(kap(i),i= 9559, 9576) 1/-7.910D-01,-7.910D-01,-7.910D-01,-7.910D-01,-7.890D-01,-7.860D-01, 2 -7.830D-01,-7.640D-01,-7.370D-01,-6.960D-01,-6.330D-01,-5.290D-01, 3 -3.250D-01, 1.170D-02, 5.207D-01, 1.346D+00, 2.016D+00, 2.686D+00/ c table: DATA/klgx35z030.dat DATA(kap(i),i= 9577, 9630) 1/-5.945D+00,-5.611D+00,-5.364D+00,-5.199D+00,-5.112D+00,-5.101D+00, 2 -5.149D+00,-5.192D+00,-5.217D+00,-5.227D+00,-5.225D+00,-5.220D+00, 3 -5.201D+00,-5.158D+00,-5.085D+00,-4.977D+00,-4.830D+00,-4.662D+00, 4 -4.480D+00,-5.911D+00,-5.565D+00,-5.305D+00,-5.127D+00,-5.028D+00, 5 -5.003D+00,-5.028D+00,-5.057D+00,-5.071D+00,-5.056D+00,-5.017D+00, 6 -4.964D+00,-4.914D+00,-4.855D+00,-4.782D+00,-4.681D+00,-4.542D+00, 7 -4.397D+00,-4.251D+00,-5.882D+00,-5.529D+00,-5.262D+00,-5.077D+00, 8 -4.969D+00,-4.934D+00,-4.938D+00,-4.940D+00,-4.933D+00,-4.895D+00, 9 -4.826D+00,-4.717D+00,-4.614D+00,-4.523D+00,-4.438D+00,-4.336D+00/ DATA(kap(i),i= 9631, 9684) 1/-4.211D+00,-4.076D+00,-3.939D+00,-5.624D+00,-5.309D+00,-5.080D+00, 2 -4.931D+00,-4.860D+00,-4.862D+00,-4.868D+00,-4.853D+00,-4.818D+00, 3 -4.750D+00,-4.645D+00,-4.492D+00,-4.330D+00,-4.191D+00,-4.077D+00, 4 -3.973D+00,-3.857D+00,-3.741D+00,-3.615D+00,-5.223D+00,-4.967D+00, 5 -4.796D+00,-4.705D+00,-4.690D+00,-4.748D+00,-4.785D+00,-4.776D+00, 6 -4.726D+00,-4.627D+00,-4.478D+00,-4.279D+00,-4.070D+00,-3.882D+00, 7 -3.729D+00,-3.604D+00,-3.495D+00,-3.391D+00,-3.282D+00,-4.894D+00, 8 -4.674D+00,-4.539D+00,-4.483D+00,-4.503D+00,-4.594D+00,-4.660D+00, 9 -4.676D+00,-4.634D+00,-4.523D+00,-4.338D+00,-4.093D+00,-3.836D+00/ DATA(kap(i),i= 9685, 9738) 1/-3.603D+00,-3.408D+00,-3.254D+00,-3.134D+00,-3.035D+00,-2.939D+00, 2 -4.681D+00,-4.472D+00,-4.346D+00,-4.299D+00,-4.328D+00,-4.417D+00, 3 -4.488D+00,-4.520D+00,-4.492D+00,-4.394D+00,-4.199D+00,-3.929D+00, 4 -3.630D+00,-3.351D+00,-3.117D+00,-2.928D+00,-2.788D+00,-2.683D+00, 5 -2.590D+00,-4.592D+00,-4.370D+00,-4.231D+00,-4.171D+00,-4.185D+00, 6 -4.250D+00,-4.307D+00,-4.334D+00,-4.309D+00,-4.223D+00,-4.038D+00, 7 -3.765D+00,-3.445D+00,-3.129D+00,-2.854D+00,-2.631D+00,-2.464D+00, 8 -2.341D+00,-2.246D+00,-4.555D+00,-4.317D+00,-4.161D+00,-4.082D+00, 9 -4.078D+00,-4.114D+00,-4.142D+00,-4.146D+00,-4.107D+00,-4.022D+00/ DATA(kap(i),i= 9739, 9792) 1/-3.843D+00,-3.582D+00,-3.263D+00,-2.929D+00,-2.618D+00,-2.361D+00, 2 -2.165D+00,-2.019D+00,-1.910D+00,-4.550D+00,-4.296D+00,-4.124D+00, 3 -4.029D+00,-4.007D+00,-4.013D+00,-4.009D+00,-3.978D+00,-3.909D+00, 4 -3.800D+00,-3.619D+00,-3.371D+00,-3.067D+00,-2.734D+00,-2.406D+00, 5 -2.119D+00,-1.891D+00,-1.721D+00,-1.595D+00,-4.557D+00,-4.293D+00, 6 -4.110D+00,-4.003D+00,-3.969D+00,-3.948D+00,-3.912D+00,-3.842D+00, 7 -3.733D+00,-3.585D+00,-3.386D+00,-3.140D+00,-2.854D+00,-2.539D+00, 8 -2.208D+00,-1.900D+00,-1.645D+00,-1.447D+00,-1.299D+00,-4.505D+00, 9 -4.251D+00,-4.078D+00,-3.980D+00,-3.954D+00,-3.916D+00,-3.852D+00/ DATA(kap(i),i= 9793, 9846) 1/-3.745D+00,-3.591D+00,-3.397D+00,-3.166D+00,-2.907D+00,-2.628D+00, 2 -2.329D+00,-2.012D+00,-1.699D+00,-1.421D+00,-1.198D+00,-1.027D+00, 3 -4.377D+00,-4.154D+00,-4.010D+00,-3.941D+00,-3.935D+00,-3.899D+00, 4 -3.819D+00,-3.680D+00,-3.483D+00,-3.240D+00,-2.971D+00,-2.688D+00, 5 -2.401D+00,-2.109D+00,-1.806D+00,-1.501D+00,-1.214D+00,-9.696D-01, 6 -7.774D-01,-4.112D+00,-3.949D+00,-3.864D+00,-3.854D+00,-3.887D+00, 7 -3.870D+00,-3.793D+00,-3.640D+00,-3.413D+00,-3.123D+00,-2.810D+00, 8 -2.496D+00,-2.190D+00,-1.891D+00,-1.594D+00,-1.298D+00,-1.011D+00, 9 -7.557D-01,-5.466D-01,-3.739D+00,-3.649D+00,-3.637D+00,-3.699D+00/ DATA(kap(i),i= 9847, 9900) 1/-3.783D+00,-3.810D+00,-3.760D+00,-3.615D+00,-3.379D+00,-3.049D+00, 2 -2.692D+00,-2.341D+00,-2.006D+00,-1.689D+00,-1.387D+00,-1.090D+00, 3 -8.069D-01,-5.474D-01,-3.276D-01,-3.359D+00,-3.325D+00,-3.369D+00, 4 -3.486D+00,-3.613D+00,-3.691D+00,-3.690D+00,-3.576D+00,-3.352D+00, 5 -3.006D+00,-2.613D+00,-2.223D+00,-1.854D+00,-1.513D+00,-1.193D+00, 6 -8.910D-01,-6.037D-01,-3.417D-01,-1.177D-01,-2.992D+00,-2.998D+00, 7 -3.082D+00,-3.238D+00,-3.395D+00,-3.511D+00,-3.556D+00,-3.490D+00, 8 -3.297D+00,-2.965D+00,-2.559D+00,-2.139D+00,-1.738D+00,-1.366D+00, 9 -1.022D+00,-7.058D-01,-4.096D-01,-1.422D-01, 8.659D-02,-2.634D+00/ DATA(kap(i),i= 9901, 9954) 1/-2.673D+00,-2.787D+00,-2.973D+00,-3.149D+00,-3.289D+00,-3.366D+00, 2 -3.340D+00,-3.187D+00,-2.897D+00,-2.510D+00,-2.080D+00,-1.652D+00, 3 -1.249D+00,-8.789D-01,-5.395D-01,-2.303D-01, 4.559D-02, 2.832D-01, 4 -2.286D+00,-2.350D+00,-2.490D+00,-2.697D+00,-2.885D+00,-3.040D+00, 5 -3.134D+00,-3.131D+00,-3.006D+00,-2.767D+00,-2.428D+00,-2.022D+00, 6 -1.586D+00,-1.161D+00,-7.618D-01,-3.970D-01,-6.839D-02, 2.200D-01, 7 4.673D-01,-1.950D+00,-2.037D+00,-2.198D+00,-2.411D+00,-2.606D+00, 8 -2.767D+00,-2.866D+00,-2.879D+00,-2.770D+00,-2.564D+00,-2.279D+00, 9 -1.927D+00,-1.520D+00,-1.089D+00,-6.697D-01,-2.782D-01, 7.175D-02/ DATA(kap(i),i= 9955,10008) 1/ 3.783D-01, 6.379D-01,-1.484D+00,-1.594D+00,-1.778D+00,-1.992D+00, 2 -2.189D+00,-2.353D+00,-2.455D+00,-2.479D+00,-2.380D+00,-2.198D+00, 3 -1.961D+00,-1.680D+00,-1.348D+00,-9.690D-01,-5.527D-01,-1.384D-01, 4 2.446D-01, 5.798D-01, 8.636D-01,-1.075D+00,-1.196D+00,-1.388D+00, 5 -1.591D+00,-1.781D+00,-1.939D+00,-2.035D+00,-2.052D+00,-1.959D+00, 6 -1.793D+00,-1.581D+00,-1.340D+00,-1.067D+00,-7.568D-01,-4.008D-01, 7 -8.079D-03, 3.856D-01, 7.444D-01, 1.056D+00,-9.576D-01,-1.088D+00, 8 -1.263D+00,-1.449D+00,-1.622D+00,-1.769D+00,-1.895D+00,-1.911D+00, 9 -1.845D+00,-1.698D+00,-1.519D+00,-1.290D+00,-1.042D+00,-7.623D-01/ DATA(kap(i),i=10009,10062) 1/-4.453D-01,-8.573D-02, 3.032D-01, 6.801D-01, 1.038D+00,-8.170D-01, 2 -8.120D-01,-8.330D-01,-8.810D-01,-9.430D-01,-1.018D+00,-1.072D+00, 3 -1.087D+00,-1.066D+00,-9.840D-01,-8.560D-01,-6.940D-01,-5.040D-01, 4 -2.950D-01,-7.000D-02, 1.830D-01, 4.610D-01, 7.390D-01, 1.017D+00, 5 -8.040D-01,-7.820D-01,-7.280D-01,-6.430D-01,-5.460D-01,-4.390D-01, 6 -3.420D-01,-2.640D-01,-1.950D-01,-1.100D-01,-1.300D-02, 1.040D-01, 7 2.480D-01, 4.140D-01, 6.000D-01, 8.010D-01, 1.027D+00, 1.253D+00, 8 1.479D+00,-8.070D-01,-7.860D-01,-7.250D-01,-6.220D-01,-4.530D-01, 9 -2.190D-01, 4.200D-02, 2.730D-01, 4.550D-01, 5.920D-01, 6.990D-01/ DATA(kap(i),i=10063,10116) 1/ 8.060D-01, 9.210D-01, 1.048D+00, 1.198D+00, 1.366D+00, 1.556D+00, 2 1.746D+00, 1.936D+00,-7.800D-01,-7.810D-01,-7.330D-01,-6.370D-01, 3 -4.540D-01,-1.820D-01, 1.550D-01, 5.070D-01, 8.210D-01, 1.065D+00, 4 1.229D+00, 1.355D+00, 1.464D+00, 1.577D+00, 1.703D+00, 1.849D+00, 5 2.012D+00, 2.175D+00, 2.338D+00,-6.890D-01,-7.170D-01,-6.950D-01, 6 -6.230D-01,-4.500D-01,-1.750D-01, 1.850D-01, 5.930D-01, 9.990D-01, 7 1.341D+00, 1.591D+00, 1.771D+00, 1.904D+00, 2.018D+00, 2.133D+00, 8 2.255D+00, 2.395D+00, 2.535D+00, 2.736D+00,-6.380D-01,-6.390D-01, 9 -6.220D-01,-5.850D-01,-4.430D-01,-1.940D-01, 1.550D-01, 5.730D-01/ DATA(kap(i),i=10117,10170) 1/ 1.017D+00, 1.430D+00, 1.773D+00, 2.023D+00, 2.205D+00, 2.345D+00, 2 2.466D+00, 2.589D+00, 2.719D+00, 2.849D+00, 3.032D+00,-6.020D-01, 3 -5.920D-01,-5.480D-01,-4.700D-01,-3.240D-01,-1.100D-01, 1.660D-01, 4 5.220D-01, 9.520D-01, 1.416D+00, 1.870D+00, 2.260D+00, 2.564D+00, 5 2.786D+00, 2.957D+00, 3.094D+00, 3.222D+00, 3.350D+00, 3.482D+00, 6 -5.900D-01,-5.600D-01,-5.070D-01,-4.320D-01,-2.740D-01,-3.200D-02, 7 2.580D-01, 5.900D-01, 9.560D-01, 1.378D+00, 1.844D+00, 2.299D+00, 8 2.710D+00, 3.025D+00, 3.257D+00, 3.432D+00, 3.572D+00, 3.680D+00, 9 3.825D+00,-5.910D-01,-5.640D-01,-5.070D-01,-4.200D-01,-2.570D-01/ DATA(kap(i),i=10171,10224) 1/-2.000D-02, 2.740D-01, 6.330D-01, 1.025D+00, 1.424D+00, 1.848D+00, 2 2.315D+00, 2.773D+00, 3.165D+00, 3.463D+00, 3.679D+00, 3.795D+00, 3 3.956D+00, 4.109D+00,-5.780D-01,-5.540D-01,-5.060D-01,-4.340D-01, 4 -2.760D-01,-3.200D-02, 2.620D-01, 6.270D-01, 1.038D+00, 1.474D+00, 5 1.902D+00, 2.336D+00, 2.803D+00, 3.240D+00, 3.595D+00, 3.870D+00, 6 4.004D+00, 4.181D+00, 4.344D+00,-5.170D-01,-4.990D-01,-4.570D-01, 7 -3.920D-01,-2.530D-01,-4.000D-02, 2.460D-01, 6.300D-01, 1.060D+00, 8 1.549D+00, 2.033D+00, 2.521D+00, 2.981D+00, 3.434D+00, 3.838D+00, 9 4.108D+00, 4.393D+00, 4.632D+00, 4.804D+00,-4.380D-01,-4.060D-01/ DATA(kap(i),i=10225,10278) 1/-3.560D-01,-2.870D-01,-1.520D-01, 4.700D-02, 3.030D-01, 6.660D-01, 2 1.114D+00, 1.603D+00, 2.112D+00, 2.641D+00, 3.156D+00, 3.646D+00, 3 3.951D+00, 4.333D+00, 4.686D+00, 4.947D+00, 5.056D+00,-4.160D-01, 4 -3.860D-01,-3.070D-01,-1.780D-01,-4.000D-03, 2.150D-01, 4.600D-01, 5 7.930D-01, 1.220D+00, 1.696D+00, 2.210D+00, 2.735D+00, 3.268D+00, 6 3.783D+00, 4.085D+00, 4.500D+00, 4.869D+00, 5.113D+00, 5.175D+00, 7 -4.150D-01,-3.820D-01,-3.000D-01,-1.690D-01, 4.200D-02, 3.350D-01, 8 6.530D-01, 9.930D-01, 1.381D+00, 1.831D+00, 2.316D+00, 2.818D+00, 9 3.352D+00, 3.722D+00, 4.182D+00, 4.617D+00, 4.979D+00, 5.204D+00/ DATA(kap(i),i=10279,10332) 1/ 5.234D+00,-4.300D-01,-3.960D-01,-3.160D-01,-1.880D-01, 2.600D-02, 2 3.260D-01, 7.250D-01, 1.142D+00, 1.552D+00, 1.969D+00, 2.414D+00, 3 2.901D+00, 3.405D+00, 3.787D+00, 4.252D+00, 4.690D+00, 5.039D+00, 4 5.246D+00, 5.261D+00,-4.390D-01,-4.110D-01,-3.380D-01,-2.190D-01, 5 -9.000D-03, 2.940D-01, 6.780D-01, 1.143D+00, 1.633D+00, 2.077D+00, 6 2.513D+00, 2.972D+00, 3.450D+00, 3.836D+00, 4.302D+00, 4.728D+00, 7 5.061D+00, 5.255D+00, 5.255D+00,-4.500D-01,-4.180D-01,-3.510D-01, 8 -2.490D-01,-5.400D-02, 2.340D-01, 6.240D-01, 1.072D+00, 1.584D+00, 9 2.084D+00, 2.557D+00, 3.014D+00, 3.404D+00, 3.878D+00, 4.325D+00/ DATA(kap(i),i=10333,10386) 1/ 4.723D+00, 5.026D+00, 5.196D+00, 5.196D+00,-4.510D-01,-4.250D-01, 2 -3.640D-01,-2.680D-01,-8.000D-02, 1.980D-01, 5.660D-01, 1.001D+00, 3 1.504D+00, 2.031D+00, 2.550D+00, 3.032D+00, 3.441D+00, 3.899D+00, 4 4.328D+00, 4.701D+00, 4.979D+00, 5.131D+00, 5.131D+00,-4.500D-01, 5 -4.210D-01,-3.660D-01,-2.850D-01,-1.160D-01, 1.430D-01, 4.820D-01, 6 8.980D-01, 1.383D+00, 1.903D+00, 2.445D+00, 2.992D+00, 3.469D+00, 7 3.901D+00, 4.305D+00, 4.641D+00, 4.883D+00, 4.883D+00, 4.883D+00, 8 -4.500D-01,-4.150D-01,-3.590D-01,-2.820D-01,-1.240D-01, 1.130D-01, 9 4.440D-01, 8.420D-01, 1.316D+00, 1.833D+00, 2.364D+00, 2.962D+00/ DATA(kap(i),i=10387,10440) 1/ 3.449D+00, 3.902D+00, 4.313D+00, 4.632D+00, 4.839D+00, 4.839D+00, 2 4.839D+00,-4.320D-01,-4.060D-01,-3.520D-01,-2.690D-01,-1.150D-01, 3 1.110D-01, 4.310D-01, 8.330D-01, 1.286D+00, 1.797D+00, 2.375D+00, 4 2.924D+00, 3.432D+00, 3.913D+00, 4.330D+00, 4.634D+00, 4.804D+00, 5 4.804D+00, 4.804D+00,-3.930D-01,-3.640D-01,-3.150D-01,-2.450D-01, 6 -9.900D-02, 1.240D-01, 4.440D-01, 8.400D-01, 1.290D+00, 1.786D+00, 7 2.333D+00, 2.895D+00, 3.426D+00, 3.930D+00, 4.347D+00, 4.628D+00, 8 4.742D+00, 4.655D+00, 4.464D+00,-2.420D-01,-2.310D-01,-1.940D-01, 9 -1.300D-01, 4.000D-03, 2.090D-01, 5.160D-01, 9.160D-01, 1.360D+00/ DATA(kap(i),i=10441,10494) 1/ 1.742D+00, 2.330D+00, 2.897D+00, 3.433D+00, 3.905D+00, 4.268D+00, 2 4.478D+00, 4.461D+00, 4.319D+00, 4.319D+00,-9.100D-02,-3.700D-02, 3 3.300D-02, 1.190D-01, 2.550D-01, 4.420D-01, 7.080D-01, 1.055D+00, 4 1.480D+00, 1.765D+00, 2.342D+00, 2.891D+00, 3.381D+00, 3.780D+00, 5 4.058D+00, 4.147D+00, 4.081D+00, 4.081D+00, 4.081D+00,-2.690D-01, 6 -1.830D-01,-5.600D-02, 1.140D-01, 3.360D-01, 6.110D-01, 9.040D-01, 7 1.235D+00, 1.602D+00, 2.004D+00, 2.438D+00, 2.867D+00, 3.236D+00, 8 3.467D+00, 3.655D+00, 3.702D+00, 3.635D+00, 3.635D+00, 3.635D+00, 9 -4.480D-01,-3.720D-01,-2.600D-01,-1.130D-01, 1.130D-01, 4.170D-01/ DATA(kap(i),i=10495,10548) 1/ 7.710D-01, 1.166D+00, 1.555D+00, 1.945D+00, 2.342D+00, 2.717D+00, 2 3.026D+00, 3.220D+00, 3.355D+00, 3.370D+00, 3.370D+00, 3.370D+00, 3 3.370D+00,-5.300D-01,-4.860D-01,-4.000D-01,-2.720D-01,-5.700D-02, 4 2.430D-01, 6.310D-01, 1.070D+00, 1.469D+00, 1.863D+00, 2.235D+00, 5 2.573D+00, 2.852D+00, 3.009D+00, 3.110D+00, 3.121D+00, 3.121D+00, 6 3.121D+00, 3.121D+00,-5.570D-01,-5.480D-01,-5.170D-01,-4.650D-01, 7 -3.020D-01,-2.600D-02, 3.770D-01, 8.690D-01, 1.307D+00, 1.714D+00, 8 2.066D+00, 2.366D+00, 2.611D+00, 2.680D+00, 2.772D+00, 2.772D+00, 9 2.772D+00, 2.772D+00, 2.772D+00,-5.620D-01,-5.520D-01,-5.370D-01/ DATA(kap(i),i=10549,10602) 1/-5.150D-01,-4.120D-01,-2.250D-01, 1.230D-01, 6.200D-01, 1.137D+00, 2 1.589D+00, 1.947D+00, 2.240D+00, 2.471D+00, 2.469D+00, 2.469D+00, 3 2.469D+00, 2.469D+00, 2.469D+00, 2.469D+00,-5.630D-01,-5.580D-01, 4 -5.420D-01,-5.150D-01,-4.370D-01,-3.060D-01,-3.300D-02, 4.040D-01, 5 9.480D-01, 1.457D+00, 1.847D+00, 2.147D+00, 2.381D+00, 2.377D+00, 6 2.513D+00, 2.652D+00, 2.801D+00, 2.953D+00, 2.953D+00,-5.630D-01, 7 -5.580D-01,-5.450D-01,-5.240D-01,-4.580D-01,-3.470D-01,-1.360D-01, 8 2.160D-01, 6.930D-01, 1.224D+00, 1.669D+00, 1.998D+00, 2.252D+00, 9 2.280D+00, 2.433D+00, 2.584D+00, 2.760D+00, 2.760D+00, 2.760D+00/ DATA(kap(i),i=10603,10656) 1/-5.570D-01,-5.540D-01,-5.420D-01,-5.200D-01,-4.620D-01,-3.670D-01, 2 -1.710D-01, 1.280D-01, 5.680D-01, 1.076D+00, 1.539D+00, 1.900D+00, 3 2.173D+00, 2.401D+00, 2.362D+00, 2.523D+00, 2.755D+00, 2.951D+00, 4 3.147D+00,-5.530D-01,-5.440D-01,-5.290D-01,-5.090D-01,-4.550D-01, 5 -3.680D-01,-1.860D-01, 9.800D-02, 5.070D-01, 9.900D-01, 1.461D+00, 6 1.838D+00, 2.126D+00, 2.353D+00, 2.315D+00, 2.483D+00, 2.658D+00, 7 2.855D+00, 2.855D+00,-5.620D-01,-5.490D-01,-5.260D-01,-4.930D-01, 8 -4.340D-01,-3.490D-01,-1.940D-01, 7.200D-02, 4.620D-01, 9.290D-01, 9 1.397D+00, 1.778D+00, 2.062D+00, 2.263D+00, 2.236D+00, 2.341D+00/ DATA(kap(i),i=10657,10710) 1/ 2.540D+00, 2.540D+00, 2.540D+00,-5.690D-01,-5.690D-01,-5.560D-01, 2 -5.290D-01,-4.600D-01,-3.480D-01,-1.730D-01, 8.400D-02, 4.290D-01, 3 8.760D-01, 1.314D+00, 1.664D+00, 1.908D+00, 2.062D+00, 2.010D+00, 4 2.135D+00, 2.366D+00, 2.591D+00, 2.791D+00,-5.710D-01,-5.700D-01, 5 -5.640D-01,-5.540D-01,-5.000D-01,-4.020D-01,-2.150D-01, 7.600D-02, 6 4.350D-01, 8.450D-01, 1.221D+00, 1.512D+00, 1.720D+00, 1.859D+00, 7 1.794D+00, 1.974D+00, 2.219D+00, 2.444D+00, 2.444D+00,-5.710D-01, 8 -5.700D-01,-5.660D-01,-5.590D-01,-5.180D-01,-4.420D-01,-2.830D-01, 9 1.000D-03, 3.870D-01, 7.770D-01, 1.103D+00, 1.351D+00, 1.538D+00/ DATA(kap(i),i=10711,10764) 1/ 1.682D+00, 1.635D+00, 1.862D+00, 2.100D+00, 2.345D+00, 2.345D+00, 2 -5.730D-01,-5.700D-01,-5.680D-01,-5.670D-01,-5.390D-01,-4.850D-01, 3 -3.730D-01,-1.430D-01, 2.130D-01, 5.750D-01, 8.580D-01, 1.073D+00, 4 1.249D+00, 1.414D+00, 1.418D+00, 1.675D+00, 1.951D+00, 1.951D+00, 5 1.951D+00,-5.740D-01,-5.720D-01,-5.710D-01,-5.700D-01,-5.500D-01, 6 -5.130D-01,-4.290D-01,-2.480D-01, 5.100D-02, 3.780D-01, 6.470D-01, 7 8.530D-01, 1.032D+00, 1.217D+00, 1.267D+00, 1.567D+00, 1.567D+00, 8 1.567D+00, 1.567D+00,-5.750D-01,-5.740D-01,-5.730D-01,-5.710D-01, 9 -5.570D-01,-5.310D-01,-4.640D-01,-3.180D-01,-7.100D-02, 2.190D-01/ DATA(kap(i),i=10765,10818) 1/ 4.730D-01, 6.780D-01, 8.670D-01, 1.071D+00, 1.136D+00, 1.450D+00, 2 1.758D+00, 2.029D+00, 2.029D+00,-5.770D-01,-5.760D-01,-5.750D-01, 3 -5.740D-01,-5.640D-01,-5.470D-01,-5.050D-01,-4.080D-01,-2.320D-01, 4 -1.000D-03, 2.250D-01, 4.390D-01, 6.560D-01, 8.810D-01, 9.968D-01, 5 1.329D+00, 1.617D+00, 1.617D+00, 1.617D+00,-5.790D-01,-5.780D-01, 6 -5.760D-01,-5.740D-01,-5.650D-01,-5.500D-01,-5.180D-01,-4.480D-01, 7 -3.130D-01,-1.250D-01, 8.700D-02, 3.060D-01, 5.380D-01, 7.630D-01, 8 9.242D-01, 1.232D+00, 1.524D+00, 1.823D+00, 2.121D+00,-5.840D-01, 9 -5.830D-01,-5.820D-01,-5.820D-01,-5.730D-01,-5.540D-01,-5.230D-01/ DATA(kap(i),i=10819,10872) 1/-4.600D-01,-3.570D-01,-2.180D-01,-4.400D-02, 1.540D-01, 3.420D-01, 2 5.620D-01, 7.431D-01, 1.053D+00, 1.397D+00, 1.397D+00, 1.397D+00, 3 -5.890D-01,-5.880D-01,-5.880D-01,-5.890D-01,-5.830D-01,-5.700D-01, 4 -5.440D-01,-4.850D-01,-3.850D-01,-2.570D-01,-1.170D-01, 3.000D-02, 5 1.870D-01, 4.090D-01, 6.252D-01, 9.613D-01, 1.354D+00, 1.740D+00, 6 2.117D+00,-5.980D-01,-5.980D-01,-5.980D-01,-5.990D-01,-5.960D-01, 7 -5.900D-01,-5.750D-01,-5.430D-01,-4.720D-01,-3.790D-01,-2.720D-01, 8 -1.570D-01, 0.000D+00, 2.250D-01, 5.160D-01, 8.449D-01, 1.276D+00, 9 1.706D+00, 1.706D+00,-6.080D-01,-6.070D-01,-6.080D-01,-6.080D-01/ DATA(kap(i),i=10873,10926) 1/-6.060D-01,-6.020D-01,-5.930D-01,-5.740D-01,-5.270D-01,-4.600D-01, 2 -3.730D-01,-2.660D-01,-1.140D-01, 1.090D-01, 4.040D-01, 8.143D-01, 3 1.283D+00, 1.283D+00, 1.283D+00,-6.260D-01,-6.260D-01,-6.260D-01, 4 -6.260D-01,-6.250D-01,-6.230D-01,-6.180D-01,-6.080D-01,-5.810D-01, 5 -5.380D-01,-4.770D-01,-3.900D-01,-2.580D-01,-3.900D-02, 2.812D-01, 6 7.457D-01, 1.320D+00, 1.876D+00, 1.876D+00,-6.440D-01,-6.440D-01, 7 -6.440D-01,-6.440D-01,-6.430D-01,-6.410D-01,-6.400D-01,-6.320D-01, 8 -6.140D-01,-5.830D-01,-5.380D-01,-4.720D-01,-3.570D-01,-1.380D-01, 9 2.491D-01, 7.752D-01, 1.423D+00, 1.423D+00, 1.423D+00,-6.620D-01/ DATA(kap(i),i=10927,10944) 1/-6.620D-01,-6.620D-01,-6.630D-01,-6.620D-01,-6.600D-01,-6.570D-01, 2 -6.540D-01,-6.390D-01,-6.180D-01,-5.880D-01,-5.380D-01,-4.330D-01, 3 -2.170D-01, 1.588D-01, 7.100D-01, 1.599D+00, 2.317D+00, 3.036D+00/ c table: DATA/klgx70z030.dat DATA(kap(i),i=10945,10998) 1/-5.945D+00,-5.611D+00,-5.364D+00,-5.199D+00,-5.112D+00,-5.101D+00, 2 -5.149D+00,-5.192D+00,-5.217D+00,-5.227D+00,-5.225D+00,-5.220D+00, 3 -5.201D+00,-5.158D+00,-5.085D+00,-4.977D+00,-4.830D+00,-4.662D+00, 4 -4.480D+00,-5.911D+00,-5.565D+00,-5.305D+00,-5.127D+00,-5.028D+00, 5 -5.003D+00,-5.028D+00,-5.057D+00,-5.071D+00,-5.056D+00,-5.017D+00, 6 -4.964D+00,-4.914D+00,-4.855D+00,-4.782D+00,-4.681D+00,-4.542D+00, 7 -4.397D+00,-4.251D+00,-5.882D+00,-5.529D+00,-5.262D+00,-5.077D+00, 8 -4.969D+00,-4.934D+00,-4.938D+00,-4.940D+00,-4.933D+00,-4.895D+00, 9 -4.826D+00,-4.717D+00,-4.614D+00,-4.523D+00,-4.438D+00,-4.336D+00/ DATA(kap(i),i=10999,11052) 1/-4.211D+00,-4.076D+00,-3.939D+00,-5.624D+00,-5.309D+00,-5.080D+00, 2 -4.931D+00,-4.860D+00,-4.862D+00,-4.868D+00,-4.853D+00,-4.818D+00, 3 -4.750D+00,-4.645D+00,-4.492D+00,-4.330D+00,-4.191D+00,-4.077D+00, 4 -3.973D+00,-3.857D+00,-3.741D+00,-3.615D+00,-5.223D+00,-4.967D+00, 5 -4.796D+00,-4.705D+00,-4.690D+00,-4.748D+00,-4.785D+00,-4.776D+00, 6 -4.726D+00,-4.627D+00,-4.478D+00,-4.279D+00,-4.070D+00,-3.882D+00, 7 -3.729D+00,-3.604D+00,-3.495D+00,-3.391D+00,-3.282D+00,-4.894D+00, 8 -4.674D+00,-4.539D+00,-4.483D+00,-4.503D+00,-4.594D+00,-4.660D+00, 9 -4.676D+00,-4.634D+00,-4.523D+00,-4.338D+00,-4.093D+00,-3.836D+00/ DATA(kap(i),i=11053,11106) 1/-3.603D+00,-3.408D+00,-3.254D+00,-3.134D+00,-3.035D+00,-2.939D+00, 2 -4.681D+00,-4.472D+00,-4.346D+00,-4.299D+00,-4.328D+00,-4.417D+00, 3 -4.488D+00,-4.520D+00,-4.492D+00,-4.394D+00,-4.199D+00,-3.929D+00, 4 -3.630D+00,-3.351D+00,-3.117D+00,-2.928D+00,-2.788D+00,-2.683D+00, 5 -2.590D+00,-4.592D+00,-4.370D+00,-4.231D+00,-4.171D+00,-4.185D+00, 6 -4.250D+00,-4.307D+00,-4.334D+00,-4.309D+00,-4.223D+00,-4.038D+00, 7 -3.765D+00,-3.445D+00,-3.129D+00,-2.854D+00,-2.631D+00,-2.464D+00, 8 -2.341D+00,-2.246D+00,-4.555D+00,-4.317D+00,-4.161D+00,-4.082D+00, 9 -4.078D+00,-4.114D+00,-4.142D+00,-4.146D+00,-4.107D+00,-4.022D+00/ DATA(kap(i),i=11107,11160) 1/-3.843D+00,-3.582D+00,-3.263D+00,-2.929D+00,-2.618D+00,-2.361D+00, 2 -2.165D+00,-2.019D+00,-1.910D+00,-4.550D+00,-4.296D+00,-4.124D+00, 3 -4.029D+00,-4.007D+00,-4.013D+00,-4.009D+00,-3.978D+00,-3.909D+00, 4 -3.800D+00,-3.619D+00,-3.371D+00,-3.067D+00,-2.734D+00,-2.406D+00, 5 -2.119D+00,-1.891D+00,-1.721D+00,-1.595D+00,-4.557D+00,-4.293D+00, 6 -4.110D+00,-4.003D+00,-3.969D+00,-3.948D+00,-3.912D+00,-3.842D+00, 7 -3.733D+00,-3.585D+00,-3.386D+00,-3.140D+00,-2.854D+00,-2.539D+00, 8 -2.208D+00,-1.900D+00,-1.645D+00,-1.447D+00,-1.299D+00,-4.505D+00, 9 -4.251D+00,-4.078D+00,-3.980D+00,-3.954D+00,-3.916D+00,-3.852D+00/ DATA(kap(i),i=11161,11214) 1/-3.745D+00,-3.591D+00,-3.397D+00,-3.166D+00,-2.907D+00,-2.628D+00, 2 -2.329D+00,-2.012D+00,-1.699D+00,-1.421D+00,-1.198D+00,-1.027D+00, 3 -4.377D+00,-4.154D+00,-4.010D+00,-3.941D+00,-3.935D+00,-3.899D+00, 4 -3.819D+00,-3.680D+00,-3.483D+00,-3.240D+00,-2.971D+00,-2.688D+00, 5 -2.401D+00,-2.109D+00,-1.806D+00,-1.501D+00,-1.214D+00,-9.696D-01, 6 -7.774D-01,-4.112D+00,-3.949D+00,-3.864D+00,-3.854D+00,-3.887D+00, 7 -3.870D+00,-3.793D+00,-3.640D+00,-3.413D+00,-3.123D+00,-2.810D+00, 8 -2.496D+00,-2.190D+00,-1.891D+00,-1.594D+00,-1.298D+00,-1.011D+00, 9 -7.557D-01,-5.466D-01,-3.739D+00,-3.649D+00,-3.637D+00,-3.699D+00/ DATA(kap(i),i=11215,11268) 1/-3.783D+00,-3.810D+00,-3.760D+00,-3.615D+00,-3.379D+00,-3.049D+00, 2 -2.692D+00,-2.341D+00,-2.006D+00,-1.689D+00,-1.387D+00,-1.090D+00, 3 -8.069D-01,-5.474D-01,-3.276D-01,-3.359D+00,-3.325D+00,-3.369D+00, 4 -3.486D+00,-3.613D+00,-3.691D+00,-3.690D+00,-3.576D+00,-3.352D+00, 5 -3.006D+00,-2.613D+00,-2.223D+00,-1.854D+00,-1.513D+00,-1.193D+00, 6 -8.910D-01,-6.037D-01,-3.417D-01,-1.177D-01,-2.992D+00,-2.998D+00, 7 -3.082D+00,-3.238D+00,-3.395D+00,-3.511D+00,-3.556D+00,-3.490D+00, 8 -3.297D+00,-2.965D+00,-2.559D+00,-2.139D+00,-1.738D+00,-1.366D+00, 9 -1.022D+00,-7.058D-01,-4.096D-01,-1.422D-01, 8.659D-02,-2.634D+00/ DATA(kap(i),i=11269,11322) 1/-2.673D+00,-2.787D+00,-2.973D+00,-3.149D+00,-3.289D+00,-3.366D+00, 2 -3.340D+00,-3.187D+00,-2.897D+00,-2.510D+00,-2.080D+00,-1.652D+00, 3 -1.249D+00,-8.789D-01,-5.395D-01,-2.303D-01, 4.559D-02, 2.832D-01, 4 -2.286D+00,-2.350D+00,-2.490D+00,-2.697D+00,-2.885D+00,-3.040D+00, 5 -3.134D+00,-3.131D+00,-3.006D+00,-2.767D+00,-2.428D+00,-2.022D+00, 6 -1.586D+00,-1.161D+00,-7.618D-01,-3.970D-01,-6.839D-02, 2.200D-01, 7 4.673D-01,-1.950D+00,-2.037D+00,-2.198D+00,-2.411D+00,-2.606D+00, 8 -2.767D+00,-2.866D+00,-2.879D+00,-2.770D+00,-2.564D+00,-2.279D+00, 9 -1.927D+00,-1.520D+00,-1.089D+00,-6.697D-01,-2.782D-01, 7.175D-02/ DATA(kap(i),i=11323,11376) 1/ 3.783D-01, 6.379D-01,-1.484D+00,-1.594D+00,-1.778D+00,-1.992D+00, 2 -2.189D+00,-2.353D+00,-2.455D+00,-2.479D+00,-2.380D+00,-2.198D+00, 3 -1.961D+00,-1.680D+00,-1.348D+00,-9.690D-01,-5.527D-01,-1.384D-01, 4 2.446D-01, 5.798D-01, 8.636D-01,-1.075D+00,-1.196D+00,-1.388D+00, 5 -1.591D+00,-1.781D+00,-1.939D+00,-2.035D+00,-2.052D+00,-1.959D+00, 6 -1.793D+00,-1.581D+00,-1.340D+00,-1.067D+00,-7.568D-01,-4.008D-01, 7 -8.079D-03, 3.856D-01, 7.444D-01, 1.056D+00,-8.836D-01,-9.968D-01, 8 -1.176D+00,-1.367D+00,-1.546D+00,-1.693D+00,-1.781D+00,-1.790D+00, 9 -1.702D+00,-1.545D+00,-1.344D+00,-1.116D+00,-8.629D-01,-5.796D-01/ DATA(kap(i),i=11377,11430) 1/-2.588D-01, 1.006D-01, 4.760D-01, 8.320D-01, 1.154D+00,-5.241D-01, 2 -5.304D-01,-5.634D-01,-6.211D-01,-6.901D-01,-7.512D-01,-7.926D-01, 3 -7.732D-01,-7.020D-01,-5.845D-01,-4.329D-01,-2.518D-01,-5.468D-02, 4 1.653D-01, 4.033D-01, 6.662D-01, 9.455D-01, 1.233D+00, 1.528D+00, 5 -4.864D-01,-4.485D-01,-3.861D-01,-2.969D-01,-1.929D-01,-9.061D-02, 6 2.707D-03, 8.622D-02, 1.699D-01, 2.658D-01, 3.787D-01, 5.118D-01, 7 6.663D-01, 8.401D-01, 1.034D+00, 1.249D+00, 1.475D+00, 1.708D+00, 8 1.953D+00,-4.988D-01,-4.583D-01,-3.784D-01,-2.387D-01,-3.223D-02, 9 2.192D-01, 4.759D-01, 6.848D-01, 8.400D-01, 9.591D-01, 1.064D+00/ DATA(kap(i),i=11431,11484) 1/ 1.171D+00, 1.289D+00, 1.423D+00, 1.579D+00, 1.756D+00, 1.945D+00, 2 2.143D+00, 2.358D+00,-5.031D-01,-4.763D-01,-3.978D-01,-2.547D-01, 3 -2.327D-02, 2.975D-01, 6.578D-01, 1.000D+00, 1.265D+00, 1.457D+00, 4 1.593D+00, 1.700D+00, 1.801D+00, 1.912D+00, 2.036D+00, 2.184D+00, 5 2.347D+00, 2.518D+00, 2.697D+00,-4.780D-01,-4.690D-01,-3.970D-01, 6 -2.630D-01,-2.900D-02, 3.040D-01, 6.980D-01, 1.110D+00, 1.487D+00, 7 1.773D+00, 1.975D+00, 2.121D+00, 2.233D+00, 2.336D+00, 2.446D+00, 8 2.567D+00, 2.712D+00, 2.857D+00, 3.114D+00,-4.550D-01,-4.470D-01, 9 -3.850D-01,-2.710D-01,-6.000D-02, 2.630D-01, 6.620D-01, 1.100D+00/ DATA(kap(i),i=11485,11538) 1/ 1.538D+00, 1.911D+00, 2.200D+00, 2.400D+00, 2.549D+00, 2.665D+00, 2 2.779D+00, 2.898D+00, 3.027D+00, 3.156D+00, 3.391D+00,-4.300D-01, 3 -4.160D-01,-3.570D-01,-2.510D-01,-6.700D-02, 2.150D-01, 5.710D-01, 4 1.002D+00, 1.473D+00, 1.942D+00, 2.365D+00, 2.703D+00, 2.952D+00, 5 3.133D+00, 3.272D+00, 3.402D+00, 3.524D+00, 3.646D+00, 3.840D+00, 6 -4.130D-01,-3.880D-01,-3.250D-01,-2.220D-01,-5.200D-02, 2.140D-01, 7 5.430D-01, 9.400D-01, 1.388D+00, 1.877D+00, 2.361D+00, 2.797D+00, 8 3.156D+00, 3.418D+00, 3.604D+00, 3.756D+00, 3.891D+00, 4.035D+00, 9 4.185D+00,-4.140D-01,-3.910D-01,-3.230D-01,-2.110D-01,-4.600D-02/ DATA(kap(i),i=11539,11592) 1/ 2.040D-01, 5.190D-01, 9.130D-01, 1.358D+00, 1.834D+00, 2.324D+00, 2 2.815D+00, 3.254D+00, 3.590D+00, 3.847D+00, 4.035D+00, 4.168D+00, 3 4.317D+00, 4.464D+00,-4.050D-01,-3.860D-01,-3.260D-01,-2.270D-01, 4 -6.100D-02, 1.900D-01, 4.950D-01, 8.810D-01, 1.325D+00, 1.799D+00, 5 2.299D+00, 2.804D+00, 3.288D+00, 3.701D+00, 4.014D+00, 4.248D+00, 6 4.383D+00, 4.550D+00, 4.689D+00,-3.640D-01,-3.360D-01,-2.770D-01, 7 -1.850D-01,-4.700D-02, 1.800D-01, 4.900D-01, 8.910D-01, 1.344D+00, 8 1.836D+00, 2.359D+00, 2.875D+00, 3.388D+00, 3.876D+00, 4.298D+00, 9 4.524D+00, 4.787D+00, 5.002D+00, 5.170D+00,-3.370D-01,-2.980D-01/ DATA(kap(i),i=11593,11646) 1/-2.220D-01,-1.100D-01, 3.200D-02, 2.530D-01, 5.350D-01, 9.310D-01, 2 1.403D+00, 1.906D+00, 2.439D+00, 2.982D+00, 3.528D+00, 4.035D+00, 3 4.362D+00, 4.753D+00, 5.065D+00, 5.316D+00, 5.524D+00,-3.210D-01, 4 -2.930D-01,-2.110D-01,-7.300D-02, 1.140D-01, 3.580D-01, 6.530D-01, 5 1.035D+00, 1.493D+00, 2.004D+00, 2.536D+00, 3.073D+00, 3.635D+00, 6 4.159D+00, 4.473D+00, 4.867D+00, 5.182D+00, 5.418D+00, 5.567D+00, 7 -3.250D-01,-2.920D-01,-2.100D-01,-7.800D-02, 1.330D-01, 4.210D-01, 8 7.680D-01, 1.169D+00, 1.619D+00, 2.115D+00, 2.631D+00, 3.155D+00, 9 3.701D+00, 4.081D+00, 4.528D+00, 4.915D+00, 5.216D+00, 5.403D+00/ DATA(kap(i),i=11647,11700) 1/ 5.449D+00,-3.380D-01,-3.060D-01,-2.230D-01,-9.000D-02, 1.220D-01, 2 4.160D-01, 8.070D-01, 1.253D+00, 1.716D+00, 2.198D+00, 2.699D+00, 3 3.203D+00, 3.736D+00, 4.109D+00, 4.543D+00, 4.920D+00, 5.189D+00, 4 5.307D+00, 5.229D+00,-3.460D-01,-3.180D-01,-2.420D-01,-1.180D-01, 5 9.300D-02, 3.940D-01, 7.780D-01, 1.244D+00, 1.742D+00, 2.243D+00, 6 2.736D+00, 3.227D+00, 3.735D+00, 4.113D+00, 4.535D+00, 4.893D+00, 7 5.120D+00, 5.162D+00, 5.162D+00,-3.560D-01,-3.280D-01,-2.580D-01, 8 -1.450D-01, 5.000D-02, 3.420D-01, 7.340D-01, 1.187D+00, 1.692D+00, 9 2.213D+00, 2.724D+00, 3.215D+00, 3.643D+00, 4.103D+00, 4.511D+00/ DATA(kap(i),i=11701,11754) 1/ 4.837D+00, 5.024D+00, 5.025D+00, 4.934D+00,-3.580D-01,-3.360D-01, 2 -2.700D-01,-1.620D-01, 2.500D-02, 3.100D-01, 6.850D-01, 1.125D+00, 3 1.625D+00, 2.153D+00, 2.678D+00, 3.187D+00, 3.633D+00, 4.082D+00, 4 4.473D+00, 4.769D+00, 4.925D+00, 4.901D+00, 4.867D+00,-3.590D-01, 5 -3.330D-01,-2.740D-01,-1.810D-01,-1.000D-02, 2.530D-01, 6.020D-01, 6 1.030D+00, 1.520D+00, 2.037D+00, 2.569D+00, 3.103D+00, 3.594D+00, 7 4.025D+00, 4.382D+00, 4.634D+00, 4.751D+00, 4.720D+00, 4.769D+00, 8 -3.590D-01,-3.290D-01,-2.690D-01,-1.770D-01,-2.200D-02, 2.240D-01, 9 5.610D-01, 9.690D-01, 1.453D+00, 1.970D+00, 2.498D+00, 3.060D+00/ DATA(kap(i),i=11755,11808) 1/ 3.553D+00, 3.982D+00, 4.327D+00, 4.539D+00, 4.615D+00, 4.630D+00, 2 4.633D+00,-3.440D-01,-3.230D-01,-2.650D-01,-1.700D-01,-1.800D-02, 3 2.170D-01, 5.450D-01, 9.540D-01, 1.422D+00, 1.932D+00, 2.473D+00, 4 3.020D+00, 3.518D+00, 3.950D+00, 4.287D+00, 4.476D+00, 4.546D+00, 5 4.540D+00, 4.490D+00,-3.080D-01,-2.850D-01,-2.320D-01,-1.490D-01, 6 -8.000D-03, 2.260D-01, 5.600D-01, 9.520D-01, 1.420D+00, 1.917D+00, 7 2.435D+00, 2.987D+00, 3.492D+00, 3.924D+00, 4.253D+00, 4.424D+00, 8 4.478D+00, 4.431D+00, 4.300D+00,-1.680D-01,-1.610D-01,-1.210D-01, 9 -5.000D-02, 8.000D-02, 2.920D-01, 6.100D-01, 1.010D+00, 1.470D+00/ DATA(kap(i),i=11809,11862) 1/ 1.808D+00, 2.391D+00, 2.947D+00, 3.440D+00, 3.838D+00, 4.109D+00, 2 4.241D+00, 4.254D+00, 4.155D+00, 4.045D+00,-1.700D-02, 3.100D-02, 3 9.600D-02, 1.780D-01, 3.050D-01, 4.840D-01, 7.570D-01, 1.116D+00, 4 1.546D+00, 1.764D+00, 2.349D+00, 2.892D+00, 3.333D+00, 3.667D+00, 5 3.864D+00, 3.943D+00, 3.911D+00, 3.802D+00, 3.759D+00,-1.750D-01, 6 -9.200D-02, 2.700D-02, 1.830D-01, 3.870D-01, 6.360D-01, 9.130D-01, 7 1.232D+00, 1.595D+00, 2.006D+00, 2.439D+00, 2.849D+00, 3.182D+00, 8 3.334D+00, 3.462D+00, 3.489D+00, 3.461D+00, 3.424D+00, 3.422D+00, 9 -3.470D-01,-2.720D-01,-1.640D-01,-2.400D-02, 1.740D-01, 4.440D-01/ DATA(kap(i),i=11863,11916) 1/ 7.800D-01, 1.155D+00, 1.539D+00, 1.927D+00, 2.327D+00, 2.693D+00, 2 2.980D+00, 3.090D+00, 3.186D+00, 3.201D+00, 3.197D+00, 3.225D+00, 3 3.225D+00,-4.280D-01,-3.850D-01,-3.010D-01,-1.730D-01, 1.400D-02, 4 2.760D-01, 6.500D-01, 1.053D+00, 1.460D+00, 1.848D+00, 2.221D+00, 5 2.556D+00, 2.816D+00, 2.897D+00, 2.969D+00, 2.996D+00, 3.036D+00, 6 3.146D+00, 3.146D+00,-4.580D-01,-4.520D-01,-4.170D-01,-3.520D-01, 7 -2.100D-01, 3.900D-02, 4.300D-01, 8.830D-01, 1.308D+00, 1.716D+00, 8 2.068D+00, 2.362D+00, 2.590D+00, 2.603D+00, 2.681D+00, 2.766D+00, 9 2.920D+00, 2.920D+00, 2.920D+00,-4.630D-01,-4.570D-01,-4.380D-01/ DATA(kap(i),i=11917,11970) 1/-4.060D-01,-3.210D-01,-1.460D-01, 2.000D-01, 6.850D-01, 1.178D+00, 2 1.612D+00, 1.963D+00, 2.246D+00, 2.459D+00, 2.417D+00, 2.533D+00, 3 2.690D+00, 2.690D+00, 2.690D+00, 2.690D+00,-4.570D-01,-4.560D-01, 4 -4.430D-01,-4.190D-01,-3.460D-01,-2.250D-01, 4.800D-02, 4.810D-01, 5 1.018D+00, 1.506D+00, 1.876D+00, 2.162D+00, 2.378D+00, 2.342D+00, 6 2.495D+00, 2.685D+00, 2.907D+00, 3.131D+00, 3.131D+00,-4.640D-01, 7 -4.590D-01,-4.460D-01,-4.250D-01,-3.630D-01,-2.600D-01,-4.900D-02, 8 2.880D-01, 7.670D-01, 1.291D+00, 1.715D+00, 2.025D+00, 2.261D+00, 9 2.293D+00, 2.465D+00, 2.639D+00, 2.843D+00, 2.843D+00, 2.843D+00/ DATA(kap(i),i=11971,12024) 1/-4.540D-01,-4.540D-01,-4.440D-01,-4.230D-01,-3.680D-01,-2.780D-01, 2 -8.800D-02, 2.090D-01, 6.430D-01, 1.142D+00, 1.594D+00, 1.934D+00, 3 2.191D+00, 2.404D+00, 2.394D+00, 2.554D+00, 2.772D+00, 2.966D+00, 4 3.160D+00,-4.540D-01,-4.470D-01,-4.310D-01,-4.060D-01,-3.600D-01, 5 -2.770D-01,-1.000D-01, 1.800D-01, 5.800D-01, 1.062D+00, 1.520D+00, 6 1.878D+00, 2.148D+00, 2.358D+00, 2.337D+00, 2.492D+00, 2.671D+00, 7 2.867D+00, 2.867D+00,-4.540D-01,-4.470D-01,-4.260D-01,-3.920D-01, 8 -3.380D-01,-2.560D-01,-1.030D-01, 1.530D-01, 5.370D-01, 1.001D+00, 9 1.458D+00, 1.822D+00, 2.088D+00, 2.270D+00, 2.240D+00, 2.351D+00/ DATA(kap(i),i=12025,12078) 1/ 2.550D+00, 2.550D+00, 2.550D+00,-4.630D-01,-4.680D-01,-4.560D-01, 2 -4.260D-01,-3.570D-01,-2.480D-01,-8.100D-02, 1.670D-01, 5.110D-01, 3 9.490D-01, 1.375D+00, 1.708D+00, 1.933D+00, 2.074D+00, 2.014D+00, 4 2.139D+00, 2.375D+00, 2.603D+00, 2.806D+00,-4.720D-01,-4.760D-01, 5 -4.650D-01,-4.390D-01,-3.990D-01,-3.000D-01,-1.170D-01, 1.610D-01, 6 5.110D-01, 9.110D-01, 1.276D+00, 1.552D+00, 1.745D+00, 1.875D+00, 7 1.800D+00, 1.982D+00, 2.233D+00, 2.459D+00, 2.459D+00,-4.720D-01, 8 -4.750D-01,-4.670D-01,-4.490D-01,-4.180D-01,-3.430D-01,-1.830D-01, 9 9.900D-02, 4.680D-01, 8.450D-01, 1.154D+00, 1.389D+00, 1.565D+00/ DATA(kap(i),i=12079,12132) 1/ 1.699D+00, 1.645D+00, 1.875D+00, 2.117D+00, 2.361D+00, 2.361D+00, 2 -4.740D-01,-4.730D-01,-4.690D-01,-4.610D-01,-4.400D-01,-3.860D-01, 3 -2.740D-01,-4.700D-02, 2.990D-01, 6.420D-01, 9.070D-01, 1.109D+00, 4 1.280D+00, 1.440D+00, 1.436D+00, 1.695D+00, 1.968D+00, 1.968D+00, 5 1.968D+00,-4.750D-01,-4.740D-01,-4.720D-01,-4.660D-01,-4.520D-01, 6 -4.150D-01,-3.310D-01,-1.520D-01, 1.380D-01, 4.470D-01, 6.970D-01, 7 8.910D-01, 1.067D+00, 1.250D+00, 1.291D+00, 1.587D+00, 1.587D+00, 8 1.587D+00, 1.587D+00,-4.730D-01,-4.750D-01,-4.730D-01,-4.690D-01, 9 -4.580D-01,-4.320D-01,-3.680D-01,-2.240D-01, 1.700D-02, 2.900D-01/ DATA(kap(i),i=12133,12186) 1/ 5.260D-01, 7.210D-01, 9.060D-01, 1.107D+00, 1.165D+00, 1.475D+00, 2 1.780D+00, 2.050D+00, 2.050D+00,-4.780D-01,-4.770D-01,-4.760D-01, 3 -4.730D-01,-4.650D-01,-4.480D-01,-4.080D-01,-3.140D-01,-1.410D-01, 4 7.300D-02, 2.860D-01, 4.920D-01, 7.000D-01, 9.210D-01, 1.033D+00, 5 1.370D+00, 1.668D+00, 1.668D+00, 1.668D+00,-4.800D-01,-4.790D-01, 6 -4.770D-01,-4.740D-01,-4.670D-01,-4.510D-01,-4.200D-01,-3.530D-01, 7 -2.220D-01,-4.700D-02, 1.550D-01, 3.640D-01, 5.820D-01, 7.840D-01, 8 9.692D-01, 1.289D+00, 1.611D+00, 1.930D+00, 2.249D+00,-4.850D-01, 9 -4.850D-01,-4.830D-01,-4.810D-01,-4.740D-01,-4.560D-01,-4.270D-01/ DATA(kap(i),i=12187,12240) 1/-3.660D-01,-2.700D-01,-1.420D-01, 2.400D-02, 2.100D-01, 3.900D-01, 2 6.120D-01, 8.055D-01, 1.112D+00, 1.496D+00, 1.496D+00, 1.496D+00, 3 -4.900D-01,-4.900D-01,-4.890D-01,-4.870D-01,-4.840D-01,-4.720D-01, 4 -4.460D-01,-3.900D-01,-2.950D-01,-1.810D-01,-5.100D-02, 8.600D-02, 5 2.400D-01, 4.670D-01, 6.600D-01, 1.011D+00, 1.476D+00, 1.928D+00, 6 2.357D+00,-4.990D-01,-4.990D-01,-4.990D-01,-4.980D-01,-4.970D-01, 7 -4.910D-01,-4.780D-01,-4.460D-01,-3.790D-01,-2.930D-01,-1.980D-01, 8 -9.100D-02, 6.200D-02, 2.910D-01, 5.756D-01, 9.519D-01, 1.436D+00, 9 1.916D+00, 1.916D+00,-5.090D-01,-5.090D-01,-5.080D-01,-5.080D-01/ DATA(kap(i),i=12241,12294) 1/-5.070D-01,-5.030D-01,-4.970D-01,-4.770D-01,-4.330D-01,-3.700D-01, 2 -2.930D-01,-1.950D-01,-4.800D-02, 1.810D-01, 4.880D-01, 9.400D-01, 3 1.457D+00, 1.457D+00, 1.457D+00,-5.270D-01,-5.270D-01,-5.270D-01, 4 -5.260D-01,-5.260D-01,-5.240D-01,-5.190D-01,-5.100D-01,-4.860D-01, 5 -4.480D-01,-3.950D-01,-3.180D-01,-1.890D-01, 3.900D-02, 3.745D-01, 6 8.849D-01, 1.516D+00, 2.123D+00, 2.123D+00,-5.450D-01,-5.450D-01, 7 -5.450D-01,-5.450D-01,-5.440D-01,-5.420D-01,-5.430D-01,-5.330D-01, 8 -5.170D-01,-4.930D-01,-4.570D-01,-4.000D-01,-2.850D-01,-5.600D-02, 9 3.636D-01, 9.383D-01, 1.643D+00, 1.643D+00, 1.643D+00,-5.630D-01/ DATA(kap(i),i=12295,12312) 1/-5.630D-01,-5.630D-01,-5.630D-01,-5.630D-01,-5.610D-01,-5.600D-01, 2 -5.560D-01,-5.440D-01,-5.290D-01,-5.080D-01,-4.670D-01,-3.580D-01, 3 -1.330D-01, 2.815D-01, 8.795D-01, 1.842D+00, 2.620D+00, 3.397D+00/ 2000 FORMAT(8es10.3) IF(init)THEN init=.FALSE. c on passe les log en ln lrt=lrt*ln10 ; kap=kap*ln10 c nombre de T, R, X, Z nt=72 ; nr=19 ; nx=3 ; nz=3 c on admet un petit dépassement en Z z_tab_lim=zt(pnz)*1.1d0 c extrapolation en X=.8 par la formule de Neville xx=0.8d0 ; x(0)=xt(2) ; x(1)=xt(3) ; ni=1 !degre du polynome DO ir=1,nr DO it=1,nt DO iiz=1,nz DO ix=2,nx !table 2 et 3 f(ix-2)=kap(nr*(nt*(nx*(iiz-1)+ix-1)+it-1)+ir) ENDDO kap(nr*(nt*(nx*(iiz-1)+nx-1)+it-1)+ir)=neville(xx,x,f,ni) ENDDO ENDDO ENDDO xt(3)=xx !; xt(3)=.95d0 mr=2 ; mt=2 ; mx=2; mz=2 CALL noein(lrt,lrtt,nr,mr,knotr) IF(no_croiss)THEN PRINT*,'Arrêt 1 dans opa_int_zsx' ; STOP ENDIF CALL noein(t6t,t6tt,nt,mt,knott) IF(no_croiss)THEN PRINT*,'Arrêt 2 dans opa_int_zsx' ; STOP ENDIF CALL noein(xt, xtt ,nx,mx,knotx) IF(no_croiss)THEN PRINT*,'Arrêt 3 dans opa_int_zsx' ; STOP ENDIF CALL noein(zt, ztt ,nz,mz,knotz) IF(no_croiss)THEN PRINT*,'Arrêt 4 dans opa_int_zsx' ; STOP ENDIF l1=mt ; l2=mr ; l3=mx ; l4=mz WRITE(*,1) ; WRITE(2,1) 1 FORMAT(/,'opacites a Z variable des tables OPAL prolongees Kurucz:',/, 1 'klgx..z..., X=0.70, 0.35, 0.00; Z= 0.010, 0.019, 0.030') WRITE(*,11)xx,mr,mt,mx,mz ; WRITE(2,11)xx,mr,mt,mx,mz 11 FORMAT('extrapolation lineaire en X=',f5.2,/, 1 'compilation de Y. Lebreton et J. Fernandez',/, 2 'extrapolation et approximation par B-splines 4D de P. Morel',/, 3 'ordre des splines: mr, mt, mx, mz:',i3,', ',i3,', ',i3,', ',i3) WRITE(*,10)z0; WRITE(2,10)z0 10 FORMAT(' Z0=',es10.3) ENDIF t6=t*1.d-6 ; lr=LOG(ro/t6**3) c WRITE(*,*)'t6,lr' ; WRITE(*,2000)t6,lr IF(t6 > t6tt(knott))THEN WRITE(*,123)t ; t6=t6tt(knott) ELSEIF(t6 < t6tt(1))THEN WRITE(*,123)t ; t6=t6tt(1) 123 FORMAT('opa_int_zsx, sortie de table d''opacité t=',es10.3) ENDIF IF(lr > lrtt(knotr))THEN WRITE(*,124)ro ; lr=lrtt(knotr) ELSEIF(lr < lrtt(1))THEN WRITE(*,124)ro ; lr=lrtt(1) 124 FORMAT('opa_int_zsx, sortie de table d''opacité ro=',es10.3) ENDIF xi=abs(xh(1)) !détermination de X et de Z IF(nchim > 1)THEN zr=1.d0-xh(1)-xh(ihe4)-xh(ihe4-1) ELSE zr=z0 ENDIF IF(zr > z_tab_lim)THEN WRITE(*,3)zr,zt(1),zt(pnz),xh WRITE(2,3)zr,zt(1),zt(pnz),xh 3 FORMAT(/,'ARRET, opa_int_zsx, au moins une sortie de table en Z', 1 /,'Z=',es10.3,' en dehors de: [',es10.3,',',es10.3,'], Xchim=',/, 2 (8es10.3)) STOP ELSE zr=MAX(zt(1),MIN(zr,zt(pnz))) ENDIF CALL linf(lr,lrtt,knotr,l1) ; CALL linf(t6,t6tt,knott,l2) CALL linf(xi,xtt, knotx,l3) ; CALL linf(zr,ztt, knotz,l4) c interpolation CALL bval1(lr,lrtt,mr,l1,qr,dr) ; CALL bval1(t6,t6tt,mt,l2,qt,dt) CALL bval1(xi, xtt,mx,l3,qx,dx) ; CALL bval1(zr, ztt,mz,l4,qz,dz) c WRITE(*,2000)lr,t6,xi,z ; WRITE(*,*)l1,l2,l3,l4 kappa=0.d0 ; dkapdt=0.d0 ; dkapdr=0.d0 ; dkapdx=0.d0 DO i=1,mr DO j=1,mt DO k=1,mx DO l=1,mz indice=nr*(nt*(nx*(l4-mz+l-1)+l3-mx+k-1)+l2-mt+j-1)+l1-mr+i c WRITE(*,*)indice ; WRITE(*,2000)(qr(1:mr),ii=1,mr) c WRITE(*,2000)(qt(1:mt),ii=1,mt) c WRITE(*,2000)(qx(1:mx),ii=1,mx) c WRITE(*,2000)(qz(1:mz),ii=1,mz),kap(indice) kappa=kappa + kap(indice)*qr(i)*qt(j)*qx(k)*qz(l) dkapdr=dkapdr+ kap(indice)*dr(i)*qt(j)*qx(k)*qz(l) dkapdt=dkapdt+ kap(indice)*qr(i)*dt(j)*qx(k)*qz(l) dkapdx=dkapdx+ kap(indice)*qr(i)*qt(j)*dx(k)*qz(l) ENDDO ENDDO ENDDO ENDDO c tranformation inverse (log R, T6)-->(T , ro) kappa=EXP(kappa) ; dkapdt=kappa*1.d-6*(dkapdt-3./t6*dkapdr) dkapdr=kappa/ro*dkapdr ; dkapdx=kappa*dkapdx c WRITE(*,*)'kappa,dkapdr,dkapdt,dkapdx' c WRITE(*,2000)kappa,dkapdr,dkapdt,dkapdx ; PAUSE'les kappa' c PAUSE'sortie opa_int_zsx' RETURN END SUBROUTINE opa_int_zsx