0024162: Eliminate CLang compiler warning

Got rid from most cases of appearance '-Wunused-private-field' warning

src/AIS/AIS_FixRelation.cdl

@@ -195,7 +195,6 @@ fields
 
     myWire      : Wire    from TopoDS;
     myPntAttach : Pnt     from gp;
-    haspos      : Boolean from Standard;
 
 end FixRelation;
 

src/AIS/AIS_FixRelation.cxx

@@ -91,8 +91,7 @@ AIS_FixRelation::AIS_FixRelation(const TopoDS_Shape& aShape,
 				 const Handle(Geom_Plane)& aPlane, 
 				 const TopoDS_Wire& aWire)
 :AIS_Relation(),
- myWire(aWire),
+ myWire(aWire)
- haspos(Standard_False)
 {
   myFShape = aShape;
   myPlane = aPlane;
@@ -111,8 +110,7 @@ AIS_FixRelation::AIS_FixRelation(const TopoDS_Shape& aShape,
 				 const gp_Pnt& aPosition, 
 				 const Standard_Real anArrowSize)
 :AIS_Relation(),
- myWire(aWire),
+ myWire(aWire)
- haspos(Standard_False)
 {
   myFShape = aShape;
   myPlane = aPlane;
@@ -132,8 +130,7 @@ AIS_FixRelation::AIS_FixRelation(const TopoDS_Shape& aShape,
 //=======================================================================
 
 AIS_FixRelation::AIS_FixRelation(const TopoDS_Shape& aShape, 
-				 const Handle(Geom_Plane)& aPlane):
+                                 const Handle(Geom_Plane)& aPlane)
-haspos(Standard_False)
 {
   myFShape = aShape;
   myPlane = aPlane;
@@ -150,8 +147,7 @@ AIS_FixRelation::AIS_FixRelation(
 	const TopoDS_Shape& aShape, 
 	const Handle(Geom_Plane)& aPlane, 
 	const gp_Pnt& aPosition, 
-	const Standard_Real anArrowSize):
+	const Standard_Real anArrowSize)
-haspos(Standard_False)
 {
   myFShape = aShape;
   myPlane = aPlane;

src/AIS/AIS_Selection.cdl

@@ -152,7 +152,6 @@ is
 
 fields
     myName     : AsciiString                                from TCollection;
-    mycuri     : Integer                                    from Standard;
 -- SAV : OCC189    myresult   : HArray1OfTransient from TColStd;
     myresult   : NListTransient                             from AIS;
     myIterator : NListIteratorOfListTransient               from AIS;

src/AIS/AIS_Selection.cxx

@@ -71,7 +71,6 @@ static TColStd_SequenceOfTransient&  AIS_Sel_GetSelections()
 //=======================================================================
 AIS_Selection::AIS_Selection(const Standard_CString aName) :
 myName(TCollection_AsciiString(aName)),
-mycuri(0), 
 #if !defined USE_MAP && !defined OCC189
 myresult(new TColStd_HArray1OfTransient(1,MaxSizeOfResult)),
 #endif

src/AIS/AIS_Selection.lxx

@@ -19,66 +19,37 @@
 // and conditions governing the rights and limitations under the License.
 
 
-#define OCC189   //SAV: 18/03/02 array was replaced with list.
+//SAV: 18/03/02 array was replaced with list.
-
+//san : 18/04/03 USE_MAP - additional datamap is used to speed up access 
-#define USE_MAP    //san : 18/04/03 USE_MAP - additional datamap is used to speed up access 
 //to certain owners in <myresult> list
 
-#if !defined( OCC189 ) && !defined( USE_MAP )
-#include <TColStd_HArray1OfTransient.hxx>
-#else
 #include <TColStd_MapOfTransient.hxx>
 #include <TColStd_MapIteratorOfMapOfTransient.hxx>
-#endif
 
-
-#if !defined( OCC189 ) && !defined( USE_MAP )
-inline const Handle(TColStd_HArray1OfTransient)& AIS_Selection::Objects() const
-#else
 inline const AIS_NListTransient& AIS_Selection::Objects() const       
-#endif
 {
   return myresult;
 }
 
 inline void AIS_Selection::Init()
 {
-#if !defined( OCC189 ) && !defined( USE_MAP )
-  mycuri=1;
-#else
   myIterator = AIS_NListTransient::Iterator ( myresult );  
-#endif
 }
 
 inline Standard_Boolean AIS_Selection::More() const 
 {
-#if !defined( OCC189 ) && !defined( USE_MAP )  
-  return (myresult.IsNull() ? Standard_False : (mycuri<=myNb));
-#else
   return myIterator.More();
-#endif
 }
-inline void AIS_Selection::Next () {
+inline void AIS_Selection::Next () 
-#if !defined( OCC189 ) && !defined( USE_MAP )    
+{
-  mycuri++;
-#else
   myIterator.Next();
-#endif
 }
 inline const Handle(Standard_Transient)& AIS_Selection::Value() const 
 {
-#if !defined( OCC189 ) && !defined( USE_MAP )   
-  return myresult->Value(mycuri);
-#else
   return myIterator.Value();  
-#endif
 }
 
 inline Standard_Integer AIS_Selection::NbStored() const
 {
-#if !defined( OCC189 ) && !defined( USE_MAP )    
-  return myNb;
-#else
   return myresult.Extent();
-#endif
 }

src/AIS/AIS_TexturedShape.cdl

@@ -257,11 +257,5 @@ fields
     myDeflection       : Real             from Standard;
     myAspect           : AspectFillArea3d from Graphic3d;
     mytexture          : Texture2Dmanual  from Graphic3d;
-    Umin               : Real             from Standard;
-    Umax               : Real             from Standard;
-    Vmin               : Real             from Standard;
-    Vmax               : Real             from Standard;
-    dUmax              : Real             from Standard;
-    dVmax              : Real             from Standard;
     myModulate         : Boolean          from Standard;
 end TexturedShape;

src/AdvApp2Var/AdvApp2Var_ApproxF2var.cxx

@@ -997,7 +997,7 @@ int mma1fer_(integer *,//ndimen,
 /*               0 = constraints of passage to limits (i.e. C0), */
 /*               1 = C0 + constraintes of 1st derivatives (i.e. C1), */
 /*               2 = C1 + constraintes of 2nd derivatives (i.e. C2). */
-/*     NDGJAC: Degree of development in series to use for the calculation  
+/*     NDGJAC: Degree of development in series to use for the calculation  */
 /*             in the base of Jacobi. */
 /*     CRVJAC: Table of coeff. of the curve of approximation in the */
 /*             base of Jacobi. */
@@ -1022,7 +1022,7 @@ int mma1fer_(integer *,//ndimen,
 /*             =-1, warning, required tolerance can't be */
 /*                  met with coefficients NFCLIM. */
 /*             = 1, order of constraints (IORDRE) is not within authorised values */
-/*                  
+
 
 /*     COMMONS USED : */
 /*     ------------------ */
@@ -1204,7 +1204,7 @@ int AdvApp2Var_ApproxF2var::mma1her_(const integer *iordre,
 
 /*     DESCRIPTION/NOTES/LIMITATIONS : */
 /*     ----------------------------------- */
-/*     The part of HERMIT(*,2*i+j) table where  j=1 or 2 and i=0 to IORDRE, 
+/*     The part of HERMIT(*,2*i+j) table where  j=1 or 2 and i=0 to IORDRE, */
 /*     contains the coefficients of the polynom of degree 2*IORDRE+1 */
 /*     such as ALL values in -1 and in +1 of this polynom and its */
 /*     derivatives till order of derivation IORDRE are NULL, */
@@ -1351,14 +1351,14 @@ int mma1jak_(integer *ndimen,
 /*     ------------------ */
 /*     NDIMEN: Total dimension of the space (sum of dimensions */
 /*             of sub-spaces) */
-/*     NBROOT: Nb of points of discretization of the iso, extremities not 
+/*     NBROOT: Nb of points of discretization of the iso, extremities not */
 /*             included. */
 /*     IORDRE: Order of constraint at the extremities of the boundary */
 /*              -1 = no constraints, */
 /*               0 = constraints of passage of limits (i.e. C0), */
 /*               1 = C0 + constraints of 1st derivatives (i.e. C1), */
 /*               2 = C1 + constraints of 2nd derivatives (i.e. C2). */
-/*     NDGJAC: Degree of development in series to be used for calculation in the  
+/*     NDGJAC: Degree of development in series to be used for calculation in the  */
 /*             base of Jacobi. */
 
 /*     OUTPUT ARGUMENTS : */
@@ -1908,7 +1908,7 @@ int AdvApp2Var_ApproxF2var::mma2ac2_(const integer *ndimen,
 /*     ------------------- */
 /*   PATJAC: Table of coefficients of the polynom P(u,v) by approximation */
 /*           of F(u,v) WITH taking into account of constraints. */
-/* > *//*
+/* > */
 
 
 /* > */
@@ -2350,7 +2350,7 @@ int mma2cd1_(integer *ndimen,
 */
 /*     NBPNTV: Nb of INTERNAL  parameters of discretisation by V. */
 /*             This is also the nb of root of Legendre polynom where discretization is done. */
-/*     VROOTL: Table of discretization parameters on (-1,1) by V. 
+/*     VROOTL: Table of discretization parameters on (-1,1) by V. */
 /*     IORDRU: Order of constraint imposed at the extremities of iso-V */
 /*             = 0, calculate the extremities of iso-V */
 /*             = 1, calculate, additionally, the 1st derivative in the direction of iso-V */
@@ -2707,7 +2707,7 @@ int mma2cd2_(integer *ndimen,
 */
 /*     NBPNTV: Nb of INTERNAL  parameters of discretisation by V. */
 /*             This is also the nb of root of Legendre polynom where discretization is done. */
-/*     VROOTL: Table of discretization parameters on (-1,1) by V. 
+/*     VROOTL: Table of discretization parameters on (-1,1) by V. */
 /*     IORDRV: Order of constraint imposed at the extremities of iso-V */
 /*             = 0, calculate the extremities of iso-V */
 /*             = 1, calculate, additionally, the 1st derivative in the direction of iso-V */
@@ -3351,7 +3351,7 @@ int AdvApp2Var_ApproxF2var::mma2cdi_( integer *ndimen,
 */
 /*     NBPNTV: Nb of INTERNAL  parameters of discretisation by V. */
 /*             This is also the nb of root of Legendre polynom where discretization is done. */
-/*     VROOTL: Table of parameters of discretisation ON (-1,1) by V. 
+/*     VROOTL: Table of parameters of discretisation ON (-1,1) by V.*/ 
 
 /*     IORDRV: Order of constraint imposed at the extremities of iso-U */
 /*             = 0, calculate the extremities of iso-U */
@@ -4323,7 +4323,7 @@ L300:
 /* L320: */
 	}
 
-/* ----- Contribution of calculated terms to the approximation error
+/* ----- Contribution of calculated terms to the approximation error */
 /* for terms (I,J) with MINU <= I <= MAXU, MINV <= J <= MAXV. */
 
 	idim = 1;
@@ -4507,7 +4507,7 @@ L600:
 /* L700: */
 	}
 
-/* ----- Contribution of calculated terms to the approximation error
+/* ----- Contribution of calculated terms to the approximation error */
 /* for  terms (I,J) with MINU <= I <= MAXU, MINV <= J <= MAXV */
 
 	idim = 1;
@@ -4690,7 +4690,7 @@ int mma2cfu_(integer *ndujac,
 /*     FUNCTION : */
 /*     ---------- */
 /*     Calculate the terms connected to degree NDUJAC by U of the polynomial approximation */
-/*     of function F(u,v), starting from its discretisation 
+/*     of function F(u,v), starting from its discretisation */
 /*     on the roots of Legendre polynom of degree */
 /*     NBPNTU by U and NBPNTV by V. */
 
@@ -4820,7 +4820,7 @@ int mma2cfu_(integer *ndujac,
 	}
     }
 
-/* ------- Add terms connected to the supplementary root (0.D0) ------ 
+/* ------- Add terms connected to the supplementary root (0.D0) ------ */
 /* ----------- of Legendre polynom of uneven degree NBPNTU ----------- 
 */
 /* --> Only even NDUJAC terms are modified as GSSUTB(0) = 0 */
@@ -4905,7 +4905,7 @@ int mma2cfv_(integer *ndvjac,
 
 /*     FUNCTION : */
 /*     ---------- */
-/*     Calculate the coefficients of polynomial approximation of F(u,v) 
+/*     Calculate the coefficients of polynomial approximation of F(u,v) */
 /*     of degree NDVJAC by V and of degree by U varying from MINDGU to MAXDGU. 
 */
 
@@ -4917,7 +4917,7 @@ int mma2cfv_(integer *ndvjac,
 /*     ------------------ */
 
 /*   NDVJAC: Degree of the polynom of approximation by V. */
-/*           The representation in the orthogonal base starts from degre 0. 
+/*           The representation in the orthogonal base starts from degre 0. */
 	     /* The polynomial base is the base of Jacobi of order -1 */
 /*           (Legendre), 0, 1 or 2 */
 /*   MINDGU: Degree minimum by U of coeff. to calculate. */
@@ -4927,9 +4927,9 @@ int mma2cfv_(integer *ndvjac,
 /*           by Gauss method. It is reqired that NBPNTV = 30, 40, 50 or 61 and NDVJAC < NBPNTV. */
 /*   GSSVTB: Table of coefficients of integration by Gauss method */
 /*           by V for NDVJAC fixed: j varies from 0 to NBPNTV/2. */
-/*   CHPAIR: Table of terms connected to degrees from MINDGU to MAXDGU by U to 
+/*   CHPAIR: Table of terms connected to degrees from MINDGU to MAXDGU by U to */
 /*           calculate the coeff. of approximation of EVEN degree NDVJAC by V. */
-/*   CHIMPR: Table of terms connected to degrees from MINDGU to MAXDGU by U to
+/*   CHIMPR: Table of terms connected to degrees from MINDGU to MAXDGU by U to */
 /*           calculate the coeff. of approximation of UNEVEN degree NDVJAC by V. */
 
 /*     OUTPUT ARGUMENTS : */
@@ -6260,7 +6260,7 @@ int AdvApp2Var_ApproxF2var::mma2fnc_(integer *ndimen,
 /*     ERRMAX: Table of MAX errors (sub-space by sub-space) */
 /*             committed in the approximation of FONCNP by NBCRBE curves. */
 /*     ERRMOY: Table of AVERAGE errors (sub-space by sub-space) */
-/*             committed in the approximation of FONCNP by NBCRBE curves.
+/*             committed in the approximation of FONCNP by NBCRBE curves. */
 /*     IERCOD: Error code: */
 /*             -1 = ERRMAX > EPSAPR for at least one sub-space. */
 /*                  (the resulting curves of at least mathematic degree NCFLIM-1 */
@@ -7784,7 +7784,7 @@ int AdvApp2Var_ApproxF2var::mmapptt_(const integer *ndgjac,
 /*     FUNCTION : */
 /*     ---------- */
 /*        Load the elements required for integration by */
-/*        Gauss method to obtain the coefficients in the base of
+/*        Gauss method to obtain the coefficients in the base of */
 /*        Legendre of the approximation by the least squares of a */
 /*        function. The elements are stored in commons MMAPGSS */
 /*        (case without constraint), MMAPGS0 (constraints C0), MMAPGS1 */
@@ -7797,7 +7797,7 @@ int AdvApp2Var_ApproxF2var::mmapptt_(const integer *ndgjac,
 /*     INPUT ARGUMENTS  : */
 /*     ------------------ */
 /*        NDGJAC : Max degree of the polynom of approximation. */
-/*                 The representation in orthogonal base goes from degree
+/*                 The representation in orthogonal base goes from degree */
 /*                 0 to degree NDGJAC-2*(JORDRE+1). The polynomial base */
 /*                 is the base of Jacobi of order -1 (Legendre), 0, 1 and 2 */
 /*        NBPNTS : Degree of the polynom of Legendre on the roots which of */

src/AdvApp2Var/AdvApp2Var_MathBase.cxx

@@ -736,7 +736,7 @@ int mmaper2_(integer *ncofmx,
 /*     KEYWORDS : */
 /*     ----------- */
 /*        JACOBI, POLYGON, APPROXIMATION, ERROR. */
-/*
+/**/
 /*  INPUT ARGUMENTS : */
 /*     ------------------ */
 /*        NCOFMX : Max. degree of the curve. */
@@ -1793,7 +1793,7 @@ int mmatvec_(integer *nligne,
 /*       GNSTOC: Number of coefficients in the profile of matrix GMATRI */
 
 /*       GPOSIT: Table of positioning of terms of storage */
-/*               GPOSIT(1,I) contains the number of terms-1 on the line I 
+/*               GPOSIT(1,I) contains the number of terms-1 on the line I */
 /*               in the profile of the matrix. */
 /*              GPOSIT(2,I) contains the index of storage of diagonal term*/
 /*               of line I */
@@ -1804,7 +1804,7 @@ int mmatvec_(integer *nligne,
 /*       GMATRI : Matrix of constraints in form of profile */
 /*       VECIN  : Input vector */
 /*       DEBLIG : Line indexusing which the vector matrix is calculated */
-/*               
+/**/               
 /*     OUTPUT ARGUMENTS */
 /*     --------------------- */
 /*       VECOUT : VECTOR PRODUCT */
@@ -3322,7 +3322,7 @@ int mmdrvcb_(integer *ideriv,
   integer ndeg, i__, j, nd, ndgcrb, iptpnt, ibb;
   
 
-/* ***********************************************************************
+/* *********************************************************************** */
 /*     FUNCTION : */
 /*     ---------- */
 
@@ -3731,7 +3731,7 @@ int AdvApp2Var_MathBase::mmeps1_(doublereal *epsilo)
 
 /*     DEMSCRIPTION/NOTES/LIMITATIONS : */
 /*     ----------------------------------- */
-/*       INITIALISATION   :  profile , **VIA MPRFTX** at input in stream
+/*       INITIALISATION   :  profile , **VIA MPRFTX** at input in stream */
 /*       loading of default values of the profile in MPRFTX at input */
 /*       in stream. They are preserved in local variables of MPRFTX */
 
@@ -3812,7 +3812,7 @@ int mmexthi_(integer *ndegre,
 /*     DESCRIPTION/NOTES/LIMITATIONS : */
 /*     ----------------------------------- */
 /*     ATTENTION: The condition on NDEGRE ( 2 <= NDEGRE <= 61) is not  */
-/*     tested. The caller should make the test.
+/*     tested. The caller should make the test. */
 
 /*   Name of the routine */
 
@@ -4415,7 +4415,7 @@ int AdvApp2Var_MathBase::mmfmcar_(integer *ndimen,
 
 /* --->    The max number of coeff by u and v of PATOLD is 61 */
 
-/* --->    If NCOEFU < NCOFMX, the data is compressed by MMFMCA9 before
+/* --->    If NCOEFU < NCOFMX, the data is compressed by MMFMCA9 before */
 /*        limitation by v to get time during the execution */
 /*        of MMARC41 that follows (the square is processed as a curve of 
 */
@@ -4783,7 +4783,7 @@ int AdvApp2Var_MathBase::mmfmtb1_(integer *maxsz1,
 
 /*     OUTPUT ARGUMENTS : */
 /*     ------------------- */
-/*     TABLE2: Table of reals by two dimensions, containing the transposition 
+/*     TABLE2: Table of reals by two dimensions, containing the transposition */
 /*             of the rectangular table TABLE1. */
 /*     ISIZE2: Nb of useful elements of TABLE2 on the 1st dimension */
 /*     JSIZE2: Nb of useful elements of TABLE2 on the 2nd dimension */
@@ -4922,7 +4922,7 @@ int AdvApp2Var_MathBase::mmgaus1_(integer *ndimf,
 /*      between limits XD and XF . */
 /*      The function should be calculated for any value */
 /*      of the variable in the given interval.. */
-/*      The method GAUSS-LEGENDRE is used. 
+/*      The method GAUSS-LEGENDRE is used. */
 /*      For explications refer to the book : */
 /*          Complements de mathematiques a l'usage des Ingenieurs de */
 /*          l'electrotechnique et des telecommunications. */
@@ -4994,7 +4994,7 @@ int AdvApp2Var_MathBase::mmgaus1_(integer *ndimf,
 /*      If you wish to calculate the integral with a given precision, */
 /*      loop on k varying from 1 to 10 and test the difference of 2
 */
-/*      consecutive iterations. Stop the loop if this difference is less that 
+/*      consecutive iterations. Stop the loop if this difference is less that */
 /*      an epsilon value set to 10E-6 for example. */
 /*      If S1 and S2 are 2 successive iterations, test following this example :
  */
@@ -5166,7 +5166,7 @@ int mmherm0_(doublereal *debfin,
 
 /*     FUNCTION : */
 /*     ---------- */
-/*      Used to STORE  coefficients of Hermit interpolation polynoms
+/*      Used to STORE  coefficients of Hermit interpolation polynoms */
 
 /*     KEYWORDS : */
 /*     ----------- */
@@ -5458,7 +5458,7 @@ int mmherm1_(doublereal *debfin,
 /*              there is no choice : ORDRMX should be equal to the value */
 /*              of PARAMETER IORDMX of INCLUDE MMCMHER, or 2 for the moment */
 
-/*       IORDRE (2) : Orders of constraints in each corresponding parameter DEBFIN(I) 
+/*       IORDRE (2) : Orders of constraints in each corresponding parameter DEBFIN(I) */
 /*              should be between -1 (no constraints) and ORDRMX. */
 
 
@@ -5504,7 +5504,7 @@ int mmherm1_(doublereal *debfin,
 
 /*     FUNCTION : */
 /*     ---------- */
-/*      Serves to STORE the coefficients of Hermit interpolation polynoms
+/*      Serves to STORE the coefficients of Hermit interpolation polynoms */
 
 /*     KEYWORDS : */
 /*     ----------- */
@@ -5940,7 +5940,7 @@ L9999:
 /*        . Level of de debug = 3 */
 
 
-/*
+/**/
 /*     DECLARATIONS , CONTROL OF INPUT ARGUMENTS , INITIALIZATION */
 /* ***********************************************************************
  */
@@ -6371,7 +6371,7 @@ int mmloncv_(integer *ndimax,
 /*     FUNCTION : Length of an arc of curve on a given interval */
 /*     ---------- for a function the mathematic representation  */
 /*                which of is a multidimensional polynom. */
-/*      The polynom is a set of polynoms the coefficients which of are ranked
+/*      The polynom is a set of polynoms the coefficients which of are ranked */
 /*  in a table with 2 indices, each line relative to 1 polynom. */
 /*      The polynom is defined by its coefficients ordered by increasing 
 *       power of the variable. */
@@ -7358,9 +7358,9 @@ L9999:
 /*       NISTOC: NUMBER OF COEFFICIENTS IN THE PROFILE */
 /*       DIMMAT: NUMBER OF LINE OF THE SYMMETRIC SQUARE MATRIX */
 /*       APOSIT: TABLE OF POSITIONING OF STORAGE TERMS */
-/*               APOSIT(1,I) CONTAINS THE NUMBER OF TERMES-1 ON LINE 
+/*               APOSIT(1,I) CONTAINS THE NUMBER OF TERMES-1 ON LINE */
 /*               I IN THE PROFILE OF THE MATRIX */
-/*               APOSIT(2,I) CONTAINS THE INDEX OF STORAGE OF DIAGONAL TERM 
+/*               APOSIT(2,I) CONTAINS THE INDEX OF STORAGE OF DIAGONAL TERM */
 /*               OF LINE I */
 
 
@@ -7538,7 +7538,7 @@ L9999:
 /*      GNSTOC: NOMBERS OF TERMS IN THE PROFILE OF THE MATRIX OF CONSTRAINTS */
 /*      MNSTOC: NOMBERS OF TERMS IN THE PROFILE OF THE MATRIX M= G H t(G) */
 /*              where H IS THE HESSIAN MATRIX AND G IS THE MATRIX OF CONSTRAINTS */
-/*      MATSYH: TRIANGULAR INFERIOR PART OF THE HESSIAN MATRIX
+/*      MATSYH: TRIANGULAR INFERIOR PART OF THE HESSIAN MATRIX */
 /*              IN FORM OF PROFILE */
 /*      MATSYG: MATRIX OF CONSTRAINTS IN FORM OF PROFILE */
 /*      VECSYH: VECTOR OF THE SECOND MEMBER ASSOCIATED TO MATSYH */
@@ -7557,11 +7557,11 @@ L9999:
 /*      GPOSIT: TABLE OF POSITIONING OF THE MATRIX OF CONSTRAINTS */
 /*              GPOSIT(1,I) CONTAINS THE NUMBER OF TERMS OF LINE I */
 /*                          WHICH ARE IN THE PROFILE */
-/*              GPOSIT(2,I) CONTAINS THE INDEX OF STORAGE OF THE LAST TERM 
+/*              GPOSIT(2,I) CONTAINS THE INDEX OF STORAGE OF THE LAST TERM */
 /*                          OF LINE I WHICH IS IN THE PROFILE */
 /*              GPOSIT(3,I) CONTAINS THE NUMBER OF COLUMN CORRESPONDING */
 /*                          TO THE FIRST TERM OF LINE I WHICH IS IN THE PROFILE */
-/*      MMPOSUI, MPOSIT: SAME STRUCTURE AS HPOSUI, BUT FOR MATRIX 
+/*      MMPOSUI, MPOSIT: SAME STRUCTURE AS HPOSUI, BUT FOR MATRIX */
 /*              M=G H t(G) */
 
 
@@ -8207,7 +8207,7 @@ int mmrslw_(integer *normax,
     }
     goto L9999;
 
-/* ------If the absolute value of a pivot is smaller than -------- 
+/* ------If the absolute value of a pivot is smaller than -------- */
 /* ---------- EPSPIV: return the code of error. ------------ 
 */
 
@@ -8620,7 +8620,7 @@ L1000:
 
     goto L1000;
 
-/* -------------- TEST IF TPARAM IS NOT A VALUE --------- 
+/* -------------- TEST IF TPARAM IS NOT A VALUE --------- */
 /* ------------------------OF TABLEV UP TO EPSIL ---------------------- 
 */
 
@@ -8689,11 +8689,11 @@ int mmtmave_(integer *nligne,
 /*       NLIGNE : NUMBER OF LINE OF THE MATRIX */
 /*       NCOLON : NOMBER OF COLUMN OF THE MATRIX */
 /*       GPOSIT: TABLE OF POSITIONING OF TERMS OF STORAGE */
-/*               GPOSIT(1,I) CONTAINS THE NUMBER of TERMS-1 ON LINE 
+/*               GPOSIT(1,I) CONTAINS THE NUMBER of TERMS-1 ON LINE */
-               I IN THE PROFILE OF THE MATRIX */
+/*               I IN THE PROFILE OF THE MATRIX */
-/*              GPOSIT(2,I) CONTAINS THE INDEX OF STORAGE OF THE DIAGONAL TERM
+/*              GPOSIT(2,I) CONTAINS THE INDEX OF STORAGE OF THE DIAGONAL TERM*/
 /*               OF LINE I */
-/*               GPOSIT(3,I) CONTAINS THE INDEX COLUMN OF THE FIRST TERM OF 
+/*               GPOSIT(3,I) CONTAINS THE INDEX COLUMN OF THE FIRST TERM OF */
 /*                           PROFILE OF LINE I */
 /*       GNSTOC : NOMBER OF TERM IN THE PROFILE OF GMATRI */
 /*       GMATRI : MATRIX OF CONSTRAINTS IN FORM OF PROFILE */
@@ -9433,7 +9433,7 @@ int mmtrpj6_(integer *ncofmx,
 
 /*     OUTPUT ARGUMENTS : */
 /*     ------------------- */
-/*        YCVMAX : Auxiliary table (max error on each dimension). 
+/*        YCVMAX : Auxiliary table (max error on each dimension). */
 /*        EPSTRC : Precision of the approximation. */
 /*        NCFNEW : Degree +1 of the resulting polynom. */
 
@@ -9685,7 +9685,7 @@ L9999:
 /*     ----------------------------------- */
 /*     VECTOR and VECNRM can be identic. */
 
-/*     The norm of vector is calculated and each component is divided by
+/*     The norm of vector is calculated and each component is divided by */
 /*     this norm. After this it is checked if all componentes of the */
 /*     vector except for one cost 0 with machine precision. In */
 /*     this case the quasi-null components are set to 0.D0. */
@@ -10727,7 +10727,7 @@ int mvgaus0_(integer *kindic,
 /*      to 40 directly (ATTENTION to overload - to avoid it, */
 /*      preview UROOTL and HILTAB dimensioned at least to 20). */
 
-/*      The value of coefficients was calculated with quadruple precision 
+/*      The value of coefficients was calculated with quadruple precision */
 /*      by JJM with help of GD. */
 /*      Checking of roots was done by GD. */
 

src/AdvApp2Var/AdvApp2Var_SysBase.cxx

@@ -1548,7 +1548,7 @@ int mamdlng_(char *,//cmdlng,
 /*        CHL10N*4 : LIST OF POSSIBLE VALUES OF THE LOCALIZATION : */
 /*                   'FRA ','DEU ','ENG ', 'JIS ' */
 
-/*     B) CHCOUR*4, CHPREC*4, CHSUIV*4 : CURRENT, PREVIOUS AND NEXT APPLICATION
+/*     B) CHCOUR*4, CHPREC*4, CHSUIV*4 : CURRENT, PREVIOUS AND NEXT APPLICATION */
 
 /*     C) CHMODE*4 : CURRENT MODE (NOT USED) */
 
@@ -1737,7 +1737,7 @@ int maoverf_(integer *nbentr,
 /*                  The idea is to minimize the number of calls */
 /*                to the routine of transfer of numeric zones, */
 /*   ----------   for the reason of performance. */
-/*  !  buffer  !    For this a table of NLONGR 
+/*  !  buffer  !    For this a table of NLONGR */
 /*  !__________!  DOUBLE PRECISIONs is reserved. This buffer is initialized by */
 /*  <---------->  the instruction DATA. The overflow is accessed in a  */
 /*    NLONGR*8    specific COMMON not by a routine as */

src/Aspect/Aspect_Grid.cdl

@@ -176,7 +176,6 @@ fields
     myColor: Color from Quantity is protected;
     myTenthColor: Color from Quantity is protected;
     myIsActive :Boolean from Standard;
-    myIsDisplayed: Boolean from Standard;    
     myDrawMode: GridDrawMode from Aspect;
 
 end Grid from Aspect;

src/BOPDS/BOPDS_Interf.hxx

@@ -523,7 +523,7 @@ class BOPDS_InterfFF  : public BOPDS_Interf {
    * @param theAllocator
    *   allocator to manage the memory
    */
-  /**
+  /*
   BOPDS_InterfFF(const Handle(NCollection_BaseAllocator)& theAllocator)
     : 
       BOPDS_Interf(theAllocator),
@@ -533,6 +533,7 @@ class BOPDS_InterfFF  : public BOPDS_Interf {
       myCurves(myAllocator),
       myPoints(myAllocator) {
   };
+  */
   //
   /**
    *  Destructor

src/BOPDS/BOPDS_ShapeInfo.lxx

@@ -34,8 +34,8 @@
 //=======================================================================
   inline BOPDS_ShapeInfo::BOPDS_ShapeInfo(const Handle(NCollection_BaseAllocator)& theAllocator)
 :
-  mySubShapes(theAllocator),
   myType(TopAbs_SHAPE),
+  mySubShapes(theAllocator),
   myReference(-1),
   myFlag(-1)
 {

src/BRepBlend/BRepBlend_AppFuncRoot.cdl

@@ -256,7 +256,6 @@ fields
 
  myLine : Line from BRepBlend;
  myFunc : Address;
- mydimension : Integer;
  myTolerance : Vector;
  myPnt      :  Point from  Blend; 
  myBary     :  Pnt   from  gp;

src/BRepBuilderAPI/BRepBuilderAPI_GTransform.cdl

@@ -129,7 +129,6 @@ is
 fields
 
     myGTrsf    : GTrsf    from gp;
-    myUseModif : Boolean from Standard;
     myHist     : Collect from BRepBuilderAPI;
     
 end Transform;

src/BRepExtrema/BRepExtrema_DistShapeShape.cxx

@@ -128,7 +128,6 @@ void BRepExtrema_DistShapeShape::DistanceMapMap(const TopTools_IndexedMapOfShape
 
 BRepExtrema_DistShapeShape::BRepExtrema_DistShapeShape()
 : myDistRef(0.),
-  myDistValue(0.),
   myIsDone(Standard_False),
   myInnerSol(Standard_False),
   myEps(Precision::Confusion()),
@@ -146,7 +145,6 @@ BRepExtrema_DistShapeShape::BRepExtrema_DistShapeShape(const TopoDS_Shape& Shape
                                                        const Extrema_ExtFlag F,
                                                        const Extrema_ExtAlgo A)
 : myDistRef(0.),
-  myDistValue(0.),
   myIsDone(Standard_False),
   myInnerSol(Standard_False),
   myEps(Precision::Confusion()),
@@ -169,7 +167,6 @@ BRepExtrema_DistShapeShape::BRepExtrema_DistShapeShape(const TopoDS_Shape& Shape
                                                        const Extrema_ExtFlag F,
                                                        const Extrema_ExtAlgo A)
 : myDistRef(0.),
-  myDistValue(0.),
   myIsDone(Standard_False),
   myInnerSol(Standard_False),
   myEps(theDeflection),

src/BRepExtrema/BRepExtrema_DistShapeShape.hxx

@@ -182,7 +182,6 @@ private:
   Standard_EXPORT void DistanceMapMap(const TopTools_IndexedMapOfShape& Map1,const TopTools_IndexedMapOfShape& Map2,const Bnd_SeqOfBox& LBox1,const Bnd_SeqOfBox& LBox2);
 
   Standard_Real myDistRef;
-  Standard_Real myDistValue;
   Standard_Boolean myIsDone;
   BRepExtrema_SeqOfSolution mySolutionsShape1;
   BRepExtrema_SeqOfSolution mySolutionsShape2;

src/BRepFeat/BRepFeat_MakePipe.cdl

@@ -147,6 +147,5 @@ fields
     mySpine  : Wire                      from TopoDS;
     myCurves : SequenceOfCurve           from TColGeom;
     myBCurve : Curve                     from Geom;
-    myStatusError : StatusError          from BRepFeat;
 
 end MakePipe;

src/BRepMesh/BRepMesh_ComparatorOfVertexOfDelaun.cdl

@@ -30,7 +30,7 @@ class ComparatorOfVertexOfDelaun from BRepMesh
         XY from gp
 
 
-  is      Create (theDir : XY from gp; TheTol: Real from Standard) 
+  is      Create (theDir : XY from gp) 
             returns ComparatorOfVertexOfDelaun;
 
 

src/BRepMesh/BRepMesh_ComparatorOfVertexOfDelaun.cxx

@@ -26,9 +26,8 @@
 //purpose  : 
 //=======================================================================
 
-BRepMesh_ComparatorOfVertexOfDelaun::BRepMesh_ComparatorOfVertexOfDelaun(const gp_XY& theDir,
+BRepMesh_ComparatorOfVertexOfDelaun::BRepMesh_ComparatorOfVertexOfDelaun(const gp_XY& theDir)
-                                                                         const Standard_Real theTol)
+                                                                         : DirectionOfSort(theDir)
-                                                                         : DirectionOfSort(theDir), Tolerance(theTol)
 {}
 
 //=======================================================================

src/BRepMesh/BRepMesh_Delaun.cxx

@@ -2030,7 +2030,7 @@ void  BRepMesh_Delaun::RemoveVertex( const BRepMesh_Vertex& theVertex )
 void  BRepMesh_Delaun::AddVertices( BRepMesh_Array1OfVertexOfDelaun& theVertices )
 {
   BRepMesh_HeapSortVertexOfDelaun::Sort( theVertices, 
-    BRepMesh_ComparatorOfVertexOfDelaun( SortingDirection, Precision ) );
+    BRepMesh_ComparatorOfVertexOfDelaun( SortingDirection ) );
 
   Standard_Integer aLower  = theVertices.Lower();
   Standard_Integer anUpper = theVertices.Upper();

src/BlendFunc/BlendFunc_ChamfInv.cdl

@@ -106,8 +106,6 @@ fields
 
     surf1 : HSurface from Adaptor3d;
     surf2 : HSurface from Adaptor3d;
-    dis1  : Real from Standard;
-    dis2  : Real from Standard;    
     curv  : HCurve from Adaptor3d;
     csurf : HCurve2d from Adaptor2d;
     choix : Integer from Standard;

src/Draw/Draw_Marker2D.cdl

@@ -53,7 +53,5 @@ fields
     myCol : Color from Draw;
     myTyp : MarkerShape from Draw;
     mySiz : Integer;
-    myRSiz : Real; 
-    myIsRSiz : Boolean;
 
 end Marker2D;

src/Draw/Draw_Marker2D.cxx

@@ -40,8 +40,8 @@ Draw_Marker2D::Draw_Marker2D(const gp_Pnt2d& P, const Draw_MarkerShape T,
 //=======================================================================
 
 Draw_Marker2D::Draw_Marker2D(const gp_Pnt2d& P, const Draw_MarkerShape T,
-			     const Draw_Color& C, const Standard_Real RSize) :
+			     const Draw_Color& C, const Standard_Real /*RSize*/) :
-       myPos(P), myCol(C), myTyp(T), myRSiz(RSize), myIsRSiz(Standard_True)
+       myPos(P), myCol(C), myTyp(T)
 {
 }
 
@@ -77,4 +77,3 @@ Standard_Boolean Draw_Marker2D::PickReject(const Standard_Real,
 {
   return Standard_False;
 }
-					   

src/DsgPrs/DsgPrs_SymmetricPresentation.cxx

@@ -409,15 +409,15 @@ void DsgPrs_SymmetricPresentation::Add (const Handle(Prs3d_Presentation)& aPrese
   aPrims->AddVertex(pOff.Translated(vec1.Added(vec2.Reversed())));
   aPrims->AddVertex(pOff.Translated(vec1.Reversed().Added(vec2.Reversed())));
 
-  //--------------------------------------------------------------------------------------
+  /*--------------------------------------------------------------------------------------
-  //|                          MARKING OF THE SYMMETRY AXIS                             |
+  |                          MARKING OF THE SYMMETRY AXIS                             |
-  //--------------------------------------------------------------------------------------     
+  --------------------------------------------------------------------------------------     
-  //        ____
+          ____
-  //        \  / :Cursor
+          \  / :Cursor
-  //         \/
+           \/
-  //         /\
+           /\
-  //        /__\
+          /__\
-
+*/
   Standard_Real Dist = (aAxis.Distance(AttachmentPoint1)+aAxis.Distance(AttachmentPoint2))/75;
   gp_Vec vs(aDirectionAxis);
   gp_Vec vsym(vs.Divided(vs.Magnitude()).Multiplied(Dist).XYZ());
@@ -647,15 +647,15 @@ void DsgPrs_SymmetricPresentation::Add (const Handle(Prs3d_Presentation)& aPrese
   aPrims->AddVertex(pOff.Translated(vec1.Added(vec2.Reversed())));
   aPrims->AddVertex(pOff.Translated(vec1.Reversed().Added(vec2.Reversed())));
   
-  //--------------------------------------------------------------------------------------
+/*--------------------------------------------------------------------------------------
-  //|                          MARKING OF THE AXIS OF SYMMETRY                           |
+  |                          MARKING OF THE AXIS OF SYMMETRY                           |
-  //--------------------------------------------------------------------------------------     
+  --------------------------------------------------------------------------------------     
-  //        ____
+          ____
-  //        \  / :Cursor
+          \  / :Cursor
-  //         \/
+           \/
-  //         /\
+           /\
-  //        /__\
+          /__\
-
+*/
   Standard_Real Dist = aAxis.Distance(Center1)/37;
   gp_Dir aDirectionAxis = aAxis.Direction();
   gp_Vec vs(aDirectionAxis);
@@ -886,15 +886,15 @@ void DsgPrs_SymmetricPresentation::Add (const Handle(Prs3d_Presentation)& aPrese
     aPrims->AddVertex(pOff.Translated(vec1.Added(vec2.Reversed())));
     aPrims->AddVertex(pOff.Translated(vec1.Reversed().Added(vec2.Reversed())));
 
-    //--------------------------------------------------------------------------------------
+    /*--------------------------------------------------------------------------------------
-    //|                          MARKING OF THE AXIS OF SYMMETRY                           |
+    |                          MARKING OF THE AXIS OF SYMMETRY                           |
-    //--------------------------------------------------------------------------------------     
+    --------------------------------------------------------------------------------------     
-    //        ____
+            ____
-    //        \  / :Cursor
+            \  / :Cursor
-    //         \/
+             \/
-    //         /\
+             /\
-    //        /__\
+            /__\
-    
+    */
     Standard_Real Dist = P1.Distance(P2)/75;
     gp_Dir aDirectionAxis = aAxis.Direction();
     gp_Vec vs(aDirectionAxis);

src/Extrema/Extrema_ExtElC.cxx

@@ -403,7 +403,7 @@ Extrema_ExtElC::Extrema_ExtElC (const gp_Lin& C1,
   //
   aTol=1.e-12;
   //
-  /*
+
   if(fabs(A5) <= aTol) {
     A5 = 0.;
   }

src/Extrema/Extrema_ExtPExtS.cdl

@@ -110,8 +110,6 @@ fields
     myvsup   : Real from Standard;
     mytolv   : Real from Standard;
     
-    myVRange  : Real from Standard;
-    
     myF	        : FuncExtPS  from Extrema;
     myC         : HCurve     from Adaptor3d; 
     myS	        : SurfacePtr from Adaptor3d;

src/Extrema/Extrema_GExtCC2d.cdl

@@ -161,8 +161,6 @@ fields
     mynbext:  Integer;
     inverse:  Boolean;
     myC:      Address from Standard;
-    myu1:     Real;
-    myu2:     Real;
     myv1:     Real;
     myv2:     Real;
     mytolc1:  Real;

src/Extrema/Extrema_GenExtCS.cdl

@@ -158,7 +158,6 @@ fields
     mytol1     : Real;
     mytol2     : Real;
     myF        : FuncExtCS from Extrema;
-    myC        : CurvePtr from Adaptor3d;
     myS        : SurfacePtr from Adaptor3d;
 
 end GenExtCS;

src/Extrema/Extrema_GenExtSS.cdl

@@ -147,7 +147,6 @@ fields
     mytol1     : Real;
     mytol2     : Real;
     myF        : FuncExtSS from Extrema;
-    myS1       : SurfacePtr from Adaptor3d;
     myS2       : SurfacePtr from Adaptor3d;
 
 end GenExtSS;

src/FEmTool/FEmTool_Curve.cdl

@@ -87,7 +87,6 @@ is
 fields 
   myNbElements  :  Integer; 
   myDimension   :  Integer;  
-  myTolerance   :  Real;  
   myBase        :  Base  from  PLib;
   myKnots       :  HArray1OfReal;  
   myDegree      :  Array1OfInteger;

src/FEmTool/FEmTool_Curve.cxx

@@ -35,9 +35,8 @@
 FEmTool_Curve::FEmTool_Curve(const Standard_Integer Dimension,
                              const Standard_Integer NbElements,
                              const Handle(PLib_Base)& TheBase, 
-			     const Standard_Real Tolerance) : 
+                             const Standard_Real) : 
        myNbElements(NbElements), myDimension(Dimension), 
-       myTolerance(Tolerance), 
        myBase(TheBase), myDegree(1, myNbElements), 
        myCoeff(1, myDimension*myNbElements*(myBase->WorkDegree() + 1)), 
        myPoly(1, myDimension*myNbElements*(myBase->WorkDegree() + 1)), 

src/FairCurve/FairCurve_EnergyOfBatten.cdl

@@ -80,7 +80,6 @@ is
 fields
     MyLengthSliding : Real;
     OriginalSliding : Real;
-    MyFreeSliding   : Boolean;
     MyBattenLaw     : BattenLaw;
     MyTension       : DistributionOfTension;
     MySagging       : DistributionOfSagging;

src/FairCurve/FairCurve_EnergyOfBatten.cxx

@@ -46,7 +46,6 @@ FairCurve_EnergyOfBatten::FairCurve_EnergyOfBatten(const Standard_Integer BSplOr
                                              FreeSliding,  Angle1, Angle2),
                            MyLengthSliding(LengthSliding),
                            OriginalSliding(LengthSliding),
-			   MyFreeSliding(FreeSliding),
                            MyBattenLaw(Law), 
                            MyTension(BSplOrder, FlatKnots, Poles, 1, LengthSliding,  Law, FreeSliding),
                            MySagging(BSplOrder, FlatKnots, Poles, 1, Law, FreeSliding)

src/FairCurve/FairCurve_EnergyOfMVC.cdl

@@ -86,7 +86,6 @@ is
 fields
     MyLengthSliding : Real;
     OriginalSliding : Real;
-    MyFreeSliding   : Boolean;
     MyBattenLaw     : BattenLaw;
     MyPhysicalRatio : Real;
     MyTension       : DistributionOfTension;

src/FairCurve/FairCurve_EnergyOfMVC.cxx

@@ -45,7 +45,6 @@ FairCurve_EnergyOfMVC::FairCurve_EnergyOfMVC(const Standard_Integer BSplOrder,
                                              BSplOrder-1, Curvature1, Curvature2),
                            MyLengthSliding(LengthSliding),
                            OriginalSliding(LengthSliding),
-			   MyFreeSliding(FreeSliding),
                            MyBattenLaw(Law), 
                            MyPhysicalRatio(PhysicalRatio),
                            MyTension(BSplOrder, FlatKnots, Poles, 1, LengthSliding,  Law, FreeSliding, Standard_True),

src/GCPnts/GCPnts_QuasiUniformAbscissa.cdl

@@ -178,7 +178,6 @@ fields
     -- stores the number of points computed with the 
     -- requested Abscissa else stores the requested
     -- number of points 
-    myAbscissa   : Real;
     myParams     : HArray1OfReal from TColStd ;
     -- the size of this array will be be bigger than myNbPoints
     --  by one or two 

src/GCPnts/GCPnts_QuasiUniformAbscissa.lxx

@@ -18,19 +18,12 @@
 
 #include <StdFail_NotDone.hxx>
 #include <TColStd_HArray1OfReal.hxx>
-//#include <GCPnts_QuasiUniformAbscissa.hxx>
 
 inline Standard_Boolean GCPnts_QuasiUniformAbscissa::IsDone () const
 {
   return myDone;
 }
 
-//inline Standard_Real GCPnts_QuasiUniformAbscissa::Abscissa () const
-//{ 
-//  StdFail_NotDone_Raise_if(!myDone, 
-//                             "GCPnts_QuasiUniformAbscissa::Abscissa()");
-//  return myAbscissa;
-//}
 
 inline Standard_Integer GCPnts_QuasiUniformAbscissa::NbPoints () const
 { 

src/GProp/GProp_SGProps.gxx

@@ -113,7 +113,16 @@ static Standard_Integer FillIntervalBounds(Standard_Real               A,
   for(; i <= iEnd; i++){
     Standard_Real kn = Knots(i);
     if(A < kn)
-      if(kn < B) VA(j++) = VB(k++) = kn; else break;
+    {
+      if(kn < B) 
+      {
+        VA(j++) = VB(k++) = kn;
+      }
+      else 
+      {
+        break;
+      }
+    }
   }
   VB(k) = B;
   return k;

src/GProp/GProp_VGProps.gxx

@@ -82,7 +82,16 @@ static Standard_Integer FillIntervalBounds(Standard_Real A, Standard_Real B, con
   for(; i <= iEnd; i++){
     Standard_Real kn = Knots(i);
     if(A < kn)
-      if(kn < B) VA(j++) = VB(k++) = kn; else break;
+    {
+      if(kn < B) 
+      {
+        VA(j++) = VB(k++) = kn; 
+      }
+      else
+      {
+        break;
+      }
+    }
   }
   VB(k) = B;
   return k;

src/Geom/Geom_BezierSurface.cdl

@@ -732,9 +732,6 @@ fields
   -- the cache  
     ucachespanlenght : Real ;
     vcachespanlenght : Real ;
-  -- Always 1. for the moment.
-    ucachespanindex : Integer ;
-    vcachespanindex : Integer ;
   -- the span for which the cache is valid if 
   -- validcache is 1 
     validcache : Integer ;

src/GeomFill/GeomFill_CircularBlendFunc.cdl

@@ -221,7 +221,6 @@ fields
  myBary     :  Pnt   from  gp;   
   
  myRadius   :  Real;
- myMinW     :  Real; 
  maxang     :  Real; 
  minang     :  Real; 
  distmin    :  Real;   

src/GeomFill/GeomFill_ConstrainedFilling.cdl

@@ -226,8 +226,6 @@ fields
 
     -- result curves of aproximation.
     appdone   : Boolean from Standard;
-    tolapp3d  : Real from Standard[4];
-    tolappang : Real from Standard[4];
     degree    : Integer from Standard [2];
     curvpol   : HArray1OfPnt from TColgp [4];
     tgtepol   : HArray1OfPnt from TColgp [4];

src/GeomFill/GeomFill_CoonsAlgPatch.cdl

@@ -103,7 +103,6 @@ fields
     
     -- the corners.
     c   : Pnt from gp [4];
-    gap : Real from Standard [4];
     
     -- the   blending functions.
     a : Function from Law [2];

src/GeomPlate/GeomPlate_BuildPlateSurface.cdl

@@ -329,7 +329,6 @@ fields
     myG1Error  :  Real  from  Standard; 
     myG2Error  :  Real  from  Standard; 
     myNbPtsOnCur  :  Integer  from  Standard;  
-    mySurfInitIsPlane  :  Boolean  from  Standard;  
     mySurfInitIsGive  :  Boolean  from  Standard;
     myNbIter  :  Integer  from  Standard; 
     myProj  :  ExtPS  from Extrema;
@@ -338,7 +337,6 @@ fields
     myTol2d  :   Real  from  Standard; 
     myTol3d  :   Real  from  Standard; 
     myTolAng  :   Real  from  Standard;  
-    myTolCurv :   Real  from  Standard;  
     myTolU  :  Real  from  Standard;  
     myTolV  :  Real  from  Standard;
     

src/GeomPlate/GeomPlate_BuildPlateSurface.cxx

@@ -121,7 +121,7 @@ GeomPlate_BuildPlateSurface::GeomPlate_BuildPlateSurface (
 		    const Standard_Real Tol2d,
 		    const Standard_Real Tol3d,
 		    const Standard_Real TolAng,
-		    const Standard_Real TolCurv,
+		    const Standard_Real ,
 		    const Standard_Boolean Anisotropie
 ) :
 myAnisotropie(Anisotropie),
@@ -131,7 +131,6 @@ myProj(),
 myTol2d(Tol2d),
 myTol3d(Tol3d),
 myTolAng(TolAng),
-myTolCurv(TolCurv),
 myNbBounds(0)
 { Standard_Integer NTCurve=TabCurve->Length();// Nombre de contraintes lineaires
   myNbPtsOnCur = 0; // Debrayage du calcul du nombre de points
@@ -190,7 +189,6 @@ myProj(),
 myTol2d(Tol2d),
 myTol3d(Tol3d),
 myTolAng(TolAng),
-myTolCurv(TolCurv),
 myNbBounds(0)
 {   if (myNbIter<1)
     Standard_ConstructionError::Raise("GeomPlate :  Number of iteration must be >= 1");
@@ -225,7 +223,6 @@ myProj(),
 myTol2d(Tol2d),
 myTol3d(Tol3d),
 myTolAng(TolAng),
-myTolCurv(TolCurv),
 myNbBounds(0)
 {  if (myNbIter<1)
     Standard_ConstructionError::Raise("GeomPlate :  Number of iteration must be >= 1");

src/HLRBRep/HLRBRep_PolyAlgo.cdl

@@ -572,7 +572,6 @@ fields
     myEMap       : IndexedMapOfShape from TopTools;
     myFMap       : IndexedMapOfShape from TopTools;
     myAlgo       : PolyAlgo          from HLRAlgo;
-    myHide       : Integer           from Standard;
     myDebug      : Boolean           from Standard;
     myAngle      : Real              from Standard;
     myTolSta     : Real              from Standard;

src/IGESData/IGESData_IGESReaderData.cdl

@@ -107,7 +107,6 @@ is
 
 fields
 
-    thecnum : Integer;           -- current entity number for recognize
     thectyp : IGESType;          -- its IGESType (for purpose of optimization)
     thestar : HSequenceOfHAsciiString;  -- start section
     theparh : ParamSet;          -- ParamSet reading global parameters

src/IntAna/IntAna_Curve.cdl

@@ -234,10 +234,6 @@ fields
 	RestrictedInf  : Boolean from Standard;
 	RestrictedSup  : Boolean from Standard;
 
-
-        LastZ  : Real from Standard;
-	LastDZ : Real from Standard;
-
     	firstbounded : Boolean from Standard;
 	lastbounded  : Boolean from Standard;
 

src/IntPatch/IntPatch_ALineToWLine.cdl

@@ -84,7 +84,6 @@ fields
     quad1         : Quadric from IntSurf;
     quad2         : Quadric from IntSurf;
     deflectionmax : Real    from Standard;
-    pasuvmax      : Real    from Standard;
     nbpointsmax   : Integer from Standard;
     type          : Integer from Standard; -- 0: Constant Parameter
                                            -- 1: Uniform Abscissa

src/IntPatch/IntPatch_ALineToWLine.cxx

@@ -106,7 +106,6 @@ static
   quad1(Quad1),
   quad2(Quad2),
   deflectionmax(0.01),
-  pasuvmax(0.05),
   nbpointsmax(200),
   type(0),
   myTolParam(1.e-12),
@@ -122,13 +121,12 @@ static
   IntPatch_ALineToWLine::IntPatch_ALineToWLine(const IntSurf_Quadric& Quad1,
 					       const IntSurf_Quadric& Quad2,
 					       const Standard_Real    Deflection,
-					       const Standard_Real    PasUVMax,
+					       const Standard_Real    ,
 					       const Standard_Integer NbMaxPoints) 
 :
   quad1(Quad1),
   quad2(Quad2),
   deflectionmax(Deflection),
-  pasuvmax(PasUVMax),
   nbpointsmax(NbMaxPoints),
   myTolParam(1.e-12),
   myTolOpenDomain(1.e-9),

src/IntPatch/IntPatch_ImpImpIntersection.cdl

@@ -180,7 +180,6 @@ fields
     empt   : Boolean         from Standard;
     tgte   : Boolean         from Standard;
     oppo   : Boolean         from Standard;
-    reverse: Boolean         from Standard;
     spnt   : SequenceOfPoint from IntPatch;
     slin   : SequenceOfLine  from IntPatch;
     solrst : TheSOnBounds    from IntPatch;

src/IntPatch/IntPatch_PrmPrmIntersection.cdl

@@ -360,9 +360,6 @@ fields
 
     done   : Boolean                                 from Standard;
     empt   : Boolean                                 from Standard;
-    Preci  : Real                                    from Standard;
-    Fleche : Real                                    from Standard;
-    Pas    : Real                                    from Standard;
     SLin   : SequenceOfLine                          from IntPatch;
 
 end PrmPrmIntersection;

src/IntTools/IntTools_EdgeFace.cdl

@@ -274,7 +274,6 @@ fields
 
     myPar1            :  Real from  Standard; 
     myParallel        :  Boolean  from  Standard;   
-    myAllNullFlag     :  Boolean  from  Standard;   
     
     myRange           :  Range from IntTools; 
     

src/Interface/Interface_FileReaderData.cdl

@@ -205,7 +205,6 @@ is
 fields
 
     thenum0   : Integer;        -- current data for access to parameters
-    thenump0  : Integer;
     therrload : Integer;
     theparams : ParamSet;               -- the general set of parameters
     thenumpar : Array1OfInteger   from TColStd;   -- beginning of each one

src/Interface/Interface_TypedValue.cdl

@@ -84,25 +84,11 @@ fields
     thename   : AsciiString;
     thedef    : AsciiString;
     thelabel  : AsciiString;
-    thetype   : ParamType from Interface;
     theotyp   : Type from Standard;  -- for object
-
-    thelims   : Integer;  -- status for integer/enum/real limits
-    themaxlen : Integer;
-    theintlow : Integer;
-    theintup  : Integer;
-    therealow : Real;
-    therealup : Real;
     theunidef : AsciiString;
-
     theenums  : HArray1OfAsciiString    from TColStd;
     theeadds  : DictionaryOfInteger;
-
-    theinterp : ValueInterpret;
-    thesatisf : ValueSatisfies;
     thesatisn : AsciiString;
-
-    theival   : Integer;
     thehval   : HAsciiString from TCollection;
     theoval   : Transient;
 

src/LocalAnalysis/LocalAnalysis_CurveContinuity.cdl

@@ -279,7 +279,6 @@ fields
     myContC0      : Real     from Standard;
     myContC1      : Real     from Standard;            
     myContC2      : Real     from Standard;          
-    myContG0      : Real     from Standard;
     myContG1      : Real     from Standard;    
     myContG2      : Real     from Standard; 
     myCourbC1     : Real     from Standard;

src/MAT/MAT_Arc.cdl

@@ -147,8 +147,6 @@ fields
     firstArcRight   : Address  from Standard;
     secondArcRight  : Address  from Standard;
     secondArcLeft   : Address  from Standard;
-    firstParameter  : Real;
-    secondParameter : Real;
     
 end Arc;
 

src/Poly/Poly_Polygon2D.cdl

@@ -81,7 +81,6 @@ is
 fields
 
     myDeflection: Real;
-    myNbNodes:    Integer;
     myNodes:      Array1OfPnt2d from TColgp;
 
 end Polygon2D;

src/Select3D/Select3D_SensitiveFace.cdl

@@ -111,5 +111,5 @@ fields
 
     mytype          : TypeOfSensitivity;
     myautointer     : Boolean;
-    myDetectedIndex : Integer from Standard;
+
 end SensitiveFace;

src/Select3D/Select3D_SensitiveFace.cxx

@@ -54,8 +54,7 @@ Select3D_SensitiveFace(const Handle(SelectBasics_EntityOwner)& OwnerId,
                        const TColgp_Array1OfPnt& ThePoints,
                        const Select3D_TypeOfSensitivity aType):
 Select3D_SensitivePoly(OwnerId, ThePoints),
-mytype (aType),
+mytype (aType)
-myDetectedIndex(-1)
 {
   AutoInitFlags(myautointer);
 }
@@ -70,8 +69,7 @@ Select3D_SensitiveFace(const Handle(SelectBasics_EntityOwner)& OwnerId,
                        const Handle(TColgp_HArray1OfPnt)& ThePoints,
                        const Select3D_TypeOfSensitivity aType):
 Select3D_SensitivePoly(OwnerId, ThePoints),
-mytype (aType),
+mytype (aType)
-myDetectedIndex(-1)
 {
   AutoInitFlags(myautointer);
 }

src/Select3D/Select3D_SensitiveWire.cdl

@@ -122,7 +122,6 @@ is
     ---Purpose:returns <mymaxrect>
 
 fields
-    mymaxrect       : Integer;
     mysensitive     : SensitiveEntitySequence from Select3D;
     myDetectedIndex : Integer from Standard;
 end SensitiveWire;

src/Select3D/Select3D_SensitiveWire.cxx

@@ -39,9 +39,8 @@
 
 Select3D_SensitiveWire::
 Select3D_SensitiveWire(const Handle(SelectBasics_EntityOwner)& OwnerId,
-                       const Standard_Integer MaxRect):
+                       const Standard_Integer /*MaxRect*/):
 Select3D_SensitiveEntity(OwnerId),
-mymaxrect(MaxRect),
 myDetectedIndex(-1)
 {}
 

src/StdSelect/StdSelect_BRepHilighter.cdl

@@ -102,7 +102,6 @@ fields
     mynew        : MapOfInteger      from TColStd;
     myhimap      : IndexedDataMapOfOwnerPrs;
     
-    mynbpick     : Integer;
     mylastindex  : Integer;
     myManager    : TransientManager from Visual3d;
 end BRepHilighter;

src/TDataStd/TDataStd_Name.cdl

@@ -58,7 +58,6 @@ is
 
     Set (myclass; label: Label from TDF; string  : ExtendedString from TCollection)
     ---Purpose: Creates (if does not exist) and sets the name in the name attribute.
-    --          myEmpty becomes False
     returns Name from TDataStd;
     
     
@@ -158,11 +157,6 @@ is
     --    Returns the name contained in this name attribute.
     ---C++: return const & 
     
-    --SetEmpty(me: mutable);
-    ---Purpose: Set myEmpty field
-    
-    --IsEmpty(me) returns Boolean from Standard;
-
     ---Category: TDF_Attribute methods
     --           =====================
     
@@ -186,6 +180,5 @@ is
 fields
 
     myString : ExtendedString from TCollection;     --To store name 
-    myEmpty  : Boolean        from Standard;        --Is set to True if name isn't set 
 
 end Name;

src/TDataStd/TDataStd_Name.cxx

@@ -123,26 +123,7 @@ Handle(TDataStd_Name) TDataStd_Name::Set
 //purpose  : Empty Constructor
 //=======================================================================
 
-TDataStd_Name::TDataStd_Name ()
+TDataStd_Name::TDataStd_Name () { }
-     : myEmpty(Standard_True) { }
-
-//=======================================================================
-//function : Father
-//purpose  : 
-//=======================================================================
-// Standard_Boolean TDataStd_Name::Father (Handle(TDataStd_Name)& name) const
-// {
-//   Handle(TDataStd_Name) father;
-//   TDF_Label L = Label();
-//   while (!L.IsRoot()) {  
-//     L = L.Father();
-//     if (L.FindAttribute (TDataStd_Name::GetID(), father)) {
-//       name = father;
-//       return Standard_True;
-//     }      
-//   }
-//   return Standard_False;
-// }
 
 //=======================================================================
 //function : Set
@@ -150,15 +131,10 @@ TDataStd_Name::TDataStd_Name ()
 //=======================================================================
 void TDataStd_Name::Set (const TCollection_ExtendedString& S) 
 {
-  // OCC2932 correction
   if(myString == S) return;
  
   Backup();
   myString = S;
-  //TCollection_ExtendedString tmpS(S);
-  //tmpS.RemoveAll(':');
-  //myString = tmpS;
-  //myEmpty = Standard_False;
 }
 
 
@@ -172,24 +148,6 @@ const TCollection_ExtendedString& TDataStd_Name::Get () const
   return myString;
 }
 
-//=======================================================================
-//function : SetEmpty
-//purpose  : 
-//=======================================================================
-// void TDataStd_Name::SetEmpty() 
-// {
-//   Backup();
-//   myEmpty = Standard_True;
-//   myString.Clear();
-// }
-
-//=======================================================================
-//function : IsEmpty
-//purpose  : 
-//=======================================================================
-//Standard_Boolean TDataStd_Name::IsEmpty() const {return myEmpty;}
-
-
 // TDF_Attribute methods
 
 //=======================================================================
@@ -200,8 +158,6 @@ const TCollection_ExtendedString& TDataStd_Name::Get () const
 const Standard_GUID& TDataStd_Name::ID () const { return GetID(); }
 
 
-
-
 //=======================================================================
 //function : NewEmpty
 //purpose  : 

src/TNaming/TNaming_Identifier.cdl

@@ -102,7 +102,6 @@ fields
     
     myTDFAcces       : Label   from TDF;	
     myShape          : Shape   from TopoDS;
-    myOneOnly        : Boolean from Standard;
     
     myDone           : Boolean from Standard;
 

src/TNaming/TNaming_Identifier.cxx

@@ -76,10 +76,9 @@ static void ModDbgTools_WriteCurrentShape(const Handle(TNaming_NamedShape) & NS)
 TNaming_Identifier::TNaming_Identifier(const TDF_Label&        LabAcces,
 				       const TopoDS_Shape&     S,
 				       const TopoDS_Shape&     Context,
-				       const Standard_Boolean  OneOnly)
+				       const Standard_Boolean  /*OneOnly*/)
-:myTDFAcces(LabAcces), myShape(S), myOneOnly(OneOnly),
+:myTDFAcces(LabAcces), myShape(S),
 myDone(Standard_False),myIsFeature(Standard_False)
-
 {
   Init(Context); 
 }
@@ -92,10 +91,9 @@ myDone(Standard_False),myIsFeature(Standard_False)
 TNaming_Identifier::TNaming_Identifier(const TDF_Label&        LabAcces,
 				       const TopoDS_Shape&                     S,
 				       const Handle(TNaming_NamedShape)&       ContextNS,
-				       const Standard_Boolean                  OneOnly)
+				       const Standard_Boolean                  /*OneOnly*/)
-:myTDFAcces(LabAcces), myShape(S), myOneOnly(OneOnly),
+:myTDFAcces(LabAcces), myShape(S),
 myDone(Standard_False),myIsFeature(Standard_False)
-
 {
   const TopoDS_Shape& aContext = TNaming_Tool::GetShape (ContextNS);
   Init(aContext); 

src/TopOpeBRep/TopOpeBRep_Hctxee2d.cdl

@@ -43,12 +43,10 @@ fields
 
     myEdge1 : Edge from TopoDS;
     myCurve1 : Curve from Geom2dAdaptor;
-    myCurveType1 : CurveType from GeomAbs;
     myDomain1 : Domain from IntRes2d;
 
     myEdge2 : Edge from TopoDS;
     myCurve2 : Curve from Geom2dAdaptor;
-    myCurveType2 : CurveType from GeomAbs;
     myDomain2 : Domain from IntRes2d;
 
 end Hctxee2d from TopOpeBRep;

src/TopOpeBRep/TopOpeBRep_Hctxee2d.cxx

@@ -117,7 +117,6 @@ void TopOpeBRep_Hctxee2d::SetEdges(const TopoDS_Edge& E1,const TopoDS_Edge& E2,
       if (apex) {
         TopoDS_Vertex vf,vl; TopExp::Vertices(myEdge1,vf,vl);
         gp_Pnt ptf = BRep_Tool::Pnt(vf); Standard_Real df = pt2.Distance(ptf); 
-        gp_Pnt ptl = BRep_Tool::Pnt(vl);
         Standard_Real tolf = BRep_Tool::Tolerance(vf);
         Standard_Boolean onf = (df < tolf);
         TopoDS_Vertex v1 = onf ? vf : vl;

src/TopOpeBRepBuild/TopOpeBRepBuild_PaveSet.cdl

@@ -69,8 +69,6 @@ fields
     myEdge       : Edge from TopoDS;
     myVertices   : ListOfPave from TopOpeBRepBuild;
     myVerticesIt : ListIteratorOfListOfPave from TopOpeBRepBuild;
-    myEdgeVertexIndex  : Integer from Standard;
-    myEdgeVertexCount  : Integer from Standard;
 
     myHasEqualParameters : Boolean from Standard;
     myEqualParameters    : Real from Standard;

src/TopOpeBRepBuild/TopOpeBRepBuild_WireEdgeSet.cdl

@@ -99,6 +99,5 @@ is
 fields
 
     myFace:Face from TopoDS;
-    myDEBVertexIndex:Integer;
 
 end WireEdgeSet from TopOpeBRepBuild;

src/TopOpeBRepDS/TopOpeBRepDS_Check.cdl

@@ -139,13 +139,8 @@ fields
 
     myHDS              : HDataStructure       from TopOpeBRepDS;
     myMapSurfaceStatus : DataMapOfCheckStatus from TopOpeBRepDS;
-    mySurfaceDone      : Boolean               from Standard;
     myMapCurveStatus   : DataMapOfCheckStatus from TopOpeBRepDS;
-    myCurveDone        : Boolean               from Standard;
     myMapPointStatus   : DataMapOfCheckStatus from TopOpeBRepDS;
-    myPointDone        : Boolean               from Standard;
     myMapShapeStatus   : DataMapOfCheckStatus from TopOpeBRepDS;
-    myShapeDone        : Boolean               from Standard;
-    myDone             : Boolean               from Standard;
 
 end Check from TopOpeBRepDS;

src/TopOpeBRepDS/TopOpeBRepDS_Check.cxx

@@ -50,11 +50,6 @@
 //=======================================================================
 
 TopOpeBRepDS_Check::TopOpeBRepDS_Check(const Handle(TopOpeBRepDS_HDataStructure)& HDS)
-: mySurfaceDone(Standard_False),
-  myCurveDone(Standard_False),
-  myPointDone(Standard_False),
-  myShapeDone (Standard_False),
-  myDone(Standard_False)
 {
   myHDS = HDS;
   myMapSurfaceStatus.Clear();
@@ -69,11 +64,6 @@ TopOpeBRepDS_Check::TopOpeBRepDS_Check(const Handle(TopOpeBRepDS_HDataStructure)
 //=======================================================================
 
 TopOpeBRepDS_Check::TopOpeBRepDS_Check()
-: mySurfaceDone(Standard_False),
-  myCurveDone(Standard_False),
-  myPointDone(Standard_False),
-  myShapeDone (Standard_False),
-  myDone(Standard_False)
 {
     myMapSurfaceStatus.Clear();
     myMapCurveStatus.Clear();

src/V3d/V3d_View.cdl

@@ -1504,7 +1504,7 @@ is
         --          extension must be one of ".png",".bmp",".jpg",".gif".
         --          Returns FALSE when the dump has failed
 
-      Print (me; hPrnDC: Handle from Aspect = NULL;
+      Print (me; hPrnDC: Handle from Aspect = 0;
              showDialog: Boolean = Standard_True;
              showBackground : Boolean = Standard_True;
              filename: CString = NULL;

src/V3d/V3d_View_1.cxx

@@ -15,11 +15,11 @@
 // purpose or non-infringement. Please see the License for the specific terms
 // and conditions governing the rights and limitations under the License.
 
-/***********************************************************************
+/***********************************************************************/
 
-     FONCTION :
+/*     FUNCTION :
      ----------
-        File V3d_View_1.cxx :
+        File V3d_View_1.cxx :     */
 
 
 /*----------------------------------------------------------------------*/

src/math/math_FunctionSetRoot.cxx

@@ -65,11 +65,11 @@
 
 #define FSR_DEBUG(arg)
 // Uncomment the following code to have debug output to cout 
-/* * /
+/* 
 static Standard_Boolean mydebug = Standard_False;
 #undef FSR_DEBUG
 #define FSR_DEBUG(arg) {if (mydebug) { cout << arg << endl; }}
-/* */
+*/
 
 class MyDirFunction : public math_Function
 {

src/math/math_SVD.cdl

@@ -88,7 +88,6 @@ is
 fields
 
 Done:       Boolean;
-Singular:   Boolean;
 U:          Matrix;
 V:          Matrix;
 Diag:       Vector;