Added CeCILL headers
Laurent VAYLET [Fri, 15 Feb 2008 15:47:28 +0000 (15:47 +0000)]
105 files changed:
scilab/modules/optimization/help/en_US/NDcost.xml
scilab/modules/optimization/help/en_US/datafit.xml
scilab/modules/optimization/help/en_US/fit_dat.xml
scilab/modules/optimization/help/en_US/fsolve.xml
scilab/modules/optimization/help/en_US/karmarkar.xml
scilab/modules/optimization/help/en_US/leastsq.xml
scilab/modules/optimization/help/en_US/lmisolver.xml
scilab/modules/optimization/help/en_US/lmitool.xml
scilab/modules/optimization/help/en_US/lsqrsolve.xml
scilab/modules/optimization/help/en_US/mps2linpro.xml
scilab/modules/optimization/help/en_US/numdiff.xml
scilab/modules/optimization/help/en_US/optim.xml
scilab/modules/optimization/help/en_US/semidef.xml
scilab/modules/optimization/includes/gw_optim.h
scilab/modules/optimization/includes/spd.h
scilab/modules/optimization/macros/aplat.sci
scilab/modules/optimization/macros/datafit.sci
scilab/modules/optimization/macros/fit_dat.sci
scilab/modules/optimization/macros/karmarkar.sci
scilab/modules/optimization/macros/linpro.sci
scilab/modules/optimization/macros/list2vec.sci
scilab/modules/optimization/macros/lmisolver.sci
scilab/modules/optimization/macros/lmitool.sci
scilab/modules/optimization/macros/pack.sci
scilab/modules/optimization/macros/pencost.sci
scilab/modules/optimization/macros/quapro.sci
scilab/modules/optimization/macros/unpack.sci
scilab/modules/optimization/macros/vec2list.sci
scilab/modules/optimization/sci_gateway/c/gw_optim.c
scilab/modules/optimization/sci_gateway/c/sci_fsolv.c
scilab/modules/optimization/sci_gateway/c/sci_optim.c
scilab/modules/optimization/sci_gateway/c/sci_qld.c
scilab/modules/optimization/sci_gateway/c/sci_quapro.c
scilab/modules/optimization/sci_gateway/c/sci_semidef.c
scilab/modules/optimization/sci_gateway/c/sci_sqrsolve.c
scilab/modules/optimization/sci_gateway/fortran/Ex-fsolve.f
scilab/modules/optimization/sci_gateway/fortran/Ex-lsqrsolve.f
scilab/modules/optimization/sci_gateway/fortran/Ex-optim.f
scilab/modules/optimization/sci_gateway/fortran/bjlsqrsolv.f
scilab/modules/optimization/sci_gateway/fortran/bjsolv.f
scilab/modules/optimization/sci_gateway/fortran/blsqrsolv.f
scilab/modules/optimization/sci_gateway/fortran/boptim.f
scilab/modules/optimization/sci_gateway/fortran/bsolv.f
scilab/modules/optimization/sci_gateway/fortran/intlsqrsolve.f
scilab/modules/optimization/sci_gateway/fortran/sci_f_fsolve.f
scilab/modules/optimization/sci_gateway/fortran/sci_f_optim.f
scilab/modules/optimization/sci_gateway/fortran/sci_f_quapro.f
scilab/modules/optimization/sci_gateway/fortran/sci_f_semidef.f
scilab/modules/optimization/sci_gateway/optimization_gateway.xml
scilab/modules/optimization/src/c/fsolvetable.c
scilab/modules/optimization/src/c/intqld.h
scilab/modules/optimization/src/c/lsqrsolvtable.c
scilab/modules/optimization/src/c/optimtable.c
scilab/modules/optimization/src/fortran/ajour.f
scilab/modules/optimization/src/fortran/bfgsd.f
scilab/modules/optimization/src/fortran/calbx.f
scilab/modules/optimization/src/fortran/calmaj.f
scilab/modules/optimization/src/fortran/ctcab.f
scilab/modules/optimization/src/fortran/ctonb.f
scilab/modules/optimization/src/fortran/dcube.f
scilab/modules/optimization/src/fortran/ddd2.f
scilab/modules/optimization/src/fortran/fajc1.f
scilab/modules/optimization/src/fortran/fcomp1.f
scilab/modules/optimization/src/fortran/fcube.f
scilab/modules/optimization/src/fortran/fmani1.f
scilab/modules/optimization/src/fortran/fmulb1.f
scilab/modules/optimization/src/fortran/fmuls1.f
scilab/modules/optimization/src/fortran/fprf2.f
scilab/modules/optimization/src/fortran/frdf1.f
scilab/modules/optimization/src/fortran/fremf2.f
scilab/modules/optimization/src/fortran/fretc1.f
scilab/modules/optimization/src/fortran/fuclid.f
scilab/modules/optimization/src/fortran/gcbd.f
scilab/modules/optimization/src/fortran/gcp.f
scilab/modules/optimization/src/fortran/icscof.f
scilab/modules/optimization/src/fortran/icse.f
scilab/modules/optimization/src/fortran/icse0.f
scilab/modules/optimization/src/fortran/icse1.f
scilab/modules/optimization/src/fortran/icse2.f
scilab/modules/optimization/src/fortran/icsec2.f
scilab/modules/optimization/src/fortran/icsei.f
scilab/modules/optimization/src/fortran/majour.f
scilab/modules/optimization/src/fortran/majysa.f
scilab/modules/optimization/src/fortran/majz.f
scilab/modules/optimization/src/fortran/n1fc1.f
scilab/modules/optimization/src/fortran/n1fc1a.f
scilab/modules/optimization/src/fortran/n1fc1o.f
scilab/modules/optimization/src/fortran/n1gc2.f
scilab/modules/optimization/src/fortran/n1gc2a.f
scilab/modules/optimization/src/fortran/n1gc2b.f
scilab/modules/optimization/src/fortran/n1qn1.f
scilab/modules/optimization/src/fortran/n1qn1a.f
scilab/modules/optimization/src/fortran/n1qn2.f
scilab/modules/optimization/src/fortran/n1qn2a.f
scilab/modules/optimization/src/fortran/n1qn3.f
scilab/modules/optimization/src/fortran/n1qn3a.f
scilab/modules/optimization/src/fortran/nlis0.f
scilab/modules/optimization/src/fortran/nlis2.f
scilab/modules/optimization/src/fortran/qnbd.f
scilab/modules/optimization/src/fortran/rednor.f
scilab/modules/optimization/src/fortran/relvar.f
scilab/modules/optimization/src/fortran/rlbd.f
scilab/modules/optimization/src/fortran/zgcbd.f
scilab/modules/optimization/src/fortran/zqnbd.f
scilab/modules/optimization/version.xml

index e649677..a70213f 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 994a986..bc37279 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 620991b..5e1e61e 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 4dccbda..48b1d9a 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 8938c52..5eeabce 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index b650578..d59dc8b 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 099d193..9b2fd8d 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index b5210f9..b996c49 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 4cd24f6..dc99777 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 72f4fcc..aca9cca 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index 02637d9..53cfce3 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="UTF-8"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
@@ -108,4 +119,4 @@ exact2=c*(x+a)^(c-1)
       <LINK>external</LINK>
     </SEE_ALSO_ITEM>
   </SEE_ALSO>
-</MAN>
\ No newline at end of file
+</MAN>
index bccb8f3..b5a3a1e 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index acb3e3c..40d34ee 100644 (file)
@@ -1,4 +1,15 @@
 <?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008 - INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
 <MAN>
   <LANGUAGE>eng</LANGUAGE>
index c673f41..71fcec6 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/ 
 #ifndef __GW_OPTIM__
 #define __GW_OPTIM__
index 170035b..492737f 100644 (file)
@@ -1,4 +1,14 @@
-/* Copyright INRIA */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 #ifndef __SPD_H__
 #define __SPD_H__
 
index 1849bdb..0dca889 100644 (file)
@@ -1,7 +1,15 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [r,ind]=aplat(l,r)
 //flattens a list. If l is constant it puts it in a list
 //ind contains the list structure
-// Copyright INRIA
 if type(l)==1|type(l)==5 then r=list(l);ind=-1;return;end
 n=size(l)
 [lhs,rhs]=argn(0)
index 3609175..a7dae05 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [p,err]=datafit(imp,G,varargin)
 //
 //         [p,err]=datafit([imp,] G [,DG],Z [,W],...)
@@ -37,8 +46,6 @@ function [p,err]=datafit(imp,G,varargin)
 //plot2d(X',FF(X)',5,'002')
 //a=p(1),b=p(2),c=p(3);plot2d(X',FF(X)',12,'002')
 //
-//
-// Copyright INRIA
 
 [lhs,rhs]=argn(0)
 
index 885d09b..4536ed5 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [p,err]=fit_dat(G,p0,Z,W,pmin,pmax,DG)
 //
 //         [p,err]=fit_dat(G,p0,Z [,W] [,pmin,pmax] [,DG])
@@ -40,7 +49,6 @@ function [p,err]=fit_dat(G,p0,Z,W,pmin,pmax,DG)
 //a=p(1),b=p(2),c=p(3);plot2d(X',FF(X)',12,'002')
 //
 //
-// Copyright INRIA
 [lhs,rhs]=argn(0)
 boun=%f
 if rhs==3 then 
index 80befdb..fbe2b73 100644 (file)
@@ -1,5 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [x1,crit]=karmarkar(a,b,c,x0,eps,Gamma)
-// Copyright INRIA
 maxiter=200;
 epsdef=1.d-5
 //
index d34d543..65ce4b8 100644 (file)
@@ -1,5 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [x,lagr,f]=linpro(p,C,b,ci,cs,mi,x0,imp)
-// Copyright INRIA
 [lhs,rhs]=argn(0)
 n=maxi(size(p));Q=0*ones(n,n);
 select rhs
index 5e19fc9..4eeef64 100644 (file)
@@ -1,8 +1,16 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [bigVector,varsizes]=list2vec(li)
 //li=list(X1,...Xk) is a list of matrices
 //bigVector: big vector [X1(:);...;Xk(:)] (stacking of matrices in li)
 //varsizes: k x 2 matrix, with varsiz(i,:)=size(Xi)
-// Copyright INRIA
 bigVector=[];varsizes=[];
 li=aplat(li)
 for mati=li
index 9da97c7..961494f 100644 (file)
@@ -1,5 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [%Xlist,%OPT]=lmisolver(%Xinit,%evalfunc,%options) 
-// Copyright INRIA
 %OPT=[];%Xlist=list();
 [LHS,RHS]=argn(0);
 
index 10b6a93..f8ec719 100644 (file)
@@ -1,5 +1,13 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [txtdo]=lmitool(PROBNAME,XNAME,DNAME) 
-// Copyright INRIA
 [LHS,RHS]=argn(0);
 txtdo=[]
 
index 96a2bd3..ed87f89 100644 (file)
@@ -1,6 +1,14 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [M,sel]=pack(M,blck_szs)
 //utility function (for use with semidef)
-// Copyright INRIA
 sel=[]
 kk=0
 blck_szs=matrix(blck_szs,1,size(blck_szs,'*'))
index 4f55da3..080f5a9 100644 (file)
@@ -1,3 +1,12 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [fpen,gpen,ind]=pencost(x,ind,fncts,ne,nc,cpen);
 // pencost=template of external function for penalized problem:
 //
@@ -50,7 +59,6 @@ function [fpen,gpen,ind]=pencost(x,ind,fncts,ne,nc,cpen);
 // or (passing myproblem,ne,nc,cpen by context)
 // fncts=myproblem;[f,x]=optim(pencost,x0)
 //
-// Copyright INRIA
 [f,gradf,indic]=fncts(x,ind);
 if indic < 0 then ind=indic, return, end;
 if nc >ne then
index 37ef11c..ef9fd86 100644 (file)
@@ -1,9 +1,17 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function [x,lagr,f]=quapro(Q,p,C,b,ci,cs,mi,x0,imp)
 //[x,lagr,f]=quapro(Q,p,C,b [,x0])
 //[x,lagr,f]=quapro(Q,p,C,b,ci,cs [,x0])
 //[x,lagr,f]=quapro(Q,p,C,b,ci,cs,mi [,x0])
 //[x,lagr,f]=quapro(Q,p,C,b,ci,cs,mi,x0 [,imp])
-// Copyright INRIA
 [lhs,rhs]=argn(0)
 
 if rhs==9 then
index 33045f0..8231268 100644 (file)
@@ -1,6 +1,14 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function MM=unpack(M,blck_szs)
 //utility function (for use with semidef)
-// Copyright INRIA
 MM=[]
 [mM,nM]=size(M)
 n=sum(blck_szs)
index eaaad91..07024a2 100644 (file)
@@ -1,8 +1,16 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// 
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at    
+// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+//
 function li=vec2list(bigVector,varsizes,ind)
 //bigVector: big vector
 //varsizes: k x 2 matrix, varsizes(i,:)=size of ith matrix
 //li: list of k matrices, li(i)=matrix of size varsizes(i,:);
-// Copyright INRIA
 [LHS,RHS]=argn(0)
 if bigVector==[] then
      n=0;for dimi=varsizes',n=n+prod(dimi);end
@@ -16,3 +24,4 @@ for dimi=varsizes'
 end
 if RHS==3 then li=recons(li,ind); end
 endfunction
+
index fdc63c5..d2469a9 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/
 #include <string.h>
 #include "gw_optim.h"
index 711b5a8..5d7f0c8 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/ 
 #include "gw_optim.h"
 #include "machine.h"
index 7a105be..1e5bd21 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/ 
 #include "gw_optim.h"
 #include "machine.h"
index 5b7e533..c4b34d3 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/ 
 #include "gw_optim.h"
 #include "machine.h"
index 2cef1ad..992f5c8 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/ 
 #include "gw_optim.h"
 #include "machine.h"
index c60e613..94a2d86 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/ 
 #include "gw_optim.h"
 #include "machine.h"
index c4948fc..5d28857 100644 (file)
@@ -1,6 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006 - INRIA - Allan CORNET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/ 
 #include "gw_optim.h"
 #include "machine.h"
index 2c824b5..5a8f591 100644 (file)
@@ -1,3 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
 c         Example for fsolve 
 c         -----------------------------------------------------
 c         subroutine myprog(n,x,fvec,iflag)
@@ -24,7 +33,6 @@ c
 c       fvec is an output array of length n which contains
 c         the functions evaluated at the output x.
 c
-c     Copyright INRIA
       subroutine fsol1(n,x,fvec,iflag)
       integer n,iflag
       double precision x(n),fvec(n)
index 4f213ca..f879957 100644 (file)
@@ -1,3 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
 c         Example for lsqrsolve 
 c         -----------------------------------------------------
 c         subroutine myprog(n,x,fvec,iflag)
@@ -24,7 +33,6 @@ c
 c       fvec is an output array of length n which contains
 c         the functions evaluated at the output x.
 c
-c     Copyright INRIA
       subroutine lsqrsol1(m,n,x,fvec,iflag)
       integer n,iflag
       double precision x(n),fvec(m)
index 7135795..48344be 100644 (file)
@@ -1,7 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
 C     Examples for the optim Scilab function 
 C     -------------------------------------------
-
-c     Copyright INRIA
+c
       subroutine genros(ind,n,x,f,g,izs,rzs,dzs)
 C     -------------------------------------------
 c     Example of cost function given by a subroutine
index 5f5161e..cffa3d7 100644 (file)
@@ -1,11 +1,18 @@
+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
+c
       subroutine bjlsqrsolv(m,n,x,fvec,fjac,ldfjac,iero)
 c     
 c ======================================================================
 c      external for   lsqrsolve
 c ======================================================================
 c
-c     Copyright INRIA. 
-c     Author : Serge Steer INRIA
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
index a6e1b46..59b4d28 100644 (file)
@@ -1,10 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine bjsolv(n,x,fvec,fjac,ldfjac,iflag)
 c     
 c ======================================================================
 c     gestion external "soft" relatif a solve (jacobien fourni)
 c ======================================================================
 c
-c     Copyright INRIA
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
index 315aca8..9624843 100644 (file)
@@ -1,13 +1,18 @@
+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
+c
       subroutine blsqrsolv(m,n,x,fvec,iflag)
 c     
 c ======================================================================
 c      external for   lsqrsolve
 c ======================================================================
 c
-c     Copyright INRIA. 
-c     Author : Serge Steer INRIA
-
-
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
index d3983d6..ba62eb7 100644 (file)
@@ -1,10 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine boptim(iero,n,x,f,g,izs,rzs,dzs)
 c 
 c ======================================================================
 c     gestion des macros externals pour la primitive OPTIM
 c ======================================================================
 c
-c     Copyright INRIA
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
index 7a46f8a..480cf1b 100644 (file)
@@ -1,10 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine bsolv(n,x,fvec,iflag)
 c     
 c ======================================================================
 c     gestion external "soft" relatif a solve
 c ======================================================================
 c
-c     Copyright INRIA
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
index 2898bad..32c5c8b 100644 (file)
@@ -1,9 +1,15 @@
+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
+c
       subroutine intlsqrsolve(fname)
 c     ----------------------------
 c     Scilab lsqrsolve function 
-c
-c     Copyright INRIA. 
-c     Author : Serge Steer INRIA
 c     ---------------------------
       character*(*) fname
 c      implicit undefined (a-z)
index b20a06b..5478f9e 100644 (file)
@@ -1,6 +1,12 @@
-c     --------------------------
-c     Copyright INRIA
-c     --------------------------
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
 c
       subroutine scisolv(fname)
 c     ----------------------------
index 8e0d693..93dd892 100644 (file)
@@ -1,6 +1,11 @@
-c     --------------------------
-c     Copyright INRIA
-c     --------------------------
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
 c
 c     --------------------------
 c     SCILAB function : optim
index 0fae9e7..7dd7bdb 100644 (file)
@@ -1,6 +1,11 @@
-c     --------------------------
-c     Copyright INRIA
-c     --------------------------
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
 c
        subroutine sciquapro(fname)
                        
@@ -344,4 +349,4 @@ c     Remise en place de la pile
       return
       
       end
-      
\ No newline at end of file
+      
index 572bd92..db5ef87 100644 (file)
@@ -1,6 +1,11 @@
-c     --------------------------
-c     Copyright INRIA
-c     --------------------------
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
 c
 c     --------------------------
 c     SCILAB function : semidef
index 7261e52..e9539d9 100644 (file)
@@ -1,5 +1,16 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
-
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007 - INRIA - Allan CORNET
+ * Copyright (C) 2007 - INRIA - Sylvestre LEDRU
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE GATEWAY SYSTEM "../../functions/xml/gateway.dtd">
 <GATEWAY name="optimization">
 <!-- =================== -->
  in the file modules/<module>/sci_gateway/c/gw_<module>.c
 
  primitiveName is the name of the Scilab function
-
- @author Allan CORNET
- @author Sylvestre LEDRU
- @date INRIA 2007
  ===================
  Don't touch if you do not know what you are doing
 -->
@@ -30,4 +37,4 @@
 <PRIMITIVE gatewayId="11" primitiveId="4" primitiveName="fsolve" />
 <PRIMITIVE gatewayId="11" primitiveId="5" primitiveName="lsqrsolve" />
 <PRIMITIVE gatewayId="11" primitiveId="6" primitiveName="qld" />
-</GATEWAY>
\ No newline at end of file
+</GATEWAY>
index e074898..65a0e97 100644 (file)
@@ -1,5 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/
 #include "AddFunctionInTable.h"
 /***********************************
index 5228f4c..71e1581 100644 (file)
@@ -1,14 +1,14 @@
 /*
-**  -*- C -*-
-**
-** intqld.h
-** Made by  Bruno JOFRET <bruno.jofret@inria.fr>
-**
-** Started on  Mon Oct 29 17:38:05 2007 bruno
-** Last update Mon Oct 29 17:48:25 2007 bruno
-**
-** Copyright INRIA 2007
-*/
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007 - INRIA - Bruno JOFRET
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 
 #ifndef __INTQLD_H__
 #define __INTQLD_H__
index 2cddefe..829674b 100644 (file)
@@ -1,5 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/
 #include "AddFunctionInTable.h"
 /***********************************
index 7225ce7..67a5575 100644 (file)
@@ -1,5 +1,14 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA */
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) INRIA
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
 /*--------------------------------------------------------------------------*/
 #include "AddFunctionInTable.h"
 /***********************************
index 1c304ba..31e6d44 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine ajour(mode,n,nc,nr,h,w,indi)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension h(*),w(n),indi(n)
 c
index 8b741b8..b34e70d 100644 (file)
@@ -1,11 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine bfgsd(diag,n,nt,np,y,s,ys,condm,param,zero,index)
 c     mise a jour de diag par la methode de bfgs diagonal
 c     utiliser a la suite de la correction de powell
 c     condm borne sup du conditionnement de diag
 c     param borne inf rapport reduction diag(i)
 c
-c     Copyright INRIA
-c
       implicit double precision (a-h,o-z)
       dimension diag(n),y(nt,n),s(nt,n),ys(nt)
       integer index(nt)
index b712f47..54a9350 100644 (file)
@@ -1,11 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine calbx(n,index,indic,nt,np,y,s,ys,z,zs,x,diag,bx)
 c
 c     fonction : {bx}=[b]*{x}.
 c                [b] est definie par les vecteurs
 c                ({y}(i),{s}(i),{z}(i), i=1,np) et {diag}
 c
-c     Copyright INRIA
-c
       implicit double precision (a-h,o-z)
       dimension y(nt,n),s(nt,n),z(nt,n),ys(nt),zs(nt)
       dimension diag(n),bx(n),x(n)
index dc8b56f..9756f4f 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine calmaj(dh,n,g1,sig,w,ir,mk,epsmc,nfac)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
 c     subroutine de qnbd
       dimension dh(*),g1(*),w(*)
index bb95d36..d73c21e 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine ctcab (n,u,v,izs,rzs,dzs)
-c     Copyright INRIA
+c
 
       integer n,izs(1)
       real rzs(1)
@@ -9,3 +18,4 @@ c     Copyright INRIA
  1    continue
       return
       end
+
index de868d0..1ef4f27 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine ctonb (n,u,v,izs,rzs,dzs)
-c     Copyright INRIA
+c
       integer n,izs(1)
       real rzs(1)
       double precision u(1),v(1),dzs(1)
index d3c619b..05438a5 100644 (file)
@@ -1,8 +1,13 @@
-c
-c-----------------------------------------------------------------------
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
 c
       subroutine dcube(t,f,fp,ta,fa,fpa,tlower,tupper)
-c     Copyright INRIA
 c
 c --- arguments
 c
index c97e6cd..a8fd930 100644 (file)
@@ -1,10 +1,14 @@
-c
-c-----------------------------------------------------------------------
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
 c
       subroutine ddd2 (prosca,ctonb,ctcab,n,nm,depl,aux,jmin,jmax,diag,
      /                alpha,ybar,sbar,izs,rzs,dzs)
-c     Copyright INRIA
-c----
 c
 c     calcule le produit h g ou
 c         . h est une matrice construite par la formule de bfgs inverse
index 364878c..5921bf6 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fajc1(n,nc,nr,h,w,indi)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension h(*),w(n),indi(n)
 c
index 306ca05..ed1fac7 100644 (file)
@@ -1,6 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fcomp1(indic2,ibloc,indi,h,g,d,w,w1,n,nr,ncs,
      &dga,delta,prop,acc,scale)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension ibloc(n),indi(n),h(*),g(n),d(n),
      &w(n),w1(n),scale(n)
index aff9b1a..364a8d3 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fcube(t,f,fp,ta,fa,fpa,tlower,tupper)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
 c
 c           Using f and fp at t and ta, computes new t by cubic formula
index 88dc9fa..3c7d9f6 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fmani1 (mode,n,d,w,indi)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension d(n),w(n),indi(n)
 c
index cf6dc6d..766fba3 100644 (file)
@@ -1,7 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fmulb1(n,h,x,hx,tabaux,nmisaj,prosca,izs,rzs,dzs)
       implicit double precision (a-h,o-z)
       external prosca
-c     Copyright INRIA
 c
 c parametres
       double precision   un     , deux
index ca9612a..f3ebe3b 100644 (file)
@@ -1,3 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fmuls1(n,h,x,hx)
       implicit double precision (a-h,o-z)
 c
@@ -7,8 +16,6 @@ c h (e) dimension n(n+1)/2. tiangle superieur, coefficients par ligne
 c x (e) vecteur de dimension n
 c hx (s) dimension n. resultat du produit
 c
-c     Copyright INRIA
-c
 c parametre
       double precision  zero
       parameter       ( zero=0.0d+0 )
index 46bf0b5..37f6d57 100644 (file)
@@ -1,6 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fprf2(iflag,ntot,nv,io,zero,s2,eps,al,imp,u,eta,mm1,jc,
      &                 ic,r,a,e,rr,xpr,y,w1,w2)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       common /fprf2c/ u1,nc
 C         the dimension is mm1*mm1 for r
index b62b735..8c4c1c8 100644 (file)
@@ -1,6 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine frdf1(prosca,n,ntot,ninf,kgrad,
      & al,q,s,poids,aps,anc,mm1,r,e,ic,izs,rzs,dzs)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension al(ntot),q(*),poids(ntot),aps(ntot),anc(ntot),
      & ic(mm1),s(n),izs(*),dzs(*),e(mm1),r(*)
index 1d8baa4..0f1ca21 100644 (file)
@@ -1,6 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fremf2 (prosca,iflag,n,ntot,nta,mm1,p,alfa,e,a,r,
      1 izs,rzs,dzs)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       external prosca
       dimension p(*),alfa(ntot),izs(*),dzs(*),e(mm1),a(mm1),r(*)
index e525f94..5648f41 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fretc1(mode,n,nc,nr,h,w,indi,indic2)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension h(*),w(n),indi(n)
 c
index adc3d87..b7f1e41 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine fuclid (n,x,y,ps,izs,rzs,dzs)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension x(n),y(n),izs(*),dzs(*)
       real rzs(*)
index a0a4570..8c041dd 100644 (file)
@@ -1,3 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) 1985 - INRIA - F. BONNANS
+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
+c
       subroutine gcbd(indgc,simul,nomf,n,x,f,g,imp,io,zero,
      &napmax,itmax,epsf,epsg,epsx,df0,binf,bsup,nfac,
      &vect,nvect,ivect,nivect,izs,rzs,dzs)
@@ -6,10 +15,6 @@ c     algorithme de minimisation d une fonction reguliere sous
 c     contraintes de borne
 c!methode
 c     methode de bfgs a memoire limitee + projection
-c!origine
-c     f. bonnans inria juin 1985
-c     Copyright INRIA
-c
 c!sous programmes (modulopt)
 c     proj rlbd majysa majz calbx gcp relvar bfgsd shanph
 c!liste d' appel
index 6ff540d..405faad 100644 (file)
@@ -1,9 +1,17 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine gcp(n,index,indic,np,nt,y,s,z,ys,zs,diag,b,x,d,g,eps)
 c
 c     methode de gradient preconditionne appliquee a l'equation
 c     [a]*{x}={b}. ici [a] est definie par les vecteurs ({y}(i),
 c     {s}(i), {z}(i), i=1,np).
-c     Copyright INRIA
 c
       implicit  double precision (a-h,o-z)
       dimension x(n),b(n),y(nt,n),s(nt,n),z(nt,n),ys(nt),zs(nt),diag(n)
index a64c4a2..8524202 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
 C/MEMBR ADD NAME=ICSCOF,SSI=0
-c     Copyright INRIA
+c
       subroutine icscof(ico,ntob,nex,nob,yob,ob,cof)
 c     ce programme est appele par les macros icsua (ico=1) et icsuq
 c     (ico=2) de icse.bas pour le calcul initial des coefficients
index dabec71..c84bf91 100644 (file)
@@ -1,3 +1,13 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) 1987 - INRIA - F. BONNANS
+c Copyright (C) 1987 - INRIA - G. LAUNAY
+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
+c
       subroutine icse(ind,nu,u,co,g,itv,rtv,dtv,icsef,icsec2,icsei)
 c!but
 c     Le logiciel ICSE est un outil de resolution de problemes de
@@ -34,9 +44,6 @@ c      de Crank-Nicolson.
 c      Le gradient du cout est calcule en utilisant l'etat adjoint du
 c      systeme discretise.
 c
-c!origine
-c      F.Bonnans,G.Launay, INRIA, 1987
-c
 c! DESCRIPTION FORMELLE DES PROBLEMES DE CONTROLE CONSIDERES
 c       L'equation du systeme est de la forme
 c              0     =  fi(t,y(t),uc,uv(t)) ,  i<=nea,
index bef44af..ea7ab3f 100644 (file)
@@ -1,9 +1,17 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine icse0(nu,t0,tf,dti,dtf,ermx,iu,nuc,nuv,ilin,nti,ntf,
      & ny,nea,itmx,nex,nob,ntob,ntobi,nitu,ndtu,nitv,nrtv,ndtv)
 c
 c     programme d'initialisation appele par icse.bas
 c     initialisation des commons icsez icsez0 et nird
-c     Copyright INRIA
 c
       implicit double precision (a-h,o-z)
       dimension iu(5),iu0(5)
index 667705b..81e0912 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
 C/MEMBR ADD NAME=ICSE1,SSI=0
-c     Copyright INRIA
+c
       subroutine icse1(ind,nu,u,icsef,y0,ytot,f,b,fy,fu,ipv1,
      &dm,yold,smold,yint,yerr,dif1,dif2,dif3,itu,dtu,
      &t0,tf,dti,dtf,ermx,iu,nuc,nuv,ilin,nti,ntf,ny,nea,
index 9bad16a..0de96b6 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
 C/MEMBR ADD NAME=ICSE2,SSI=0
-c     Copyright INRIA
+c
       subroutine icse2(ind,nu,u,co,g,icsef,icsec2,icsei,y0,tob,obs,
      &ob,ytot,f,b,fy,fu,ipv2,itob,cof,ytob,c2y,y0u,dmy,smy,oldmu,
      &y,oldp,p,p0,gt,yob,d,itu,dtu,
index 09a55a3..c268332 100644 (file)
@@ -1,3 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine icsec2(indc,nu,tob,obs,cof,ytob,ob,u,
      & c,cy,g,yob,d,itu,dtu,
      & t0,tf,dti,dtf,ermx,iu,nuc,nuv,ilin,nti,ntf,ny,nea,
@@ -23,9 +32,7 @@ c        indc     : comme pour icsec1
 c        c2       : cout
 c        c2y(ny,ntob) : derivee de c2 par rapport a y
 c        g(nu)  : derivee de c2 par rapport a u
-c     Copyright INRIA
-
-c!
+c
       implicit double precision (a-h,o-z)
       dimension tob(ntob),obs(nob,ny),cof(nob,ntob),ytob(ny,ntob),
      &ob(nex,ntob,nob),u(nu),cy(ny,ntob),g(nu),yob(nob,ntob),
index 3e4ac6e..8fedecf 100644 (file)
@@ -1,11 +1,19 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine icsei(indi,nui,u,y0,y0u,itu,dtu,
      & t0,tf,dti,dtf,ermx,iu,nuc,nuv,ilin,nti,ntf,ny,nea,
      & itmx,nex,nob,ntob,ntobi,nitu,ndtu)
 c
 c     calcul de l'etat initial dans ICSE : cas standard : 
 c     controle par l'etat initial 
-c     Copyright INRIA
-c!
+c
       implicit double precision (a-h,o-z)
       dimension u(nui),y0(ny),y0u(ny,nui),itu(nitu),dtu(ndtu),iu(5)
 c
index 07148cb..1874ab6 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine majour(hm,hd,dd,n,hno,ir,indic,eps)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension hm(*),hd(n),dd(n)
       if(n.eq.1) go to 100
index 47a539d..c2b9f2f 100644 (file)
@@ -1,5 +1,13 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine majysa(n,nt,np,y,s,ys,lb,g,x,g1,x1,index,ialg,nb)
-c     Copyright INRIA
 c
 c     mise a jour des vecteurs ({y}(i),{s}(i),ys(i),i=1,np)
       implicit double precision (a-h,o-z)
index 4eefa2f..9e96e32 100644 (file)
@@ -1,3 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine majz(n,np,nt,y,s,z,ys,zs,diag,index)
 c
 c     mise a jour de ({z}(i),zs(i), i=1,np).
@@ -5,8 +14,6 @@ c     {z}(i)=[b](i-1)*{s}(i), [b](i) est definie par ({y}(j),{s}(j),{z}(j)
 c     , j=1,i) et {diag}.
 c     zs(i)=<z>(i)*{s}(i)
 c
-c     Copyright INRIA
-c
       implicit double precision (a-h,o-z)
       dimension     y(nt,n),s(nt,n),z(nt,n),ys(nt),zs(nt),diag(n)
       integer  index(nt)
index c2099b4..367eb71 100644 (file)
@@ -1,10 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1fc1(simul,prosca,n,xn,fn,g,dxmin,df1,epsf,zero,imp,
      &                 io,mode,iter,nsim,memax,iz,rz,dz,izs,rzs,dzs)
 C          dimension iz=2*(memax+1)
 C          dimension rz=5*n+(n+4)*memax
 C          dimension dz=(memax+9)*memax+8
-c     Copyright INRIA
-
+c
       implicit double precision (a-h,o-z)
       external simul, prosca
       dimension iz(*), rz(*), dz(*), xn(n), g(n), izs(*), dzs(*)
index efe26b2..2aa360b 100644 (file)
@@ -1,10 +1,17 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1fc1a(simul,prosca,n,mode,xn,fn,g,df0,eps0,dx,imp,
      &                  zero,io,ntot,iter,nsim,memax,s,gd,x,sa,gg,al,
      &                  aps,anc,poids,q,jc,ic,r,a,e,rr,xga,y,w1,w2,izs,
      &                  rzs,dzs)
-C ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
-c     Copyright INRIA
-C ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+C
 C minimisation d'une fonction hemiderivable par une methode de faisceau.
 C la direction est obtenue par projection de l'origine
 C sur un polyedre genere par un ensemble de gradients deja calcules
index 103e5c8..befa10c 100644 (file)
@@ -1,6 +1,16 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1fc1o(unit,job,i1,i2,i3,i4,i5,d1,d2,d3,d4)
+c
 c     impression des traces
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       integer unit,lunit,job,i1,i2,i3,i4,i5(*)
       dimension d4(*),d3(*)
index 475e9b5..7a8ddf4 100644 (file)
@@ -1,12 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) 1987 - INRIA - Claude LEMARECHAL
+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
+c
       subroutine n1gc2 (simul,prosca,n,x,f,g,dxmin,df1,epsrel,imp,io,
      /                  mode,niter,nsim,rz,nrz,izs,rzs,dzs)
       implicit double precision (a-h,o-z)
 c!but
 c     minimisation sans contraintes par un algorithme de quasi-Newton
 c     a memoire limitee
-c!origine
-c     c. lemarechal, inria, 1987
-c     Copyright INRIA
 c!commentaires
 c le sous-programme n1gc2 (gradient conjugue a encombrement variable)
 c est une interface entre le programme appelant et le sous-programme
index cea14d3..a2c6710 100644 (file)
@@ -1,9 +1,16 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1gc2a(simul,prosca,n,x,f,g,dx,df1,eps,imp,io,
      /                  niter,nsim,info,memh,d,xx,gg,tabaux,h,
      /                  izs,rzs,dzs)
       implicit double precision (a-h,o-z)
-c     Copyright INRIA
-
 c
 c parametres
       double precision  zero     , un     , deux     , ro
index 62f7374..dec1115 100644 (file)
@@ -1,9 +1,16 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1gc2b(n,simul,prosca,xinit,f,dg,alpha,d,
      /                  xfinal,gfinal,imp,io,retour,ntotap,nsim,
      /                  intfor,dx,eps,izs,rzs,dzs)
 c
-c     Copyright INRIA
-
       implicit double precision (a-h,o-z)
 c     parametres
       double precision  zero      , deux     , trois
index b93b589..84db577 100644 (file)
@@ -1,6 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) 1987 - INRIA - Claude LEMARECHAL
+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
+c
       subroutine n1qn1 (simul,n,x,f,g,var,eps,
      1     mode,niter,nsim,imp,lp,zm,izs,rzs,dzs)
-
+c
 c!but
 c     minimisation d une fonction reguliere sans contraintes
 c!origine
index 18aac49..2d5bfc0 100644 (file)
@@ -1,13 +1,22 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1qn1a (simul,n,x,f,g,scale,acc,mode,
      1     niter,nsim,iprint,lp,h,d,w,xa,ga,xb,gb,izs,rzs,dzs)
-c     Copyright INRIA
+c
 
 *     A (very) few modifs by Bruno (14 March 2005): I have translated some output
 *     informations in english (but they don't use format instruction 
 *     which is put in the secong arg of write). Also for the linear
 *     search output informations I divide by the direction vector norm
 *     to get the "normalized" directionnal derivative. Note that this is
-*     just for output (the computing code is normaly not modified).
+*     just for output (the computing code is normally not modified).
 
       implicit double precision (a-h,o-z)
       dimension x(n),g(n),scale(n),h(*),d(n),w(n),
index 6677af6..eb8e95e 100644 (file)
@@ -1,3 +1,13 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) 1988 - INRIA - Jean-Charles GILBERT
+c Copyright (C) 1988 - INRIA - Claude LEMARECHAL
+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
+c
       subroutine n1qn2 (simul,prosca,n,x,f,g,dxmin,df1,epsg,impres,io,
      /                  mode,niter,nsim,dz,ndz,izs,rzs,dzs)
 c!But
@@ -5,8 +15,6 @@ c     Minimisation sans contrainte par un algorithme
 c     de quasi-Newton a memoire limitee.
 c!Origine
 c     Version 1.0 de n1qn2 (Modulopt, INRIA), septembre 1988.
-c     Jean Charles Gilbert, Claude Lemarechal.
-c     Copyright INRIA
 c!Commentaires
 c     Ce code est en principe destine aux problemes de grande taille,
 c     n grand, mais convient egalement pour n quelconque. La methode
index a07c785..3c19a16 100644 (file)
@@ -1,8 +1,16 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1qn2a (simul,prosca,n,x,f,g,dxmin,df1,epsg,
      /                   impres,io,mode,niter,nsim,m,
      /                   d,gg,aux,alpha,ybar,sbar,izs,rzs,dzs)
-c     Copyright INRIA
-
+c
 c----
 c
 c     code d'optimisation proprement dit
index 133851e..0b48ac2 100644 (file)
@@ -1,7 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine n1qn3 (simul,prosca,ctonb,ctcab,n,x,f,g,dxmin,df1,
      /                  epsg,impres,io,mode,niter,nsim,dz,ndz,
      /                  izs,rzs,dzs)
-c----
 c
 c     n1qn3, version 1.0, septembre 1988.
 c     Jean Charles Gilbert, Claude Lemarechal, INRIA.
index 359ce5f..ca6bf67 100644 (file)
@@ -1,7 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
 c
-c-----------------------------------------------------------------------
-c
-c     Copyright INRIA
       subroutine n1qn3a (simul,prosca,ctonb,ctcab,n,x,f,g,dxmin,df1,
      /                   epsg,impres,io,mode,niter,nsim,m,d,gg,diag,aux,
      /                   alpha,ybar,sbar,izs,rzs,dzs)
index c4c2a5d..c15b18b 100644 (file)
@@ -1,8 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine nlis0 (n,simul,prosca,xn,fn,fpn,t,tmin,tmax,d,g,
      /                  amd,amf,imp,io,logic,nap,napmax,x,izs,rzs,dzs)
-c     Copyright INRIA
-
-c----
 c
 c     nlis0 + minuscules + commentaires
 c     ---------------------------------
@@ -16,7 +22,7 @@ c        5          retour a l'utilisateur
 c        6          fonction et gradient pas d'accord
 c        < 0        contrainte implicite active
 c
-c----
+c ----
 c
 c --- arguments
 c
index 9c88022..73763f7 100644 (file)
@@ -1,9 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine nlis2 (simul,prosca,n,xn,fn,fpn,t,tmin,tmax,d,d2,g,gd,
      1     amd,amf,imp,io,logic,nap,napmax,x,tol,a,tps,tnc,gg,izs,rzs
      $     ,dzs)
+c
 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
-c     Copyright INRIA
-c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
+c
 c subroutine effectuant une recherche lineaire sur 0 tmax
 c partant du point xn dans la direction d.
 c sous l'hypothese d'hemiderivabilite, donne
@@ -29,6 +38,7 @@ c            ----------------------------------------
 c fait appel aux subroutines:
 c -------simul(indic,n,x,f,g,izs,rzs,dzs)
 c -------prosca(n,u,v,ps,izs,rzs,dzs)
+c
 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
       implicit double precision (a-h,o-z)
index d1d5354..8443a74 100644 (file)
@@ -1,11 +1,18 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) 1986 - INRIA - F. BONNANS
+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
+c
       subroutine qnbd(indqn,simul,n,x,f,g,imp,io,zero,
      & napmax,itmax,epsf,epsg,epsx,df0,binf,bsup,nfac,
      & trav,ntrav,itrav,nitrav,izs,rzs,dzs)
 c!but
 c     code de minimisation d une fonction reguliere sous contraintes
 c     de bornes , aux normes modulopt
-c!origine
-c     f. bonnans , inria , 1986
 c!methode
 c     principe de l algorithme : quasi-newton + projection
 c     details dans le rapport inria n. 242,1983
index e8f51e4..a5c7236 100644 (file)
@@ -1,5 +1,14 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       function rednor(n,binf,bsup,x,epsx,g)
-c     Copyright INRIA
+c
       implicit double precision (a-h,o-z)
       dimension binf(n),bsup(n),x(n),epsx(n),g(n)
       rednor=0.0d+0
index 83a594e..065c625 100644 (file)
@@ -1,7 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine relvar(ind,n,x,binf,bsup,x2,g,diag,imp,io,ibloc,izag,
      &iter,nfac,irit)
-c     Copyright INRIA
-
+c
 c     determination des variables a relacher par meth bertsekas
       implicit double precision (a-h,o-z)
       dimension x(n),binf(n),bsup(n),x2(n),g(n),ibloc(n),diag(n)
index 23df3c1..a3992d4 100644 (file)
@@ -1,3 +1,12 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) 1988 - INRIA - F. BONNANS
+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
+c
       subroutine rlbd(indrl,n,simul,x,binf,bsup,f,hp,t,tmax,d,gn,
      &  tproj,amd,amf,imp,io,zero,nap,napmax,xn,izs,rzs,dzs)
 c
@@ -5,9 +14,6 @@ c!but
 c       subroutine de recherche lineaire pour des problemes avec
 c       contraintes de borne (traitees par projection)
 c       le critere de retour est une extension de celui de wolfe
-c!origine
-c       f.bonnans  inria juin 1988
-c     Copyright INRIA
 c!methode
 c     pour chaque valeur du parametre t , sont calcules le critere
 c     et son gradient.
index 0171f08..d9a8846 100644 (file)
@@ -1,8 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine zgcbd(simul,n,binf,bsup,x,f,g,zero,napmax,itmax,indgc
      &  ,ibloc,nfac,imp,io,epsx,epsf,epsg,dir,df0,diag,x2,
      &izs,rzs,dzs,y,s,z,ys,zs,nt,index,wk1,wk2,alg,ialg,nomf)
-c     Copyright INRIA
-
 c
       implicit double precision (a-h,o-z)
       real rzs(*)
index f8ed955..867727b 100644 (file)
@@ -1,8 +1,15 @@
+c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c Copyright (C) INRIA
+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
+c
       subroutine zqnbd(indqn,simul,dh,n,binf,bsup,x,f,g,zero,napmax,
      &itmax,indic,izig,nfac,imp,io,epsx,epsf,epsg,x1,x2,g1,dir,df0,
      &ig,in,irel,izag,iact,epsrel,ieps1,izs,rzs,dzs)
-c     Copyright INRIA
-
 c
       implicit double precision (a-h,o-z)
       real rzs(*)
index df2e464..82403da 100644 (file)
@@ -1,19 +1,24 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
-
+<!--
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007 - INRIA - Allan CORNET
+ * Copyright (C) 2007 - INRIA - Sylvestre LEDRU
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ -->
 <!DOCTYPE MODULE_VERSION SYSTEM "../core/xml/version.dtd">
 <MODULE_VERSION name="optimization">
 <!-- =================== -->
 <!--
  Scilab
  Defines the version of a module
-
- @author Allan CORNET
- @author Sylvestre LEDRU
- @date INRIA 2007
- ===================
-
 -->
 <!-- =================== -->
 
 <VERSION major="5" minor="0" maintenance="0" revision="0" string="unstable-svn" />
-</MODULE_VERSION>
\ No newline at end of file
+</MODULE_VERSION>