remove not used code dlslv scaleg 02/7202/2
Allan CORNET [Mon, 21 May 2012 13:16:41 +0000 (15:16 +0200)]
Change-Id: I489d2cc5a141f808775eec70f590a54b86c0f2c8

scilab/modules/cacsd/Makefile.am
scilab/modules/cacsd/Makefile.in
scilab/modules/cacsd/src/fortran/cacsd_f.vfproj
scilab/modules/cacsd/src/fortran/cacsd_f2c.vcxproj
scilab/modules/cacsd/src/fortran/cacsd_f2c.vcxproj.filters
scilab/modules/cacsd/src/fortran/dlslv.f [deleted file]
scilab/modules/cacsd/src/fortran/scaleg.f [deleted file]
scilab/modules/elementary_functions/Makefile.in

index 99f0a04..fc98d5e 100644 (file)
@@ -131,7 +131,6 @@ src/fortran/ricd.f \
 src/fortran/shrslv.f \
 src/fortran/qhesz.f \
 src/fortran/rilac.f \
-src/fortran/scaleg.f \
 src/fortran/arl2.f \
 src/fortran/wesidu.f \
 src/fortran/dzdivq.f \
@@ -146,7 +145,6 @@ src/fortran/fout.f \
 src/fortran/deg1l2.f \
 src/fortran/modul.f \
 src/fortran/scapol.f \
-src/fortran/dlslv.f \
 src/fortran/giv.f \
 src/fortran/storl2.f \
 src/fortran/calsca.f \
index 71e2ad1..04420d0 100644 (file)
@@ -119,9 +119,9 @@ libscicacsd_algo_la_LIBADD =
 am__objects_1 = jacl2.lo onface.lo tild.lo degl2.lo qvalz.lo dfrmg.lo \
        hessl2.lo rtitr.lo watfac.lo sszer.lo mzdivq.lo expan.lo \
        optml2.lo wdegre.lo phi.lo ricd.lo shrslv.lo qhesz.lo rilac.lo \
-       scaleg.lo arl2.lo wesidu.lo dzdivq.lo arl2a.lo lq.lo outl2.lo \
-       dhetr.lo domout.lo rootgp.lo feq.lo fout.lo deg1l2.lo modul.lo \
-       scapol.lo dlslv.lo giv.lo storl2.lo calsca.lo qitz.lo front.lo
+       arl2.lo wesidu.lo dzdivq.lo arl2a.lo lq.lo outl2.lo dhetr.lo \
+       domout.lo rootgp.lo feq.lo fout.lo deg1l2.lo modul.lo \
+       scapol.lo giv.lo storl2.lo calsca.lo qitz.lo front.lo
 am__objects_2 = sb04pd.lo ib01ad.lo tb01wd.lo ib01py.lo mb01rx.lo \
        ib01md.lo sb02ru.lo sb04nw.lo sb10dd.lo mb04id.lo sb04ny.lo \
        ib01qd.lo sb04px.lo sb04rw.lo sb04ry.lo mb01qd.lo mb01ud.lo \
@@ -578,7 +578,6 @@ src/fortran/ricd.f \
 src/fortran/shrslv.f \
 src/fortran/qhesz.f \
 src/fortran/rilac.f \
-src/fortran/scaleg.f \
 src/fortran/arl2.f \
 src/fortran/wesidu.f \
 src/fortran/dzdivq.f \
@@ -593,7 +592,6 @@ src/fortran/fout.f \
 src/fortran/deg1l2.f \
 src/fortran/modul.f \
 src/fortran/scapol.f \
-src/fortran/dlslv.f \
 src/fortran/giv.f \
 src/fortran/storl2.f \
 src/fortran/calsca.f \
@@ -1079,9 +1077,6 @@ qhesz.lo: src/fortran/qhesz.f
 rilac.lo: src/fortran/rilac.f
        $(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o rilac.lo `test -f 'src/fortran/rilac.f' || echo '$(srcdir)/'`src/fortran/rilac.f
 
-scaleg.lo: src/fortran/scaleg.f
-       $(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o scaleg.lo `test -f 'src/fortran/scaleg.f' || echo '$(srcdir)/'`src/fortran/scaleg.f
-
 arl2.lo: src/fortran/arl2.f
        $(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o arl2.lo `test -f 'src/fortran/arl2.f' || echo '$(srcdir)/'`src/fortran/arl2.f
 
@@ -1124,9 +1119,6 @@ modul.lo: src/fortran/modul.f
 scapol.lo: src/fortran/scapol.f
        $(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o scapol.lo `test -f 'src/fortran/scapol.f' || echo '$(srcdir)/'`src/fortran/scapol.f
 
-dlslv.lo: src/fortran/dlslv.f
-       $(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o dlslv.lo `test -f 'src/fortran/dlslv.f' || echo '$(srcdir)/'`src/fortran/dlslv.f
-
 giv.lo: src/fortran/giv.f
        $(LIBTOOL)  --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o giv.lo `test -f 'src/fortran/giv.f' || echo '$(srcdir)/'`src/fortran/giv.f
 
index 603586c..778d935 100644 (file)
@@ -146,7 +146,6 @@ lib /DEF:"$(InputDir)core_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:X6
                <File RelativePath=".\degl2.f"/>
                <File RelativePath=".\dfrmg.f"/>
                <File RelativePath=".\dhetr.f"/>
-               <File RelativePath=".\dlslv.f"/>
                <File RelativePath=".\domout.f"/>
                <File RelativePath=".\dzdivq.f"/>
                <File RelativePath=".\expan.f"/>
@@ -170,7 +169,6 @@ lib /DEF:&quot;$(InputDir)core_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X6
                <File RelativePath=".\rilac.f"/>
                <File RelativePath=".\rootgp.f"/>
                <File RelativePath=".\rtitr.f"/>
-               <File RelativePath=".\scaleg.f"/>
                <File RelativePath=".\scapol.f"/>
                <File RelativePath="..\..\sci_gateway\fortran\sci_f_arl2.f"/>
                <File RelativePath="..\..\sci_gateway\fortran\sci_f_dhinf.f"/>
index 7aa3759..21d5da5 100644 (file)
@@ -295,7 +295,6 @@ cd ..
     <ClCompile Include="degl2.c" />
     <ClCompile Include="dfrmg.c" />
     <ClCompile Include="dhetr.c" />
-    <ClCompile Include="dlslv.c" />
     <ClCompile Include="domout.c" />
     <ClCompile Include="dzdivq.c" />
     <ClCompile Include="expan.c" />
@@ -319,8 +318,6 @@ cd ..
     <ClCompile Include="rilac.c" />
     <ClCompile Include="rootgp.c" />
     <ClCompile Include="rtitr.c" />
-    <ClCompile Include="scaleg.c" />
-    <ClCompile Include="scapol.c" />
     <ClCompile Include="..\..\sci_gateway\fortran\sci_f_arl2.c" />
     <ClCompile Include="..\..\sci_gateway\fortran\sci_f_dhinf.c" />
     <ClCompile Include="..\..\sci_gateway\fortran\sci_f_ereduc.c" />
@@ -346,6 +343,7 @@ cd ..
     <ClCompile Include="..\..\sci_gateway\fortran\sci_f_sylv.c" />
     <ClCompile Include="..\..\sci_gateway\fortran\sci_f_tzer.c" />
     <ClCompile Include="..\..\sci_gateway\fortran\sci_f_zrankqr.c" />
+    <ClCompile Include="scapol.c" />
     <ClCompile Include="shrslv.c" />
     <ClCompile Include="sszer.c" />
     <ClCompile Include="storl2.c" />
@@ -362,7 +360,6 @@ cd ..
     <f2c_rule Include="degl2.f" />
     <f2c_rule Include="dfrmg.f" />
     <f2c_rule Include="dhetr.f" />
-    <f2c_rule Include="dlslv.f" />
     <f2c_rule Include="domout.f" />
     <f2c_rule Include="dzdivq.f" />
     <f2c_rule Include="expan.f" />
@@ -386,7 +383,6 @@ cd ..
     <f2c_rule Include="rilac.f" />
     <f2c_rule Include="rootgp.f" />
     <f2c_rule Include="rtitr.f" />
-    <f2c_rule Include="scaleg.f" />
     <f2c_rule Include="scapol.f" />
     <f2c_rule Include="..\..\sci_gateway\fortran\sci_f_arl2.f" />
     <f2c_rule Include="..\..\sci_gateway\fortran\sci_f_dhinf.f" />
index 1d3ce92..4ddeda1 100644 (file)
@@ -42,9 +42,6 @@
     <ClCompile Include="dhetr.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="dlslv.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="domout.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClCompile Include="rtitr.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="scaleg.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="scapol.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="..\..\sci_gateway\fortran\sci_f_arl2.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClCompile Include="wesidu.c">
       <Filter>Source Files</Filter>
     </ClCompile>
+    <ClCompile Include="scapol.c">
+      <Filter>Source Files</Filter>
+    </ClCompile>
   </ItemGroup>
   <ItemGroup>
     <f2c_rule Include="arl2.f">
     <f2c_rule Include="dhetr.f">
       <Filter>Fortran files</Filter>
     </f2c_rule>
-    <f2c_rule Include="dlslv.f">
-      <Filter>Fortran files</Filter>
-    </f2c_rule>
     <f2c_rule Include="domout.f">
       <Filter>Fortran files</Filter>
     </f2c_rule>
     <f2c_rule Include="rtitr.f">
       <Filter>Fortran files</Filter>
     </f2c_rule>
-    <f2c_rule Include="scaleg.f">
-      <Filter>Fortran files</Filter>
-    </f2c_rule>
     <f2c_rule Include="scapol.f">
       <Filter>Fortran files</Filter>
     </f2c_rule>
diff --git a/scilab/modules/cacsd/src/fortran/dlslv.f b/scilab/modules/cacsd/src/fortran/dlslv.f
deleted file mode 100644 (file)
index 2749cb2..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA - Serge STEER
-c 
-c This file must be used under the terms of the CeCILL.
-c This source file is licensed as described in the file COPYING, which
-c you should have received as part of this distribution.  The terms
-c are also available at    
-c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-      subroutine dlslv(a,na,n,b,nb,m,w,rcond,ierr,job)
-c!but
-c      ce sous programme effectue:
-c        la factorisation lu de la matrice a si job=0
-c        la resolution du systeme a*x=b si job=1
-c        la resolution du systeme x*a=b si job=2
-c        l'inversion de a si job=3
-c
-c!liste d'appel
-c           subroutine dlslv(a,na,n,b,nb,m,w,rcond,ierr,job)
-c      a:tableau de taille na*n contenant la matrice a
-c         apres execution a contient la factorisation lu
-c      na:dimensionnement de a dans le programme appelant
-c      n:dimensions de la matrice a
-c      b:tableau de taille nb*m contenant la matrice b et le resultat x
-c      nb:dimensionnement de b dans le programme appelant
-c      m:nombre de colonnes de b si job=1 ;ou nombre de ligne si job=2
-c      w:tableau de travail de taille n+adr(n,1)
-c      rcond:reel contenant le conditionnement inverse de a
-c      ierr:indicateur de deroulement
-c          ierr=0 ok
-c          ierr=1 rcond=0
-c          ierr=-1 rcond negligeable
-c      job:
-c     si a et w n'ont pas ete modifies on peut reentrer dans le
-c     sous programme avec une nouvelle matrice b (job=-1 ou job=-2)
-c
-c!sous programmes appeles
-c     dgeco dgesl dgedi (linpack)
-c     dcopy (blas)
-c     abs (fortran)
-c!
-      double precision a(na,n),b(*),w(*),rcond,dt(2)
-      integer sadr
-c
-c     
-c      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      k1=1+sadr(n)
-      ierr=0
-      if(job.lt.0) goto 20
-c factorisation lu
-      call dgeco(a,na,n,w,rcond,w(k1))
-      if(rcond.eq.0.0d+0) goto 70
-      if(rcond+1.0d+0.eq.1.0d+0) ierr=-1
-      if(job.eq.0) return
-      if(job.eq.3) goto 60
-c resolution
-  20  if(abs(job).eq.2) goto 40
-      jb=1
-      do 30 j=1,m
-      call dgesl(a,na,n,w,b(jb),0)
-      jb=jb+nb
-   30 continue
-      return
-   40 do 50 j=1,m
-      call dcopy(n,b(j),nb,w(k1),1)
-      call dgesl(a,na,n,w,w(k1),1)
-      call dcopy(n,w(k1),1,b(j),nb)
-   50 continue
-      return
-   60 call dgedi(a,na,n,w,dt,w(k1),1)
-      return
-   70 ierr=1
-      return
-      end
diff --git a/scilab/modules/cacsd/src/fortran/scaleg.f b/scilab/modules/cacsd/src/fortran/scaleg.f
deleted file mode 100644 (file)
index 3539079..0000000
+++ /dev/null
@@ -1,236 +0,0 @@
-      subroutine scaleg (n,ma,a,mb,b,low,igh,cscale,cperm,wk)
-c
-c     *****parameters:
-      integer igh,low,ma,mb,n
-      double precision a(ma,n),b(mb,n),cperm(n),cscale(n),wk(n,6)
-c
-c     *****local variables:
-      integer i,ir,it,j,jc,kount,nr,nrp2
-      double precision alpha,basl,beta,cmax,coef,coef2,coef5,cor,
-     *                 ew,ewc,fi,fj,gamma,pgamma,sum,t,ta,tb,tc
-c
-c     *****fortran functions:
-      double precision dabs, dlog10, dsign
-c     float
-c
-c     *****subroutines called:
-c     none
-c
-c     ---------------------------------------------------------------
-c
-c     *****purpose:
-c     scales the matrices a and b in the generalized eigenvalue
-c     problem a*x = (lambda)*b*x such that the magnitudes of the
-c     elements of the submatrices of a and b (as specified by low
-c     and igh) are close to unity in the least squares sense.
-c     ref.:  ward, r. c., balancing the generalized eigenvalue
-c     problem, siam j. sci. stat. comput., vol. 2, no. 2, june 1981,
-c     141-152.
-c
-c     *****parameter description:
-c
-c     on input:
-c
-c       ma,mb   integer
-c               row dimensions of the arrays containing matrices
-c               a and b respectively, as declared in the main calling
-c               program dimension statement;
-c
-c       n       integer
-c               order of the matrices a and b;
-c
-c       a       real(ma,n)
-c               contains the a matrix of the generalized eigenproblem
-c               defined above;
-c
-c       b       real(mb,n)
-c               contains the b matrix of the generalized eigenproblem
-c               defined above;
-c
-c       low     integer
-c               specifies the beginning -1 for the rows and
-c               columns of a and b to be scaled;
-c
-c       igh     integer
-c               specifies the ending -1 for the rows and columns
-c               of a and b to be scaled;
-c
-c       cperm   real(n)
-c               work array.  only locations low through igh are
-c               referenced and altered by this subroutine;
-c
-c       wk      real(n,6)
-c               work array that must contain at least 6*n locations.
-c               only locations low through igh, n+low through n+igh,
-c               ..., 5*n+low through 5*n+igh are referenced and
-c               altered by this subroutine.
-c
-c     on output:
-c
-c       a,b     contain the scaled a and b matrices;
-c
-c       cscale  real(n)
-c               contains in its low through igh locations the integer
-c               exponents of 2 used for the column scaling factors.
-c               the other locations are not referenced;
-c
-c       wk      contains in its low through igh locations the integer
-c               exponents of 2 used for the row scaling factors.
-c
-c     *****algorithm notes:
-c     none.
-c
-c     *****history:
-c     written by r. c. ward.......
-c     modified 8/86 by bobby bodenheimer so that if
-c       sum = 0 (corresponding to the case where the matrix
-c       doesn't need to be scaled) the routine returns.
-c
-c     ---------------------------------------------------------------
-c
-      if (low .eq. igh) go to 410
-      do 210 i = low,igh
-         wk(i,1) = 0.0d0
-         wk(i,2) = 0.0d0
-         wk(i,3) = 0.0d0
-         wk(i,4) = 0.0d0
-         wk(i,5) = 0.0d0
-         wk(i,6) = 0.0d0
-         cscale(i) = 0.0d0
-         cperm(i) = 0.0d0
-  210 continue
-c
-c     compute right side vector in resulting linear equations
-c
-      basl = dlog10(2.0d0)
-      do 240 i = low,igh
-         do 240 j = low,igh
-            tb = b(i,j)
-            ta = a(i,j)
-            if (ta .eq. 0.0d0) go to 220
-            ta = dlog10(dabs(ta)) / basl
-  220       continue
-            if (tb .eq. 0.0d0) go to 230
-            tb = dlog10(dabs(tb)) / basl
-  230       continue
-            wk(i,5) = wk(i,5) - ta - tb
-            wk(j,6) = wk(j,6) - ta - tb
-  240 continue
-      nr = igh-low+1
-      coef = 1.0d0/float(2*nr)
-      coef2 = coef*coef
-      coef5 = 0.5d0*coef2
-      nrp2 = nr+2
-      beta = 0.0d0
-      it = 1
-c
-c     start generalized conjugate gradient iteration
-c
-  250 continue
-      ew = 0.0d0
-      ewc = 0.0d0
-      gamma = 0.0d0
-      do 260 i = low,igh
-         gamma = gamma + wk(i,5)*wk(i,5) + wk(i,6)*wk(i,6)
-         ew = ew + wk(i,5)
-         ewc = ewc + wk(i,6)
-  260 continue
-      gamma = coef*gamma - coef2*(ew**2 + ewc**2)
-     +        - coef5*(ew - ewc)**2
-      if (it .ne. 1) beta = gamma / pgamma
-      t = coef5*(ewc - 3.0d0*ew)
-      tc = coef5*(ew - 3.0d0*ewc)
-      do 270 i = low,igh
-         wk(i,2) = beta*wk(i,2) + coef*wk(i,5) + t
-         cperm(i) = beta*cperm(i) + coef*wk(i,6) + tc
-  270 continue
-c
-c     apply matrix to vector
-c
-      do 300 i = low,igh
-         kount = 0
-         sum = 0.0d0
-         do 290 j = low,igh
-            if (a(i,j) .eq. 0.0d0) go to 280
-            kount = kount+1
-            sum = sum + cperm(j)
-  280       continue
-            if (b(i,j) .eq. 0.0d0) go to 290
-            kount = kount+1
-            sum = sum + cperm(j)
-  290    continue
-         wk(i,3) = float(kount)*wk(i,2) + sum
-  300 continue
-      do 330 j = low,igh
-         kount = 0
-         sum = 0.0d0
-         do 320 i = low,igh
-            if (a(i,j) .eq. 0.0d0) go to 310
-            kount = kount+1
-            sum = sum + wk(i,2)
-  310       continue
-            if (b(i,j) .eq. 0.0d0) go to 320
-            kount = kount+1
-            sum = sum + wk(i,2)
-  320    continue
-         wk(j,4) = float(kount)*cperm(j) + sum
-  330 continue
-      sum = 0.0d0
-      do 340 i = low,igh
-         sum = sum + wk(i,2)*wk(i,3) + cperm(i)*wk(i,4)
-  340 continue
-      if(sum.eq.0.0d0) return
-      alpha = gamma / sum
-c
-c     determine correction to current iterate
-c
-      cmax = 0.0d0
-      do 350 i = low,igh
-         cor = alpha * wk(i,2)
-         if (dabs(cor) .gt. cmax) cmax = dabs(cor)
-         wk(i,1) = wk(i,1) + cor
-         cor = alpha * cperm(i)
-         if (dabs(cor) .gt. cmax) cmax = dabs(cor)
-         cscale(i) = cscale(i) + cor
-  350 continue
-      if (cmax .lt. 0.5d0) go to 370
-      do 360 i = low,igh
-         wk(i,5) = wk(i,5) - alpha*wk(i,3)
-         wk(i,6) = wk(i,6) - alpha*wk(i,4)
-  360 continue
-      pgamma = gamma
-      it = it+1
-      if (it .le. nrp2) go to 250
-c
-c     end generalized conjugate gradient iteration
-c
-  370 continue
-      do 380 i = low,igh
-         ir = wk(i,1) + dsign(0.5d0,wk(i,1))
-         wk(i,1) = ir
-         jc = cscale(i) + dsign(0.5d0,cscale(i))
-         cscale(i) = jc
-  380 continue
-c
-c     scale a and b
-c
-      do 400 i = 1,igh
-         ir = wk(i,1)
-         fi = 2.0d0**ir
-         if (i .lt. low) fi = 1.0d0
-         do 400 j =low,n
-            jc = cscale(j)
-            fj = 2.0d0**jc
-            if (j .le. igh) go to 390
-            if (i .lt. low) go to 400
-            fj = 1.0d0
-  390       continue
-            a(i,j) = a(i,j)*fi*fj
-            b(i,j) = b(i,j)*fi*fj
-  400 continue
-  410 continue
-      return
-c
-c     last line of scaleg
-c
-      end
index 499fd41..93200bd 100644 (file)
@@ -126,21 +126,20 @@ libscielementary_functions_algo_la_LIBADD =
 am__objects_1 = zwrsk.lo d9b0mp.lo d9b1mp.lo d9knus.lo d9lgmc.lo \
        dasyik.lo dasyjy.lo dbdiff.lo dbesi0.lo dbesi1.lo dbesi.lo \
        dbesj0.lo dbesj1.lo dbesj.lo dbesk0.lo dbesk1.lo dbesk.lo \
-       dbesy0.lo dbesy1.lo dbesy.lo dbkias.lo dbkisr.lo \
-       dbsi0e.lo dbsi1e.lo dbsk0e.lo dbsk1e.lo dbskes.lo dbskin.lo \
-       dbsknu.lo dbsynu.lo dcsevl.lo dexint.lo dgamlm.lo dgamln.lo \
-       dgamma.lo dgamrn.lo dhkseq.lo djairy.lo dpsixn.lo dxlegf.lo \
-       dyairy.lo fdump.lo gamma.lo initds.lo j4save.lo xercnt.lo \
-       xermsg.lo xerprn.lo xersve.lo xgetua.lo zabs.lo zacai.lo \
-       zacon.lo zairy.lo zasyi.lo zbesh.lo zbesi.lo zbesj.lo zbesk.lo \
-       zbesy.lo zbinu.lo zbknu.lo zbuni.lo zbunk.lo zdiv.lo zexp.lo \
-       zkscl.lo zlog.lo zmlri.lo zmlt.lo zrati.lo zs1s2.lo zseri.lo \
-       zshch.lo zsqrt.lo zuchk.lo zunhj.lo zuni1.lo zuni2.lo zunik.lo \
-       zunk1.lo zunk2.lo zuoik.lo dlngam.lo balanc.lo dtensbs.lo \
-       pchim.lo
-am__objects_2 = dgesl.lo wpade.lo util.lo dgefa.lo dgbfa.lo \
-       dgeco.lo dgedi.lo dqrdc.lo dqrsl.lo dqrsm.lo hhdml.lo wgeco.lo \
-       wgefa.lo wgesl.lo dpofa.lo
+       dbesy0.lo dbesy1.lo dbesy.lo dbkias.lo dbkisr.lo dbsi0e.lo \
+       dbsi1e.lo dbsk0e.lo dbsk1e.lo dbskes.lo dbskin.lo dbsknu.lo \
+       dbsynu.lo dcsevl.lo dexint.lo dgamlm.lo dgamln.lo dgamma.lo \
+       dgamrn.lo dhkseq.lo djairy.lo dpsixn.lo dxlegf.lo dyairy.lo \
+       fdump.lo gamma.lo initds.lo j4save.lo xercnt.lo xermsg.lo \
+       xerprn.lo xersve.lo xgetua.lo zabs.lo zacai.lo zacon.lo \
+       zairy.lo zasyi.lo zbesh.lo zbesi.lo zbesj.lo zbesk.lo zbesy.lo \
+       zbinu.lo zbknu.lo zbuni.lo zbunk.lo zdiv.lo zexp.lo zkscl.lo \
+       zlog.lo zmlri.lo zmlt.lo zrati.lo zs1s2.lo zseri.lo zshch.lo \
+       zsqrt.lo zuchk.lo zunhj.lo zuni1.lo zuni2.lo zunik.lo zunk1.lo \
+       zunk2.lo zuoik.lo dlngam.lo balanc.lo dtensbs.lo pchim.lo
+am__objects_2 = dgesl.lo wpade.lo util.lo dgefa.lo dgbfa.lo dgeco.lo \
+       dgedi.lo dqrdc.lo dqrsl.lo dqrsm.lo hhdml.lo wgeco.lo wgefa.lo \
+       wgesl.lo dpofa.lo
 am__objects_3 = balbak.lo
 am__objects_4 = libscielementary_functions_algo_la-sci_tools.lo \
        libscielementary_functions_algo_la-finite.lo \