Warnings Intel Fortran 11
Allan CORNET [Thu, 20 Nov 2008 15:57:36 +0000 (16:57 +0100)]
153 files changed:
scilab/modules/boolean/src/fortran/find.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_arl2.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_ereduc.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_fstair.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_ldiv.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_linmeq.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_ltitr.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_ppol.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_residu.f
scilab/modules/cacsd/sci_gateway/fortran/sci_f_rtitr.f
scilab/modules/cacsd/src/slicot/ZB03OD.f
scilab/modules/cacsd/src/slicot/ib01cd.f
scilab/modules/cacsd/src/slicot/sb02rd.f
scilab/modules/cacsd/src/slicot/tb01wd.f
scilab/modules/core/sci_gateway/fortran/sci_clear.f
scilab/modules/core/sci_gateway/fortran/sci_clearglobal.f
scilab/modules/core/sci_gateway/fortran/sci_comp.f
scilab/modules/core/sci_gateway/fortran/sci_errcatch.f
scilab/modules/core/sci_gateway/fortran/sci_funcprot.f
scilab/modules/core/sci_gateway/fortran/sci_global.f
scilab/modules/core/sci_gateway/fortran/sci_mode.f
scilab/modules/core/sci_gateway/fortran/sci_mtlb_mode.f
scilab/modules/core/sci_gateway/fortran/sci_resume.f
scilab/modules/core/sci_gateway/fortran/sci_type.f
scilab/modules/core/sci_gateway/fortran/sci_typnam.f
scilab/modules/core/sci_gateway/fortran/sci_useascommand.f
scilab/modules/core/src/fortran/allops.f
scilab/modules/core/src/fortran/clause.f
scilab/modules/core/src/fortran/command.f
scilab/modules/core/src/fortran/createref.f
scilab/modules/core/src/fortran/fact.f
scilab/modules/core/src/fortran/funnam.f
scilab/modules/core/src/fortran/funs.f
scilab/modules/core/src/fortran/getfun.f
scilab/modules/core/src/fortran/getfunction.f
scilab/modules/core/src/fortran/getlin.f
scilab/modules/core/src/fortran/getsym.f
scilab/modules/core/src/fortran/hndlops.f
scilab/modules/core/src/fortran/inisci.f
scilab/modules/core/src/fortran/misops.f
scilab/modules/core/src/fortran/mname.f
scilab/modules/core/src/fortran/print.f
scilab/modules/core/src/fortran/prompt.f
scilab/modules/core/src/fortran/skpins.f
scilab/modules/core/src/fortran/stackg.f
scilab/modules/core/src/fortran/storeglobal.f
scilab/modules/core/src/fortran/typ2cod.f
scilab/modules/core/src/fortran/varfunptr.f
scilab/modules/data_structures/sci_gateway/fortran/sci_getfield.f
scilab/modules/data_structures/src/fortran/intl_e.f
scilab/modules/data_structures/src/fortran/intl_i.f
scilab/modules/differential_equations/sci_gateway/fortran/Ex-ode.f
scilab/modules/differential_equations/sci_gateway/fortran/int2d.f
scilab/modules/differential_equations/sci_gateway/fortran/int3d.f
scilab/modules/differential_equations/src/fortran/rchek2.f
scilab/modules/double/sci_gateway/fortran/vecimpl.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_acos.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_asin.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_ceil.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_clean.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_cumprod.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_expm.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_eye.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_floor.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_frexp.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_isreal.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_maxi.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_number_properties.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_ones.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_sign.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_sort.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_testmatrix.f
scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_zeros.f
scilab/modules/elementary_functions/src/fortran/dbesig.f
scilab/modules/elementary_functions/src/fortran/dbesjg.f
scilab/modules/elementary_functions/src/fortran/dbeskg.f
scilab/modules/elementary_functions/src/fortran/dbesyg.f
scilab/modules/elementary_functions/src/fortran/dwdiv.f
scilab/modules/elementary_functions/src/fortran/slatec/gamma.f
scilab/modules/elementary_functions/src/fortran/slatec/xersve.f
scilab/modules/elementary_functions/src/fortran/zbeshg.f
scilab/modules/elementary_functions/src/fortran/zbesig.f
scilab/modules/elementary_functions/src/fortran/zbesjg.f
scilab/modules/elementary_functions/src/fortran/zbeskg.f
scilab/modules/elementary_functions/src/fortran/zbesyg.f
scilab/modules/integer/src/fortran/bitops.f
scilab/modules/integer/src/fortran/i_a_i.f
scilab/modules/integer/src/fortran/i_abs.f
scilab/modules/integer/src/fortran/i_b_i.f
scilab/modules/integer/src/fortran/i_matrix.f
scilab/modules/integer/src/fortran/i_maxi.f
scilab/modules/integer/src/fortran/i_mget.f
scilab/modules/integer/src/fortran/i_mput.f
scilab/modules/integer/src/fortran/i_r_i.f
scilab/modules/integer/src/fortran/intops.f
scilab/modules/integer/src/fortran/unarybit.f
scilab/modules/io/sci_gateway/fortran/intdiary.f
scilab/modules/io/sci_gateway/fortran/intexec.f
scilab/modules/io/sci_gateway/fortran/intexecstr.f
scilab/modules/io/sci_gateway/fortran/intfile.f
scilab/modules/io/sci_gateway/fortran/intlib.f
scilab/modules/io/sci_gateway/fortran/intprint.f
scilab/modules/io/sci_gateway/fortran/intrat.f
scilab/modules/io/sci_gateway/fortran/intread.f
scilab/modules/io/sci_gateway/fortran/oldloadsave.f
scilab/modules/io/src/fortran/newsave.f
scilab/modules/io/src/fortran/v2cunit.f
scilab/modules/linear_algebra/src/fortran/DGELSY1.f
scilab/modules/linear_algebra/src/fortran/intdggbal.f
scilab/modules/linear_algebra/src/fortran/intdggev.f
scilab/modules/optimization/sci_gateway/fortran/sci_f_optim.f
scilab/modules/polynomials/sci_gateway/fortran/sci_f_bezout.f
scilab/modules/polynomials/sci_gateway/fortran/sci_f_degree.f
scilab/modules/polynomials/sci_gateway/fortran/sci_f_psimp.f
scilab/modules/polynomials/sci_gateway/fortran/sci_f_rsimp.f
scilab/modules/polynomials/sci_gateway/fortran/sci_f_simp.f
scilab/modules/randlib/src/fortran/genmul.f
scilab/modules/randlib/src/fortran/gennf.f
scilab/modules/randlib/src/fortran/phrtsd.f
scilab/modules/scicos/sci_gateway/fortran/sci_debug_count.f
scilab/modules/scicos_blocks/src/fortran/affich.f
scilab/modules/scicos_blocks/src/fortran/eselect.f
scilab/modules/scicos_blocks/src/fortran/ifthel.f
scilab/modules/scicos_blocks/src/fortran/sum2.f
scilab/modules/scicos_blocks/src/fortran/sum3.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_amell.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_delip.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_fft.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_remez.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_rpem.f
scilab/modules/signal_processing/sci_gateway/fortran/sci_syredi.f
scilab/modules/sparse/sci_gateway/fortran/sci_blkfc1i.f
scilab/modules/sparse/sci_gateway/fortran/sci_blkslvi.f
scilab/modules/sparse/sci_gateway/fortran/sci_inpnvi.f
scilab/modules/sparse/src/fortran/dspos.f
scilab/modules/sparse/src/fortran/intreadmps.f
scilab/modules/sparse/src/fortran/rdmps1.f
scilab/modules/sparse/src/fortran/rdmpsz.f
scilab/modules/sparse/src/fortran/spcho1.f
scilab/modules/sparse/src/fortran/spcompack.f
scilab/modules/sparse/src/fortran/sputil.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_calerf.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_dlgamma.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_gamma.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_lgamma.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_oldbesseli.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_oldbesselj.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_oldbesselk.f
scilab/modules/special_functions/sci_gateway/fortran/sci_f_oldbessely.f
scilab/modules/symbolic/sci_gateway/fortran/sci_addsubf.f
scilab/modules/symbolic/sci_gateway/fortran/sci_ldivf.f
scilab/modules/symbolic/sci_gateway/fortran/sci_mulf.f
scilab/modules/symbolic/sci_gateway/fortran/sci_rdivf.f

index 857ca40..4517bef 100644 (file)
@@ -13,7 +13,6 @@ c     ==================================================
 c     find of a full standard or boolean matrix
       include 'stack.h'
 
-      double precision tv
 c
       logical ref
       integer nmax
index 4238098..5c19de0 100644 (file)
@@ -17,8 +17,8 @@ c     ----------------------------
       include 'stack.h'
       integer iadr,sadr
 c
-      integer vol1,vol2,vol3,var(4)
-      double precision v,eps,errl2,phi,gnrm
+      integer vol1,var(4)
+      double precision eps,errl2,phi,gnrm
       logical all
       common/no2f/gnrm
       common/arl2c/info,ierr
index bac9fa4..419fc98 100644 (file)
@@ -17,7 +17,7 @@ c     --------------------------
       INCLUDE 'stack.h'
 c     
       character*(*) fname
-      double precision t,eps
+      double precision eps
       integer iadr,sadr,tops
 
 
index 279bd3e..3fff544 100644 (file)
@@ -16,7 +16,7 @@ c     --------------------------
       INCLUDE 'stack.h'
 c     
       character*(*) fname
-      double precision t,eps
+      double precision eps
       integer iadr,sadr,tops
 
      
index acece32..238eb69 100644 (file)
@@ -16,9 +16,9 @@ c     ----------------------------
       include 'stack.h'
       integer iadr,sadr
 c
-      integer vol1,vol2,vol3,var(4)
-      double precision v,eps,errl2,phi,gnrm
-      logical all
+      integer vol1,vol2
+      double precision eps,gnrm
+      
       common/no2f/gnrm
       common/arl2c/info,ierr
 c
index 01f0af9..d9400c5 100644 (file)
@@ -147,9 +147,9 @@ C .. Local variables and constant dimension arrays ..
 C
 C .. External functions ..
       logical lsame, createvar, checkrhs, checklhs, getrhsvar
-      logical getscalar, getrmat, iscomplex
+      logical iscomplex
       external lsame , createvar, checkrhs, checklhs, getrhsvar
-      external getscalar, getrmat
+      
 C
 C .. External subroutines ..
       external dlacpy ,dlaset ,dswap ,dtrsyl ,sb03md ,sb03od ,sb04md ,
index 8e5fcb0..8695998 100644 (file)
@@ -14,8 +14,8 @@ c
 c     ----------------------------
       character*(*) fname
       include 'stack.h'
-      double precision dnrm2,tol,atol,eps,gi,rcond,ur,ui,vr,vi,xr,xi
-      integer p,ind,q,job,ido,n,top1
+      double precision eps
+      integer p,ind,ido,n
       integer iadr,sadr
 
       iadr(l)=l+l-1
index 1d37bfc..833d672 100644 (file)
@@ -14,8 +14,8 @@ c
 c     ----------------------------
       character*(*) fname
       include 'stack.h'
-      double precision dnrm2,tol,atol,eps,gi,rcond,ur,ui,vr,vi,xr,xi
-      integer p,ind,q,job,ido,n,top1
+      double precision eps
+      integer n
       integer iadr,sadr
 
       iadr(l)=l+l-1
index 9410543..8be0939 100644 (file)
@@ -16,9 +16,8 @@ c     ----------------------------
       include 'stack.h'
       integer iadr,sadr
 c
-      integer vol1,vol2,vol3,var(4)
-      double precision v,eps,errl2,phi,gnrm
-      logical all
+      integer vol1,vol2,vol3
+      double precision v,eps,gnrm
       common/no2f/gnrm
       common/arl2c/info,ierr
 c
index 4a372d0..d7e7ebd 100644 (file)
@@ -14,8 +14,8 @@ c
 c     ----------------------------
       character*(*) fname
       include 'stack.h'
-      double precision dnrm2,tol,atol,eps,gi,rcond,ur,ui,vr,vi,xr,xi
-      integer p,ind,q,job,ido,n,top1
+      double precision eps
+      integer job,ido
       integer iadr,sadr
 
       iadr(l)=l+l-1
index 912b6f7..f987cf8 100644 (file)
@@ -161,7 +161,7 @@ C
 *     ..
 *     .. Local Scalars ..
       LOGICAL            LJOBQR,  LQUERY
-      INTEGER            I, ISMAX, ISMIN, J, LWKOPT, MN,
+      INTEGER            I, ISMAX, ISMIN, LWKOPT, MN,
      $                   NB, NB1, NB2
       DOUBLE PRECISION   SMAX, SMAXPR, SMIN, SMINPR
       COMPLEX*16         C1, C2, S1, S2
index b1ca640..e6c377c 100644 (file)
@@ -505,8 +505,8 @@ C     .. Local Arrays ..
 C     .. External Functions ..
       LOGICAL            LSAME
       INTEGER            ILAENV
-      DOUBLE PRECISION   DLAMCH, DLAPY2
-      EXTERNAL           DLAMCH, DLAPY2, ILAENV, LSAME
+      DOUBLE PRECISION   DLAPY2
+      EXTERNAL           DLAPY2, ILAENV, LSAME
 C     .. External Subroutines ..
       EXTERNAL           DCOPY, DGEMM, DGEMV, DLACPY, IB01QD, IB01RD, 
      $                   TB01WD, XERBLA
index f1d0453..2625690 100644 (file)
@@ -561,8 +561,8 @@ C     .. Local Scalars ..
      $                  WRKOPT
 C     .. External Functions ..
       LOGICAL           LSAME, SB02MR, SB02MS, SB02MV, SB02MW
-      DOUBLE PRECISION  DLAMCH, DLANGE, DLANSY
-      EXTERNAL          DLAMCH, DLANGE, DLANSY, LSAME, SB02MR, SB02MS, 
+      DOUBLE PRECISION  DLANSY
+      EXTERNAL          DLANSY, LSAME, SB02MR, SB02MS, 
      $                  SB02MV, SB02MW
 C     .. External Subroutines ..
       EXTERNAL          DAXPY, DCOPY, DGEES, DGESV, DLACPY, DLASCL,
index e38a104..213d76d 100644 (file)
@@ -140,8 +140,8 @@ C     .. Local Scalars ..
 C     .. Local Arrays ..
       LOGICAL          BWORK( 1 )
 C     .. External Functions ..
-      LOGICAL          LSAME, SELECT1
-      EXTERNAL         LSAME, SELECT1
+      LOGICAL          SELECT1
+      EXTERNAL         SELECT1
 C     .. External Subroutines ..
       EXTERNAL         DCOPY, DGEES, DGEMM, DGEMV, DLACPY, XERBLA
 C     .. Intrinsic Functions ..
index 09af14f..fe96e67 100644 (file)
@@ -13,16 +13,16 @@ c
       character*(*) fname
       integer top0,id(nsiz)
       logical getsmat,checkval,checklhs
-      integer iadr, sadr
-      integer a, blank,percen,sfin,helps(nsiz),scspal(nsiz)
+      integer iadr
+      integer a, blank,percen,helps(nsiz),scspal(nsiz)
+
 
-      logical ok
       data a/10/,blank/40/,percen/56/
       data helps /353243448,673717273,nz2*673720360/
       data scspal/202509340,421796888,673715466,nz3*673720360/
 
       iadr(l)=l+l-1
-c      sadr(l)=(l/2)+1
+
 c
       if(.not.checklhs(fname,1,1)) return
 
index 9dd3d13..6d08bf2 100644 (file)
@@ -13,12 +13,11 @@ c
       character*(*) fname
       integer top0,id(nsiz),vk
       logical getsmat,checkval,checklhs,eqid
-      integer iadr, sadr
+      integer iadr
       integer a, blank,percen
       data a/10/,blank/40/,percen/56/
 c
       iadr(l)=l+l-1
-c      sadr(l)=(l/2)+1
 c
       if(.not.checklhs(fname,1,1)) return
 
index 9ef268d..d63e44e 100644 (file)
@@ -8,8 +8,8 @@ c are also available at
 c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine intcomp
       include 'stack.h'
-      integer cmode,topk,p
-      logical checkrhs,checklhs,getscalar,cremat
+      integer cmode,topk
+      logical checkrhs,checklhs,getscalar
       integer iadr,sadr
       integer semi
       data semi/43/
index bafa59e..13a8fd9 100644 (file)
@@ -16,8 +16,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       integer name(10)
       integer iadr
 c
-      data local/21/
-c    
       iadr(l)=l+l-1
       pause ='pause    '
       cont  ='continue '
index fa63c58..12d9868 100644 (file)
@@ -10,7 +10,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine intfuncprot
       include 'stack.h'
       logical checkrhs,checklhs,cremat,getscalar
-      integer topk
+
       common /mprot/ macprt
 c
       rhs=max(rhs,0)
index b00b91e..bc5244a 100644 (file)
@@ -9,8 +9,8 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
       subroutine intglobal()
       include 'stack.h'
-      logical checklhs,getsmat,checkval,cremat
-      integer top0,topk,typ,vol
+      logical checklhs,getsmat,checkval
+      integer topk,vol
       integer id(nsiz),blank,percen,ch
       integer iadr,sadr
       data blank/40/,percen/56/
index 78f9329..23059ad 100644 (file)
@@ -8,7 +8,7 @@ c are also available at
 c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt 
       subroutine intmode
       include 'stack.h'
-      integer cmode,topk
+
       logical checkrhs,checklhs,getscalar,cremat
 c
       rhs=max(rhs,0)
index bd4f3c9..8b15219 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
       subroutine intmtlbmode
       include 'stack.h'
-      integer offset
+
       logical checkrhs,checklhs,crebmat,getbmat,checkval
       common /mtlbc/ mmode
 c
index 7c0a7df..ad12b21 100644 (file)
@@ -13,10 +13,9 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       parameter (iif=1,iwhile=2,iselect=3)
       integer pt0,count,r
       integer semi,comma,eol
-      integer resume(nsiz),sel(nsiz)
+      integer resume(nsiz)
 c
       data resume/505155099,673713686,nz2*673720360/
-      data sel/236260892,673717516,nz2*673720360/
       data eol/99/,semi/43/
       data comma/52/
 c
index 041d3d1..76a85cc 100644 (file)
@@ -8,8 +8,7 @@ c are also available at
 c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine inttype
       include 'stack.h'
-      integer cmode,topk
-      logical checkrhs,checklhs,getscalar,cremat
+      logical checkrhs,checklhs,cremat
       integer iadr
 c    
       iadr(l)=l+l-1
index a3587ff..ad69594 100644 (file)
@@ -11,7 +11,7 @@ c     --------------------------
       character*(*) fname
       logical checkrhs,checklhs
       include 'stack.h'
-      logical cremat, getscalar
+      logical getscalar
 c     following common defines the initial database of type names
       integer maxtyp,nmmax,ptmax
       parameter (maxtyp=50,nmmax=200)
index 4fc3b76..a911080 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
       subroutine useascommand(fname)
       include 'stack.h'
-      logical checkrhs,checklhs,cremat,getscalar,getsmat,checkval
+      logical checkrhs,checklhs,getsmat,checkval
       integer topk,id(nsiz)
       integer iadr
       character*1 opt
index 0bcf291..910ef97 100644 (file)
@@ -12,11 +12,10 @@ c ======================================================================
 c     Calling function according to arguments type
 c ======================================================================
       include 'stack.h'
-      integer ogettype, vt,vt1,id(nsiz),r,op,extrac,bl(nsiz)
+      integer ogettype, vt,vt1,id(nsiz),r,op,bl(nsiz)
       logical compil,ptover
       integer iadr
 
-      data extrac/3/,bl/nsiz*673720360/
 c
       iadr(l)=l+l-1
 
index 402784d..6996eb4 100644 (file)
@@ -12,7 +12,7 @@ c     ======================================================================
 c     gestion des structures de controle
 c     ======================================================================
       include 'stack.h'
-      integer while(nsiz),iff(nsiz),else(nsiz),ennd(nsiz)
+      integer while(nsiz),else(nsiz),ennd(nsiz)
       integer do(nsiz),thenn(nsiz),cas(nsiz),sel(nsiz)
       integer elsif(nsiz)
       integer semi,equal,eol,blank,comma,name,cmt
@@ -26,7 +26,6 @@ c     ======================================================================
       data lparen/41/,rparen/42/
       data do/673716237,nz1*673720360/, else/236721422,nz1*673720360/
       data ennd/671946510,nz1*673720360/
-      data iff/673713938,nz1*673720360/
       data thenn/386797853,nz1*673720360/
       data while/353505568,673720334,nz2*673720360/
       data cas/236718604,nz1*673720360/
index 2808970..a73dbec 100644 (file)
@@ -25,26 +25,17 @@ C
       parameter (nz1 = nsiz-1, nz2 = nsiz-2, nz3 = nsiz-3)
       parameter (iif=1,iwhile=2,iselect=3)
 C     
-      integer cmd(nsiz,cmdl),a,blank,name
-      integer id(nsiz),ennd(nsiz),sel(nsiz),while(nsiz),for(nsiz)
-      integer iff(nsiz),func(nsiz),endfunc(nsiz)
-      integer semi,comma,eol,percen,lparen,slash
+      integer cmd(nsiz,cmdl),blank
+      integer id(nsiz)
+      integer func(nsiz)
+      integer semi,comma,eol,lparen,slash
       integer count,equal,nchar,pchar
       logical eqid,cremat
       integer iadr
-      common/cmds/cmd
-      save cmds
 C     
-      data a/10/
       data eol/99/,semi/43/,comma/52/,lparen/41/,equal/50/,slash/48/
-      data blank/40/,name/1/,percen/56/
-      data ennd/671946510,nz1*673720360/
-      data sel/236260892,673717516,nz2*673720360/
-      data while/353505568,673720334,nz2*673720360/
-      data iff/673713938,nz1*673720360/
-      data for/672864271,nz1*673720360/
+      data blank/40/
       data func/202841615,387453469,nz2*673720360/
-      data endfunc/252516110,487331614,672602130,nz3*673720360/ 
    
 C     if, else, for, while, end, select, case, quit, return
       data ((cmd(i,j), i = 1,nsiz), j = 1,10)/
index 347c72a..aa6d44b 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
       subroutine createref1(topk)
       include 'stack.h'
-      integer topk,sz
+      integer topk
       integer iadr
 c
       iadr(l)=l+l-1
index 541d5e0..e876bdf 100644 (file)
@@ -20,7 +20,7 @@ c
       integer id(nsiz),op,fun1
       integer star,dstar,semi,eol,blank,percen
       integer comma,lparen,rparen,hat,dot,equal
-      integer quote,left,right,colon,slash,not
+      integer quote,left,right,colon,not
       integer num,name,cmt
       integer cconc,extrac,rconc
       logical recurs,compil,dotsep,nullarg,ok
@@ -29,7 +29,7 @@ c
       
       data star/47/,dstar/62/,semi/43/,eol/99/,blank/40/,percen/56/
       data comma/52/,lparen/41/,rparen/42/, hat/62/,dot/51/,equal/50/
-      data quote/53/,left/54/,right/55/,colon/44/,slash/48/,not/61/
+      data quote/53/,left/54/,right/55/,colon/44/,not/61/
       data minus/46/,plus/45/
       data num/0/,name/1/,cmt/2/
       data cconc/1/,extrac/3/,rconc/4/
index f06162c..0d5e804 100644 (file)
@@ -12,7 +12,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       integer id(nsiz)
 
       character*(*) fct
-      integer name(nlgh),name1(nlgh)
+      integer name(nlgh)
       integer percen,under
       data percen/56/,under/36/
       name(1)=percen
@@ -43,7 +43,7 @@ c     Copyright INRIA
       INCLUDE 'stack.h'
       integer id(nsiz)
       character*(*) fct
-      integer name(nlgh),name1(nlgh)
+      integer name(nlgh)
 
       n1=min(nf,24)
       call cvstr(n1,name,fct,0)
index 510d0d9..7668eba 100644 (file)
@@ -13,12 +13,12 @@ c     scan primitive function and scilab code function lists for a given name
 c     ====================================================================
       include 'stack.h'
       parameter (nz1=nsiz-1,nz2=nsiz-2)
-      integer id(nsiz),id1(nsiz),istr(nlgh)
+      integer id(nsiz),istr(nlgh)
 c
       logical eqid,cresmat
-      integer srhs,percen,blank,fptr,mode(2),sfun,slhs,r
+      integer srhs,percen,fptr,slhs,r
       integer iadr
-      data nclas/29/,percen/56/,blank/40/
+      data nclas/29/,percen/56/
 c
       iadr(l)=l+l-1
 c     
index 8ff3b3b..7bdb44b 100644 (file)
@@ -23,7 +23,7 @@ c
       integer ssym,schar,slpt(6)
       integer first,ierr
       integer iadr,sadr
-      logical maj,isinstring,incomment,isopened
+      logical isinstring,incomment,isopened
 
       external getfastcode
       integer  getfastcode
index dab070f..a89653b 100644 (file)
@@ -48,13 +48,13 @@ C     by the getfun routine.
       integer cblock,rblock,fcount
       parameter (rblock=30,cblock=rblock*50)
       integer quote,eol,equal,lparen,rparen,comma,semi,left,right,dot
-      integer blank,slash
+      integer blank
       integer psym,qcount,strcnt,pchar
       integer func(nsiz),endfunc(nsiz),iadr,sadr
       logical cresmat,eqid,last,eof
       integer name,num,cmt
       data quote/53/,eol/99/,name/1/,num/0/,cmt/2/
-      data equal/50/,lparen/41/,rparen/42/,slash/48/
+      data equal/50/,lparen/41/,rparen/42/
       data comma/52/,semi/43/,left/54/,right/55/,dot/51/,blank/40/
 
 
index 2ade505..fea89bf 100644 (file)
@@ -32,7 +32,7 @@ c
       include 'stack.h'
 c
       integer job, menusflag
-      integer lrecl,eol,slash,dot,blank,comma,tab
+      integer lrecl,eol,slash,dot,blank,tab
       integer retu(6)
       integer r,quit(4),lnblnk, ncont
       logical isinstring,eof,continued,incomment
@@ -40,7 +40,7 @@ c
       external isinstring,lnblnk, getfastcode
       integer getfastcode
 
-      data eol/99/,dot/51/,blank/40/,comma/52/,tab/-40/
+      data eol/99/,dot/51/,blank/40/,tab/-40/
       data retu/27,14,29,30,27,23/
       data slash/48/,lrecl/512/
       data quit/26,30,18,29/
index b02f862..8a69ad8 100644 (file)
@@ -76,13 +76,13 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       integer opt
       double precision syv
       integer namecd(nlgh), chcnt, io 
-      integer blank, dot, percen, slash, comma,eol
+      integer blank, dot, percen, slash
       integer name, num, cmt
 
 *     STATEMENTS FUNCTIONS
       integer c
       logical isDigit, isAlphaNum, isBlank
-      data    blank/40/,dot/51/,percen/56/,slash/48/,comma/52/,eol/99/
+      data    blank/40/,dot/51/,percen/56/,slash/48/
       data    name/1/, num/0/, cmt/2/
 
  
index e7a91d6..3ad284d 100644 (file)
@@ -15,10 +15,10 @@ c
       integer op
 c     
       integer dot,colon,quote
-      integer less,great,equal
+      integer less,equal
 c     
       data dot/51/,quote/53/,colon/44/
-      data less/59/,great/60/,equal/50/
+      data less/59/,equal/50/
 c     
       op=fin
 c     
index 6303a94..1a571b3 100644 (file)
@@ -22,8 +22,6 @@ c====================================================================
       include 'stack.h'
       parameter (nz1=nsiz-1,nz2=nsiz-2)
 c     
-c      integer         nunit,unit(50)
-c      common /units / nunit,unit
 c
 c     common for scicos debug mode
 
@@ -50,7 +48,7 @@ c     ippty: interfaces properties
 c     integer graphicsmodels
       logical first
       double precision dlamch
-      integer i,k,l,nc,mode(2),vsizg,stacksize
+      integer k,l,mode(2),vsizg,stacksize
       integer eps(nsiz),im(nsiz),exp(nsiz),pi(nsiz),bl(nsiz),io(nsiz)
       integer true(nsiz),false(nsiz),dollar(nsiz)
       integer idloc(nsiz)
@@ -72,7 +70,7 @@ c
       data dollar/673720359,nz1*673720360/
       data first/.true./
       data true/673717560,nz1*673720360/,false/673713976,nz1*673720360/
-      data nunit/50/
+      
 c     
       save /basbrk/,/mprot/
 c      save /units/
@@ -101,7 +99,6 @@ c     .  ------------------------------
 c     
 c     .  standard i/o initialization
 c     .  ----------------------------
-c      call iset(nunit,0,unit,1)
 c     .  rte = unit number for terminal input
       err=0
       if(ini1.ne.-3) then
index b87e7db..b87527b 100644 (file)
@@ -13,8 +13,8 @@ c     =============================================================
       include 'stack.h'
 c     
       integer iadr,op,rhs1,r
-      integer equal,less,great,insert,extrac
-      data equal/50/,less/59/,great/60/,insert/2/,extrac/3/
+      integer insert,extrac
+      data insert/2/,extrac/3/
 c     
       iadr(l)=l+l-1
 c     
@@ -71,10 +71,10 @@ c     Copyright INRIA
 c     
       integer iadr,sadr,op,r
       integer id(nsiz)
-      integer equal,less,great,insert,extrac,blank
+      integer equal,less,great,blank
       logical cresmat,ptover
 
-      data equal/50/,less/59/,great/60/,insert/2/,extrac/3/
+      data equal/50/,less/59/,great/60/
       data blank/40/
 c     
       iadr(l)=l+l-1
@@ -257,9 +257,9 @@ c     *call* macro
 c     Copyright INRIA
       include 'stack.h'
 c     
-      integer iadr,sadr,op,rhs1
-      integer equal,less,great,insert,extrac
-      data equal/50/,less/59/,great/60/,insert/2/,extrac/3/
+      integer iadr,sadr,op
+      integer equal,less,great
+      data equal/50/,less/59/,great/60/
 c     
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index e9176a0..02726c8 100644 (file)
@@ -13,14 +13,13 @@ c     searches a macro name for overloaded  operations
 c     ================================================
       include 'stack.h'
       integer gettype
-      logical ilog,getilist,getsmat,first
+      logical first
 c
       parameter (nops=33)
       integer op,id(nsiz),name(nlgh),blank,percen,under,id1(nsiz)
       integer ops(nops),code(nops),top1,rhs1,codop
-      integer compat
       integer iadr
-      data compat/1/
+
       data blank/40/,percen/56/,under/36/
       data ops /53,45,46,47,48,49,62, 1, 2, 3,4,98,99,100,200,201,202,
      &          44,149,150,151,50,119,57,58,113,61,104,59,60,109,110,5/
index 3004e98..82ae012 100644 (file)
@@ -17,7 +17,7 @@ c
       common / ptkeep / lwk
       integer itype,itypel,gettype
       integer fl,mode,m,n,it,lr,lc,nlr,lkeep,topk,lname,siz,vol,tops
-      integer namef(nlgh),percent,under,pchar
+      integer namef(nlgh),under,pchar
       logical getmat,ilog,getpoly,typer,clsave,getsimat,gethmat
       logical crewimat ,islss,getilist,getbmat,eptover
       character*4 name
index 368f89c..8cbbad9 100644 (file)
@@ -13,7 +13,7 @@ c     issue prompt with optional pause
 
       include 'stack.h'
       integer pause,escape,menusflag
-      character *20,linfo
+
       logical iflag,interruptible
       common /basbrk/ iflag,interruptible
 
index ce06ccb..0cd82ba 100644 (file)
@@ -24,11 +24,11 @@ c
       integer for(nsiz),while(nsiz),iff(nsiz),else(nsiz),ennd(nsiz)
       integer cas(nsiz),sel(nsiz),elsif(nsiz),try(nsiz),catchkey(nsiz)
       integer clcnt,strcnt,qcount,bcount
-      integer rparen,left,right,quote,percen,dot
+      integer rparen,left,right,quote,dot
       integer eol,blank,name,num,cmt,psym,pchar
       logical eqid
 c
-      data rparen/42/,left/54/,right/55/,quote/53/,percen/56/,dot/51/
+      data rparen/42/,left/54/,right/55/,quote/53/,dot/51/
       data eol/99/,blank/40/
       data num/0/,name/1/,cmt/2/
       data else/236721422,nz1*673720360/
index 32d1ada..3b95a5a 100644 (file)
@@ -37,7 +37,7 @@ c     =============================================================
 c
       INCLUDE 'stack.h'
       logical compil,vcopyobj
-      integer id(nsiz),fun1,vol,vk
+      integer id(nsiz),vol,vk
       integer cbot
 c     
       logical eqid,local
index 00c248a..e0f8502 100644 (file)
@@ -13,7 +13,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       integer iadr
       integer id(nsiz)
 c
-      logical eqid,new
+      logical eqid
       integer v,vk
 c
       iadr(l)=l+l-1   
index 947e080..cec4f47 100644 (file)
@@ -15,7 +15,7 @@ c     variable that began in istk(il)
       integer nmax
       parameter (nmax=8)
 c     following common defines the initial database of type names
-      integer maxtyp,nmmax,maxtypf,nmmaxf
+      integer maxtyp,nmmax
       parameter (maxtyp=50,nmmax=200)
       integer tp(maxtyp),ptr(maxtyp),ln(maxtyp),namrec(nmmax),ptmax
       common /typnams/ tp,ptr,ln,namrec,ptmax
@@ -66,7 +66,7 @@ c     initialize hard coded type names
 c     Copyright INRIA
       INCLUDE 'stack.h'
 c     following common defines the initial database of type names
-      integer maxtyp,nmmax,maxtypf,nmmaxf
+      integer maxtyp,nmmax
       parameter (maxtyp=50,nmmax=200)
       integer tp(maxtyp),ptr(maxtyp),ln(maxtyp),namrec(nmmax),ptmax
       common /typnams/ tp,ptr,ln,namrec,ptmax
@@ -154,7 +154,7 @@ c     type 130 : fptr
 c
 c     Copyright INRIA
 c     following common defines the initial database of type names
-      integer maxtyp,nmmax,maxtypf,nmmaxf
+      integer maxtyp,nmmax
       parameter (maxtyp=50,nmmax=200)
       integer tp(maxtyp),ptr(maxtyp),ln(maxtyp),namrec(nmmax),ptmax
       common /typnams/ tp,ptr,ln,namrec,ptmax
index bb28730..4035e5b 100644 (file)
@@ -13,7 +13,7 @@ c     creates a variable with is a pointer on a primitive function
 C     ---------------------------------
       include 'stack.h'
 
-      logical compil,cremat
+      logical compil
       integer bl(nsiz),id(*),ffun,ffin,iadr,sadr
       data bl/nsiz*673720360/
       iadr(l)=l+l-1
index e0125cf..222d368 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
       subroutine intgetfield()
       include 'stack.h'
-      integer top0,tops,vol,vol2,vol1
+      integer vol2,vol1
       integer strpos
       external strpos
       integer iadr,sadr
index eb9fe4d..cc80c7e 100644 (file)
@@ -16,12 +16,11 @@ c     Copyright INRIA
 c
 c
       integer rhs1,vol1,vol2,vol
-      integer op,top1,top2
+      integer top1,top2
 
       integer strpos
       external strpos
       logical ptover
-      integer id(nsiz)
       integer iadr,sadr
 c
 c
index 96fa158..cec2d16 100644 (file)
@@ -17,8 +17,6 @@ c
       integer vol1,vol2,vol3,volv
       integer top3,top2,top1
 
-      integer strpos
-      external strpos
       logical ptover
       integer iadr,sadr
 c
index af2343a..ef78605 100644 (file)
@@ -103,8 +103,8 @@ c     *******************************
 c     -------------------------------------------
 c     same example with call to matptr
 c     param must be defined as a scilab variable
-      double precision t, y, ydot, param
-      dimension y(3), ydot(3), param(3)
+      double precision t, y, ydot
+      dimension y(3), ydot(3)
 
       include 'stack.h'
       call matptr('param'//char(0),m,n,lp)
index 824d839..f29de0e 100644 (file)
@@ -20,7 +20,7 @@ c      implicit undefined (a-z)
       external bint2d,fint2d
       double precision tol,result,erro
       logical getexternal,getrmat,type ,cremat,checkval
-      integer topk,lr,katop,kydot,top2,lra,lrb,lc
+      integer topk,lr,top2,lc
 c
       integer iadr,sadr
       external setfint2d
index 3a3a53c..7313db4 100644 (file)
@@ -18,9 +18,9 @@ c      implicit undefined (a-z)
       integer iero 
       common/ierajf/iero
       external bint3d,fint3d
-      double precision epsabs,epsrel,result,abserr
+      double precision epsabs,epsrel
       logical getexternal,getrmat,type ,cremat,checkval,getscalar
-      integer topk,lr,katop,kydot,top2,lra,lrb,lc,gettype,top0
+      integer topk,lr,top2,lc,gettype,top0
 c
       integer iadr,sadr
       external setfint3d
index 1f795d4..3c1f634 100644 (file)
@@ -13,7 +13,7 @@ clll. optimize
       double precision rownd, rowns,
      1   ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround
       double precision rownr3, t0, tlast, toutc
-      double precision hming, t1, temp1, temp2, x
+      double precision hming, t1, x
       logical zroot, Mroot
       common /ls0001/ rownd, rowns(209),
      2   ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround,
index 9a7f9cb..a165326 100644 (file)
@@ -15,7 +15,7 @@ c
 c     Copyright INRIA
       include 'stack.h'
 c     
-      double precision e1,e2,e3,st,e1r
+      double precision e1,e2,st,e1r
       double precision dlamch
       integer iadr,sadr
 c     
index a9203e3..cb03c9f 100644 (file)
@@ -11,7 +11,6 @@ c
       INCLUDE 'stack.h'
       integer id(nsiz)
 
-      double precision sr,si
       integer iadr,sadr
 c
       iadr(l)=l+l-1
index d296478..15ce630 100644 (file)
@@ -13,7 +13,6 @@ c
 c
 c     interface for the arcsin function
 c
-      double precision sr,si
       integer iadr,sadr
 c
       iadr(l)=l+l-1
index 5b61906..0c13d6d 100644 (file)
@@ -11,7 +11,6 @@ c
 c     WARNING : argument of this interface may be passed by reference
       INCLUDE 'stack.h'
       integer id(nsiz)
-      double precision t,t1
       logical ref
       integer iadr,sadr
 c     
index ab6f4fc..059469d 100644 (file)
@@ -11,7 +11,7 @@ c
       INCLUDE 'stack.h'
       integer id(nsiz)
 
-      double precision sr,si,dlapy2,epsa,epsr,norm,eps
+      double precision epsa,epsr,norm,eps
       double precision dasum,wasum
       integer iadr,sadr
 c
index 36b9859..da3998e 100644 (file)
@@ -11,7 +11,6 @@ c
 c     WARNING : argument of this interface may be passed by reference
       INCLUDE 'stack.h'
       integer id(nsiz)
-      logical ref
       integer mtlbsel
       integer sel,tops
       integer iadr,sadr
index 8e4716d..363e527 100644 (file)
@@ -10,8 +10,6 @@ c
        subroutine intexpm(id)
       INCLUDE 'stack.h'
       integer id(nsiz)
-
-      double precision sr,si
       integer iadr,sadr
 c
       iadr(l)=l+l-1
index 0cab6dd..0e0aad6 100644 (file)
@@ -11,10 +11,9 @@ c
       INCLUDE 'stack.h'
       integer id(nsiz)
 
-      integer tops,speye(nsiz)
+      integer tops
       double precision s
       integer iadr,sadr
-      data speye/571349276,673720334,4*673720360/
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index bb3dc0f..f61232e 100644 (file)
@@ -11,7 +11,7 @@ c
 c     WARNING : argument of this interface may be passed by reference
       INCLUDE 'stack.h'
       integer id(nsiz)
-      double precision t,t1
+
       logical ref
       integer iadr,sadr
 c     
index 3a8265a..6f95169 100644 (file)
@@ -11,7 +11,6 @@ c
 c     WARNING : argument of this interface may be passed by reference
       INCLUDE 'stack.h'
       integer id(nsiz)
-      double precision t,t1
       logical ref
       integer iadr,sadr
 c     
index f89c0e4..5a79b8f 100644 (file)
@@ -11,7 +11,6 @@ c
       INCLUDE 'stack.h'
       integer id(nsiz)
       double precision eps,mx
-      integer tops,top2
       integer iadr,sadr
 c     
       iadr(l)=l+l-1
index 23a4900..f15d827 100644 (file)
@@ -15,17 +15,15 @@ c     -------------------------------
 c     Interface for maxi and mini 
       INCLUDE 'stack.h'
       integer id(nsiz)
-      double precision s,sr,si
-      logical checkrhs,checklhs,getscalar,cremat,getmat
-      logical cresmat2,getrmat,test
+      logical checklhs,cremat
+      logical getrmat,test
       logical getilist,getlistmat,checkval
       integer gettype,itype,topk,isanan
       integer sel, mtlbsel
-      integer iadr,sadr
+      integer iadr
       double precision x1
 c
       iadr(l)=l+l-1
-c      sadr(l)=(l/2)+1
 c
 
       topk=top
index ba254bb..5f2a440 100644 (file)
@@ -33,12 +33,12 @@ c     EXTERNAL FUNCTIONS
       external         dlamch
 
 c     EXTERNAL API FUNCTIONS
-      logical  checkrhs, checklhs, getsmat, getrmat, cremat, crebmat
-      external checkrhs, checklhs, getsmat, getrmat, cremat, crebmat
+      logical  checkrhs, checklhs, getsmat, cremat, crebmat
+      external checkrhs, checklhs, getsmat, cremat, crebmat
 
 c     LOCAL VAR
       integer topk
-      integer n, m, idxmat, mt, nt, lstr, nlstr, lm, lr, lc, i
+      integer mt, nt, lstr, nlstr, lm, lr, lc, i
       integer   lmax
       parameter(lmax = 10)
       character*(lmax) inputstring
index 8bcadc2..64fb67c 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txtc     ----------------
 c
       subroutine intones(id)
       INCLUDE 'stack.h'
-      integer id(nsiz),name(nlgh)
+      integer id(nsiz)
 
       integer tops
       double precision s
index 811a720..7c110f2 100644 (file)
@@ -11,7 +11,7 @@ c
       INCLUDE 'stack.h'
       integer id(nsiz)
 
-      double precision sr,si,dlapy2
+      double precision sr,dlapy2
       integer iadr,sadr
 c
       iadr(l)=l+l-1
index 2120ca3..f3c478c 100644 (file)
@@ -14,8 +14,8 @@ c =========================================
 
       integer tops,sel
       integer iadr,sadr
-      integer modtest,rptest
-      external modtest,rptest
+      integer modtest
+      external modtest
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
@@ -167,7 +167,6 @@ c =========================================
       INCLUDE 'stack.h'
 c
       integer id(nsiz),tops,vol,sel
-      logical ref
       external strord
       integer strord
       integer iadr,sadr
index f78d27c..03b3753 100644 (file)
@@ -14,7 +14,6 @@ c
       integer tops,top2
       integer magi,frk,hilb
       integer iadr,sadr
-      logical ref
       data magi/22/,frk/15/,hilb/17/
 c
       iadr(l)=l+l-1
index 8ed3aba..0cf8194 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txtc     ----------------
 c
       subroutine intzeros(id)
       INCLUDE 'stack.h'
-      integer id(nsiz),name(nlgh)
+      integer id(nsiz)
 
       integer tops
       double precision s
index a33cd12..51f799a 100644 (file)
@@ -14,7 +14,7 @@ c     extends dbesi for the case where alpha is negative
       integer kode,n,nz,ierr
 c
       double precision a,pi,inf,x,a1
-      integer ier1,ier2
+      integer ier2
       double precision dlamch
       data pi /3.14159265358979324D0/
 
@@ -119,7 +119,7 @@ c     w : working array of size 2*na (used only if nz>0 and alpha contains negat
 C         values
       double precision x(nx),alpha(na),y(*),w(*)
       integer kode,nx,na,ier
-      double precision e,dlamch,w1,eps
+      double precision dlamch,w1,eps
       eps=dlamch('p')
       ierr=0
       if (na.lt.0) then
index 9ceef8a..a23536e 100644 (file)
@@ -15,7 +15,7 @@ c     if alpha is negative and non integer and x1 is negative:error
       integer n,nz,ierr
 c
       double precision a,b,pi,inf,x,a1
-      integer ier1,ier2
+      integer ier2
       double precision dlamch
       data pi /3.14159265358979324D0/
 
@@ -132,7 +132,7 @@ c     w : working array of size 2*na (used only if nz>0 and alpha contains negat
 C         values
       double precision x(nx),alpha(na),y(*),w(*)
       integer kode,nx,na,ier
-      double precision e,dlamch,w1,eps
+      double precision dlamch,w1,eps
       eps=dlamch('p')
       ierr=0
       if (na.lt.0) then
index 87ab7a2..c70a37f 100644 (file)
@@ -62,7 +62,7 @@ c     w : working array of size 2*na (used only if nz>0 and alpha contains negat
 C         values
       double precision x(nx),alpha(na),y(*),w(*)
       integer kode,nx,na,ier
-      double precision e,dlamch,eps
+      double precision dlamch,eps
       eps=dlamch('p')
       ierr=0
       if (na.lt.0) then
index 8c583ff..c32584f 100644 (file)
@@ -15,7 +15,7 @@ c     x is assumed to be >0 (if negative bessely(alpha,x) is complex)
       integer n,nz,ierr
 c
       double precision a,b,pi,inf,x,a1,eps
-      integer ier1,ier2
+      integer ier2
       double precision dlamch
       data pi /3.14159265358979324D0/
 
@@ -113,7 +113,7 @@ c     w : working array of size 2*na (used only if nz>0 and alpha contains negat
 C         values
       double precision x(nx),alpha(na),y(*),w(*)
       integer kode, nx,na,ier
-      double precision e,dlamch,w1,eps
+      double precision dlamch,w1,eps
       eps=dlamch('p')
       ierr=0
       if (na.lt.0) then
index 88cce5c..d5394c1 100644 (file)
@@ -29,7 +29,7 @@ c     Serge Steer INRIA
 c
       double precision ar,br,bi,cr,ci
 c     c = a/b
-      double precision s,d,ars,brs,bis,dlamch
+      double precision s,d,ars,brs,bis
 c
       ierr=0
       if(bi.eq.0.0d0) then
index 92722f2..7269944 100644 (file)
@@ -113,7 +113,7 @@ C----------------------------------------------------------------------
 CS    REAL 
       DOUBLE PRECISION 
      1    C,CONV,EPS,FACT,HALF,ONE,P,PI,Q,RES,SQRTPI,SUM,TWELVE,
-     2    TWO,X,XBIG,XDEN,XINF,XMININ,XNUM,Y,Y1,YSQ,Z,ZERO
+     2    TWO,X,XBIG,XDEN,XINF,XNUM,Y,Y1,YSQ,Z,ZERO
       DIMENSION C(7),P(8),Q(8)
 C----------------------------------------------------------------------
 C  Mathematical constants
@@ -129,8 +129,8 @@ C  Machine dependent parameters
 C----------------------------------------------------------------------
 CS    DATA XBIG,XMININ,EPS/35.040E0,1.18E-38,1.19E-7/,
 CS   1     XINF/3.4E38/
-      DATA XBIG,XMININ,EPS/171.624D0,2.23D-308,2.22D-16/,
-     1     XINF/1.79D308/
+CS      DATA XBIG,XMININ,EPS/171.624D0,2.23D-308,2.22D-16/,
+CS     1     XINF/1.79D308/
 C----------------------------------------------------------------------
 C  Numerator and denominator coefficients for rational minimax
 C     approximation over (1,2).
index acd46fe..f525687 100644 (file)
@@ -59,7 +59,7 @@ C   920501  Reformatted the REFERENCES section.  (WRB)
 C***END PROLOGUE  XERSVE
       include 'stack.h'
       PARAMETER (LENTAB=10)
-      INTEGER LUN(5)
+
       CHARACTER*(*) LIBRAR, SUBROU, MESSG
       CHARACTER*8  LIBTAB(LENTAB), SUBTAB(LENTAB), LIB, SUB
       CHARACTER*20 MESTAB(LENTAB), MES
index 1bec44f..e0cec7b 100644 (file)
@@ -15,7 +15,7 @@ c     extends cbesi for the case where alpha is negative
       integer kode,n,nz,ierr
 c     
       double precision a,b,pi,inf,xr, xi,a1
-      integer ier1,ier2
+      integer ier2
       double precision dlamch
 
       data pi /3.14159265358979324D0/
@@ -121,7 +121,7 @@ c     w : working array of size 2*na (used only if nz>0 and alpha
 C     contains negative
 C     values
       double precision xr(nx),xi(nx),alpha(na),yr(*),yi(*),wr(*),wi(*)
-      double precision e,dlamch,eps
+      double precision dlamch,eps
       integer kode,nx,na,ier
       ierr=0
       eps=dlamch('p')
index d1520ee..4b9a544 100644 (file)
@@ -15,7 +15,7 @@ c     extends cbesi for the case where alpha is negative
       integer kode,n,nz,ierr
 c     
       double precision a,pi,inf,xr, xi,a1
-      integer ier1,ier2
+      integer ier2
       double precision dlamch
 
       data pi /3.14159265358979324D0/
@@ -133,7 +133,7 @@ c     w : working array of size 2*na (used only if nz>0 and alpha
 C     contains negative
 C     values
       double precision xr(nx),xi(nx),alpha(na),yr(*),yi(*),wr(*),wi(*)
-      double precision e,dlamch,eps
+      double precision dlamch,eps
       integer kode,nx,na,ier
       ierr=0
       eps=dlamch('p')
index d454ec2..e06963c 100644 (file)
@@ -141,7 +141,7 @@ c     compute besseli function for x and alpha given by vectors
 c     w : working array of size 3*na (used only if nz>0 and alpha contains negative
 C         values
       double precision xr(nx),xi(nx),alpha(na),yr(*),yi(*),wr(*),wi(*)
-      double precision e,dlamch,eps
+      double precision dlamch,eps
       integer kode,nx,na,ier
       ierr=0
       eps=dlamch('p')
index 71b2c63..9b011ae 100644 (file)
@@ -85,7 +85,7 @@ c     compute besseli function for x and alpha given by vectors
 c     w : working array of size 2*na (used only if nz>0 and alpha contains negative
 C         values
       double precision xr(nx),xi(nx),alpha(na),yr(*),yi(*),wr(*),wi(*)
-      double precision e,dlamch,eps
+      double precision dlamch,eps
       integer kode,nx,na,ier
       eps=dlamch('p')
       ierr=0
index cbb12a6..6eeda5d 100644 (file)
@@ -15,7 +15,7 @@ c     extends cbesy for the case where alpha is negative
       integer kode,n,nz,ierr
 c
       double precision a,b,pi,inf,eps,xr, xi,a1
-      integer ier1,ier2
+      integer ier2
       double precision dlamch
 
       data pi /3.14159265358979324D0/
@@ -141,7 +141,7 @@ c     compute besseli function for x and alpha given by vectors
 c     w : working array of size 3*na (used only if nz>0 and alpha contains negative
 C         values
       double precision xr(nx),xi(nx),alpha(na),yr(*),yi(*),wr(*),wi(*)
-      double precision e,dlamch,eps
+      double precision dlamch,eps
       integer kode,nx,na,ier
       ierr=0
       eps=dlamch('p')
index 6da9bb1..e2b6051 100644 (file)
@@ -11,7 +11,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     addition
       include 'stack.h'
       common /mtlbc/ mmode
-      integer is1,top0,op
+      integer is1,op
       external memused
       integer memused
       integer iadr,sadr
index cd7187c..865de85 100644 (file)
@@ -11,7 +11,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     addition
       include 'stack.h'
       common /mtlbc/ mmode
-      character*8 fct
+
       integer is1
       external memused
       integer memused
index 67cb133..fad2288 100644 (file)
@@ -11,7 +11,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     WARNING : argument of this interface may be passed by reference
       INCLUDE 'stack.h'
       integer id(nsiz)
-      double precision pythag
       logical ref
       external memused
       integer memused
index 747f27f..1fed8e8 100644 (file)
@@ -11,8 +11,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     implicit vector
       include 'stack.h'
       common /mtlbc/ mmode
-      character*8 fct
-      integer is1
       external memused
       integer memused
       integer iadr,sadr
index b4b94a0..648e36f 100644 (file)
@@ -12,7 +12,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
       integer tops,top2
       integer iadr,sadr
-      logical ref
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index ee0e991..1c11587 100644 (file)
@@ -12,7 +12,7 @@ c     -------------------------------
 c     max interface 
 c     -------------------------------
       INCLUDE 'stack.h'
-      logical checkrhs,checklhs
+      logical checklhs
       integer gettype,itype,topk,sel
       integer iadr,sadr
       external memused,uppertype, mtlbsel
index ef54337..706c254 100644 (file)
@@ -10,7 +10,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
        subroutine i_mget(fname)
 c
        character*(*) fname
-       integer topk,rhsk,topl,fd
+       integer topk,rhsk,fd
        logical checkrhs,checklhs,getscalar,getsmat,checkval
        character*4 ityp
        include 'stack.h'
index a48d7b6..935a005 100644 (file)
@@ -10,7 +10,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
        subroutine i_mput(fname)
 c
        character*(*) fname
-       integer topk,rhsk,topl,fd
+       integer topk,rhsk,fd
        logical checkrhs,checklhs,getsmat,checkval,getscalar
        character*4 ityp
 
index 817651a..acd12ed 100644 (file)
@@ -10,10 +10,9 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine i_r_i
 c     division a droite
       include 'stack.h'
-      integer iadr,sadr
+      integer iadr
 c     
       iadr(l)=l+l-1
-c      sadr(l)=(l/2)+1
 c     
       il2=iadr(lstk(top))
       if(istk(il2).lt.0) il2=iadr(istk(il2+1))
index b9bec23..0c82d6c 100644 (file)
@@ -7,11 +7,11 @@ c     Copyright INRIA
       integer op
 c     
       integer star,dstar,slash,bslash,dot,colon,quote
-      integer less,great,equal,et,ou,non
+      integer less,equal,et,ou,non
 c
       data star/47/,dstar/62/,slash/48/
       data bslash/49/,dot/51/,colon/44/,quote/53/
-      data less/59/,great/60/,equal/50/
+      data less/59/,equal/50/
       data ou/57/,et/58/,non/61/
 c     
       op=fin
index 9c3380b..ff13430 100644 (file)
@@ -11,7 +11,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     addition
       include 'stack.h'
       common /mtlbc/ mmode
-      character*8 fct
       integer op
       external memused
       integer memused
index cc8751d..8b2ad25 100644 (file)
@@ -12,7 +12,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       INCLUDE 'stack.h'
 c     
       integer mode(2),fd
-      logical opened,eptover
+      logical opened
       integer iadr,sadr
 c
 
index 54c6563..82e33e5 100644 (file)
@@ -13,14 +13,13 @@ c     interface of exec function
       INCLUDE 'stack.h'
 c     
       integer flag,semi,typ
-      integer mode(2),retu(6)
+      integer mode(2)
       logical opened
       integer iadr,sadr
 c
       save opened,lunit
 c     
       data semi/43/
-      data retu/27,14,29,30,27,23/
 
 c     
       iadr(l)=l+l-1
index 0f4e1b5..4211c44 100644 (file)
@@ -12,12 +12,10 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     Bug 1054 corrected by Francois VOGEL, October 2004
       INCLUDE 'stack.h'
 c     
-      integer retu(6),comma,eol,topk,mode(2)
-      logical eptover,getsmat,checklhs,checkrhs,checkval
+      integer retu(6),comma,eol,topk
+      logical getsmat,checklhs,checkrhs,checkval
       integer iadr,sadr
-      logical first,pflag
 c
-      save opened,lunit,job,icomp
 c     
       data retu/27,14,29,30,27,23/,comma/52/,eol/99/
 c     
index 0efd2b0..8212251 100644 (file)
@@ -22,7 +22,7 @@ c
       data old/857368/,new/2100759/,scratc/1707037/,unknow/1316638/
       data sequen/1707548/,direct/1774093/,forma1/1775631/
       data unform/988958/
-      data clo/12/,ope/24/,rew/27/,bak/11/,last/21/,nclas/29/
+      data clo/12/,ope/24/,rew/27/,bak/11/,last/21/
 c     
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index 16db959..3dfb9f1 100644 (file)
@@ -9,7 +9,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine intlib
       INCLUDE 'stack.h'
       integer percen,mode(2),id(nlgh)
-      logical opened,eptover
       integer iadr,sadr
 c
       data percen/56/
index 83e37fe..9c821bd 100644 (file)
@@ -10,9 +10,9 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine intprint
       INCLUDE 'stack.h'
 c     
-      integer flag,top2,tops
+      integer top2,tops
       integer mode(2)
-      logical opened,eptover
+      logical opened
       integer iadr
 c
       save opened,lunit
index b94c1fe..a9a8bbe 100644 (file)
@@ -13,7 +13,6 @@ c
       integer tops
       double precision eps,xxx
       integer iadr,sadr
-      character bu1*(bsiz),bu2*(bsiz)
 c
 c     
       iadr(l)=l+l-1
index 24aa1e1..61d250a 100644 (file)
@@ -13,9 +13,8 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     
       integer top2
       integer ftyp,fmttyp,mode(2)
-      logical opened,eptover
+      logical opened
       integer iadr,sadr
-      character bu1*(bsiz),bu2*(bsiz)
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index d14b5b5..f3cb1a4 100644 (file)
@@ -12,7 +12,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 c     
       integer id(nsiz),mode(2),h(nsiz)
       integer top2,job,semi
-      logical opened,eptover
+      logical opened
       integer iadr
 c
       data blank/40/,semi/43/
@@ -91,13 +91,10 @@ c     Copyright INRIA/ENPC
       INCLUDE 'stack.h'
 c     
       integer id(nsiz),mode(2)
-      integer top2,job,semi
-      logical opened,eptover
+      integer top2
+      logical opened
       integer iadr
 c
-      data blank/40/,semi/43/
-
-c     
       iadr(l)=l+l-1
 c     
 
index b243fd6..ff12a8b 100644 (file)
@@ -10,7 +10,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       subroutine intsave
       include 'stack.h'
       logical opened,ptover,cremat
-      integer fd,vol,top0,srhs,bl(nsiz)
+      integer fd,vol,top0,bl(nsiz)
       double precision res
       logical eqid
       integer iadr,sadr
@@ -138,7 +138,7 @@ c     (id1(1).ne.blank) and if this variable if loaded k1 ist set to its
 c     index in the stack
 c
       include 'stack.h'
-      integer id1(nsiz),k1,vol
+      integer id1(nsiz),k1
       logical opened,cremat,ptover,eqid
       integer fd,id(nsiz),semi,blank,top0,endian,getendian,it,ssym
       double precision res,offset
@@ -347,7 +347,6 @@ c     Copyright INRIA
 c
       integer fd,id(nsiz),vol
       integer iadr
-      logical cremat
       character*3 fmti,fmtd
 c
 c
@@ -414,8 +413,7 @@ c     .  call an external function
 c     Copyright INRIA
       include 'stack.h'
 c
-      integer fd,id(nsiz),vol
-      logical cremat
+      integer fd,id(nsiz)
       character*3 fmti,fmtd
 c
 c
@@ -479,7 +477,7 @@ c     Save a matrix of numbers
       include 'stack.h'
 c
       integer fd
-      logical ptover,cremat
+      logical ptover
       integer iadr,sadr
       character*3 fmti,fmtd
 c
@@ -590,7 +588,7 @@ c     Save a matrix of numbers
       include 'stack.h'
 c
       integer fd
-      logical ptover,cremat
+      logical ptover
       integer iadr,sadr
       character*3 fmti,fmtd
 c
@@ -892,7 +890,7 @@ c     Copyright INRIA
 c     Load a matrix of strings
       include 'stack.h'
       integer fd
-      character*2 fmti,fmtd
+      character*2 fmti
       integer sadr
 c
 c      iadr(l)=l+l-1
@@ -936,7 +934,7 @@ c     Save a matrix of boolean
       include 'stack.h'
 c
       integer fd
-      character*2 fmti,fmtd
+      character*2 fmti
 c
 c      iadr(l)=l+l-1
 c      sadr(l)=(l/2)+1
@@ -957,7 +955,7 @@ c     Copyright INRIA
 c     Load a matrix of boolean
       include 'stack.h'
       integer fd
-      character*2 fmti,fmtd
+      character*2 fmti
       integer sadr
 c
 c      iadr(l)=l+l-1
@@ -993,7 +991,7 @@ c     Save  a function
       include 'stack.h'
 c
       integer fd
-      character*2 fmti,fmtd
+      character*2 fmti
 c
 c      iadr(l)=l+l-1
 c      sadr(l)=(l/2)+1
@@ -1018,7 +1016,7 @@ c     Load a function
       include 'stack.h'
 c
       integer fd
-      character*2 fmti,fmtd
+      character*2 fmti
       integer sadr
 c
 c      iadr(l)=l+l-1
@@ -1075,7 +1073,7 @@ c     Save a compiled function
       include 'stack.h'
 c
       integer fd
-      character*2 fmti,fmtd
+      character*2 fmti
 c
 c      iadr(l)=l+l-1
 c      sadr(l)=(l/2)+1
@@ -1101,7 +1099,7 @@ c     Load a compiled function
 c
       integer fd
       integer sadr
-      character*2 fmti,fmtd
+      character*2 fmti
 c
 c      iadr(l)=l+l-1
       sadr(l)=(l/2)+1
@@ -1480,6 +1478,7 @@ c     read pointer
 c      n=4+2*1
       return
       end
+      
       subroutine savefptr(fd,il,ierr)
 c     Copyright INRIA
 c     Save a pointer on  a primitive
@@ -1487,7 +1486,6 @@ c     Save a pointer on  a primitive
 c
       integer fd
       character*3 fmti,fmtd
-      integer sadr
 c
       fmti='il'//char(0)
       fmtd='dl'//char(0)
index 3d6a2aa..c393aba 100644 (file)
@@ -15,7 +15,6 @@ c
       logical opened
       integer fd
       character*2 mode
-      character*3 status
       double precision w
       integer iadr,sadr
 c     
index 15e56a8..93e4f83 100644 (file)
@@ -155,7 +155,7 @@ c     ===
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           DCOPY, DGEQP3, DLABAD, DLAIC1, DLASCL, DLASET,
-     $     DORMQR, DORMRZ, DTRSM, DTZRZF, XERBLA
+     $     DORMQR, DTRSM, XERBLA
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          ABS, DBLE, MAX, MIN
@@ -532,7 +532,7 @@ c     *     workspace: 2*MN+NRHS.
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           DLABAD, XERBLA, ZCOPY, ZGEQP3, ZLAIC1, ZLASCL,
-     $                   ZLASET, ZTRSM, ZTZRZF, ZUNMQR, ZUNMRZ
+     $                   ZLASET, ZTRSM, ZUNMQR 
 *     ..
 *     .. External Functions ..
       INTEGER            ILAENV
index 41bdda3..f600935 100644 (file)
@@ -11,9 +11,8 @@ c$
 c     [Ab,Bb,X,Y]=balanc(A,B)
 
       include 'stack.h'
-      logical getrhsvar,createvar,createcvar
+      logical getrhsvar,createvar
       logical checklhs,checkrhs
-      integer vfinite
 
       character fname*(*)
       character JOB
index 7ae5005..6834536 100644 (file)
@@ -20,7 +20,6 @@ c     [al,be] = gspec(A,B)
       character fname*(*)
       character JOBVL, JOBVR
       double precision DZERO
-      complex*16 complex
       parameter ( DZERO=0.0D0 )
 
       minrhs=2
index 96d35d5..042c65f 100644 (file)
@@ -26,9 +26,6 @@ c     --------------------------
 c     
       character*(nlgh+1) namef,namej
       common/csolve/namef,namej
-c     for semidef
-      double precision abstol,reltol,nu,tv
-      integer sz,upsz
 c
       integer impn(nsiz)
       logical eqid, getscalar
index fe9b639..7345335 100644 (file)
@@ -11,7 +11,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       INCLUDE 'stack.h'
       integer iadr, sadr
       integer id(nsiz)
-      integer vol,v2,blank,ipb(6)
+      integer vol,blank,ipb(6)
       double precision er
 
       logical refa,refb
index 3ac52f2..00912ce 100644 (file)
@@ -11,7 +11,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       INCLUDE 'stack.h'
       integer iadr, sadr
       integer id(nsiz)
-      integer volr,vol
       logical ref
 c
       iadr(l)=l+l-1
index dc30659..1006578 100644 (file)
@@ -11,7 +11,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       integer iadr, sadr
       integer id(nsiz)
       integer vola,volb
-      logical chkvar,vcopyobj
+      logical chkvar
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index fdaaa3e..0bd2541 100644 (file)
@@ -11,9 +11,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       integer iadr, sadr
       integer id(nsiz)
       integer vola,volb,vol
-      double precision er
       logical refr,chkvar,israt,ok
-      data blank/40/
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index 6e50c44..6202f0d 100644 (file)
@@ -10,8 +10,6 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
       INCLUDE 'stack.h'
 
       integer id(nsiz)
-      integer vol,v2,blank
-      double precision er
       integer simpmd
       common/csimp/ simpmd
 c
index 2f2ebdd..7b2be05 100644 (file)
@@ -46,7 +46,7 @@ C     .. Array Arguments ..
       INTEGER ix(*)
 C     ..
 C     .. Local Scalars ..
-      DOUBLE PRECISION prob,ptot,sum
+      DOUBLE PRECISION prob,sum
       INTEGER i,icat,ntot
 C     ..
 C     .. External Functions ..
index c63b94e..6c82196 100644 (file)
@@ -43,7 +43,6 @@ C     .. Scalar Arguments ..
 C     ..
 C     .. Local Scalars ..
       DOUBLE PRECISION xden,xnum
-      LOGICAL qcond
 C     ..
 C     .. External Functions ..
 C     JJV changed the code to call SGAMMA and SNORM directly
index 271cb06..212be5b 100644 (file)
@@ -53,10 +53,6 @@ C     ..
 C     .. Local Arrays ..
       INTEGER shift(0:4),values(5)
 C     ..
-C     .. External Functions ..
-      INTEGER lennob
-      EXTERNAL lennob
-C     ..
 C     .. Intrinsic Functions ..
       INTRINSIC index,mod
 C     ..
index bae2475..b2b2282 100644 (file)
@@ -29,7 +29,7 @@ cDEC$ ATTRIBUTES DLLIMPORT:: /cosdebugcounter/
 cDEC$ ENDIF      
       
       common /cosdebugcounter/ counter
-      logical getrhsvar, createvar,checklhs,checkrhs
+      logical createvar,checklhs,checkrhs
       integer counter
       character*(*) fname
 c
index 3f7c8ef..0073a7c 100644 (file)
@@ -22,7 +22,6 @@ c     z(6)=height
 c     z(7)=text_handle
 
       double precision t,xd(*),x(*),z(*),tvec(*),rpar(*),u(*),y(*)
-      double precision g(6)
       integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
       integer nipar,nu,ny
 
@@ -74,10 +73,6 @@ c     ---------------------------------------------------------------
 
       subroutine setblockwin(win,cur)
       integer win,cur
-      integer v,verb
-      double precision dv
-      data verb/0/
-
       return
       end
 
@@ -85,7 +80,6 @@ c     -------- Build the string and draw it inside the box  --------
       subroutine affdraw(form, val, winnum, textind)
       integer textind 
       integer form(2)
-      double precision g(6)
       double precision winnum
       double precision val
       character*40 fmt,value
@@ -110,7 +104,7 @@ c ------------------------------------------------------------------------------
       subroutine getgeom(g)
       include "stack.h"
       double precision g(*)
-      integer scicstring,ret
+      integer ret
       integer sadr,iadr
       iadr(l) = l + l - 1
       sadr(l)=(l/2)+1
index cd604a1..a5b0937 100644 (file)
@@ -27,7 +27,7 @@ c     on the sign of the unique input (if input>0 then  else )
 c
 c     Copyright INRIA
       double precision rpar(*),u(*)
-      integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
+      integer flag,nevprt,ntvec,nrpar,ipar(*)
       integer nipar,nu
 c
       integer iu
index 04617ab..b5b27e6 100644 (file)
@@ -27,7 +27,7 @@ c     on the sign of the unique input (if input>0 then  else )
 c
 c     Copyright INRIA
       double precision rpar(*),u(*)
-      integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
+      integer flag,nevprt,ntvec,nrpar,ipar(*)
       integer nipar,nu
 
 c
index 81a4d60..bf4daed 100644 (file)
@@ -29,7 +29,7 @@ c
       double precision t,xd(*),x(*),z(*),tvec(*),rpar(*),u1(*),u2(*)
       double precision y(*)
       integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
-      integer nipar,nu,ny
+      integer nipar,ny
 
 c
       do 1 i=1,nu1
index 16746a4..9bfea93 100644 (file)
@@ -29,7 +29,7 @@ c
       double precision t,xd(*),x(*),z(*),tvec(*),rpar(*)
       double precision u1(*),u2(*),u3(*),y(*)
       integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
-      integer nipar,nu,ny
+      integer nipar,ny
 
 c
       do 1 i=1,nu1
index 2af0e7a..813fa70 100644 (file)
@@ -11,12 +11,7 @@ c     =======================================
 c      
       include 'stack.h'
       character*(*) fname
-      double precision adelp,adels,fact,zzi(16),zzr(16),zpi(16),zpr(16)
-      double precision alpha,beta,u,y,eps,eps1,v
-      double precision kappa,lambda,mu,nu
-      integer ordre,lw,lt,li,lr,lo,lf,lg
-      integer i,top2
-      logical vect,arma
+      integer lw
       integer iadr,sadr
       
       iadr(l)=l+l-1
index 3de0912..6e15c5c 100644 (file)
@@ -12,12 +12,7 @@ c     =======================================
 c      
       include 'stack.h'
       character*(*) fname
-      double precision adelp,adels,fact,zzi(16),zzr(16),zpi(16),zpr(16)
-      double precision alpha,beta,u,y,eps,eps1,v
-      double precision kappa,lambda,mu,nu
-      integer ordre,lw,lt,li,lr,lo,lf,lg
-      integer i,top2
-      logical vect,arma
+      integer lw
       integer iadr,sadr
       
       iadr(l)=l+l-1
index fe3f241..de5eda8 100644 (file)
@@ -11,12 +11,9 @@ c     =======================================
 c     implicit undefined (a-z)
       include 'stack.h'
       character*(*) fname
-      double precision adelp,adels,fact,zzi(16),zzr(16),zpi(16),zpr(16)
-      double precision alpha,beta,u,y,eps,eps1,v
-      double precision kappa,lambda,mu,nu
-      integer ordre,lw,lt,li,lr,lo,lf,lg
+      integer lw,li,lr
       integer i,top2
-      logical vect,arma
+      logical vect
       integer iadr,sadr
       
       iadr(l)=l+l-1
index 5afd5a7..1e2a138 100644 (file)
@@ -12,12 +12,7 @@ c     =======================================
 c      
       include 'stack.h'
       character*(*) fname
-      double precision adelp,adels,fact,zzi(16),zzr(16),zpi(16),zpr(16)
-      double precision alpha,beta,u,y,eps,eps1,v
-      double precision kappa,lambda,mu,nu
-      integer ordre,lw,lt,li,lr,lo,lf,lg
-      integer i,top2
-      logical vect,arma
+      integer lw,lo
       integer iadr,sadr
       
       iadr(l)=l+l-1
index 69f5370..34fb87e 100644 (file)
@@ -11,12 +11,11 @@ c     =======================================
 c      
       include 'stack.h'
       character*(*) fname
-      double precision adelp,adels,fact,zzi(16),zzr(16),zpi(16),zpr(16)
       double precision alpha,beta,u,y,eps,eps1,v
       double precision kappa,lambda,mu,nu
-      integer ordre,lw,lt,li,lr,lo,lf,lg
-      integer i,top2
-      logical vect,arma
+      integer ordre,lt,lf,lg
+      integer top2
+      logical arma
       integer iadr,sadr
       
       iadr(l)=l+l-1
index ff4906e..5661d1b 100644 (file)
@@ -12,11 +12,8 @@ c
       include 'stack.h'
       character*(*) fname
       double precision adelp,adels,fact,zzi(16),zzr(16),zpi(16),zpr(16)
-      double precision alpha,beta,u,y,eps,eps1,v
-      double precision kappa,lambda,mu,nu
-      integer ordre,lw,lt,li,lr,lo,lf,lg
-      integer i,top2
-      logical vect,arma
+      integer lo,lg
+      integer i
       integer iadr,sadr
       
       iadr(l)=l+l-1
index 4256dd7..53ced47 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 c SCILAB function blkfc1i
       subroutine intblkfc1i(id)
-      logical getrhsvar, createvar, putlhsvar      
+      logical getrhsvar, putlhsvar      
       include 'stack.h'
 c
        nbvars=0
index fb5c2f0..b87e1a9 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 c SCILAB function blkslvi
       subroutine intblkslvi(id)
-      logical getrhsvar, createvar, putlhsvar            
+      logical getrhsvar, putlhsvar            
       include 'stack.h'
 c
        nbvars=0
index 3fea8b2..01d2d0f 100644 (file)
@@ -9,7 +9,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 c SCILAB function inpnvi
       subroutine intinpnvi(id)
-      logical getrhsvar, createvar, putlhsvar      
+      logical getrhsvar, putlhsvar      
       include 'stack.h'
 c
        nbvars=0
index ab71c0b..a9dc450 100644 (file)
@@ -178,7 +178,7 @@ c     no more place for c
      $            C_nelmax, C_mnel(*), C_icol(*), ierr
       double precision A_R(*), s
 
-      integer kA, kAf, kC, i, jA, k
+      integer kA, kAf, kC, i, k
 
       kAf = 0
       kC = 0
index 1cee44a..a824e20 100644 (file)
@@ -12,9 +12,9 @@ c
       include 'stack.h'
 c     
       integer iadr, sadr
-      integer topk,rhsk,topl, topf,mode(2)
+      integer topk,rhsk, topf,mode(2)
       logical checkrhs,checklhs,getsmat,checkval,getvect
-      logical cremat,cresmat,cresmat2,bufstore,listcremat
+      logical listcremat
       logical listcresmat,listcrestring
       logical opened
 
index 6945aab..96fa524 100644 (file)
@@ -707,7 +707,6 @@ C
 
       INTEGER*4 HEADER(M),LINKS(M)
       CHARACTER*8 RWNAME(M),NAME
-      CHARACTER*100 BUFFER
 C
 C     Get code of the NAME.
       CALL MYCODE(IOLOG,NAME,KCODE,M)
@@ -931,7 +930,6 @@ C
 C
 C *** LOCAL VARIABLES
       INTEGER*4 IPOS
-      CHARACTER*100 BUFFER
 C
 C
 C *** PARAMETERS DESCRIPTION
index d4a1080..917d1a7 100644 (file)
@@ -20,7 +20,7 @@ C     NZA   : number of nonzeros of the LP constraint matrix.
 
 C
 C *** LOCAL VARIABLES
-      INTEGER*4I,J,COLLEN
+      INTEGER*4 COLLEN
       DOUBLE PRECISION SMALLA,VAL1,VAL2
       CHARACTER*8 NAME0,NAMRW1,NAMRW2,NAMCLN
       CHARACTER*8 NAMMPS
index d4cd76f..2759239 100644 (file)
@@ -7,7 +7,7 @@ C       PARAMETERS.
 C       -----------
 C
          INTEGER    IWSIZ,NEQNS,NNZA, NSUPER,iflag
-         INTEGER    I,I0,nnzb,nnzc,nnzl,nsub
+         INTEGER    I,I0,nnzc,nnzl,nsub
 C
          INTEGER ADJNCY(NNZA), COLCNT(NEQNS)   ,SNODE(NEQNS)
          INTEGER INVP(NEQNS) , IWORK(7*NEQNS+3),PERM(NEQNS) 
index 8e51378..0bc1820 100644 (file)
@@ -7,7 +7,7 @@ C       -----------
 C       PARAMETERS.
 C       -----------
 C
-        INTEGER         NEQNS, NSUPER, NSUB, NZL
+        INTEGER         NEQNS, NSUPER, NSUB
 c
         INTEGER         XLINDX(nsuper+1), XLNZ(neqns+1)
         INTEGER         LINDX(nsub)     , ADJNCY(nnz)
index 847b685..aab37a2 100644 (file)
 
       implicit none
       integer ka, A_it, A_mnel, A_icol(*), kc, C_it, C_mnel, C_icol(*),
-     $        j(*), p(*), nj, it, ib, nelmax, ierr, B_m, B_it
+     $        j(*), p(*), nj, ib, nelmax, ierr, B_m, B_it
       logical B_is_scalar
       double precision A_R(*), A_i(*), C_R(*), C_I(*),
      $                 B_R(B_m,*), B_I(B_m,*)
 
 *     local vars
-      integer i, j1, j2, jp, k, kamax
+      integer j1, j2, jp, k, kamax
       double precision Bij_R, Bij_I
 *     external functions and subroutines
       external insert_j1j2
       implicit none
       integer i1, i2, ka, A_it, A_mnel(*), A_icol(*),
      $                kc, C_it, C_mnel(*), C_icol(*),
-     $        it, nelmax, ierr
+     $        nelmax, ierr
       double precision A_R(*), A_I(*), C_R(*), C_I(*)
 
 *     local vars
       integer ka, A_it, A_mnel, A_icol(*), 
      $        kb, B_it, B_mnel, B_icol(*),
      $        kc, C_it, C_mnel, C_icol(*),
-     $        j(*), p(*), nj, it, ib, nelmax, ierr
+     $        j(*), p(*), nj, nelmax, ierr
       double precision A_R(*), A_i(*), B_R(*), B_I(*), C_R(*), C_I(*)
 
 *     local vars
-      integer i, j1, j2, jp, k, kamax, num
+      integer j1, j2, jp, k, kamax, num
 *     external functions and subroutines
       external dicho_search
       integer dicho_search
index bd5e7a1..506f75a 100644 (file)
@@ -13,9 +13,7 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
-      logical checkrhs,checklhs,getmat,getscalar,cremat
-      double precision alpha
+      logical checkrhs,checklhs,getmat,getscalar
 c
       rhs = max(0,rhs)
 c     
index f7657bf..ed36cd1 100644 (file)
@@ -13,8 +13,7 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
-      logical checkrhs,checklhs,getmat,getscalar,cremat
+      logical checkrhs,checklhs,getmat
       double precision psi
 c
       rhs = max(0,rhs)
index d8f5d79..a6a75c1 100644 (file)
@@ -13,8 +13,7 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
-      logical checkrhs,checklhs,getmat,getscalar,cremat
+      logical checkrhs,checklhs,getmat
       double precision dgammacody
 c
       rhs = max(0,rhs)
index 1754464..45efce5 100644 (file)
@@ -13,8 +13,7 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
-      logical checkrhs,checklhs,getmat,getscalar,cremat
+      logical checkrhs,checklhs,getmat
       double precision dlgama
 c
       rhs = max(0,rhs)
index 98d6e6b..e8be6fe 100644 (file)
@@ -13,11 +13,9 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
       logical checkrhs,checklhs,getmat,getscalar,cremat
       double precision infinity
-      double precision alpha,EXPARG
-      data EXPARG/709.0D0/
+      double precision alpha
 c
       rhs = max(0,rhs)
 c     
index 42bf665..df0d643 100644 (file)
@@ -13,8 +13,7 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
-      logical checkrhs,checklhs,getmat,getscalar,cremat
+      logical checkrhs,checklhs,getmat,cremat
       double precision alpha
 c
       rhs = max(0,rhs)
index d18c36d..7202c01 100644 (file)
@@ -13,7 +13,6 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
       logical checkrhs,checklhs,getmat,getscalar,cremat
       double precision alpha,inf,un
       data un/1.0d0/
index 23e1780..08c072b 100644 (file)
@@ -13,8 +13,7 @@ c
       character*(*) fname
       include 'stack.h'
 c     
-      integer topk,rhsk,topl
-      logical checkrhs,checklhs,getmat,getscalar,cremat
+      logical checkrhs,checklhs,getmat,cremat
       double precision alpha,inf,un
       data un/1.0d0/
 c
index 017a57f..0cdfd3f 100644 (file)
@@ -12,11 +12,11 @@ c     ----------------------------
       character*(*) fname
       include 'stack.h'
       
-      logical iseye,isnum
-      integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb
+      logical isnum
+      integer plus,minus
       integer iadr,sadr
-      data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/
-      data slash/48/  ,bslash/49/
+      data plus/45/,minus/46/
+
       
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
index 0f9a7d0..5bdfba2 100644 (file)
@@ -13,9 +13,9 @@ c     ----------------------------
       include 'stack.h'
       
       logical iseye,isnum
-      integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb
+      integer lparen,rparen,star,minus,blanc,slash,bslash,symb
       integer iadr,sadr
-      data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/
+      data lparen/41/,rparen/42/,star/47/,minus/46/,blanc/40/
       data slash/48/  ,bslash/49/
       
       iadr(l)=l+l-1
index f0c2d70..1e5af72 100644 (file)
@@ -14,9 +14,9 @@ c     ----------------------------
       include 'stack.h'
       
       logical iseye,isnum
-      integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb
+      integer lparen,rparen,star,minus,blanc,slash,bslash,symb
       integer iadr,sadr
-      data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/
+      data lparen/41/,rparen/42/,star/47/,minus/46/,blanc/40/
       data slash/48/  ,bslash/49/
       
       iadr(l)=l+l-1
index 421e56b..8365d43 100644 (file)
@@ -13,9 +13,9 @@ c     ----------------------------
       include 'stack.h'
       
       logical iseye,isnum
-      integer lparen,rparen,star,plus,minus,blanc,slash,bslash,symb
+      integer lparen,rparen,star,minus,blanc,slash,bslash,symb
       integer iadr,sadr
-      data lparen/41/,rparen/42/,star/47/,plus/45/,minus/46/,blanc/40/
+      data lparen/41/,rparen/42/,star/47/,minus/46/,blanc/40/
       data slash/48/  ,bslash/49/
       
       iadr(l)=l+l-1