From: luzpaz Date: Mon, 27 Oct 2025 10:42:17 +0000 (-0400) Subject: Documentation - Fix various typos and comment uniformity (#767) X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=859d1d6f6c5072406d144ec16164785fb48509f7;p=occt.git Documentation - Fix various typos and comment uniformity (#767) Fixes user-facing and non-user-facing typos. Also removes code comment justification and optimizes whitespace. --- diff --git a/src/DataExchange/TKDESTEP/RWStepShape/RWStepShape_RWAngularSize.cxx b/src/DataExchange/TKDESTEP/RWStepShape/RWStepShape_RWAngularSize.cxx index b82be5d705..b1a39c5bd8 100644 --- a/src/DataExchange/TKDESTEP/RWStepShape/RWStepShape_RWAngularSize.cxx +++ b/src/DataExchange/TKDESTEP/RWStepShape/RWStepShape_RWAngularSize.cxx @@ -53,7 +53,7 @@ void RWStepShape_RWAngularSize::ReadStep(const Handle(StepData_StepReaderData)& // Own fields of AngularSize // PTV 16.09.2000 - // default value set as StepShape_Small, cause there wasn`t default value, but may be situation + // default value set as StepShape_Small, cause there wasn't default value, but may be situation // when value will not be initialized and returned in ent->Init. StepShape_AngleRelator aAngleSelection = StepShape_Small; diff --git a/src/DataExchange/TKDESTEP/STEPControl/STEPControl_ActorWrite.cxx b/src/DataExchange/TKDESTEP/STEPControl/STEPControl_ActorWrite.cxx index 033070539a..f0b87d325c 100644 --- a/src/DataExchange/TKDESTEP/STEPControl/STEPControl_ActorWrite.cxx +++ b/src/DataExchange/TKDESTEP/STEPControl/STEPControl_ActorWrite.cxx @@ -1810,7 +1810,7 @@ Handle(Transfer_Binder) STEPControl_ActorWrite::TransferSubShape( GeomToStep_MakeCartesianTransformationOperator aMaker(aLoc, theLocalFactors); if (!aMaker.IsDone()) { - FP->AddFail(start, "The transfomation relation creation failed"); + FP->AddFail(start, "The transformation relation creation failed"); } mkitem.Init(sdr, SDR0, aMaker.Value()); AX1 = aMaker.Value(); diff --git a/src/DataExchange/TKDESTEP/STEPControl/STEPControl_Controller.cxx b/src/DataExchange/TKDESTEP/STEPControl/STEPControl_Controller.cxx index b21019bde5..57827135c8 100644 --- a/src/DataExchange/TKDESTEP/STEPControl/STEPControl_Controller.cxx +++ b/src/DataExchange/TKDESTEP/STEPControl/STEPControl_Controller.cxx @@ -266,8 +266,9 @@ STEPControl_Controller::STEPControl_Controller() // Mode for reading constructive geometry representation relationship to read // StepRepr_ConstructiveGeometryRepresentation method implemented only for - // StepGeom_MakeAxis2Placement3d for axis placements representing axis for suplemented geometry. - // Axis placements are translated to planar faces with CS equal to translated axis placements + // StepGeom_MakeAxis2Placement3d for axis placements representing axis for supplemented + // geometry. Axis placements are translated to planar faces with CS equal to translated axis + // placements Interface_Static::Init("step", "read.step.constructivegeom.relationship", 'e', ""); Interface_Static::Init("step", "read.step.constructivegeom.relationship", '&', "enum 0"); Interface_Static::Init("step", "read.step.constructivegeom.relationship", '&', "eval OFF"); diff --git a/src/DataExchange/TKXSBase/IFSelect/IFSelect_SignatureList.hxx b/src/DataExchange/TKXSBase/IFSelect/IFSelect_SignatureList.hxx index 21918c7a79..1f3ff17140 100644 --- a/src/DataExchange/TKXSBase/IFSelect/IFSelect_SignatureList.hxx +++ b/src/DataExchange/TKXSBase/IFSelect/IFSelect_SignatureList.hxx @@ -74,7 +74,7 @@ public: //! Cleared by Clear or Init Standard_EXPORT Standard_CString LastValue() const; - //! Aknowledges the list in once. Name identifies the Signature + //! Acknowledges the list in once. Name identifies the Signature Standard_EXPORT void Init( const Standard_CString name, const NCollection_IndexedDataMap& count, diff --git a/src/DataExchange/TKXSBase/IFSelect/IFSelect_TransformStandard.hxx b/src/DataExchange/TKXSBase/IFSelect/IFSelect_TransformStandard.hxx index ad85b418f6..525458a753 100644 --- a/src/DataExchange/TKXSBase/IFSelect/IFSelect_TransformStandard.hxx +++ b/src/DataExchange/TKXSBase/IFSelect/IFSelect_TransformStandard.hxx @@ -127,7 +127,7 @@ public: //! This is the standard action of Copy : its takes into account //! only the remaining entities (noted by Graph Status positive) - //! and their proper dependances of course. Produces a new model. + //! and their proper dependences of course. Produces a new model. Standard_EXPORT void StandardCopy(const Interface_Graph& G, Interface_CopyTool& TC, Handle(Interface_InterfaceModel)& newmod) const; diff --git a/src/DataExchange/TKXSBase/IFSelect/IFSelect_Transformer.hxx b/src/DataExchange/TKXSBase/IFSelect/IFSelect_Transformer.hxx index 9945ce6547..a3852dce4a 100644 --- a/src/DataExchange/TKXSBase/IFSelect/IFSelect_Transformer.hxx +++ b/src/DataExchange/TKXSBase/IFSelect/IFSelect_Transformer.hxx @@ -56,7 +56,7 @@ public: //! gives the result of the transformation : //! - if it is Null (i.e. has not been affected), the transformation //! has been made on the spot, it is assumed to cause no change - //! to the graph of dependances + //! to the graph of dependences //! - if it equates the starting Model, it has been transformed on //! the spot (possibly some entities were replaced inside it) //! - if it is new, it corresponds to a new data set which replaces diff --git a/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_2.cxx b/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_2.cxx index d80d6bb202..569fdcc862 100644 --- a/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_2.cxx +++ b/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_2.cxx @@ -864,7 +864,7 @@ void ChFi3d_Builder::ConexFaces(const Handle(ChFiDS_Spine)& Spine, // - one starts by parsing about ten points on the spine, // - in case of fail one finds the solution on neighbor faces; // section plane of edges of the adjacent face -// and identication of the face by connection to that edge. +// and identification of the face by connection to that edge. //======================================================================= void ChFi3d_Builder::StartSol(const Handle(ChFiDS_Stripe)& Stripe, @@ -2908,7 +2908,7 @@ void ChFi3d_Builder::PerformSetOfKPart(Handle(ChFiDS_Stripe)& Stripe, const Stan else iedgelastkpart = iedge; if (Spine->IsPeriodic()) - { // debug provisory for SD that arrive in desorder. + { // debug provisory for SD that arrive in disorder. Standard_Integer nbsd = LSD.Length(); Standard_Real period = Spine->Period(); Standard_Real wfp = WStartPeriodic, wlp = WEndPeriodic; diff --git a/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_CnCrn.cxx b/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_CnCrn.cxx index fa2427cf9a..74ed45f729 100644 --- a/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_CnCrn.cxx +++ b/src/ModelingAlgorithms/TKFillet/ChFi3d/ChFi3d_Builder_CnCrn.cxx @@ -2245,7 +2245,7 @@ void ChFi3d_Builder::PerformMoreThreeCorner(const Standard_Integer Jndex, } } - // case when the conncting curve between ic and icplus crosses many faces + // case when the connecting curve between ic and icplus crosses many faces TopTools_SequenceOfShape Ecom; TopTools_SequenceOfShape Eproj; diff --git a/src/ModelingAlgorithms/TKGeomAlgo/Geom2dGcc/Geom2dGcc_Circ2d2TanOnGeo.cxx b/src/ModelingAlgorithms/TKGeomAlgo/Geom2dGcc/Geom2dGcc_Circ2d2TanOnGeo.cxx index eabc8b66f7..f8817923e3 100644 --- a/src/ModelingAlgorithms/TKGeomAlgo/Geom2dGcc/Geom2dGcc_Circ2d2TanOnGeo.cxx +++ b/src/ModelingAlgorithms/TKGeomAlgo/Geom2dGcc/Geom2dGcc_Circ2d2TanOnGeo.cxx @@ -523,11 +523,11 @@ Geom2dGcc_Circ2d2TanOnGeo::Geom2dGcc_Circ2d2TanOnGeo(const GccEnt_QualifiedCirc& } //========================================================================= -// Creation d un cercle tant a deux Droites L1 et L2. + +// Creation d un cercle tant a deux Droites L1 et L2. + // centre sur une courbe OnCurv. + // Nous calculons les bissectrices a L1 et L2 qui nous donnent + // l ensemble des lieux possibles des centres de tous les cercles + -// tants a L1 et L2. + +// tants a L1 et L2. + // Nous intersectons ces bissectrices avec la courbe OnCurv ce qui nous + // donne les points parmis lesquels nous allons choisir les solutions. + // Les choix s effectuent a partir des Qualifieurs qualifiant L1 et L2. + @@ -705,11 +705,11 @@ Geom2dGcc_Circ2d2TanOnGeo::Geom2dGcc_Circ2d2TanOnGeo(const GccEnt_QualifiedLin& } //========================================================================= -// Creation d un cercle tant a un Cercle C1, passant par un point P2 + +// Creation d un cercle tant a un Cercle C1, passant par un point P2 + // centre sur une courbe OnCurv. + // Nous calculons les bissectrices a C1 et Point2 qui nous donnent + // l ensemble des lieux possibles des centres de tous les cercles + -// tants a C1 et Point2. + +// tants a C1 et Point2. + // Nous intersectons ces bissectrices avec la courbe OnCurv ce qui nous + // donne les points parmis lesquels nous allons choisir les solutions. + // Les choix s effectuent a partir des Qualifieurs qualifiant C1. + @@ -900,11 +900,11 @@ Geom2dGcc_Circ2d2TanOnGeo::Geom2dGcc_Circ2d2TanOnGeo(const GccEnt_QualifiedCirc& } //========================================================================= -// Creation d un cercle tant a une ligne L1, passant par un point P2 + +// Creation d un cercle tant a une ligne L1, passant par un point P2 + // centre sur une courbe OnCurv. + // Nous calculons les bissectrices a L1 et Point2 qui nous donnent + // l ensemble des lieux possibles des centres de tous les cercles + -// tants a L1 et passant par Point2. + +// tants a L1 et passant par Point2. + // Nous intersectons ces bissectrices avec la courbe OnCurv ce qui nous + // donne les points parmis lesquels nous allons choisir les solutions. + // Les choix s effectuent a partir des Qualifieurs qualifiant L1. + diff --git a/src/ModelingAlgorithms/TKGeomAlgo/Geom2dHatch/Geom2dHatch_Classifier.hxx b/src/ModelingAlgorithms/TKGeomAlgo/Geom2dHatch/Geom2dHatch_Classifier.hxx index 83eeaea4f5..98a56b3470 100644 --- a/src/ModelingAlgorithms/TKGeomAlgo/Geom2dHatch/Geom2dHatch_Classifier.hxx +++ b/src/ModelingAlgorithms/TKGeomAlgo/Geom2dHatch/Geom2dHatch_Classifier.hxx @@ -39,37 +39,37 @@ public: //! Empty constructor, undefined algorithm. Standard_EXPORT Geom2dHatch_Classifier(); - //! Creates an algorithm to classify the Point P with + //! Creates an algorithm to classify the Point P with //! Tolerance on the face described by . Standard_EXPORT Geom2dHatch_Classifier(Geom2dHatch_Elements& F, const gp_Pnt2d& P, const Standard_Real Tol); - //! Classify the Point P with Tolerance on the + //! Classify the Point P with Tolerance on the //! face described by . Standard_EXPORT void Perform(Geom2dHatch_Elements& F, const gp_Pnt2d& P, const Standard_Real Tol); //! Returns the result of the classification. Standard_EXPORT TopAbs_State State() const; - //! Returns True when the state was computed by a + //! Returns True when the state was computed by a //! rejection. The state is OUT. Standard_Boolean Rejected() const; - //! Returns True if the face contains no wire. The - //! state is IN. + //! Returns True if the face contains no wire. + //! The state is IN. Standard_Boolean NoWires() const; - //! Returns the Edge used to determine the - //! classification. When the State is ON this is the + //! Returns the Edge used to determine the + //! classification. When the State is ON this is the //! Edge containing the point. Standard_EXPORT const Geom2dAdaptor_Curve& Edge() const; - //! Returns the parameter on Edge() used to determine the + //! Returns the parameter on Edge() used to determine the //! classification. Standard_EXPORT Standard_Real EdgeParameter() const; - //! Returns the position of the point on the edge + //! Returns the position of the point on the edge //! returned by Edge. IntRes2d_Position Position() const; diff --git a/src/ModelingAlgorithms/TKMesh/BRepMesh/BRepMesh_GeomTool.hxx b/src/ModelingAlgorithms/TKMesh/BRepMesh/BRepMesh_GeomTool.hxx index 1c59c4264b..4eb7036ae6 100644 --- a/src/ModelingAlgorithms/TKMesh/BRepMesh/BRepMesh_GeomTool.hxx +++ b/src/ModelingAlgorithms/TKMesh/BRepMesh/BRepMesh_GeomTool.hxx @@ -87,7 +87,7 @@ public: //! @param thePoint point to be added. //! @param theParam parameter on the curve corresponding to the given point. //! @param theIsReplace if TRUE replaces existing point lying within - //! parameteric tolerance of the given point. + //! parametric tolerance of the given point. //! @return index of new added point or found with parametric tolerance Standard_Integer AddPoint(const gp_Pnt& thePoint, const Standard_Real theParam, diff --git a/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_MakeSimpleOffset.cxx b/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_MakeSimpleOffset.cxx index 6a1447d6c6..bfeca12a84 100644 --- a/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_MakeSimpleOffset.cxx +++ b/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_MakeSimpleOffset.cxx @@ -476,7 +476,7 @@ TopoDS_Face BRepOffset_MakeSimpleOffset::BuildWallFace(const TopoDS_Edge& theOri { TopoDS_Face aResFace; - // Get offset edge. offset edge is revered to create correct wire. + // Get offset edge. offset edge is reversed to create correct wire. TopoDS_Edge aNewEdge = TopoDS::Edge(myBuilder.ModifiedShape(theOrigEdge)); aNewEdge.Orientation(TopAbs_REVERSED); diff --git a/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_Tool.cxx b/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_Tool.cxx index 686bf02fff..54705e0175 100644 --- a/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_Tool.cxx +++ b/src/ModelingAlgorithms/TKOffset/BRepOffset/BRepOffset_Tool.cxx @@ -3724,7 +3724,7 @@ void BRepOffset_Tool::ExtentFace(const TopoDS_Face& F, TopoDS_Face NullFace; BRepOffset_Tool::Inter3D(EF, StopFace, LInt1, LInt2, Side, E, NullFace, NullFace); // No intersection, it may happen for example for a chosen (non-offsetted) planar face and - // its neighbour offseted cylindrical face, if the offset is directed so that + // its neighbour offsetted cylindrical face, if the offset is directed so that // the radius of the cylinder becomes smaller. if (LInt1.IsEmpty()) continue; @@ -4114,7 +4114,7 @@ TopoDS_Shape BRepOffset_Tool::Deboucle3D(const TopoDS_Shape& S, const TopTools_M { case TopAbs_SHELL: { // if the shell contains free borders that do not belong to the - // free borders of caps ( Boundary) it is removed. + // free borders of caps (Boundary) it is removed. TopTools_IndexedDataMapOfShapeListOfShape Map; TopExp::MapShapesAndAncestors(S, TopAbs_EDGE, TopAbs_FACE, Map); diff --git a/src/ModelingAlgorithms/TKShHealing/ShapeFix/ShapeFix_IntersectionTool.cxx b/src/ModelingAlgorithms/TKShHealing/ShapeFix/ShapeFix_IntersectionTool.cxx index 2ee11e035c..090e222933 100644 --- a/src/ModelingAlgorithms/TKShHealing/ShapeFix/ShapeFix_IntersectionTool.cxx +++ b/src/ModelingAlgorithms/TKShHealing/ShapeFix/ShapeFix_IntersectionTool.cxx @@ -1347,7 +1347,7 @@ Standard_Boolean ShapeFix_IntersectionTool::FixSelfIntersectWire(Handle(ShapeExt // if( Abs(p12-p11)>Abs(b1-a1)/2 || Abs(p22-p21)>Abs(b2-a2)/2 ) { // segment is big and we have to split each intersecting edge // on 3 edges --> middle edge - edge based on segment - // after we can remove edges maked from segment + // after we can remove edges made from segment gp_Pnt P01((Pnt11.X() + Pnt21.X()) / 2, (Pnt11.Y() + Pnt21.Y()) / 2, (Pnt11.Z() + Pnt21.Z()) / 2); diff --git a/src/ModelingAlgorithms/TKTopAlgo/BRepExtrema/BRepExtrema_ProximityDistTool.cxx b/src/ModelingAlgorithms/TKTopAlgo/BRepExtrema/BRepExtrema_ProximityDistTool.cxx index 899df8c470..a43140c7ca 100644 --- a/src/ModelingAlgorithms/TKTopAlgo/BRepExtrema/BRepExtrema_ProximityDistTool.cxx +++ b/src/ModelingAlgorithms/TKTopAlgo/BRepExtrema/BRepExtrema_ProximityDistTool.cxx @@ -25,7 +25,7 @@ //======================================================================= // function : BRepExtrema_ProximityDistTool -// purpose : Creates new unitialized tool +// purpose : Creates new uninitialized tool //======================================================================= BRepExtrema_ProximityDistTool::BRepExtrema_ProximityDistTool() : myMinDistance(std::numeric_limits::max()), diff --git a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Curve.hxx b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Curve.hxx index b5fed646a4..b82e2daac8 100644 --- a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Curve.hxx +++ b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Curve.hxx @@ -62,19 +62,19 @@ public: Standard_EXPORT virtual GeomAbs_Shape Continuity() const; - //! Returns the number of intervals for continuity + //! Returns the number of intervals for continuity //! . May be one if Continuity(me) >= Standard_EXPORT virtual Standard_Integer NbIntervals(const GeomAbs_Shape S) const; - //! Stores in the parameters bounding the intervals + //! Stores in the parameters bounding the intervals //! of continuity . //! - //! The array must provide enough room to accommodate + //! The array must provide enough room to accommodate //! for the parameters. i.e. T.Length() > NbIntervals() Standard_EXPORT virtual void Intervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const; - //! Returns a curve equivalent of between - //! parameters and . is used to + //! Returns a curve equivalent of between + //! parameters and . is used to //! test for 3d points confusion. //! If >= Standard_EXPORT virtual Handle(Adaptor3d_Curve) Trim(const Standard_Real First, @@ -126,8 +126,8 @@ public: //! to the real space resolution . Standard_EXPORT virtual Standard_Real Resolution(const Standard_Real R3d) const; - //! Returns the type of the curve in the current - //! interval : Line, Circle, Ellipse, Hyperbola, + //! Returns the type of the curve in the current + //! interval: Line, Circle, Ellipse, Hyperbola, //! Parabola, BezierCurve, BSplineCurve, OtherCurve. Standard_EXPORT virtual GeomAbs_CurveType GetType() const; diff --git a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_CurveOnSurface.hxx b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_CurveOnSurface.hxx index cf9f072fff..9c52cfd8dd 100644 --- a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_CurveOnSurface.hxx +++ b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_CurveOnSurface.hxx @@ -70,20 +70,20 @@ public: Standard_EXPORT GeomAbs_Shape Continuity() const Standard_OVERRIDE; - //! Returns the number of intervals for continuity + //! Returns the number of intervals for continuity //! . May be one if Continuity(me) >= Standard_EXPORT Standard_Integer NbIntervals(const GeomAbs_Shape S) const Standard_OVERRIDE; - //! Stores in the parameters bounding the intervals + //! Stores in the parameters bounding the intervals //! of continuity . //! - //! The array must provide enough room to accommodate + //! The array must provide enough room to accommodate //! for the parameters. i.e. T.Length() > NbIntervals() Standard_EXPORT void Intervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const Standard_OVERRIDE; - //! Returns a curve equivalent of between - //! parameters and . is used to + //! Returns a curve equivalent of between + //! parameters and . is used to //! test for 3d points confusion. //! If >= Standard_EXPORT Handle(Adaptor3d_Curve) Trim(const Standard_Real First, @@ -139,8 +139,8 @@ public: //! to the real space resolution . Standard_EXPORT Standard_Real Resolution(const Standard_Real R3d) const Standard_OVERRIDE; - //! Returns the type of the curve in the current - //! interval : Line, Circle, Ellipse, Hyperbola, + //! Returns the type of the curve in the current + //! interval: Line, Circle, Ellipse, Hyperbola, //! Parabola, BezierCurve, BSplineCurve, OtherCurve. Standard_EXPORT GeomAbs_CurveType GetType() const Standard_OVERRIDE; @@ -169,9 +169,9 @@ public: private: Standard_EXPORT void EvalKPart(); - //! Evaluates myFirstSurf and myLastSurf + //! Evaluates myFirstSurf and myLastSurf //! for trimming the curve on surface. - //! Following methods output left-bottom and right-top points + //! Following methods output left-bottom and right-top points //! of located part on surface //! for trimming the curve on surface. Standard_EXPORT void EvalFirstLastSurf(); @@ -196,7 +196,7 @@ private: //! Extracts the numbers of knots which equal //! the point and checks derivative components - //! by zero equivalence. + //! by zero equivalence. Standard_EXPORT void FindBounds(const TColStd_Array1OfReal& Arr, const Standard_Real XYComp, const Standard_Real DUVComp, diff --git a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_InterFunc.hxx b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_InterFunc.hxx index a8ed38a9a8..41d6ba4768 100644 --- a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_InterFunc.hxx +++ b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_InterFunc.hxx @@ -22,8 +22,8 @@ class Adaptor2d_Curve2d; //! Used to find the points U(t) = U0 or V(t) = V0 in -//! order to determine the Cn discontinuities of an -//! Adpator_CurveOnSurface relatively to the +//! order to determine the Cn discontinuities of an +//! Adpator_CurveOnSurface relatively to the //! discontinuities of the surface. Used to //! find the roots of the functions class Adaptor3d_InterFunc : public math_FunctionWithDerivative @@ -31,7 +31,7 @@ class Adaptor3d_InterFunc : public math_FunctionWithDerivative public: DEFINE_STANDARD_ALLOC - //! build the function U(t)=FixVal if Fix =1 or + //! build the function U(t)=FixVal if Fix =1 or //! V(t)=FixVal if Fix=2 Standard_EXPORT Adaptor3d_InterFunc(const Handle(Adaptor2d_Curve2d)& C, const Standard_Real FixVal, diff --git a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_IsoCurve.hxx b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_IsoCurve.hxx index d90c4ec572..cea790187d 100644 --- a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_IsoCurve.hxx +++ b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_IsoCurve.hxx @@ -22,9 +22,9 @@ DEFINE_STANDARD_HANDLE(Adaptor3d_IsoCurve, Adaptor3d_Curve) -//! Defines an isoparametric curve on a surface. The -//! type of isoparametric curve (U or V) is defined -//! with the enumeration IsoType from GeomAbs if +//! Defines an isoparametric curve on a surface. The +//! type of isoparametric curve (U or V) is defined +//! with the enumeration IsoType from GeomAbs if //! NoneIso is given an error is raised. class Adaptor3d_IsoCurve : public Adaptor3d_Curve { @@ -36,16 +36,16 @@ public: //! The surface is loaded. The iso is set to NoneIso. Standard_EXPORT Adaptor3d_IsoCurve(const Handle(Adaptor3d_Surface)& S); - //! Creates an IsoCurve curve. Iso defines the - //! type (isoU or isoU) Param defines the value of - //! the iso. The bounds of the iso are the bounds - //! of the surface. + //! Creates an IsoCurve curve. Iso defines the type + //! (isoU or isoU) Param defines the value of the + //! iso. The bounds of the iso are the bounds of + //! the surface. Standard_EXPORT Adaptor3d_IsoCurve(const Handle(Adaptor3d_Surface)& S, const GeomAbs_IsoType Iso, const Standard_Real Param); - //! Create an IsoCurve curve. Iso defines the type - //! (isoU or isov). Param defines the value of the + //! Create an IsoCurve curve. Iso defines the type + //! (isoU or isov). Param defines the value of the //! iso. WFirst,WLast define the bounds of the iso. Standard_EXPORT Adaptor3d_IsoCurve(const Handle(Adaptor3d_Surface)& S, const GeomAbs_IsoType Iso, @@ -56,8 +56,7 @@ public: //! Shallow copy of adaptor Standard_EXPORT virtual Handle(Adaptor3d_Curve) ShallowCopy() const Standard_OVERRIDE; - //! Changes the surface. The iso is reset to - //! NoneIso. + //! Changes the surface. The iso is reset to NoneIso. Standard_EXPORT void Load(const Handle(Adaptor3d_Surface)& S); //! Changes the iso on the current surface. @@ -81,20 +80,20 @@ public: Standard_EXPORT GeomAbs_Shape Continuity() const Standard_OVERRIDE; - //! Returns the number of intervals for continuity + //! Returns the number of intervals for continuity //! . May be one if Continuity(me) >= Standard_EXPORT Standard_Integer NbIntervals(const GeomAbs_Shape S) const Standard_OVERRIDE; - //! Stores in the parameters bounding the intervals + //! Stores in the parameters bounding the intervals //! of continuity . //! - //! The array must provide enough room to accommodate + //! The array must provide enough room to accommodate //! for the parameters. i.e. T.Length() > NbIntervals() Standard_EXPORT void Intervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const Standard_OVERRIDE; - //! Returns a curve equivalent of between - //! parameters and . is used to + //! Returns a curve equivalent of between + //! parameters and . is used to //! test for 3d points confusion. //! If >= Standard_EXPORT Handle(Adaptor3d_Curve) Trim(const Standard_Real First, @@ -140,18 +139,17 @@ public: //! The returned vector gives the value of the derivative for the //! order of derivation N. - //! Raised if the continuity of the current interval - //! is not CN. + //! Raised if the continuity of the current interval is not CN. //! Raised if N < 1. Standard_EXPORT gp_Vec DN(const Standard_Real U, const Standard_Integer N) const Standard_OVERRIDE; - //! Returns the parametric resolution corresponding + //! Returns the parametric resolution corresponding //! to the real space resolution . Standard_EXPORT Standard_Real Resolution(const Standard_Real R3d) const Standard_OVERRIDE; - //! Returns the type of the curve in the current - //! interval : Line, Circle, Ellipse, Hyperbola, + //! Returns the type of the curve in the current + //! interval: Line, Circle, Ellipse, Hyperbola, //! Parabola, BezierCurve, BSplineCurve, OtherCurve. Standard_EXPORT GeomAbs_CurveType GetType() const Standard_OVERRIDE; diff --git a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Surface.hxx b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Surface.hxx index 67e62521dc..dc5d09df53 100644 --- a/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Surface.hxx +++ b/src/ModelingData/TKG3d/Adaptor3d/Adaptor3d_Surface.hxx @@ -42,7 +42,7 @@ DEFINE_STANDARD_HANDLE(Adaptor3d_Surface, Standard_Transient) //! the surface by algorithms which use it. //! A derived concrete class is provided: //! GeomAdaptor_Surface for a surface from the Geom package. -//! The Surface class describes the standard behaviour +//! The Surface class describes the standard behaviour //! of a surface for generic algorithms. //! //! The Surface can be decomposed in intervals of any @@ -74,33 +74,33 @@ public: Standard_EXPORT virtual GeomAbs_Shape VContinuity() const; - //! Returns the number of U intervals for continuity + //! Returns the number of U intervals for continuity //! . May be one if UContinuity(me) >= Standard_EXPORT virtual Standard_Integer NbUIntervals(const GeomAbs_Shape S) const; - //! Returns the number of V intervals for continuity + //! Returns the number of V intervals for continuity //! . May be one if VContinuity(me) >= Standard_EXPORT virtual Standard_Integer NbVIntervals(const GeomAbs_Shape S) const; - //! Returns the intervals with the requested continuity + //! Returns the intervals with the requested continuity //! in the U direction. Standard_EXPORT virtual void UIntervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const; - //! Returns the intervals with the requested continuity + //! Returns the intervals with the requested continuity //! in the V direction. Standard_EXPORT virtual void VIntervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const; - //! Returns a surface trimmed in the U direction - //! equivalent of between - //! parameters and . is used to + //! Returns a surface trimmed in the U direction + //! equivalent of between + //! parameters and . is used to //! test for 3d points confusion. //! If >= Standard_EXPORT virtual Handle(Adaptor3d_Surface) UTrim(const Standard_Real First, const Standard_Real Last, const Standard_Real Tol) const; - //! Returns a surface trimmed in the V direction between - //! parameters and . is used to + //! Returns a surface trimmed in the V direction between + //! parameters and . is used to //! test for 3d points confusion. //! If >= Standard_EXPORT virtual Handle(Adaptor3d_Surface) VTrim(const Standard_Real First, @@ -126,7 +126,7 @@ public: //! Computes the point of parameters U,V on the surface. Standard_EXPORT virtual void D0(const Standard_Real U, const Standard_Real V, gp_Pnt& P) const; - //! Computes the point and the first derivatives on the surface. + //! Computes the point and the first derivatives on the surface. //! Raised if the continuity of the current intervals is not C1. //! //! Tip: use GeomLib::NormEstim() to calculate surface normal at specified (U, V) point. @@ -136,9 +136,9 @@ public: gp_Vec& D1U, gp_Vec& D1V) const; - //! Computes the point, the first and second + //! Computes the point, the first and second //! derivatives on the surface. - //! Raised if the continuity of the current + //! Raised if the continuity of the current //! intervals is not C2. Standard_EXPORT virtual void D2(const Standard_Real U, const Standard_Real V, @@ -149,9 +149,9 @@ public: gp_Vec& D2V, gp_Vec& D2UV) const; - //! Computes the point, the first, second and third + //! Computes the point, the first, second and third //! derivatives on the surface. - //! Raised if the continuity of the current + //! Raised if the continuity of the current //! intervals is not C3. Standard_EXPORT virtual void D3(const Standard_Real U, const Standard_Real V, @@ -176,17 +176,17 @@ public: const Standard_Integer Nu, const Standard_Integer Nv) const; - //! Returns the parametric U resolution corresponding + //! Returns the parametric U resolution corresponding //! to the real space resolution . Standard_EXPORT virtual Standard_Real UResolution(const Standard_Real R3d) const; - //! Returns the parametric V resolution corresponding + //! Returns the parametric V resolution corresponding //! to the real space resolution . Standard_EXPORT virtual Standard_Real VResolution(const Standard_Real R3d) const; - //! Returns the type of the surface : Plane, Cylinder, - //! Cone, Sphere, Torus, BezierSurface, - //! BSplineSurface, SurfaceOfRevolution, + //! Returns the type of the surface: Plane, Cylinder, + //! Cone, Sphere, Torus, BezierSurface, + //! BSplineSurface, SurfaceOfRevolution, //! SurfaceOfExtrusion, OtherSurface Standard_EXPORT virtual GeomAbs_SurfaceType GetType() const; diff --git a/src/ModelingData/TKG3d/AdvApprox/AdvApprox_SimpleApprox.hxx b/src/ModelingData/TKG3d/AdvApprox/AdvApprox_SimpleApprox.hxx index 8cfaa4173a..f811f9edf6 100644 --- a/src/ModelingData/TKG3d/AdvApprox/AdvApprox_SimpleApprox.hxx +++ b/src/ModelingData/TKG3d/AdvApprox/AdvApprox_SimpleApprox.hxx @@ -31,11 +31,11 @@ #include class PLib_JacobiPolynomial; -//! Approximate a function on an interval [First,Last] -//! The result is a simple polynomial whose degree is as low as -//! possible to satisfy the required tolerance and the -//! maximum degree. The maximum error and the averrage error -//! resulting from approximating the function by the polynomial are computed +//! Approximate a function on an interval [First,Last] +//! The result is a simple polynomial whose degree is as low as +//! possible to satisfy the required tolerance and the +//! maximum degree. The maximum error and the average error +//! resulting from approximating the function by the polynomial are computed class AdvApprox_SimpleApprox { public: diff --git a/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_MathBase.cxx b/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_MathBase.cxx index 0dc67565f5..94f992300b 100644 --- a/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_MathBase.cxx +++ b/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_MathBase.cxx @@ -223,8 +223,7 @@ int AdvApp2Var_MathBase::mdsptpt_(integer* ndimen, integer ier; intptr_t iofset, j; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -253,14 +252,11 @@ int AdvApp2Var_MathBase::mdsptpt_(integer* ndimen, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALISATION */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATION */ + /* ***********************************************************************/ /* Parameter adjustment */ --point2; @@ -270,11 +266,9 @@ int AdvApp2Var_MathBase::mdsptpt_(integer* ndimen, iofset = 0; ier = 0; - /* *********************************************************************** - */ - /* TRAITEMENT */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* TRAITEMENT */ + /* ***********************************************************************/ AdvApp2Var_SysBase anAdvApp2Var_SysBase; if (*ndimen > 100) @@ -312,11 +306,9 @@ int AdvApp2Var_MathBase::mdsptpt_(integer* ndimen, *distan = AdvApp2Var_MathBase::mzsnorm_(ndimen, &differ[iofset]); } - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* **********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* **********************************************************************/ /* --- Dynamic Desallocation */ @@ -371,8 +363,7 @@ int AdvApp2Var_MathBase::mmapcmp_(integer* ndim, integer ipair, nd, ndegre, impair, ibb, idg; // extern int mgsomsg_();//mgenmsg_(), - /* ********************************************************************** - */ + /* **********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -393,8 +384,7 @@ int AdvApp2Var_MathBase::mmapcmp_(integer* ndim, /* OUTPUT ARGUMENTS : */ /* ------------------- */ - /* CRVNEW : Curve compacted in (0:(NCOEFF-1)/2,0,NDIM) (containing - */ + /* CRVNEW : Curve compacted in (0:(NCOEFF-1)/2,0,NDIM) (containing */ /* even terms) and in (0:(NCOEFF-1)/2,1,NDIM) */ /* (containing uneven terms). */ @@ -490,14 +480,12 @@ int mmaper0_(integer* ncofmx, doublereal bidon; integer ii, nd; - /* *********************************************************************** - */ + /* **********************************************************************/ /* FUNCTION : */ /* ---------- */ /* Calculate the max error of approximation done when */ - /* only the first NCFNEW coefficients of a curve are preserved. - */ + /* only the first NCFNEW coefficients of a curve are preserved. */ /* Degree NCOEFF-1 written in the base of Legendre (Jacobi */ /* of order 0). */ @@ -515,8 +503,7 @@ int mmaper0_(integer* ncofmx, /* OUTPUT ARGUMENTS : */ /* ------------------- */ - /* YCVMAX : Auxiliary Table (max error on each dimension). - */ + /* YCVMAX : Auxiliary Table (max error on each dimension). */ /* ERRMAX : Precision of the approximation. */ /* COMMONS USED : */ @@ -527,11 +514,9 @@ int mmaper0_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* *********************************************************************** - */ + /* **********************************************************************/ - /* ------------------- Init to calculate an error ----------------------- - */ + /* ------------------- Init to calculate an error --------------------- */ /* Parameter adjustments */ --ycvmax; @@ -547,8 +532,7 @@ int mmaper0_(integer* ncofmx, /* L100: */ } - /* ------ Minimum that can be reached : Stop at 1 or NCFNEW ------ - */ + /* ------ Minimum that can be reached : Stop at 1 or NCFNEW ------ */ ncut = 1; if (*ncfnew + 1 > ncut) @@ -556,10 +540,8 @@ int mmaper0_(integer* ncofmx, ncut = *ncfnew + 1; } - /* -------------- Elimination of high degree coefficients----------- - */ - /* ----------- Loop on the series of Legendre: NCUT --> NCOEFF -------- - */ + /* -------------- Elimination of high degree coefficients----------- */ + /* ----------- Loop on the series of Legendre: NCUT --> NCOEFF ----- */ i__1 = *ncoeff; for (ii = ncut; ii <= i__1; ++ii) @@ -577,13 +559,11 @@ int mmaper0_(integer* ncofmx, /* L300: */ } - /* -------------- The error is the norm of the vector error --------------- - */ + /* -------------- The error is the norm of the vector error ------------- */ *errmax = AdvApp2Var_MathBase::mzsnorm_(ndimen, &ycvmax[1]); - /* --------------------------------- Fin -------------------------------- - */ + /* --------------------------------- Fin -------------------------------- */ return 0; } /* mmaper0_ */ @@ -641,14 +621,12 @@ int mmaper2_(integer* ncofmx, doublereal bidon; integer ii, nd; - /* *********************************************************************** - */ + /* **********************************************************************/ /* FONCTION : */ /* ---------- */ /* Calculate max approximation error i faite lorsque l' on */ - /* ne conserve que les premiers NCFNEW coefficients d' une courbe - */ + /* ne conserve que les premiers NCFNEW coefficients d' une courbe */ /* de degre NCOEFF-1 ecrite dans la base de Jacobi d' ordre 2. */ /* KEYWORDS : */ @@ -665,8 +643,7 @@ int mmaper2_(integer* ncofmx, /* OUTPUT ARGUMENTS : */ /* ------------------- */ - /* YCVMAX : Auxiliary Table (max error on each dimension). - */ + /* YCVMAX : Auxiliary Table (max error on each dimension). */ /* ERRMAX : Precision of the approximation. */ /* COMMONS USED : */ @@ -677,8 +654,7 @@ int mmaper2_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* ------------------ Table of maximums of (1-t2)*Ji(t) ---------------- - */ + /* ------------------ Table of maximums of (1-t2)*Ji(t) ---------------- */ /* Parameter adjustments */ --ycvmax; @@ -688,8 +664,7 @@ int mmaper2_(integer* ncofmx, /* Function Body */ - /* ------------------- Init for error calculation ----------------------- - */ + /* ------------------- Init for error calculation ---------------------- */ i__1 = *ndimen; for (ii = 1; ii <= i__1; ++ii) @@ -698,18 +673,15 @@ int mmaper2_(integer* ncofmx, /* L100: */ } - /* ------ Min. Degree that can be attained : Stop at 3 or NCFNEW ------ - */ + /* ------ Min. Degree that can be attained : Stop at 3 or NCFNEW ------ */ idec = 3; /* Computing MAX */ i__1 = idec, i__2 = *ncfnew + 1; ncut = advapp_max(i__1, i__2); - /* -------------- Removal of coefficients of high degree ----------- - */ - /* ----------- Loop on the series of Jacobi :NCUT --> NCOEFF ---------- - */ + /* -------------- Removal of coefficients of high degree -------------- */ + /* ----------- Loop on the series of Jacobi :NCUT --> NCOEFF ---------- */ i__1 = *ncoeff; for (ii = ncut; ii <= i__1; ++ii) @@ -725,13 +697,11 @@ int mmaper2_(integer* ncofmx, /* L300: */ } - /* -------------- The error is the norm of the vector error --------------- - */ + /* -------------- The error is the norm of the vector error ------------ */ *errmax = AdvApp2Var_MathBase::mzsnorm_(ndimen, &ycvmax[1]); - /* --------------------------------- Fin -------------------------------- - */ + /* --------------------------------- Fin ------------------------------- */ return 0; } /* mmaper2_ */ @@ -793,14 +763,12 @@ int mmaper4_(integer* ncofmx, doublereal bidon; integer ii, nd; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ /* Calculate the max. error of approximation made when */ - /* only first NCFNEW coefficients of a curve are preserved - */ + /* only first NCFNEW coefficients of a curve are preserved */ /* degree NCOEFF-1 is written in the base of Jacobi of order 4. */ /* KEYWORDS : */ /* ----------- */ @@ -816,8 +784,7 @@ int mmaper4_(integer* ncofmx, /* OUTPUT ARGUMENTS : */ /* ------------------- */ - /* YCVMAX : Auxiliary Table (max error on each dimension). - */ + /* YCVMAX : Auxiliary Table (max error on each dimension). */ /* ERRMAX : Precision of the approximation. */ /* COMMONS USED : */ @@ -828,11 +795,9 @@ int mmaper4_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* ---------------- Table of maximums of ((1-t2)2)*Ji(t) --------------- - */ + /* ---------------- Table of maximums of ((1-t2)2)*Ji(t) --------------- */ /* Parameter adjustments */ --ycvmax; @@ -842,8 +807,7 @@ int mmaper4_(integer* ncofmx, /* Function Body */ - /* ------------------- Init for error calculation ----------------------- - */ + /* ------------------- Init for error calculation ---------------------- */ i__1 = *ndimen; for (ii = 1; ii <= i__1; ++ii) @@ -852,18 +816,15 @@ int mmaper4_(integer* ncofmx, /* L100: */ } - /* ------ Min. Degree that can be attained : Stop at 5 or NCFNEW ------ - */ + /* ------ Min. Degree that can be attained : Stop at 5 or NCFNEW ------- */ idec = 5; /* Computing MAX */ i__1 = idec, i__2 = *ncfnew + 1; ncut = advapp_max(i__1, i__2); - /* -------------- Removal of high degree coefficients ----------- - */ - /* ----------- Loop on the series of Jacobi :NCUT --> NCOEFF ---------- - */ + /* -------------- Removal of high degree coefficients ------------------ */ + /* ----------- Loop on the series of Jacobi :NCUT --> NCOEFF ----------- */ i__1 = *ncoeff; for (ii = ncut; ii <= i__1; ++ii) @@ -879,13 +840,11 @@ int mmaper4_(integer* ncofmx, /* L300: */ } - /* -------------- The error is the norm of the error vector --------------- - */ + /* -------------- The error is the norm of the error vector ------------ */ *errmax = AdvApp2Var_MathBase::mzsnorm_(ndimen, &ycvmax[1]); - /* --------------------------------- End -------------------------------- - */ + /* --------------------------------- End ------------------------------- */ return 0; } /* mmaper4_ */ @@ -941,13 +900,11 @@ int mmaper6_(integer* ncofmx, doublereal bidon; integer ii, nd; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ /* Calculate the max. error of approximation made when */ - /* only first NCFNEW coefficients of a curve are preserved - */ + /* only first NCFNEW coefficients of a curve are preserved */ /* degree NCOEFF-1 is written in the base of Jacobi of order 6. */ /* KEYWORDS : */ /* ----------- */ @@ -963,8 +920,7 @@ int mmaper6_(integer* ncofmx, /* OUTPUT ARGUMENTS : */ /* ------------------- */ - /* YCVMAX : Auxiliary Table (max error on each dimension). - */ + /* YCVMAX : Auxiliary Table (max error on each dimension). */ /* ERRMAX : Precision of the approximation. */ /* COMMONS USED : */ @@ -975,11 +931,9 @@ int mmaper6_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* ---------------- Table of maximums of ((1-t2)3)*Ji(t) --------------- - */ + /* ---------------- Table of maximums of ((1-t2)3)*Ji(t) --------------- */ /* Parameter adjustments */ --ycvmax; @@ -989,8 +943,7 @@ int mmaper6_(integer* ncofmx, /* Function Body */ - /* ------------------- Init for error calculation ----------------------- - */ + /* ------------------- Init for error calculation ---------------------- */ i__1 = *ndimen; for (ii = 1; ii <= i__1; ++ii) @@ -999,18 +952,15 @@ int mmaper6_(integer* ncofmx, /* L100: */ } - /* ------ Min Degree that can be attained : Stop at 3 or NCFNEW ------ - */ + /* ------ Min Degree that can be attained : Stop at 3 or NCFNEW -------- */ idec = 7; /* Computing MAX */ i__1 = idec, i__2 = *ncfnew + 1; ncut = advapp_max(i__1, i__2); - /* -------------- Removal of high degree coefficients ----------- - */ - /* ----------- Loop on the series of Jacobi :NCUT --> NCOEFF ---------- - */ + /* -------------- Removal of high degree coefficients ------------------ */ + /* ----------- Loop on the series of Jacobi :NCUT --> NCOEFF ----------- */ i__1 = *ncoeff; for (ii = ncut; ii <= i__1; ++ii) @@ -1026,13 +976,11 @@ int mmaper6_(integer* ncofmx, /* L300: */ } - /* -------------- The error is the norm of the vector error --------------- - */ + /* -------------- The error is the norm of the vector error ------------ */ *errmax = AdvApp2Var_MathBase::mzsnorm_(ndimen, &ycvmax[1]); - /* --------------------------------- END -------------------------------- - */ + /* --------------------------------- END ------------------------------- */ return 0; } /* mmaper6_ */ @@ -1056,13 +1004,11 @@ int AdvApp2Var_MathBase::mmaperx_(integer* ncofmx, /* Local variables */ integer jord; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ /* Calculate the max. error of approximation made when */ - /* only first NCFNEW coefficients of a curve are preserved - */ + /* only first NCFNEW coefficients of a curve are preserved */ /* degree NCOEFF-1 is written in the base of Jacobi of order IORDRE. */ /* KEYWORDS : */ /* ----------- */ @@ -1079,8 +1025,7 @@ int AdvApp2Var_MathBase::mmaperx_(integer* ncofmx, /* OUTPUT ARGUMENTS : */ /* ------------------- */ - /* YCVMAX : Auxiliary Table (max error on each dimension). - */ + /* YCVMAX : Auxiliary Table (max error on each dimension). */ /* ERRMAX : Precision of the approximation. */ /* IERCOD = 0, OK */ /* = 1, order of constraints (IORDRE) is not within the */ @@ -1094,8 +1039,7 @@ int AdvApp2Var_MathBase::mmaperx_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* Canceled and replaced MMAPERR. */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --ycvmax; @@ -1129,8 +1073,7 @@ int AdvApp2Var_MathBase::mmaperx_(integer* ncofmx, *iercod = 1; } - /* ----------------------------------- Fin ------------------------------ - */ + /* ----------------------------------- Fin ----------------------------- */ return 0; } /* mmaperx_ */ @@ -1160,8 +1103,7 @@ int mmarc41_(integer* ndimax, /* IMPLICIT DOUBLE PRECISION(A-H,O-Z) */ /* IMPLICIT INTEGER (I-N) */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1179,10 +1121,8 @@ int mmarc41_(integer* ndimax, /* NDIMEN : Curve Dimension. */ /* NCOEFF : Nb of coefficients of the curve. */ /* CRVOLD : Curve to be limited. */ - /* UPARA0 : Min limit of the interval limiting the curve. - */ - /* UPARA1 : Max limit of the interval limiting the curve. - */ + /* UPARA0 : Min limit of the interval limiting the curve. */ + /* UPARA1 : Max limit of the interval limiting the curve. */ /* OUTPUT ARGUMENTS : */ /* ------------------- */ @@ -1202,7 +1142,7 @@ int mmarc41_(integer* ndimax, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* ---> Algorithm used in this general case is based on the */ - /* following principle : */ + /* following principle : */ /* Let S(t) = a0 + a1*t + a2*t**2 + ... of degree NCOEFF-1, and */ /* U(t) = b0 + b1*t, then the coeff. of */ /* S(U(t)) are calculated step by step with help of table TBAUX. */ @@ -1219,8 +1159,7 @@ int mmarc41_(integer* ndimax, /* is absolutely LEGAL. (RBD) */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -1237,32 +1176,26 @@ int mmarc41_(integer* ndimax, /* Function Body */ *iercod = 0; - /* ********************************************************************** - */ - /* CASE WHEN PROCESSING CAN'T BE DONE */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* CASE WHEN PROCESSING CAN'T BE DONE */ + /* ***********************************************************************/ if (*ncoeff > 61 || *ncoeff < 1) { *iercod = 10; goto L9999; } - /* ********************************************************************** - */ - /* IF NO CHANGES */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* IF NO CHANGES */ + /* ***********************************************************************/ if (*ndimen == *ndimax && *upara0 == 0. && *upara1 == 1.) { nboct = (*ndimax << 3) * *ncoeff; AdvApp2Var_SysBase::mcrfill_(&nboct, &crvold[crvold_offset], &crvnew[crvnew_offset]); goto L9999; } - /* ********************************************************************** - */ - /* INVERSION 3D : FAST PROCESSING */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* INVERSION 3D : FAST PROCESSING */ + /* ***********************************************************************/ if (*upara0 == 1. && *upara1 == 0.) { if (*ndimen == 3 && *ndimax == 3 && *ncoeff <= 21) @@ -1270,24 +1203,19 @@ int mmarc41_(integer* ndimax, mvcvinv_(ncoeff, &crvold[crvold_offset], &crvnew[crvnew_offset], iercod); goto L9999; } - /* ****************************************************************** - **** */ - /* INVERSION 2D : FAST PROCESSING */ - /* ****************************************************************** - **** */ + /* *********************************************************************/ + /* INVERSION 2D : FAST PROCESSING */ + /* *********************************************************************/ if (*ndimen == 2 && *ndimax == 2 && *ncoeff <= 21) { mvcvin2_(ncoeff, &crvold[crvold_offset], &crvnew[crvnew_offset], iercod); goto L9999; } } - /* ********************************************************************** - */ - /* GENERAL PROCESSING */ - /* ********************************************************************** - */ - /* -------------------------- Initializations --------------------------- - */ + /* ***********************************************************************/ + /* GENERAL PROCESSING */ + /* ***********************************************************************/ + /* -------------------------- Initializations -------------------------- */ i__1 = *ndimen; for (nd = 1; nd <= i__1; ++nd) @@ -1302,15 +1230,13 @@ int mmarc41_(integer* ndimax, tbaux[0] = *upara0; tbaux[1] = *upara1 - *upara0; - /* ----------------------- Calculation of coeff. of CRVNEW ------------------ - */ + /* ----------------------- Calculation of coeff. of CRVNEW ------------- */ i__1 = *ncoeff - 1; for (ncf = 2; ncf <= i__1; ++ncf) { - /* ------------ Take into account NCF-th coeff. of CRVOLD -------- - ---- */ + /* ------------ Take into account NCF-th coeff. of CRVOLD ------------ */ i__2 = ncf - 1; for (ncj = 1; ncj <= i__2; ++ncj) @@ -1333,8 +1259,7 @@ int mmarc41_(integer* ndimax, /* L500: */ } - /* --------- Calculate (NCF+1) coeff. of ((U1-U0)*t + U0)**(NCF) --- - ---- */ + /* --------- Calculate (NCF+1) coeff. of ((U1-U0)*t + U0)**(NCF) ----- */ bid = *upara1 - *upara0; tbaux[ncf] = tbaux[ncf - 1] * bid; @@ -1348,8 +1273,7 @@ int mmarc41_(integer* ndimax, /* L200: */ } - /* -------------- Take into account the last coeff. of CRVOLD ----------- - */ + /* -------------- Take into account the last coeff. of CRVOLD ---------- */ i__1 = *ncoeff - 1; for (ncj = 1; ncj <= i__1; ++ncj) @@ -1370,8 +1294,7 @@ int mmarc41_(integer* ndimax, /* L900: */ } - /* ---------------------------- The end --------------------------------- - */ + /* ---------------------------- The end -------------------------------- */ L9999: if (*iercod != 0) @@ -1408,8 +1331,8 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, integer ncj; doublereal eps3; - /* ********************************************************************** - *//* FUNCTION : */ + /* ***********************************************************************/ + /* FUNCTION : */ /* ---------- */ /* Creation of curve C2(v) defined on [U0,U1] identic to */ /* curve C1(u) defined on [-1,1] (change of parameter */ @@ -1425,10 +1348,8 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, /* NDIMEN : Curve Dimension. */ /* NCOEFF : Nb of coefficients of the curve. */ /* CRVOLD : Curve to be limited. */ - /* U0 : Min limit of the interval limiting the curve. - */ - /* U1 : Max limit of the interval limiting the curve. - */ + /* U0 : Min limit of the interval limiting the curve. */ + /* U1 : Max limit of the interval limiting the curve. */ /* OUTPUT ARGUMENTS : */ /* ------------------- */ @@ -1444,8 +1365,7 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -1477,22 +1397,18 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, } *iercod = 0; - /* ********************************************************************** - */ - /* CASE WHEN THE PROCESSING IS IMPOSSIBLE */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* CASE WHEN THE PROCESSING IS IMPOSSIBLE */ + /* ***********************************************************************/ if (*ncoeff > 61 || *ncoeff < 1) { *iercod = 10; goto L9999; } - /* ********************************************************************** - */ - /* IF NO CHANGE OF THE INTERVAL OF DEFINITION */ - /* (ONLY INVERSION OF INDICES OF TABLE CRVOLD) */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* IF NO CHANGE OF THE INTERVAL OF DEFINITION */ + /* (ONLY INVERSION OF INDICES OF TABLE CRVOLD) */ + /* ***********************************************************************/ if (*ndim == *ndimax && *u0 == -1. && *u1 == 1.) { AdvApp2Var_MathBase::mmcvinv_(ndim, @@ -1502,23 +1418,18 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, &crvnew[crvnew_offset]); goto L9999; } - /* ********************************************************************** - */ - /* CASE WHEN THE NEW INTERVAL OF DEFINITION IS [0,1] */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* CASE WHEN THE NEW INTERVAL OF DEFINITION IS [0,1] */ + /* ***********************************************************************/ if (*u0 == 0. && *u1 == 1.) { mmcvstd_(ncoeff, ndimax, ncoeff, ndim, &crvold[crvold_offset], &crvnew[crvnew_offset]); goto L9999; } - /* ********************************************************************** - */ - /* GENERAL PROCESSING */ - /* ********************************************************************** - */ - /* -------------------------- Initialization --------------------------- - */ + /* ***********************************************************************/ + /* GENERAL PROCESSING */ + /* ***********************************************************************/ + /* -------------------------- Initialization --------------------------- */ x0 = -(*u1 + *u0) / (*u1 - *u0); x1 = 2. / (*u1 - *u0); @@ -1535,15 +1446,13 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, tabaux[0] = x0; tabaux[1] = x1; - /* ----------------------- Calculation of coeff. of CRVNEW ------------------ - */ + /* ----------------------- Calculation of coeff. of CRVNEW ------------- */ i__1 = *ncoeff - 1; for (ncf = 2; ncf <= i__1; ++ncf) { - /* ------------ Take into account the NCF-th coeff. of CRVOLD -------- - ---- */ + /* ------------ Take into account the NCF-th coeff. of CRVOLD -------- */ i__2 = ncf - 1; for (ncj = 1; ncj <= i__2; ++ncj) @@ -1566,8 +1475,7 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, /* L500: */ } - /* --------- Calculation of (NCF+1) coeff. of [X1*t + X0]**(NCF) -------- - ---- */ + /* --------- Calculation of (NCF+1) coeff. of [X1*t + X0]**(NCF) ----- */ tabaux[ncf] = tabaux[ncf - 1] * x1; for (ncj = ncf; ncj >= 2; --ncj) @@ -1580,8 +1488,7 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, /* L200: */ } - /* -------------- Take into account the last coeff. of CRVOLD ----------- - */ + /* -------------- Take into account the last coeff. of CRVOLD ---------- */ i__1 = *ncoeff - 1; for (ncj = 1; ncj <= i__1; ++ncj) @@ -1602,8 +1509,7 @@ int AdvApp2Var_MathBase::mmarcin_(integer* ndimax, /* L900: */ } - /* ---------------------------- The end --------------------------------- - */ + /* ---------------------------- The end -------------------------------- */ L9999: if (*iercod > 0) @@ -1639,8 +1545,7 @@ int mmatvec_(integer* nligne, doublereal somme; integer aux; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1684,17 +1589,13 @@ int mmatvec_(integer* nligne, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALISATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ --vecout; @@ -1710,11 +1611,9 @@ int mmatvec_(integer* nligne, } *iercod = 0; - /* *********************************************************************** - */ - /* Processing */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* Processing */ + /* ***********************************************************************/ AdvApp2Var_SysBase::mvriraz_(nligne, &vecout[1]); i__1 = *nligne; for (i__ = *deblig; i__ <= i__1; ++i__) @@ -1734,17 +1633,13 @@ int mmatvec_(integer* nligne, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -1775,8 +1670,7 @@ int AdvApp2Var_MathBase::mmbulld_(integer* nbcoln, doublereal daux; integer nite1, nite2, nchan, i1, i2; - /* *********************************************************************** - */ + /* ************************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1805,8 +1699,7 @@ int AdvApp2Var_MathBase::mmbulld_(integer* nbcoln, /* ----------------------------------- */ /* Particularly performant if the table is almost parsed */ /* In the opposite case it is better to use MVSHELD */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ dtabtr_dim1 = *nblign; @@ -1823,11 +1716,9 @@ int AdvApp2Var_MathBase::mmbulld_(integer* nbcoln, nite1 = *nbcoln; nite2 = 2; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ /* ---->ALGORITHM in N^2 / 2 additional iteration */ @@ -1886,19 +1777,15 @@ int AdvApp2Var_MathBase::mmbulld_(integer* nbcoln, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ /* ----> No errors at calling functions, only tests and loops. */ - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -1927,8 +1814,7 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, integer i__, j, k; doublereal mfactk, bid; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1970,8 +1856,7 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, /* NCOEFF : they are not set to zero. */ /* ---> Algorithm : */ - /* The code below was written basing on the following algorithm: - */ + /* The code below was written basing on the following algorithm: */ /* Let P(t) = a1 + a2*t + ... an*t**n. Derivate of order k of P */ /* (containing n-k coefficients) is calculated as follows : */ @@ -1982,16 +1867,12 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, /* . */ /* . */ /* + a(n)*CNP(n-1,k)*k! * t**(n-k-1). */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* -------------- Case when the order of derivative is ------------------- - */ - /* ---------------- greater than the degree of the curve --------------------- - */ + /* -------------- Case when the order of derivative is ---------------- */ + /* ---------------- greater than the degree of the curve --------------- */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2001,7 +1882,7 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, /* ----------- */ /* Binomial coeff from 0 to 60. read only . init par block data */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* Binomial coefficients form a triangular matrix. */ /* This matrix is completed in table CNP by its transposition. */ @@ -2009,11 +1890,9 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, /* Initialization is done by block-data MMLLL09.RES, */ /* created by program MQINICNP.FOR). */ - /* ********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ crvdrv_dim1 = *ndimen; @@ -2035,13 +1914,10 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, *ncofdv = 1; goto L9999; } - /* ********************************************************************** - */ - /* General processing */ - /* ********************************************************************** - */ - /* --------------------- Calculation of Factorial(IDERIV) ------------------ - */ + /* ***********************************************************************/ + /* General processing */ + /* ***********************************************************************/ + /* --------------------- Calculation of Factorial(IDERIV) -------------- */ k = *ideriv; mfactk = 1.; @@ -2052,8 +1928,7 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, /* L50: */ } - /* ------------ Calculation of coeff of the derived of order IDERIV ---------- - */ + /* ------------ Calculation of coeff of the derived of order IDERIV ---- */ /* ---> Attention : coefficient binomial C(n,m) is represented in */ /* MCCNP by CNP(N+1,M+1). */ @@ -2072,8 +1947,7 @@ int AdvApp2Var_MathBase::mmcdriv_(integer* ndimen, *ncofdv = *ncoeff - *ideriv; - /* -------------------------------- The end ----------------------------- - */ + /* -------------------------------- The end ---------------------------- */ L9999: return 0; @@ -2108,8 +1982,7 @@ int AdvApp2Var_MathBase::mmcglc1_(integer* ndimax, doublereal dif, pas; doublereal som; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2125,8 +1998,7 @@ int AdvApp2Var_MathBase::mmcglc1_(integer* ndimax, /* NDIMAX : Max. number of lines of tables */ /* (i.e. max. nb of polynoms). */ /* NDIMEN : Dimension of the space (nb of polynoms). */ - /* NCOEFF : Nb of coefficients of the polynom. This is degree + 1. - */ + /* NCOEFF : Nb of coefficients of the polynom. This is degree + 1. */ /* COURBE(NDIMAX,NCOEFF) : Coefficients of the curve. */ /* TDEBUT : Lower limit of the interval of integration for */ /* length calculation. */ @@ -2165,13 +2037,11 @@ int AdvApp2Var_MathBase::mmcglc1_(integer* ndimax, /* ATTENTION : if TDEBUT > TFINAL, the length is NEGATIVE. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ - /* ------------------------ General Initialization --------------------- - */ + /* ------------------------ General Initialization --------------------- */ /* Parameter adjustments */ courbe_dim1 = *ndimax; @@ -2341,11 +2211,10 @@ int mmchole_(integer*, // mxcoef, doublereal somme; integer ptini, ptcou; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ - /* ---------- T */ + /* ---------- */ /* Produce decomposition of choleski of matrix A in S.S */ /* Calculate inferior triangular matrix S. */ @@ -2358,8 +2227,7 @@ int mmchole_(integer*, // mxcoef, /* MXCOEF : Max number of terms in the hessian profile */ /* DIMENS : Dimension of the problem */ /* AMATRI(MXCOEF) : Coefficients of the matrix profile */ - /* APOSIT(1,*) : Distance diagonal-left extremity of the line - */ + /* APOSIT(1,*) : Distance diagonal-left extremity of the line */ /* APOSIT(2,*) : Position of diagonal terms in HESSIE */ /* POSUIV(MXCOEF) : first line inferior not out of profile */ @@ -2382,17 +2250,13 @@ int mmchole_(integer*, // mxcoef, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* DEBUG LEVEL = 4 */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALISATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ --chomat; @@ -2408,11 +2272,9 @@ int mmchole_(integer*, // mxcoef, } *iercod = 0; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ i__1 = *dimens; for (j = 1; j <= i__1; ++j) @@ -2462,21 +2324,17 @@ int mmchole_(integer*, // mxcoef, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ L9101: *iercod = 1; goto L9999; - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -2511,8 +2369,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, integer ibb, ncf, ndv; doublereal eps1; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2568,8 +2425,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* This routine returns a curve defined in (-1,1). */ /* In general case, it is necessary to use MCVCTG. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -2596,10 +2452,8 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* Precision. */ AdvApp2Var_MathBase::mmeps1_(&eps1); - /* ****************** CALCULATION OF EVEN COEFFICIENTS ********************* - */ - /* ------------------------- Initialization ----------------------------- - */ + /* ****************** CALCULATION OF EVEN COEFFICIENTS *******************/ + /* ------------------------- Initialization ---------------------------- */ nordr = *nderiv + 1; i__1 = nordr; @@ -2609,8 +2463,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L100: */ } - /* ---------------- Calculation of terms corresponding to derivatives ------- - */ + /* ---------------- Calculation of terms corresponding to derivatives -- */ i__1 = nordr; for (ndv = 2; ndv <= i__1; ++ndv) @@ -2625,8 +2478,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L200: */ } - /* ------------------ Writing the second member ----------------------- - */ + /* ------------------ Writing the second member ------------------------ */ moup1 = 1; i__1 = nordr; @@ -2645,8 +2497,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L400: */ } - /* -------------------- Resolution of the system --------------------------- - */ + /* -------------------- Resolution of the system ----------------------- */ mmrslw_(&nordr, &nordr, ndimen, &eps1, &tabaux[tabaux_offset], &xmatri[xmatri_offset], iercod); if (*iercod > 0) @@ -2665,10 +2516,8 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L600: */ } - /* ***************** CALCULATION OF UNEVEN COEFFICIENTS ******************** - */ - /* ------------------------- Initialization ----------------------------- - */ + /* ***************** CALCULATION OF UNEVEN COEFFICIENTS *******************/ + /* ------------------------- Initialization ----------------------------- */ i__1 = nordr; for (ncf = 1; ncf <= i__1; ++ncf) @@ -2677,8 +2526,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L1100: */ } - /* ---------------- Calculation of terms corresponding to derivatives ------- - */ + /* ---------------- Calculation of terms corresponding to derivatives -- */ i__1 = nordr; for (ndv = 2; ndv <= i__1; ++ndv) @@ -2693,8 +2541,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L1200: */ } - /* ------------------ Writing of the second member ----------------------- - */ + /* ------------------ Writing of the second member --------------------- */ moup1 = -1; i__1 = nordr; @@ -2713,8 +2560,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L1400: */ } - /* -------------------- Solution of the system --------------------------- - */ + /* -------------------- Solution of the system ------------------------- */ mmrslw_(&nordr, &nordr, ndimen, &eps1, &tabaux[tabaux_offset], &xmatri[xmatri_offset], iercod); if (*iercod > 0) @@ -2733,8 +2579,7 @@ int AdvApp2Var_MathBase::mmcvctx_(integer* ndimen, /* L1600: */ } - /* --------------------------- The end ---------------------------------- - */ + /* --------------------------- The end --------------------------------- */ L9999: if (*iercod != 0) @@ -2768,8 +2613,7 @@ int AdvApp2Var_MathBase::mmcvinv_(integer* ndimax, /* Local variables */ integer i__, nd, ibb; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2796,8 +2640,7 @@ int AdvApp2Var_MathBase::mmcvinv_(integer* ndimax, /* ----------------------- */ /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* The name of the routine */ /* Parameter adjustments */ @@ -2848,8 +2691,7 @@ int mmcvstd_(integer* ncofmx, integer ndeg, i__, j, j1, nd, ibb; doublereal bid; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2879,13 +2721,11 @@ int mmcvstd_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Name of the program. */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2895,7 +2735,7 @@ int mmcvstd_(integer* ncofmx, /* ----------- */ /* Binomial coefficient from 0 to 60. read only . init by block data */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* Binomial coefficients form a triangular matrix. */ /* This matrix is completed in table CNP by its transposition. */ @@ -2904,11 +2744,9 @@ int mmcvstd_(integer* ncofmx, /* Initialization is done with block-data MMLLL09.RES, */ /* created by the program MQINICNP.FOR. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ courbe_dim1 = *ndimax; @@ -2925,8 +2763,7 @@ int mmcvstd_(integer* ncofmx, } ndeg = *ncoeff - 1; - /* ------------------ Construction of the resulting curve ---------------- - */ + /* ------------------ Construction of the resulting curve -------------- */ i__1 = *ndimen; for (nd = 1; nd <= i__1; ++nd) @@ -2957,8 +2794,7 @@ int mmcvstd_(integer* ncofmx, /* L300: */ } - /* ------------------- Renormalization of the CURVE ------------------------- - */ + /* ------------------- Renormalization of the CURVE -------------------- */ bid = 1.; i__1 = ndeg; @@ -2974,8 +2810,7 @@ int mmcvstd_(integer* ncofmx, /* L500: */ } - /* ----------------------------- The end -------------------------------- - */ + /* ----------------------------- The end ------------------------------- */ if (ibb >= 3) { @@ -3001,8 +2836,7 @@ int AdvApp2Var_MathBase::mmdrc11_(integer* iordre, integer ndeg, i__, j, ndgcb, nd, ibb; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3026,8 +2860,7 @@ int AdvApp2Var_MathBase::mmdrc11_(integer* iordre, /* ------------------- */ /* POINTS : Table of values of consecutive derivatives */ /* of parameters -1.D0 and 1.D0. */ - /* MFACTAB : Auxiliary table for calculation of factorial(I). - */ + /* MFACTAB : Auxiliary table for calculation of factorial(I). */ /* COMMONS USED : */ /* ---------------- */ @@ -3067,8 +2900,7 @@ int AdvApp2Var_MathBase::mmdrc11_(integer* iordre, /* Addison-Wesley Pub. Co. (1969) */ /* pages 423-425. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -3092,8 +2924,7 @@ int AdvApp2Var_MathBase::mmdrc11_(integer* iordre, goto L9999; } - /* ------------------- Initialization of table POINTS ----------------- - */ + /* ------------------- Initialization of table POINTS ------------------ */ ndgcb = *ncoeff - 1; i__1 = *ndimen; @@ -3142,8 +2973,7 @@ int AdvApp2Var_MathBase::mmdrc11_(integer* iordre, /* L600: */ } - /* --------------------- Multiplication by factorial(I) -------------- - */ + /* --------------------- Multiplication by factorial(I) ---------------- */ if (*iordre > 1) { @@ -3165,8 +2995,7 @@ int AdvApp2Var_MathBase::mmdrc11_(integer* iordre, } } - /* ---------------------------- End ------------------------------------- - */ + /* ---------------------------- End ------------------------------------ */ L9999: if (ibb >= 2) @@ -3259,8 +3088,7 @@ int mmdrvcb_(integer* ideriv, /* ---> To evaluare derivatives at 0 and 1, it is preferable */ /* to use routine MDRV01.FOR . */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -3284,8 +3112,7 @@ int mmdrvcb_(integer* ideriv, } *iercod = 0; - /* ------------------- Initialization of table TABPNT ----------------- - */ + /* ------------------- Initialization of table TABPNT ------------------ */ ndgcrb = *ncoeff - 1; i__1 = *ndim; @@ -3303,8 +3130,7 @@ int mmdrvcb_(integer* ideriv, AdvApp2Var_SysBase::mvriraz_(&iptpnt, &tabpnt[tabpnt_dim1 + 1]); L200: - /* ------------------------ Calculation of parameter TPARAM ------------------ - */ + /* ------------------------ Calculation of parameter TPARAM ------------ */ i__1 = ndgcrb; for (ndeg = 1; ndeg <= i__1; ++ndeg) @@ -3324,8 +3150,7 @@ L200: /* L500: */ } - /* --------------------- Multiplication by factorial(I) ------------- - */ + /* --------------------- Multiplication by factorial(I) ---------------- */ i__1 = *ideriv; for (i__ = 2; i__ <= i__1; ++i__) @@ -3344,8 +3169,7 @@ L200: /* L1000: */ } - /* --------------------------- The end --------------------------------- - */ + /* --------------------------- The end --------------------------------- */ L9999: if (*iercod > 0) @@ -3399,8 +3223,7 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, /* IMPLICIT INTEGER (I-N) */ /* IMPLICIT DOUBLE PRECISION(A-H,O-Z) */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FONCTION : */ /* ---------- */ @@ -3434,8 +3257,7 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* The code below was written basing on the following algorithm : - */ + /* The code below was written basing on the following algorithm : */ /* Let P(t) = a1 + a2*t + ... an*t**n. The derivative of order k of P */ /* (containing n-k coefficients) is calculated as follows : */ @@ -3449,13 +3271,11 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, /* Evaluation is produced following the classic Horner scheme. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Factorials (1 to 21) calculated on VAX in R*16 */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3465,7 +3285,7 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, /* ----------- */ /* Binomial Coeff from 0 to 60. read only . init by block data */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* Binomial coefficients form a triangular matrix. */ /* This matrix is completed in table CNP by its transposition. */ @@ -3474,11 +3294,9 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, /* Initialization is done by block-data MMLLL09.RES, */ /* created by program MQINICNP.FOR. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --pntcrb; @@ -3488,10 +3306,8 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, /* Function Body */ - /* -------------- Case when the order of derivative is greater than ------------------- - */ - /* ---------------- the degree of the curve --------------------- - */ + /* -------------- Case when the order of derivative is greater than ---- */ + /* ---------------- the degree of the curve ---------------------------- */ if (*ideriv >= *ncoeff) { @@ -3503,13 +3319,10 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, } goto L9999; } - /* ********************************************************************** - */ - /* General processing*/ - /* ********************************************************************** - */ - /* --------------------- Calculation of Factorial(IDERIV) ------------------ - */ + /* ***********************************************************************/ + /* General processing */ + /* ***********************************************************************/ + /* --------------------- Calculation of Factorial(IDERIV) -------------- */ k = *ideriv; if (*ideriv <= 21 && *ideriv > 0) @@ -3527,8 +3340,7 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, } } - /* ------- Calculation of derivative of order IDERIV of CURVE in TPARAM ----- - */ + /* ----- Calculation of derivative of order IDERIV of CURVE in TPARAM -- */ /* ---> Attention : binomial coefficient C(n,m) is represented in */ /* MCCNP by CNP(N,M). */ @@ -3552,8 +3364,7 @@ int AdvApp2Var_MathBase::mmdrvck_(integer* ncoeff, /* L400: */ } - /* -------------------------------- The end ----------------------------- - */ + /* -------------------------------- The end ---------------------------- */ L9999: @@ -3566,8 +3377,7 @@ L9999: int AdvApp2Var_MathBase::mmeps1_(doublereal* epsilo) { - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3602,11 +3412,9 @@ int AdvApp2Var_MathBase::mmeps1_(doublereal* epsilo) /* compared to EPS1**2. Taking into account the rounding errors inevitable */ /* during calculations, this causes testing compared to 0.D0. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3619,7 +3427,7 @@ int AdvApp2Var_MathBase::mmeps1_(doublereal* epsilo) /* ----------- */ /* PARAMETER , TOLERANCE */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* INITIALISATION : profile , **VIA MPRFTX** at input in stream */ /* loading of default values of the profile in MPRFTX at input */ @@ -3634,8 +3442,7 @@ int AdvApp2Var_MathBase::mmeps1_(doublereal* epsilo) /* MEPSNR ... EPS2 , NITERM */ /* MITERR ... NITERR */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* NITERM : max nb of iterations */ /* NITERR : nb of rapid iterations */ @@ -3644,8 +3451,7 @@ int AdvApp2Var_MathBase::mmeps1_(doublereal* epsilo) /* EPS3 : tolerance to avoid division by 0.. */ /* EPS4 : angular tolerance */ - /* *********************************************************************** - */ + /* ***********************************************************************/ *epsilo = mmprcsn_.eps1; return 0; @@ -3663,8 +3469,7 @@ int mmexthi_(integer* ndegre, NCollection_Array1& hwgaus) integer iadd, ideb, ndeg2, nmod2, ii, ibb; integer kpt; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FONCTION : */ /* ---------- */ @@ -3706,8 +3511,7 @@ int mmexthi_(integer* ndegre, NCollection_Array1& hwgaus) /* AND weights of Gauss quadrature formulas on all */ /* POSITIVE roots of Legendre polynoms. */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3719,9 +3523,8 @@ int mmexthi_(integer* ndegre, NCollection_Array1& hwgaus) /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* > */ - /* *********************************************************************** - */ + /* > */ + /* ***********************************************************************/ /* ROOTAB : Table of all roots of Legendre polynoms */ /* within the interval [0,1]. They are ranked for the degrees increasing from */ @@ -3735,8 +3538,7 @@ int mmexthi_(integer* ndegre, NCollection_Array1& hwgaus) /* RTLTB1 : Table of Li(uk) where uk are the roots of */ /* Legendre polynom of UNEVEN degree. */ - /************************************************************************ - *****/ + /*************************************************************************/ /* Function Body */ ibb = AdvApp2Var_SysBase::mnfndeb_(); @@ -3786,8 +3588,7 @@ int mmexthi_(integer* ndegre, NCollection_Array1& hwgaus) hwgaus(ndeg2 + 1) = mlgdrtl_.hi0tab[ndeg2]; } - /* --------------------------- The end ---------------------------------- - */ + /* --------------------------- The end --------------------------------- */ if (ibb >= 3) { @@ -3807,8 +3608,7 @@ int mmextrl_(integer* ndegre, NCollection_Array1& rootlg) integer iadd, ideb, ndeg2, nmod2, ii, ibb; integer kpt; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3841,8 +3641,7 @@ int mmextrl_(integer* ndegre, NCollection_Array1& rootlg) /* ATTENTION: Condition of NDEGRE ( 2 <= NDEGRE <= 61) is not */ /* tested. The caller should make the test. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -3851,8 +3650,7 @@ int mmextrl_(integer* ndegre, NCollection_Array1& rootlg) /* AND the weight of Gauss quadrature formulas on all */ /* POSITIVE roots of Legendre polynoms. */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3862,12 +3660,11 @@ int mmextrl_(integer* ndegre, NCollection_Array1& rootlg) /* ----------- */ /* BASE LEGENDRE */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ROOTAB : Table of all roots of Legendre polynoms */ - /* within the interval [0,1]. They are ranked for the degrees increasing from */ - /* 2 to 61. */ + /* within the interval [0,1]. They are ranked for the degrees */ + /* increasing from 2 to 61. */ /* HILTAB : Table of Legendre interpolators concerning ROOTAB. */ /* The addressing is the same. */ /* HI0TAB : Table of Legendre interpolators for root x=0 */ @@ -3877,8 +3674,7 @@ int mmextrl_(integer* ndegre, NCollection_Array1& rootlg) /* RTLTB1 : Table of Li(uk) where uk are the roots of */ /* Legendre polynom of UNEVEN degree. */ - /************************************************************************ - *****/ + /*************************************************************************/ /* Function Body */ ibb = AdvApp2Var_SysBase::mnfndeb_(); @@ -3910,10 +3706,8 @@ int mmextrl_(integer* ndegre, NCollection_Array1& rootlg) /* L100: */ } - /* Strictly negative roots are equal to positive roots - */ - /* to the sign i.e RT(1) = -RT(NDEGRE), RT(2) = -RT(NDEGRE-1), etc... - */ + /* Strictly negative roots are equal to positive roots */ + /* to the sign i.e RT(1) = -RT(NDEGRE), RT(2) = -RT(NDEGRE-1), etc... */ i__1 = ndeg2; for (ii = 1; ii <= i__1; ++ii) @@ -3929,8 +3723,7 @@ int mmextrl_(integer* ndegre, NCollection_Array1& rootlg) rootlg(ndeg2 + 1) = 0.; } - /* -------------------------------- THE END ----------------------------- - */ + /* -------------------------------- THE END ---------------------------- */ if (ibb >= 3) { @@ -3957,8 +3750,7 @@ int AdvApp2Var_MathBase::mmfmca8_(const integer* ndimen, /* Local variables */ integer i__, j, k, ilong; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3993,8 +3785,7 @@ int AdvApp2Var_MathBase::mmfmca8_(const integer* ndimen, /* ----------------------------------- */ /* The following call : */ - /* CALL MMFMCA8(NDIMEN,NCOEFU,NCOEFV,NDIMAX,NCFUMX,NCFVMX,TABINI,TABINI) - */ + /* CALL MMFMCA8(NDIMEN,NCOEFU,NCOEFV,NDIMAX,NCFUMX,NCFVMX,TABINI,TABINI) */ /* where TABINI is input/output argument, is possible provided */ /* that the caller has declared TABINI in (NDIMAX,NCFUMX,NCFVMX) */ @@ -4002,8 +3793,7 @@ int AdvApp2Var_MathBase::mmfmca8_(const integer* ndimen, /* ATTENTION : it is not checked that NDIMAX >= NDIMEN, */ /* NCOEFU >= NCFMXU and NCOEFV >= NCFMXV. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ tabini_dim1 = *ndimen; @@ -4021,8 +3811,7 @@ int AdvApp2Var_MathBase::mmfmca8_(const integer* ndimen, goto L1000; } - /* ----------------------- decompression NDIMAX<>NDIMEN ----------------- - */ + /* ----------------------- decompression NDIMAX<>NDIMEN ---------------- */ for (k = *ncoefv; k >= 1; --k) { @@ -4040,8 +3829,7 @@ int AdvApp2Var_MathBase::mmfmca8_(const integer* ndimen, } goto L9999; - /* ----------------------- decompression NDIMAX=NDIMEN ------------------ - */ + /* ----------------------- decompression NDIMAX=NDIMEN ----------------- */ L1000: if (*ncoefu == *ncfumx) @@ -4066,8 +3854,7 @@ L2000: AdvApp2Var_SysBase::mcrfill_(&ilong, &tabini[tabini_offset], &tabres[tabres_offset]); goto L9999; - /* ---------------------------- The end --------------------------------- - */ + /* ---------------------------- The end -------------------------------- */ L9999: return 0; @@ -4092,8 +3879,7 @@ int AdvApp2Var_MathBase::mmfmca9_(integer* ndimax, /* Local variables */ integer i__, j, k, ilong; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -4128,8 +3914,7 @@ int AdvApp2Var_MathBase::mmfmca9_(integer* ndimax, /* ----------------------------------- */ /* The following call : */ - /* CALL MMFMCA9(NDIMAX,NCFUMX,NCFVMX,NDIMEN,NCOEFU,NCOEFV,TABINI,TABINI) - */ + /* CALL MMFMCA9(NDIMAX,NCFUMX,NCFVMX,NDIMEN,NCOEFU,NCOEFV,TABINI,TABINI) */ /* where TABINI is input/output argument, is possible provided */ /* that the caller has checked that : */ @@ -4141,8 +3926,7 @@ int AdvApp2Var_MathBase::mmfmca9_(integer* ndimax, /* These conditions are not tested in the program. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ tabini_dim1 = *ndimax; @@ -4160,8 +3944,7 @@ int AdvApp2Var_MathBase::mmfmca9_(integer* ndimax, goto L1000; } - /* ----------------------- Compression NDIMEN<>NDIMAX ------------------- - */ + /* ----------------------- Compression NDIMEN<>NDIMAX ------------------ */ i__1 = *ncoefv; for (k = 1; k <= i__1; ++k) @@ -4182,8 +3965,7 @@ int AdvApp2Var_MathBase::mmfmca9_(integer* ndimax, } goto L9999; - /* ----------------------- Compression NDIMEN=NDIMAX -------------------- - */ + /* ----------------------- Compression NDIMEN=NDIMAX ------------------- */ L1000: if (*ncoefu == *ncfumx) @@ -4201,16 +3983,14 @@ L1000: } goto L9999; - /* ----------------- Compression NDIMEN=NDIMAX,NCOEFU=NCFUMX ------------ - */ + /* ----------------- Compression NDIMEN=NDIMAX,NCOEFU=NCFUMX ----------- */ L2000: ilong = (*ndimen << 3) * *ncoefu * *ncoefv; AdvApp2Var_SysBase::mcrfill_(&ilong, &tabini[tabini_offset], &tabres[tabres_offset]); goto L9999; - /* ---------------------------- The end --------------------------------- - */ + /* ---------------------------- The end -------------------------------- */ L9999: return 0; @@ -4241,8 +4021,7 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, intptr_t iofst; integer ibb, ier; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -4258,12 +4037,11 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, /* NCOFMX: MAX NUMBER OF COEFF OF THE SQUARE BY U */ /* NCOEFU: NUMBER OF COEFF OF THE SQUARE BY U */ /* NCOEFV: NUMBER OF COEFF OF THE SQUARE BY V */ - /* PATOLD : THE SQUARE IS LIMITED BY UPARA1,UPARA2 AND VPARA1,VPARA2 - .*/ - /* UPARA1 : LOWER LIMIT OF U */ - /* UPARA2 : UPPER LIMIT OF U */ - /* VPARA1 : LOWER LIMIT OF V */ - /* VPARA2 : UPPER LIMIT OF V */ + /* PATOLD: THE SQUARE IS LIMITED BY UPARA1,UPARA2 AND VPARA1,VPARA2 */ + /* UPARA1: LOWER LIMIT OF U */ + /* UPARA2: UPPER LIMIT OF U */ + /* VPARA1: LOWER LIMIT OF V */ + /* VPARA2: UPPER LIMIT OF V */ /* OUTPUT ARGUMENTS : */ /* ------------------- */ @@ -4278,8 +4056,7 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* ---> The following call : */ - /* CALL MMFMCAR(NCOFMX,NCOEFU,NCOEFV,PATOLD,UPARA1,UPARA2,VPARA1,VPARA2 - */ + /* CALL MMFMCAR(NCOFMX,NCOEFU,NCOEFV,PATOLD,UPARA1,UPARA2,VPARA1,VPARA2 */ /* ,PATOLD), */ /* where PATOLD is input/output argument is absolutely legal. */ @@ -4287,12 +4064,10 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, /* ---> 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 - */ + /* of MMARC41 that follows (the square is processed as a curve of */ /* dimension NDIMEN*NCOEFU possessing NCOEFV coefficients). */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -4316,11 +4091,9 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, iofst = 0; AdvApp2Var_SysBase anAdvApp2Var_SysBase; - /* ********************************************************************** - */ - /* TEST OF COEFFICIENT NUMBERS */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* TEST OF COEFFICIENT NUMBERS */ + /* ***********************************************************************/ if (*ncofmx < *ncoefu) { @@ -4333,11 +4106,9 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, goto L9999; } - /* ********************************************************************** - */ - /* CASE WHEN UPARA1=VPARA1=0 AND UPARA2=VPARA2=1 */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* CASE WHEN UPARA1=VPARA1=0 AND UPARA2=VPARA2=1 */ + /* ***********************************************************************/ if (*upara1 == 0. && *upara2 == 1. && *vpara1 == 0. && *vpara2 == 1.) { @@ -4346,11 +4117,9 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, goto L9999; } - /* ********************************************************************** - */ - /* LIMITATION BY U */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* LIMITATION BY U */ + /* ***********************************************************************/ if (*upara1 == 0. && *upara2 == 1.) { @@ -4370,11 +4139,9 @@ int AdvApp2Var_MathBase::mmfmcar_(integer* ndimen, /* L100: */ } - /* ********************************************************************** - */ - /* LIMITATION BY V */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* LIMITATION BY V */ + /* ***********************************************************************/ L2000: if (*vpara1 == 0. && *vpara2 == 1.) @@ -4382,14 +4149,12 @@ L2000: goto L9999; } - /* ----------- LIMITATION BY V (WITH COMPRESSION I.E. NCOEFU 0) @@ -4397,8 +4162,7 @@ L2000: *iercod = 13; goto L9900; } - /* --------------- Compression by (NDIMEN,NCOEFU,NCOEFV) ------------ - ---- */ + /* --------------- Compression by (NDIMEN,NCOEFU,NCOEFV) ------------- */ if (*upara1 == 0. && *upara2 == 1.) { AdvApp2Var_MathBase::mmfmca9_(ndimen, @@ -4421,11 +4185,9 @@ L2000: &patnew[patnew_offset], &tbaux[iofst]); } - /* ------------------------- Limitation by v ------------------------ - ---- */ + /* ------------------------- Limitation by v ------------------------- */ mmarc41_(&numax, &numax, ncoefv, &tbaux[iofst], vpara1, vpara2, &tbaux[iofst], iercod); - /* --------------------- Expansion of TBAUX into PATNEW ------------- - --- */ + /* --------------------- Expansion of TBAUX into PATNEW -------------- */ AdvApp2Var_MathBase::mmfmca8_(ndimen, ncoefu, ncoefv, @@ -4436,8 +4198,7 @@ L2000: &patnew[patnew_offset]); goto L9900; - /* -------- LIMITATION BY V (WITHOUT COMPRESSION I.E. NCOEFU=NCOFMX) --- - ---- */ + /* ----- LIMITATION BY V (WITHOUT COMPRESSION I.E. NCOEFU=NCOFMX) ---- */ } else { @@ -4466,11 +4227,9 @@ L2000: goto L9999; } - /* ********************************************************************** - */ - /* DESALLOCATION */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* DESALLOCATION */ + /* ***********************************************************************/ L9900: if (iofst != 0) @@ -4482,8 +4241,7 @@ L9900: *iercod = 13; } - /* ------------------------------ The end ------------------------------- - */ + /* ------------------------------ The end ------------------------------ */ L9999: if (*iercod > 0) @@ -4516,8 +4274,7 @@ int AdvApp2Var_MathBase::mmfmcb5_(integer* isenmsc, /* Local variables */ integer i__, nboct, nd; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -4532,8 +4289,7 @@ int AdvApp2Var_MathBase::mmfmcb5_(integer* isenmsc, /* INPUT ARGUMENTS : */ /* -------------------- */ /* ISENMSC : required direction of the transfer : */ - /* 1 : passage of (NDIMEN,.) ---> (.,NDIMEN) direction to AB - */ + /* 1 : passage of (NDIMEN,.) ---> (.,NDIMEN) direction to AB */ /* -1 : passage of (.,NDIMEN) ---> (NDIMEN,.) direction to TS,T V*/ /* NDIMAX : format / dimension */ @@ -4564,8 +4320,7 @@ int AdvApp2Var_MathBase::mmfmcb5_(integer* isenmsc, /* (3,NU) --> (21,3) AB ; AB (21,3) --> (3,NU) */ /* (3,NU) --> (NU,3) AB ; AB (NU,3) --> (3,NU) */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ courb1_dim1 = *ndimax; @@ -4632,8 +4387,7 @@ int AdvApp2Var_MathBase::mmfmcb5_(integer* isenmsc, goto L9999; - /* *********************************************************************** - */ + /* ***********************************************************************/ L9119: *iercod = 3119; @@ -4668,8 +4422,7 @@ int AdvApp2Var_MathBase::mmfmtb1_(integer* maxsz1, integer ilong, isize, ii, jj, ier = 0; intptr_t iofst = 0, iipt, jjpt; - /************************************************************************ - *******/ + /*************************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -4714,8 +4467,7 @@ int AdvApp2Var_MathBase::mmfmtb1_(integer* maxsz1, /* ,ISIZE2,JSIZE2,IERCOD) */ /* is valuable. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ table1_dim1 = *maxsz1; @@ -4768,8 +4520,7 @@ int AdvApp2Var_MathBase::mmfmtb1_(integer* maxsz1, goto L9999; -/* ------------------------------- THE END ------------------------------ - */ +/* ------------------------------- THE END ------------------------------- */ /* --> Invalid input. */ L9100: *iercod = 1; @@ -4816,13 +4567,12 @@ int AdvApp2Var_MathBase::mmgaus1_( doublereal t, u[20], x; integer idimf; doublereal c1x, c2x; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* -------- */ - /* Calculate the integral of function BFUNX passed in parameter */ + /* Calculate the integral of function BFUNX passed in parameter */ /* between limits XD and XF . */ /* The function should be calculated for any value */ /* of the variable in the given interval.. */ @@ -4830,11 +4580,10 @@ int AdvApp2Var_MathBase::mmgaus1_( /* For explications refer to the book : */ /* Complements de mathematiques a l'usage des Ingenieurs de */ /* l'electrotechnique et des telecommunications. */ - /* Par Andre ANGOT - Collection technique et scientifique du CNET - */ + /* Par Andre ANGOT - Collection technique et scientifique du CNET */ /* page 772 .... */ - /* The degree of LEGENDRE polynoms used is passed in parameter. - */ + /* The degree of LEGENDRE polynoms used is passed in parameter. */ + /* KEYWORDS : */ /* --------- */ /* INTEGRATION,LEGENDRE,GAUSS */ @@ -4847,14 +4596,11 @@ int AdvApp2Var_MathBase::mmgaus1_( /* Should be declared as EXTERNAL in the call routine. */ /* SUBROUTINE BFUNX(NDIMF,X,VAL,IER) */ /* REAL *8 X,VAL */ - /* K : Parameter determining the degree of the LEGENDRE polynom that - */ + /* K : Parameter determining the degree of the LEGENDRE polynom that */ /* can take a value between 0 and 10. */ - /* The degree of the polynom is equal to 4 k, that is 4, 8, - */ + /* The degree of the polynom is equal to 4 k, that is 4, 8, */ /* 12, 16, 20, 24, 28, 32, 36 and 40. */ - /* If K is not correct, the degree is set to 40 directly. - */ + /* If K is not correct, the degree is set to 40 directly. */ /* XD : Lower limit of the interval of integration. */ /* XF : Upper limit of the interval of integration. */ /* SAUX1 : Auxiliary table */ @@ -4891,27 +4637,21 @@ int AdvApp2Var_MathBase::mmgaus1_( /* See the explanations detailed in the listing */ /* Use of the GAUSS method (orthogonal polynoms) */ /* The symmetry of roots of these polynomes is used */ - /* Depending on K, the degree of the interpolated polynom grows. - */ + /* Depending on K, the degree of the interpolated polynom grows. */ /* 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 - */ + /* 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 */ /* an epsilon value set to 10E-6 for example. */ - /* If S1 and S2 are 2 successive iterations, test following this example : - */ + /* If S1 and S2 are 2 successive iterations, test following this example: */ /* AF=DABS(S1-S2) */ /* AS=DABS(S2) */ - /* If AS < 1 test if FS < eps otherwise test if AF/AS < eps - */ + /* If AS < 1 test if FS < eps otherwise test if AF/AS < eps */ /* -- ----- ----- */ /* > */ - /************************************************************************ - ******/ - /* DECLARATIONS */ - /************************************************************************ - ******/ + /*************************************************************************/ + /* DECLARATIONS */ + /*************************************************************************/ /* ****** General Initialization */ @@ -4940,7 +4680,7 @@ int AdvApp2Var_MathBase::mmgaus1_( c2x = (*xf - *xd) * .5; /* ---------------------------------------- */ - /* ****** Integration for degree NDEG ** */ + /* Integration for degree NDEG */ /* ---------------------------------------- */ i__1 = ndeg; @@ -5008,8 +4748,7 @@ int mmherm0_(doublereal* debfin, integer* iercod) doublereal mat[36] /* was [6][6] */; integer cot; doublereal abid[72] /* was [12][6] */; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -5031,8 +4770,7 @@ int mmherm0_(doublereal* debfin, integer* iercod) /* (ABS(DEBFIN(1)+ABS(DEBFIN(2))) > 1/100 */ /* (for overflows) */ - /* ABS(DEBFIN(2)-DEBFIN(1)) / (ABS(DEBFIN(1)+ABS(DEBFIN(2))) > 1/100 - */ + /* ABS(DEBFIN(2)-DEBFIN(1)) / (ABS(DEBFIN(1)+ABS(DEBFIN(2))) > 1/100 */ /* (for the conditioning) */ /* OUTPUT ARGUMENTS : */ @@ -5056,11 +4794,9 @@ int mmherm0_(doublereal* debfin, integer* iercod) /* This program initializes the coefficients of Hermit polynoms */ /* that are read later by MMHERM1 */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -5070,24 +4806,20 @@ int mmherm0_(doublereal* debfin, integer* iercod) /* ----------- */ /* HERMITE */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* The coefficients of hermit polynoms are calculated by */ /* the routine MMHERM0 and read by the routine MMHERM1 */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* NBCOEF is the size of CMHERM (see below) */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Data checking */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --debfin; @@ -5117,18 +4849,15 @@ int mmherm0_(doublereal* debfin, integer* iercod) goto L9101; } - /* *********************************************************************** - */ - /* Initialization */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* Initialization */ + /* ***********************************************************************/ *iercod = 0; epspi = 1e-10; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* IS IT ALREADY INITIALIZED ? */ @@ -5150,11 +4879,9 @@ int mmherm0_(doublereal* debfin, integer* iercod) goto L9001; - /* *********************************************************************** - */ - /* CALCULATION */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* CALCULATION */ + /* ***********************************************************************/ L100: @@ -5223,8 +4950,7 @@ L100: for (jj = pp; jj <= i__2; ++jj) { - /* everything is done in these 3 lines - */ + /* everything is done in these 3 lines */ mat[ii + jj * 6 - 7] = cof[jj - 1] * prod; cof[jj - 1] *= jj - pp; @@ -5271,8 +4997,7 @@ L100: /* L2010: */ } - /* *********************************************************************** - */ + /* ***********************************************************************/ /* The initialized flag is located: */ @@ -5282,13 +5007,11 @@ L100: d1 = advapp_abs(debfin[1]) + advapp_abs(debfin[2]); mmcmher_.verifi = d1 * 16111959; - /* *********************************************************************** - */ + /* ***********************************************************************/ goto L9999; - /* *********************************************************************** - */ + /* ***********************************************************************/ L9101: *iercod = 1; @@ -5298,15 +5021,13 @@ L9001: *iercod = -1; goto L9999; - /* *********************************************************************** - */ + /* ***********************************************************************/ L9999: AdvApp2Var_SysBase::maermsg_("MMHERM0", iercod, 7L); - /* *********************************************************************** - */ + /* ***********************************************************************/ return 0; } /* mmherm0_ */ @@ -5326,8 +5047,7 @@ int mmherm1_(doublereal* debfin, doublereal d1; integer cot; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -5383,11 +5103,9 @@ int mmherm1_(doublereal* debfin, /* PMN : initialisation is no more done by the caller. */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -5397,26 +5115,22 @@ int mmherm1_(doublereal* debfin, /* ----------- */ /* HERMITE */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* the coefficients of Hetmit polynoms are calculated by */ /* routine MMHERM0 and read by routine MMHERM1 */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* NBCOEF is the size of CMHERM (see lower) */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Initializations */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --debfin; @@ -5429,11 +5143,9 @@ int mmherm1_(doublereal* debfin, /* Function Body */ *iercod = 0; - /* *********************************************************************** - */ - /* Data Checking */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* Data Checking */ + /* ***********************************************************************/ if (*ordrmx != 2) { @@ -5470,11 +5182,9 @@ int mmherm1_(doublereal* debfin, } } - /* *********************************************************************** - */ - /* READING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* READING */ + /* ***********************************************************************/ nbval = 36; @@ -5483,13 +5193,11 @@ int mmherm1_(doublereal* debfin, &mmcmher_.cmherm[((((iordre[1] + (iordre[2] << 2)) << 1) + 1) * 3 + 1) * 6 + 156], &hermit[hermit_offset]); - /* *********************************************************************** - */ + /* ***********************************************************************/ goto L9999; - /* *********************************************************************** - */ + /* ***********************************************************************/ L9101: *iercod = 1; @@ -5499,15 +5207,13 @@ L9102: *iercod = 2; goto L9999; - /* *********************************************************************** - */ + /* ***********************************************************************/ L9999: AdvApp2Var_SysBase::maermsg_("MMHERM1", iercod, 7L); - /* *********************************************************************** - */ + /* ***********************************************************************/ return 0; } /* mmherm1_ */ @@ -5543,8 +5249,7 @@ int AdvApp2Var_MathBase::mmhjcan_(integer* ndimen, integer ier; integer aux1, aux2; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -5560,8 +5265,7 @@ int AdvApp2Var_MathBase::mmhjcan_(integer* ndimen, /* -------------------- */ /* ORDHER : ORDER OF HERMIT POLYNOMS OR ORDER OF CONTINUITY */ /* NCOEFS : NUMBER OF COEFFICIENTS OF A POLYNOMIAL CURVE */ - /* FOR ONE OF ITS NDIM COMPONENTS;(DEGREE+1 OF THE CURVE) - */ + /* FOR ONE OF ITS NDIM COMPONENTS;(DEGREE+1 OF THE CURVE) */ /* NDIM : DIMENSION OF THE CURVE */ /* CBHEJA : TABLE OF COEFFICIENTS OF THE CURVE IN THE BASE */ /* HERMIT JACOBI */ @@ -5579,11 +5283,9 @@ int AdvApp2Var_MathBase::mmhjcan_(integer* ndimen, /* REFERENCES CALLED : */ /* --------------------- */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -5593,20 +5295,16 @@ int AdvApp2Var_MathBase::mmhjcan_(integer* ndimen, /* ----------- */ /* ALL, INTEGER */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALIZATION */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALIZATION */ + /* ***********************************************************************/ /* Parameter adjustments */ --ncftab; @@ -5630,11 +5328,9 @@ int AdvApp2Var_MathBase::mmhjcan_(integer* ndimen, bornes[0] = -1.; bornes[1] = 1.; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ if (*orcont > 2) { @@ -5720,11 +5416,9 @@ int AdvApp2Var_MathBase::mmhjcan_(integer* ndimen, goto L9999; - /* *********************************************************************** - */ - /* PROCESSING OF ERRORS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING OF ERRORS */ + /* ***********************************************************************/ L9101: *iercod = 1; @@ -5733,11 +5427,9 @@ L9102: *iercod = 2; goto L9999; - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -5769,8 +5461,7 @@ int AdvApp2Var_MathBase::mminltt_(integer* ncolmx, doublereal epsega = 0.; integer ibb; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -5805,16 +5496,14 @@ int AdvApp2Var_MathBase::mminltt_(integer* ncolmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* . The line is inserted only if there is no line with all - */ + /* . The line is inserted only if there is no line with all */ /* elements equl to those which are planned to be insered, to epsilon. */ /* . Level of de debug = 3 */ /**/ /* DECLARATIONS , CONTROL OF INPUT ARGUMENTS , INITIALIZATION */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* --- Parameters */ @@ -5937,7 +5626,7 @@ L70: goto L9999; /* ******************************************************************** */ - /* OUTPUT ERROR , RETURN CALLING PROGRAM , MESSAGES */ + /* OUTPUT ERROR , RETURN CALLING PROGRAM , MESSAGES */ /* ******************************************************************** */ /* --- The table is already full */ @@ -5973,8 +5662,7 @@ int AdvApp2Var_MathBase::mmjacan_(const integer* ideriv, integer iptt, i__, j, ibb; doublereal bid; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -6005,15 +5693,13 @@ int AdvApp2Var_MathBase::mmjacan_(const integer* ideriv, /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ /* Matrices of conversion */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -6023,12 +5709,11 @@ int AdvApp2Var_MathBase::mmjacan_(const integer* ideriv, /* ----------- */ /* MATH */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Legendre common / Restricted Casteljau. */ @@ -6036,8 +5721,7 @@ int AdvApp2Var_MathBase::mmjacan_(const integer* ideriv, /* CANPLG : Matrix of passage to canonic from Jacobi with calculated parities */ /* PLGCAN : Matrix of passage from Jacobi to canonic with calculated parities */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ poljac_dim1 = *ndeg / 2 + 1; @@ -6049,8 +5733,7 @@ int AdvApp2Var_MathBase::mmjacan_(const integer* ideriv, AdvApp2Var_SysBase::mgenmsg_("MMJACAN", 7L); } - /* ----------------- Expression of terms of even degree ---------------- - */ + /* ----------------- Expression of terms of even degree ---------------- */ i__1 = *ndeg / 2; for (i__ = 0; i__ <= i__1; ++i__) @@ -6067,8 +5750,7 @@ int AdvApp2Var_MathBase::mmjacan_(const integer* ideriv, /* L300: */ } - /* --------------- Expression of terms of uneven degree ---------------- - */ + /* --------------- Expression of terms of uneven degree ---------------- */ if (*ndeg == 0) { @@ -6090,8 +5772,7 @@ int AdvApp2Var_MathBase::mmjacan_(const integer* ideriv, /* L400: */ } - /* -------------------------------- The end ----------------------------- - */ + /* -------------------------------- The end ---------------------------- */ L9999: if (ibb >= 5) @@ -6121,8 +5802,7 @@ int AdvApp2Var_MathBase::mmjaccv_(const integer* ncoef, /* Local variables */ integer ndeg, i__, nd, ii, ibb; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -6154,8 +5834,7 @@ int AdvApp2Var_MathBase::mmjaccv_(const integer* ncoef, /* ----------------------------------- */ /* > */ - /* ********************************************************************* - */ + /* ***********************************************************************/ /* Name of the routine */ /* Parameter adjustments */ @@ -6237,16 +5916,15 @@ int mmloncv_(integer* ndimax, doublereal som; doublereal der1, der2; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* 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 */ - /* 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. */ + /* 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. */ /* All polynoms have the same number of coefficients (and the same degree). */ /* KEYWORDS : LENGTH, CURVE */ @@ -6483,8 +6161,7 @@ int AdvApp2Var_MathBase::mmpobas_(doublereal* tparam, integer kk1 = 0, kk2 = 0, kk3 = 0; integer khe = 0, ier = 0; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -6527,11 +6204,9 @@ int AdvApp2Var_MathBase::mmpobas_(doublereal* tparam, /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ valbas_dim1 = *ncoeff; @@ -6539,19 +6214,15 @@ int AdvApp2Var_MathBase::mmpobas_(doublereal* tparam, /* Function Body */ - /* *********************************************************************** - */ - /* INITIALIZATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALIZATIONS */ + /* ***********************************************************************/ *iercod = 0; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ if (*nderiv > 3) { @@ -6759,11 +6430,9 @@ int AdvApp2Var_MathBase::mmpobas_(doublereal* tparam, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ L9101: *iercod = 1; @@ -6772,11 +6441,9 @@ L9101: L9102: *iercod = 2; - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -6804,8 +6471,7 @@ int AdvApp2Var_MathBase::mmpocrb_(integer* ndimax, integer ncof2; integer isize, nd, kcf, ncf; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -6814,8 +6480,7 @@ int AdvApp2Var_MathBase::mmpocrb_(integer* ndimax, /* KEYWORDS : */ /* ----------- */ - /* TOUS , MATH_ACCES :: COURBE&,PARAMETRE& , POSITIONNEMENT , &POINT - */ + /* TOUS , MATH_ACCES :: COURBE&,PARAMETRE& , POSITIONNEMENT , &POINT */ /* INPUT ARGUMENTS : */ /* ------------------ */ @@ -6843,11 +6508,9 @@ int AdvApp2Var_MathBase::mmpocrb_(integer* ndimax, /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ courbe_dim1 = *ndimax; @@ -6940,8 +6603,7 @@ int AdvApp2Var_MathBase::mmmpocur_(integer* ncofmx, integer i__, nd; doublereal fu; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -6973,8 +6635,7 @@ int AdvApp2Var_MathBase::mmmpocur_(integer* ncofmx, /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --tabval; @@ -7030,8 +6691,7 @@ int mmpojac_(doublereal* tparam, integer ii, jj, kk1, kk2; doublereal aux1, aux2; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -7075,11 +6735,9 @@ int mmpojac_(doublereal* tparam, /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ /* static variables */ @@ -7088,19 +6746,15 @@ int mmpojac_(doublereal* tparam, /* Function Body */ - /* *********************************************************************** - */ - /* INITIALISATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATIONS */ + /* ***********************************************************************/ *iercod = 0; - /* *********************************************************************** - */ - /* Processing */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* Processing */ + /* ***********************************************************************/ if (*nderiv > 3) { @@ -7210,21 +6864,17 @@ int mmpojac_(doublereal* tparam, goto L9999; - /* *********************************************************************** - */ - /* PROCESSING OF ERRORS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING OF ERRORS */ + /* ***********************************************************************/ L9101: *iercod = 1; goto L9999; - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -7252,8 +6902,7 @@ int AdvApp2Var_MathBase::mmposui_(integer* dimmat, integer imin, jmin, i__, j, k; logical trouve; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -7292,17 +6941,13 @@ int AdvApp2Var_MathBase::mmposui_(integer* dimmat, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALIZATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALIZATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ aposit -= 3; @@ -7316,11 +6961,9 @@ int AdvApp2Var_MathBase::mmposui_(integer* dimmat, } *iercod = 0; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ i__1 = *dimmat; for (i__ = 1; i__ <= i__1; ++i__) @@ -7354,19 +6997,15 @@ int AdvApp2Var_MathBase::mmposui_(integer* dimmat, } } - goto L9999; - - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ - - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + goto L9999; + + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ + + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -7418,8 +7057,7 @@ int AdvApp2Var_MathBase::mmresol_(integer* hdimen, integer ier; integer aux; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -7436,8 +7074,7 @@ int AdvApp2Var_MathBase::mmresol_(integer* hdimen, /* -------------------- */ /* HDIMEN: NUMBER OF LINE (OR COLUMN) OF THE HESSIAN MATRIX */ /* GDIMEN: NUMBER OF LINE OF THE MATRIX OF CONSTRAINTS */ - /* HNSTOC: NUMBERS OF TERMS IN THE PROFILE OF HESSIAN MATRIX - */ + /* HNSTOC: NUMBERS OF TERMS IN THE PROFILE OF HESSIAN MATRIX */ /* GNSTOC: NUMBERS OF TERMS IN THE PROFILE OF THE MATRIX OF CONSTRAINTS */ /* MNSTOC: NUMBERS 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 */ @@ -7481,17 +7118,13 @@ int AdvApp2Var_MathBase::mmresol_(integer* hdimen, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALISATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ --vecsol; @@ -7520,11 +7153,9 @@ int AdvApp2Var_MathBase::mmresol_(integer* hdimen, iofmam = 0; iofmch = 0; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ /* Dynamic allocation */ AdvApp2Var_SysBase anAdvApp2Var_SysBase; @@ -7712,11 +7343,9 @@ int AdvApp2Var_MathBase::mmresol_(integer* hdimen, goto L9999; - /* *********************************************************************** - */ - /* PROCESSING OF ERRORS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING OF ERRORS */ + /* ***********************************************************************/ L9101: *iercod = 1; @@ -7726,11 +7355,9 @@ L9102: AdvApp2Var_SysBase::mswrdbg_("MMRESOL : PROBLEM WITH DIMMAT", 30L); *iercod = 2; - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -7799,8 +7426,7 @@ int mmrslss_(integer*, // mxcoef, doublereal somme; integer pointe, ptcour; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FuNCTION : */ /* ---------- T */ @@ -7843,17 +7469,13 @@ int mmrslss_(integer*, // mxcoef, /* LEVEL OF DEBUG = 4 */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALISATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ --posuiv; @@ -7870,11 +7492,9 @@ int mmrslss_(integer*, // mxcoef, } *iercod = 0; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ /* ----- Solution of Sw = b */ @@ -7913,17 +7533,13 @@ int mmrslss_(integer*, // mxcoef, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* RETURN PROGRAM CALLING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN PROGRAM CALLING */ + /* ***********************************************************************/ L9999: @@ -7955,8 +7571,7 @@ int mmrslw_(integer* normax, integer ii, jj, kk; doublereal akj; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -8024,8 +7639,7 @@ int mmrslw_(integer* normax, /* To use this routine, it is recommended to use one of */ /* interfaces : MMRSLWI or MMMRSLWD. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -8044,18 +7658,15 @@ int mmrslw_(integer* normax, /* Function Body */ *iercod = 0; - /* ********************************************************************* - */ - /* Triangulation of matrix ABMATR. */ - /* ********************************************************************* - */ + /* ***********************************************************************/ + /* Triangulation of matrix ABMATR. */ + /* ***********************************************************************/ i__1 = *nordre; for (kk = 1; kk <= i__1; ++kk) { - /* ---------- Find max pivot in column KK. ------------ - --- */ + /* ---------- Find max pivot in column KK. --------------- */ pivot = *epspiv; kpiv = 0; @@ -8075,8 +7686,7 @@ int mmrslw_(integer* normax, goto L9900; } - /* --------- Swapping of line KPIV with line KK. ------ - --- */ + /* --------- Swapping of line KPIV with line KK. --------- */ if (kpiv != kk) { @@ -8090,8 +7700,7 @@ int mmrslw_(integer* normax, } } - /* ---------- Removal and triangularization. ----------- - --- */ + /* ---------- Removal and triangularization. -------------- */ pivot = -abmatr[kk + kk * abmatr_dim1]; i__2 = *nordre; @@ -8110,16 +7719,13 @@ int mmrslw_(integer* normax, /* L1000: */ } - /* ********************************************************************* - */ - /* Solution of the system of triangular equations. */ - /* Matrix ABMATR(NORDRE+JJ,II), contains second members */ - /* of the system for 1<=j<=NDIMEN and 1<=i<=NORDRE. */ - /* ********************************************************************* - */ + /* ***********************************************************************/ + /* Solution of the system of triangular equations. */ + /* Matrix ABMATR(NORDRE+JJ,II), contains second members */ + /* of the system for 1<=j<=NDIMEN and 1<=i<=NORDRE. */ + /* ***********************************************************************/ - /* ---------------- Calculation of solutions by ascending. ----------------- - */ + /* ---------------- Calculation of solutions by ascending. ------------- */ for (kk = *nordre; kk >= 1; --kk) { @@ -8142,8 +7748,7 @@ int mmrslw_(integer* normax, goto L9999; /* ------If the absolute value of a pivot is smaller than -------- */ - /* ---------- EPSPIV: return the code of error. ------------ - */ + /* ---------- EPSPIV: return the code of error. ------------ */ L9900: *iercod = 1; @@ -8181,8 +7786,7 @@ int AdvApp2Var_MathBase::mmmrslwd_(integer* normax, /* IMPLICIT DOUBLE PRECISION (A-H,O-Z) */ /* IMPLICIT INTEGER (I-N) */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -8239,8 +7843,7 @@ int AdvApp2Var_MathBase::mmmrslwd_(integer* normax, /* is the index of columns (Compare with MMRSLWI which is faster). */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ @@ -8315,8 +7918,7 @@ int AdvApp2Var_MathBase::mmrtptt_(integer* ndglgd, doublereal* rtlegd) { integer ideb, nmod2, nsur2, ilong, ibb; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -8350,8 +7952,7 @@ int AdvApp2Var_MathBase::mmrtptt_(integer* ndglgd, doublereal* rtlegd) /* tested. The caller should make the test. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* Name of the routine */ /* Common MLGDRTL: */ @@ -8359,8 +7960,7 @@ int AdvApp2Var_MathBase::mmrtptt_(integer* ndglgd, doublereal* rtlegd) /* AND the weight of Gauss quadrature formulas on all */ /* POSITIVE roots of Legendre polynoms. */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -8370,12 +7970,11 @@ int AdvApp2Var_MathBase::mmrtptt_(integer* ndglgd, doublereal* rtlegd) /* ----------- */ /* BASE LEGENDRE */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ROOTAB : Table of all rotts of Legendre polynoms */ /* between [0,1]. They are ranked for degrees increasing from 2 to 61. */ @@ -8388,8 +7987,7 @@ int AdvApp2Var_MathBase::mmrtptt_(integer* ndglgd, doublereal* rtlegd) /* RTLTB1 : Table of Li(uk) where uk are roots of a */ /* Legendre polynom of UNEVEN degree. */ - /************************************************************************ - *****/ + /*************************************************************************/ /* Parameter adjustments */ --rtlegd; @@ -8411,8 +8009,7 @@ int AdvApp2Var_MathBase::mmrtptt_(integer* ndglgd, doublereal* rtlegd) ideb = nsur2 * (nsur2 - 1) / 2 + 1; AdvApp2Var_SysBase::mcrfill_(&ilong, &mlgdrtl_.rootab[ideb + nmod2 * 465 - 1], &rtlegd[1]); - /* ----------------------------- The end -------------------------------- - */ + /* ----------------------------- The end ------------------------------- */ L9999: if (ibb >= 3) @@ -8438,8 +8035,7 @@ int AdvApp2Var_MathBase::mmsrre2_(doublereal* tparam, /* Local variables */ integer ideb, ifin, imil, ibb; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* -------- */ @@ -8486,8 +8082,7 @@ int AdvApp2Var_MathBase::mmsrre2_(doublereal* tparam, /* One searches the interval containing TPARAM by */ /* dichotomy. Complexity of the algorithm : Log(n)/Log(2).(RBD). */ /* > */ - /* *********************************************************************** - */ + /* ************************************************************************/ /* Initialisations */ @@ -8523,8 +8118,7 @@ int AdvApp2Var_MathBase::mmsrre2_(doublereal* tparam, goto L9999; } - /* ----------------------- SEARCH OF THE INTERVAL -------------------- - */ + /* ----------------------- SEARCH OF THE INTERVAL -------------------- */ L1000: @@ -8551,8 +8145,7 @@ L1000: goto L1000; /* -------------- TEST IF TPARAM IS NOT A VALUE --------- */ - /* ------------------------OF TABLEV UP TO EPSIL ---------------------- - */ + /* ------------------------OF TABLEV UP TO EPSIL ---------------------- */ L2000: if ((d__1 = *tparam - tablev[ideb], advapp_abs(d__1)) < *epsil) @@ -8566,8 +8159,7 @@ L2000: goto L9999; } - /* --------------------------- THE END ---------------------------------- - */ + /* --------------------------- THE END --------------------------------- */ L9999: if (*iercod > 0) @@ -8602,8 +8194,7 @@ int mmtmave_(integer* nligne, doublereal somme; integer aux; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -8644,17 +8235,13 @@ int mmtmave_(integer* nligne, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALISATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ --vecin; @@ -8670,11 +8257,9 @@ int mmtmave_(integer* nligne, } *iercod = 0; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ i__1 = *ncolon; for (i__ = 1; i__ <= i__1; ++i__) @@ -8697,17 +8282,13 @@ int mmtmave_(integer* nligne, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -8742,8 +8323,7 @@ int mmtrpj0_(integer* ncofmx, doublereal bidon, error; integer nd; - /* *********************************************************************** - */ + /* ************************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -8776,11 +8356,9 @@ int mmtrpj0_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* ------- Minimum degree that can be attained : Stop at 1 (RBD) --------- - */ + /* ------- Minimum degree that can be attained : Stop at 1 (RBD) ------- */ /* Parameter adjustments */ --ycvmax; @@ -8790,8 +8368,7 @@ int mmtrpj0_(integer* ncofmx, /* Function Body */ *ncfnew = 1; - /* ------------------- Init for error calculation ----------------------- - */ + /* ------------------- Init for error calculation ---------------------- */ i__1 = *ndimen; for (i__ = 1; i__ <= i__1; ++i__) { @@ -8804,8 +8381,7 @@ int mmtrpj0_(integer* ncofmx, /* Cutting of coefficients. */ ncut = 2; - /* ------ Loop on the series of Legendre :NCOEFF --> 2 (RBD) ----------- - */ + /* ------ Loop on the series of Legendre :NCOEFF --> 2 (RBD) ----------- */ i__1 = ncut; for (i__ = *ncoeff; i__ >= i__1; --i__) { @@ -8833,8 +8409,7 @@ int mmtrpj0_(integer* ncofmx, /* L300: */ } - /* --------------------------------- End -------------------------------- - */ + /* --------------------------------- End ------------------------------- */ L9999: return 0; @@ -8895,8 +8470,7 @@ int mmtrpj2_(integer* ncofmx, integer ia, nd; doublereal bid, eps1; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -8917,8 +8491,7 @@ int mmtrpj2_(integer* ncofmx, /* OUTPUT ARGUMENTS : */ /* ------------------- */ - /* YCVMAX : Auxiliary table (error max on each dimension). - */ + /* YCVMAX : Auxiliary table (error max on each dimension). */ /* EPSTRC : Precision of the approximation. */ /* NCFNEW : Degree +1 of the resulting polynom. */ @@ -8931,8 +8504,7 @@ int mmtrpj2_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --ycvmax; @@ -8942,8 +8514,7 @@ int mmtrpj2_(integer* ncofmx, /* Function Body */ - /* Minimum degree that can be reached : Stop at IA (RBD). ------------- - */ + /* Minimum degree that can be reached : Stop at IA (RBD). ------------ */ ia = 2; *ncfnew = ia; /* Init for calculation of error. */ @@ -8959,8 +8530,7 @@ int mmtrpj2_(integer* ncofmx, /* Cutting of coefficients. */ ncut = ia + 1; - /* ------ Loop on the series of Jacobi :NCOEFF --> IA+1 (RBD) ---------- - */ + /* ------ Loop on the series of Jacobi :NCOEFF --> IA+1 (RBD) ---------- */ i__1 = ncut; for (i__ = *ncoeff; i__ >= i__1; --i__) { @@ -8987,8 +8557,7 @@ int mmtrpj2_(integer* ncofmx, /* L300: */ } - /* ------- Cutting of zero coeffs of interpolation (RBD) ------- - */ + /* ------- Cutting of zero coeffs of interpolation (RBD) ------- */ L400: if (*ncfnew == ia) @@ -9014,8 +8583,7 @@ L400: *ncfnew = 1; } - /* --------------------------------- End -------------------------------- - */ + /* --------------------------------- End ------------------------------- */ L9999: return 0; @@ -9074,13 +8642,12 @@ int mmtrpj4_(integer* ncofmx, integer ia, nd; doublereal bid, eps1; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ - /* Lowers the degree of a curve defined on (-1,1) in the direction of */ - /* Legendre with a given precision. */ + /* Lowers the degree of a curve defined on (-1,1) in the direction */ + /* of Legendre with a given precision. */ /* KEYWORDS : */ /* ----------- */ @@ -9110,8 +8677,7 @@ int mmtrpj4_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --ycvmax; @@ -9121,8 +8687,7 @@ int mmtrpj4_(integer* ncofmx, /* Function Body */ - /* Minimum degree that can be reached : Stop at IA (RBD). ------------- - */ + /* Minimum degree that can be reached : Stop at IA (RBD). ------------ */ ia = 4; *ncfnew = ia; /* Init for error calculation. */ @@ -9138,8 +8703,7 @@ int mmtrpj4_(integer* ncofmx, /* Cutting of coefficients. */ ncut = ia + 1; - /* ------ Loop on the series of Jacobi :NCOEFF --> IA+1 (RBD) ---------- - */ + /* ------ Loop on the series of Jacobi :NCOEFF --> IA+1 (RBD) ---------- */ i__1 = ncut; for (i__ = *ncoeff; i__ >= i__1; --i__) { @@ -9166,8 +8730,7 @@ int mmtrpj4_(integer* ncofmx, /* L300: */ } - /* ------- Cutting of zero coeffs of the pole of interpolation (RBD) ------- - */ + /* ------- Cutting of zero coeffs of the pole of interpolation (RBD) --- */ L400: if (*ncfnew == ia) @@ -9193,8 +8756,7 @@ L400: *ncfnew = 1; } - /* --------------------------------- End -------------------------------- - */ + /* --------------------------------- End ------------------------------- */ L9999: return 0; @@ -9253,13 +8815,12 @@ int mmtrpj6_(integer* ncofmx, integer ia, nd; doublereal bid, eps1; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ - /* Lowers the degree of a curve defined on (-1,1) in the direction of */ - /* Legendre to a given precision. */ + /* Lowers the degree of a curve defined on (-1,1) in the direction */ + /* of Legendre to a given precision. */ /* KEYWORDS : */ /* ----------- */ @@ -9288,8 +8849,7 @@ int mmtrpj6_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --ycvmax; @@ -9299,8 +8859,7 @@ int mmtrpj6_(integer* ncofmx, /* Function Body */ - /* Minimum degree that can be reached : Stop at IA (RBD). ------------- - */ + /* Minimum degree that can be reached : Stop at IA (RBD). ------------ */ ia = 6; *ncfnew = ia; /* Init for error calculation. */ @@ -9316,8 +8875,7 @@ int mmtrpj6_(integer* ncofmx, /* Cutting of coefficients. */ ncut = ia + 1; - /* ------ Loop on the series of Jacobi :NCOEFF --> IA+1 (RBD) ---------- - */ + /* ------ Loop on the series of Jacobi :NCOEFF --> IA+1 (RBD) ---------- */ i__1 = ncut; for (i__ = *ncoeff; i__ >= i__1; --i__) { @@ -9344,8 +8902,7 @@ int mmtrpj6_(integer* ncofmx, /* L300: */ } - /* ------- Cutting of zero coeff. of the pole of interpolation (RBD) ------- - */ + /* ------- Cutting of zero coeff. of the pole of interpolation (RBD) --- */ L400: if (*ncfnew == ia) @@ -9371,8 +8928,7 @@ L400: *ncfnew = 1; } - /* --------------------------------- End -------------------------------- - */ + /* --------------------------------- End ------------------------------- */ L9999: return 0; @@ -9396,13 +8952,12 @@ int AdvApp2Var_MathBase::mmtrpjj_(integer* ncofmx, /* Local variables */ integer ia; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ - /* Lower the degree of a curve defined on (-1,1) in the direction of */ - /* Legendre with a given precision. */ + /* Lower the degree of a curve defined on (-1,1) in the direction */ + /* of Legendre with a given precision. */ /* KEYWORDS : */ /* ----------- */ @@ -9431,8 +8986,7 @@ int AdvApp2Var_MathBase::mmtrpjj_(integer* ncofmx, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --ycvmax; @@ -9460,8 +9014,7 @@ int AdvApp2Var_MathBase::mmtrpjj_(integer* ncofmx, mmtrpj6_(ncofmx, ndimen, ncoeff, epsi3d, &crvlgd[crvlgd_offset], &ycvmax[1], errmax, ncfnew); } - /* ------------------------ End ----------------------------------------- - */ + /* ------------------------ End ----------------------------------------- */ return 0; } /* mmtrpjj_ */ @@ -9488,8 +9041,7 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, doublereal bid; doublereal eps0; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -9506,8 +9058,8 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, /* NDIMEN : DIMENSION OF THE SPACE */ /* VECTOR : VECTOR TO BE NORMED */ /* EPSILN : EPSILON BELOW WHICH IT IS CONSIDERED THAT THE */ - /* NORM OF THE VECTOR IS NULL. IF EPSILN<=0, A DEFAULT VALUE */ - /* IS IMPOSED (10.D-17 ON VAX). */ + /* NORM OF THE VECTOR IS NULL. IF EPSILN<=0, A DEFAULT */ + /* VALUE IS IMPOSED (10.D-17 ON VAX). */ /* OUTPUT ARGUMENTS : */ /* ------------------- */ @@ -9530,8 +9082,7 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, /* vector except for one cost 0 with machine precision. In */ /* this case the quasi-null components are set to 0.D0. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --vecnrm; @@ -9540,8 +9091,7 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, /* Function Body */ *iercod = 0; - /* -------- Precision by default : zero machine 10.D-17 on Vax ------ - */ + /* -------- Precision by default : zero machine 10.D-17 on Vax --------- */ AdvApp2Var_SysBase::maovsr8_(&nchif); if (*epsiln <= 0.) @@ -9554,8 +9104,7 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, eps0 = *epsiln; } - /* ------------------------- Calculation of the norm -------------------- - */ + /* ------------------------- Calculation of the norm ------------------- */ vnorm = AdvApp2Var_MathBase::mzsnorm_(ndimen, &vector[1]); if (vnorm <= eps0) @@ -9565,8 +9114,7 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, goto L9999; } - /* ---------------------- Calculation of the vector norm --------------- - */ + /* ---------------------- Calculation of the vector norm -------------- */ izero = 0; i__1 = (-nchif - 1) / 2; @@ -9586,10 +9134,8 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, /* L20: */ } - /* ------ Case when all coordinates except for one are almost null ---- - */ - /* ------------- then one of coordinates costs 1.D0 or -1.D0 -------- - */ + /* ------ Case when all coordinates except for one are almost null ----- */ + /* ------------- then one of coordinates costs 1.D0 or -1.D0 ----------- */ if (izero == *ndimen - 1) { @@ -9610,8 +9156,7 @@ int AdvApp2Var_MathBase::mmunivt_(integer* ndimen, } } - /* -------------------------------- The end ----------------------------- - */ + /* -------------------------------- The end ---------------------------- */ L9999: return 0; @@ -9627,8 +9172,7 @@ int AdvApp2Var_MathBase::mmveps3_(doublereal* eps03) integer ibb; - /************************************************************************ - *******/ + /*************************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -9657,11 +9201,9 @@ int AdvApp2Var_MathBase::mmveps3_(doublereal* eps03) /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -9690,8 +9232,7 @@ int AdvApp2Var_MathBase::mmveps3_(doublereal* eps03) /* MITERR ... NITERR */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* NITERM : MAX NB OF ITERATIONS */ /* NITERR : NB OF RAPID ITERATIONS */ @@ -9700,8 +9241,7 @@ int AdvApp2Var_MathBase::mmveps3_(doublereal* eps03) /* EPS3 : TOLERANCE TO AVOID DIVISION BY 0.. */ /* EPS4 : TOLERANCE ANGULAR */ - /* *********************************************************************** - */ + /* ***********************************************************************/ ibb = AdvApp2Var_SysBase::mnfndeb_(); if (ibb >= 5) @@ -9733,8 +9273,7 @@ int AdvApp2Var_MathBase::mmvncol_(integer* ndimen, doublereal valaux; integer aux; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -9763,17 +9302,13 @@ int AdvApp2Var_MathBase::mmvncol_(integer* ndimen, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALISATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALISATIONS */ + /* ***********************************************************************/ /* Parameter adjustments */ --vecout; @@ -9787,11 +9322,9 @@ int AdvApp2Var_MathBase::mmvncol_(integer* ndimen, } *iercod = 0; - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ if (*ndimen <= 1 || *ndimen > 3) { @@ -9866,21 +9399,17 @@ int AdvApp2Var_MathBase::mmvncol_(integer* ndimen, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ L9101: *iercod = 1; goto L9999; - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ L9999: @@ -9903,8 +9432,7 @@ void AdvApp2Var_MathBase::mmwprcs_(doublereal* epsil1, { - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -9937,26 +9465,19 @@ void AdvApp2Var_MathBase::mmwprcs_(doublereal* epsil1, /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* INITIALIZATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INITIALIZATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -9985,8 +9506,7 @@ void AdvApp2Var_MathBase::mmwprcs_(doublereal* epsil1, /* MITERR ... NITERR */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* NITERM : MAX NB OF ITERATIONS */ /* NITERR : NB OF RAPID ITERATIONS */ @@ -9995,8 +9515,7 @@ void AdvApp2Var_MathBase::mmwprcs_(doublereal* epsil1, /* EPS3 : TOLERANCE TO AVOID DIVISION BY 0.. */ /* EPS4 : TOLERANCE ANGULAR */ - /* *********************************************************************** - */ + /* ***********************************************************************/ mmprcsn_.eps1 = *epsil1; mmprcsn_.eps2 = *epsil2; mmprcsn_.eps3 = *epsil3; @@ -10033,13 +9552,12 @@ doublereal AdvApp2Var_MathBase::pow__di(doublereal* x, integer* n) return result; } -/* ********************************************************************** - */ +/* *************************************************************************/ /* FUNCTION : */ /* ---------- */ -/* Calculate integer function power not obligatory in the most efficient way ; - */ +/* Calculate integer function power not obligatory in the most */ +/* efficient way */ /* KEYWORDS : */ /* ----------- */ @@ -10094,15 +9612,14 @@ integer pow__ii(integer* x, integer* n) return result; } -/* ********************************************************************** - */ -/* ********************************************************************** - */ +/* *************************************************************************/ + +/* *************************************************************************/ /* FUNCTION : */ /* ---------- */ -/* Calculate integer function power not obligatory in the most efficient way ; - */ +/* Calculate integer function power not obligatory in the most */ +/* efficient way */ /* KEYWORDS : */ /* ----------- */ @@ -10142,8 +9659,7 @@ doublereal AdvApp2Var_MathBase::msc_(integer* ndimen, doublereal* vecte1, double integer i__; doublereal x; - /************************************************************************ - *******/ + /*************************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -10172,8 +9688,7 @@ doublereal AdvApp2Var_MathBase::msc_(integer* ndimen, doublereal* vecte1, double /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* PRODUIT MSCALAIRE */ /* Parameter adjustments */ @@ -10191,8 +9706,7 @@ doublereal AdvApp2Var_MathBase::msc_(integer* ndimen, doublereal* vecte1, double } ret_val = x; - /* ----------------------------------- THE END -------------------------- - */ + /* ----------------------------------- THE END ------------------------- */ return ret_val; } /* msc_ */ @@ -10210,8 +9724,7 @@ int mvcvin2_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i doublereal bid; doublereal cij1, cij2; - /************************************************************************ - *******/ + /*************************************************************************/ /* FONCTION : */ /* ---------- */ @@ -10248,11 +9761,9 @@ int mvcvin2_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i /* NDGCNP+1 = 61. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -10262,7 +9773,7 @@ int mvcvin2_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i /* ----------- */ /* Coeff of binome from 0 to 60. read only . init par block data */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* The coefficients of the binome form a triangular matrix. */ /* This matrix is completed in table CNP by transposition. */ @@ -10272,11 +9783,9 @@ int mvcvin2_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i /* created by program MQINICNP.FOR (see the team (AC) ). */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ crvnew -= 3; @@ -10355,8 +9864,7 @@ int mvcvinv_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i // extern /* Subroutine */ int maermsg_(); doublereal cij1, cij2, cij3; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -10393,11 +9901,9 @@ int mvcvinv_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i /* THE NUMBER OF COEFF OF THE CURVE IS LIMITED TO NDGCNP+1 = 61 */ /* BECAUSE OF USE OF COMMON MCCNP. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -10407,7 +9913,7 @@ int mvcvinv_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i /* ----------- */ /* Binomial Coeff from 0 to 60. read only . init par block data */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* The binomial coefficients form a triangular matrix. */ /* This matrix is completed in table CNP by its transposition. */ @@ -10416,11 +9922,9 @@ int mvcvinv_(integer* ncoeff, doublereal* crvold, doublereal* crvnew, integer* i /* Initialisation is done by block-data MMLLL09.RES, */ /* created by program MQINICNP.FOR (see the team (AC) ). */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ crvnew -= 4; @@ -10509,8 +10013,7 @@ int mvgaus0_(integer* kindic, NCollection_Array1 tamp(tampc[0], 1, 40); integer ndegl = 0, kg = 0, ii = 0; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* -------- */ @@ -10566,11 +10069,10 @@ int mvgaus0_(integer* kindic, /* See detailed explications on the listing */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ /* ------------------------------------ */ - /* ****** Test validity of KINDIC ** */ + /* ****** Test validity of KINDIC ***** */ /* ------------------------------------ */ /* Parameter adjustments */ @@ -10588,12 +10090,9 @@ int mvgaus0_(integer* kindic, *nbrval = kg << 1; ndegl = *nbrval << 1; - /* ---------------------------------------------------------------------- - */ - /* ****** Load NBRVAL positive roots depending on the degree ** - */ - /* ---------------------------------------------------------------------- - */ + /* --------------------------------------------------------------------- */ + /* ****** Load NBRVAL positive roots depending on the degree *********** */ + /* --------------------------------------------------------------------- */ /* ATTENTION : Sign minus (-) in the loop is intentional. */ mmextrl_(&ndegl, tamp); @@ -10605,7 +10104,7 @@ int mvgaus0_(integer* kindic, } /* ------------------------------------------------------------------- */ - /* ****** Loading of NBRVAL Gauss weight depending on the degree ** */ + /* ****** Loading of NBRVAL Gauss weight depending on the degree ***** */ /* ------------------------------------------------------------------- */ mmexthi_(&ndegl, tamp); @@ -10617,7 +10116,7 @@ int mvgaus0_(integer* kindic, } /* ------------------------------- */ - /* ****** End of sub-program ** */ + /* ****** End of sub-program ***** */ /* ------------------------------- */ return 0; @@ -10634,8 +10133,7 @@ int mvpscr2_(integer* ncoeff, doublereal* curve2, doublereal* tparam, doublereal integer ndeg, kk; doublereal xxx, yyy; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -10667,11 +10165,9 @@ int mvpscr2_(integer* ncoeff, doublereal* curve2, doublereal* tparam, doublereal /* MSCHEMA OF HORNER. */ /* > */ - /* ********************************************************************** - */ + /* ***********************************************************************/ - /* -------- INITIALIZATIONS AND PROCESSING OF PARTICULAR CASES ---------- - */ + /* -------- INITIALIZATIONS AND PROCESSING OF PARTICULAR CASES --------- */ /* ---> Cas when NCOEFF > 1 (case STANDARD). */ /* Parameter adjustments */ @@ -10697,8 +10193,7 @@ int mvpscr2_(integer* ncoeff, doublereal* curve2, doublereal* tparam, doublereal goto L9999; } - /* -------------------- MSCHEMA OF HORNER (PARTICULAR CASE) -------------- - */ + /* -------------------- MSCHEMA OF HORNER (PARTICULAR CASE) ------------ */ L1000: @@ -10722,8 +10217,7 @@ L1000: goto L9999; } - /* ---------------------------- MSCHEMA OF HORNER ------------------------ - */ + /* ---------------------------- MSCHEMA OF HORNER ---------------------- */ /* ---> TPARAM is different from 1.D0 and 0.D0. */ ndeg = *ncoeff - 1; @@ -10737,15 +10231,13 @@ L1000: } goto L5000; - /* ------------------------ RECOVER THE CALCULATED POINT --------------- - */ + /* ------------------------ RECOVER THE CALCULATED POINT --------------- */ L5000: pntcrb[1] = xxx; pntcrb[2] = yyy; - /* ------------------------------ THE END ------------------------------- - */ + /* ------------------------------ THE END ------------------------------ */ L9999: return 0; @@ -10763,8 +10255,7 @@ int mvpscr3_(integer* ncoeff, doublereal* curve3, doublereal* tparam, doublereal integer ndeg, kk; doublereal xxx, yyy, zzz; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -10796,14 +10287,11 @@ int mvpscr3_(integer* ncoeff, doublereal* curve3, doublereal* tparam, doublereal /* ----------------------------------- */ /* MSCHEMA OF HORNER. */ /* > */ - /* ********************************************************************** - */ - /* DECLARATIONS */ - /* ********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* -------- INITIALISATIONS AND PROCESSING OF PARTICULAR CASES ---------- - */ + /* -------- INITIALISATIONS AND PROCESSING OF PARTICULAR CASES --------- */ /* ---> Case when NCOEFF > 1 (cas STANDARD). */ /* Parameter adjustments */ @@ -10831,8 +10319,7 @@ int mvpscr3_(integer* ncoeff, doublereal* curve3, doublereal* tparam, doublereal goto L9999; } - /* -------------------- MSCHEMA OF HORNER (PARTICULAR CASE) -------------- - */ + /* -------------------- MSCHEMA OF HORNER (PARTICULAR CASE) ------------ */ L1000: @@ -10859,8 +10346,7 @@ L1000: goto L9999; } - /* ---------------------------- MSCHEMA OF HORNER ------------------------ - */ + /* ---------------------------- MSCHEMA OF HORNER ---------------------- */ /* ---> Here TPARAM is different from 1.D0 and 0.D0. */ ndeg = *ncoeff - 1; @@ -10876,16 +10362,14 @@ L1000: } goto L5000; - /* ------------------------ RETURN THE CALCULATED POINT ------------------ - */ + /* ------------------------ RETURN THE CALCULATED POINT ---------------- */ L5000: pntcrb[1] = xxx; pntcrb[2] = yyy; pntcrb[3] = zzz; - /* ------------------------------ THE END ------------------------------- - */ + /* ------------------------------ THE END ------------------------------ */ L9999: return 0; @@ -10904,8 +10388,7 @@ int AdvApp2Var_MathBase::mvsheld_(integer* n, integer* is, doublereal* dtab, int doublereal dsave; integer i3, i4, i5, incrp1; - /************************************************************************ - *******/ + /*************************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -10939,8 +10422,7 @@ int AdvApp2Var_MathBase::mvsheld_(integer* n, integer* is, doublereal* dtab, int /* CLASSIC SHELL METHOD : PARSING BY SERIES */ /* Declaration DTAB(IS, 1) corresponds to DTAB(IS, *) */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ dtab_dim1 = *is; @@ -11033,8 +10515,7 @@ doublereal AdvApp2Var_MathBase::mzsnorm_(integer* ndimen, doublereal* vecteu) doublereal xsom; integer i__, irmax; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -11073,17 +10554,13 @@ doublereal AdvApp2Var_MathBase::mzsnorm_(integer* ndimen, doublereal* vecteu) /* Z = !V(1)! * V 1 + (V(2)/V(1))**2 + ... */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ /* ___ Find the strongest absolute value term */ @@ -11138,11 +10615,9 @@ doublereal AdvApp2Var_MathBase::mzsnorm_(integer* ndimen, doublereal* vecteu) ret_val = (d__1 = vecteu[irmax], advapp_abs(d__1)) * sqrt(xsom); } - /* *********************************************************************** - */ - /* RETURN CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN CALLING PROGRAM */ + /* ***********************************************************************/ return ret_val; } /* mzsnorm_ */ diff --git a/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_SysBase.cxx b/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_SysBase.cxx index b9f908278f..563cb873d4 100644 --- a/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_SysBase.cxx +++ b/src/ModelingData/TKGeomBase/AdvApp2Var/AdvApp2Var_SysBase.cxx @@ -115,8 +115,8 @@ int AdvApp2Var_SysBase::macinit_(integer* imode, integer* ival) /* INPUT ARGUMENTS : */ /* -------------------- */ - /* IMODE : MODE of INITIALIZATION : - 0= DEFAULT, IMP IS 6, IBB 0 and LEC 5 */ + /* IMODE : MODE of INITIALIZATION : */ + /* 0= DEFAULT, IMP IS 6, IBB 0 and LEC 5 */ /* 1= FORCE VALUE OF IMP */ /* 2= FORCE VALUE OF IBB */ /* 3= FORCE VALUE OF LEC */ @@ -152,8 +152,7 @@ int AdvApp2Var_SysBase::macinit_(integer* imode, integer* ival) /* NON NULL ERROR CODE INFORM IT AS WELL. */ /* (BUT IT IS NOT TRUE FOR ALL ROUTINES OF T) */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ if (*imode == 0) { @@ -174,8 +173,7 @@ int AdvApp2Var_SysBase::macinit_(integer* imode, integer* ival) mblank__.lec = *ival; } - /* ----------------------------------------------------------------------* - */ + /* ***********************************************************************/ return 0; } /* macinit__ */ @@ -190,8 +188,7 @@ int AdvApp2Var_SysBase::macrai4_(integer* nbelem, { - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -228,11 +225,10 @@ int AdvApp2Var_SysBase::macrai4_(integer* nbelem, /* (Cf description in the heading of MCRRQST) */ /* Table ITABLO should be dimensioned to MAXELM by the caller. */ - /* If the request is lower or equal to MAXELM, IOFSET becomes = 0. */ + /* If the request is lower or equal to MAXELM, IOFSET becomes = 0. */ /* Otherwise the demand of allocation is valid and IOFSET > 0. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ integer iunit; @@ -261,8 +257,7 @@ int AdvApp2Var_SysBase::macrar8_(integer* nbelem, { integer c__8 = 8; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -303,8 +298,7 @@ int AdvApp2Var_SysBase::macrar8_(integer* nbelem, /* Otherwise the demand of allocation is valid and IOFSET > 0. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Function Body */ if (*nbelem > *maxelm) @@ -336,8 +330,7 @@ int AdvApp2Var_SysBase::macrchk_() /* Local variables */ integer i__, j; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -367,13 +360,11 @@ int AdvApp2Var_SysBase::macrchk_() /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* FONCTION : */ + /* FUNCTION : */ /* ---------- */ /* TABLE OF MANAGEMENT OF DYNAMIC MEMORY ALLOCATIONS */ @@ -381,12 +372,11 @@ int AdvApp2Var_SysBase::macrchk_() /* ----------- */ /* SYSTEM, MEMORY, ALLOCATION */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ICORE : TABLE OF EXISTING ALLOCATIONS, EACH HAVING : */ /* 1 : LEVEL OF PROTECTION (0=NOT PROTECTED, OTHER=PROTECTED) */ @@ -408,11 +398,9 @@ int AdvApp2Var_SysBase::macrchk_() /* LPROT : COMMUNICATION BETWEEN CRPROT AND MCRRQST, SET TO 0 BY MCRRQST */ /* FLAG : VALUE OF THE FLAG USED FOR EXCESSES */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ /* CONTROL OF FLAGS IN THE TABLE */ i__1 = mcrgene_.ncore; @@ -471,8 +459,7 @@ int AdvApp2Var_SysBase::macrdi4_(integer* nbelem, { - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FuNCTION : */ /* ---------- */ @@ -507,8 +494,7 @@ int AdvApp2Var_SysBase::macrdi4_(integer* nbelem, /* ----------------------------------- */ /* (Cf description in the heading of MCRDELT) */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ integer iunit; iunit = sizeof(integer); @@ -535,8 +521,7 @@ int AdvApp2Var_SysBase::macrdr8_(integer* nbelem, { integer c__8 = 8; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -573,8 +558,7 @@ int AdvApp2Var_SysBase::macrdr8_(integer* nbelem, /* (Cf description in the heading of MCRDELT) */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Function Body */ if (*iofset != 0) @@ -601,8 +585,7 @@ int macrerr_(intptr_t*, // iad, /* Fortran I/O blocks */ // cilist io___1 = { 0, 6, 0, "(X,A,I9,A,I3)", 0 }; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -630,8 +613,7 @@ int macrerr_(intptr_t*, // iad, /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* do__fio(&c__1, "*** ERREUR : Ecrasement de la memoire d'adresse ", 48L); do__fio(&c__1, (char *)&(*iad), (ftnlen)sizeof(long int)); @@ -660,8 +642,7 @@ int macrgfl_(intptr_t* iadfld, intptr_t* iadflf, integer* iphase, integer* iznut integer ibid, ienr; integer novfl = 0; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -696,11 +677,9 @@ int macrgfl_(intptr_t* iadfld, intptr_t* iadflf, integer* iphase, integer* iznut /* ------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -710,12 +689,11 @@ int macrgfl_(intptr_t* iadfld, intptr_t* iadflf, integer* iphase, integer* iznut /* ----------- */ /* SYSTEM, MEMORY, ALLOCATION */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ICORE : TABLE OF EXISTING ALLOCATIONS, EACH HAVING : */ /* 1 : LEVEL OF PROTECTION (0=NOT PROTECTED, OTHER=PROTECTED) */ /* (PROTECTED MEANS NOT DESTROYED BY CRRSET .) */ @@ -736,8 +714,7 @@ int macrgfl_(intptr_t* iadfld, intptr_t* iadflf, integer* iphase, integer* iznut /* LPROT : COMMUNICATION BETWEEN CRPROT AND MCRRQST, SET TO 0 BY MCRRQST */ /* FLAG : VALUE OF THE FLAG USED FOR EXCESSES */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ if (ifois == 0) { @@ -787,8 +764,7 @@ int macrmsg_(const char*, // crout, integer inum; char /*cfm[80],*/ cln[3]; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -800,8 +776,7 @@ int macrmsg_(const char*, // crout, /* INPUT ARGUMENTSEE : */ /* ------------------- */ - /* CROUT : NAME OF THE CALLING ROUTINE : MCRRQST, MCRDELT, MCRLIST - */ + /* CROUT : NAME OF THE CALLING ROUTINE : MCRRQST, MCRDELT, MCRLIST */ /* ,CRINCR OR CRPROT */ /* NUM : MESSAGE NUMBER */ /* IT : TABLE OF INTEGER DATA */ @@ -832,13 +807,11 @@ int macrmsg_(const char*, // crout, /* THE MESSAGE IS INITIALIZED AT 'MESSAGE MISSING', AND IT IS */ /* REPLACED BY THE REQUIRED MESSAGE IF EXISTS. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* LOCAL : */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ /* FIND MESSAGE DEPENDING ON THE LANGUAGE , THE ROUTINE */ /* AND THE MESSAGE NUMBER */ @@ -1018,9 +991,8 @@ int macrmsg_(const char*, // crout, } } */ - /* ----------------------------------------------------------------------* - */ - /* iMPLEMENTATION OF WRITE , WITH OR WITHOUT DATA : */ + /* --------------------------------------------------------------------- */ + /* IMPLEMENTATION OF WRITE , WITH OR WITHOUT DATA : */ if (inum == 0) { @@ -1086,8 +1058,7 @@ int magtlog_(const char* cnmlog, char cbid[255]; integer ibid, ier; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1126,7 +1097,7 @@ int magtlog_(const char* cnmlog, /* SPECIFIC SGI ROUTINE */ - /* IN ALL CASES WHEN IERCOD IS >0, NO RESULT IS RETURNED*/ + /* IN ALL CASES WHEN IERCOD IS >0, NO RESULT IS RETURNED */ /* NOTION OF "USER SYNTAX' AND "INTERNAL SYNTAX" */ /* --------------------------------------------------- */ @@ -1139,17 +1110,13 @@ int magtlog_(const char* cnmlog, /* (OPEN,INQUIRE,...ETC) */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ *long__ = 0; *iercod = 0; @@ -1178,11 +1145,9 @@ int magtlog_(const char* cnmlog, goto L9999; - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ L9500: *iercod = 5; @@ -1198,11 +1163,9 @@ L9700: *iercod = 7; //__s__copy(chaine, " ", chaine_len, 1L); - /* *********************************************************************** - */ - /* RETURN TO THE CALLING PROGRAM */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* RETURN TO THE CALLING PROGRAM */ + /* ***********************************************************************/ L9999: return 0; @@ -1239,8 +1202,7 @@ int AdvApp2Var_SysBase::maitbr8_(integer* itaill, doublereal* xtab, doublereal* doublereal buffx[63]; integer nbfois, noffst, nreste, nufois; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1278,16 +1240,14 @@ int AdvApp2Var_SysBase::maitbr8_(integer* itaill, doublereal* xtab, doublereal* /* ACCESS : FREE */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Parameter adjustments */ --xtab; /* Function Body */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ nbfois = *itaill / 63; noffst = nbfois * 63; @@ -1335,8 +1295,7 @@ int AdvApp2Var_SysBase::maitbr8_(integer* itaill, doublereal* xtab, doublereal* } } - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ return 0; } /* maitbr8_ */ @@ -1348,8 +1307,7 @@ int mamdlng_(char*, // cmdlng, { - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1384,14 +1342,12 @@ int mamdlng_(char*, // cmdlng, /* SO IT IS ENOUGH TO PROVIDE THAT THIS INIT IS */ /* CORRECTLY IMPLEMENTED IN THE RESPECTIVE PROGRAMS */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* INCLUDE MACETAT */ /* < */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1408,7 +1364,7 @@ int mamdlng_(char*, // cmdlng, /* ----------- */ /* APPLICATION, LANGUAGE */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* A) CHLANG*4 : LIST OF POSSIBLE VALUES OF THE LANGUAGE : */ @@ -1451,8 +1407,7 @@ int mamdlng_(char*, // cmdlng, /* ---------------------------------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* NUMBER OF APPLICATIONS TAKEN INTO ACCOUNT */ @@ -1475,8 +1430,7 @@ int maostrd_() { integer imod; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1513,8 +1467,7 @@ int maostrd_() /* - EXISTENCE OF FILE 'STRMINIT:STRMTRBK.DAT' */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ madbtbk_(&imod); if (imod == 1) { @@ -1540,8 +1493,7 @@ int maoverf_(integer* nbentr, doublereal* dtable) doublereal buff[63]; integer ioct, indic, nrest, icompt; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1592,7 +1544,7 @@ int maoverf_(integer* nbentr, doublereal* dtable) /* 2) Doc. designer : */ - /* The idea is to minimize the number of calls */ + /* 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 */ @@ -1603,7 +1555,7 @@ int maoverf_(integer* nbentr, doublereal* dtable) /* * If NBENTR */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* Inclusion of MAOVPAR.INC */ /* CONSTANTS */ /* INCLUDE MAOVPAR */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1645,7 +1595,7 @@ int maoverf_(integer* nbentr, doublereal* dtable) /* ----------- */ /* SYSTEM, LIMITS, VALUES, SPECIFIC */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* *** THEY CAN'T BE REMOVED DURING EXECUTION. */ @@ -1654,8 +1604,7 @@ int maoverf_(integer* nbentr, doublereal* dtable) /* THEY ARE DEFINED AS HEXADECIMAL VALUES */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* DECLARATION OF THE COMMON FOR NUMERIC TYPES */ @@ -1671,8 +1620,7 @@ int maoverf_(integer* nbentr, doublereal* dtable) /* Function Body */ - /* vJMB R8OVR IS NOT YET initialized, so impossible to use DATA - */ + /* vJMB R8OVR IS NOT YET initialized, so impossible to use DATA */ /* DATA BUFF / NLONGR * R8OVR / */ /* init of BUFF is done only once */ @@ -1763,8 +1711,7 @@ int matrsym_(const char* cnmsym, /* Local variables */ char chainx[255] = {}; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1802,8 +1749,7 @@ int matrsym_(const char* cnmsym, /* - IN CASE OF ERROR (IERCOD>0), CHAIN = ' ' AND LENGTH = 0 */ /* - IF THE INPUT VARIABLE CNMSYM IS EMPTY, THE ROUTINE RETURNS IERCOD=1*/ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* SGI...v */ @@ -1828,11 +1774,9 @@ int matrsym_(const char* cnmsym, //__s__copy(chaine, chainx, chaine_len, 255L); /* SGI...^ */ - /* *********************************************************************** - */ - /* ERROR PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* ERROR PROCESSING */ + /* ***********************************************************************/ /* L9999: */ return 0; @@ -1857,8 +1801,7 @@ int mcrcomm_(integer* kop, integer* noct, intptr_t* iadr, integer* ier) intptr_t ipre; integer i__, j, k; - /************************************************************************ - *******/ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -1900,12 +1843,10 @@ int mcrcomm_(integer* kop, integer* noct, intptr_t* iadr, integer* ier) /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ - /* ATTENTION .... ITAB ARE NTAB NOT SAVED BETWEEN 2 CALLS.. - */ + /* ATTENTION .... ITAB ARE NTAB NOT SAVED BETWEEN 2 CALLS.. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* JPF PARAMETER ( MAXNUM = 40 , MAXCOM = 500 * 1024 ) */ @@ -1917,8 +1858,7 @@ int mcrcomm_(integer* kop, integer* noct, intptr_t* iadr, integer* ier) /* PP COMMON / CRGEN2 / DTAB */ - /* ----------------------------------------------------------------------* - */ + /* ***********************************************************************/ *ier = 0; @@ -2043,8 +1983,7 @@ int AdvApp2Var_SysBase::mcrdelt_(integer* iunit, intptr_t iadfd, iadff, iaddr, loc; /* Les adrresses en long*/ integer kop; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2103,16 +2042,14 @@ int AdvApp2Var_SysBase::mcrdelt_(integer* iunit, /* valid only if the same sub-program uses and destroys the allocation. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* COMMON OF PARAMETERS */ /* COMMON OF STATISTICS */ /* INCLUDE MCRGENE */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2122,12 +2059,11 @@ int AdvApp2Var_SysBase::mcrdelt_(integer* iunit, /* ---------- */ /* SYSTEM, MEMORY, ALLOCATION */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ICORE : TABLE OF EXISTING ALLOCATIONS, EACH HAVING : */ /* 1 : LEVEL OF PROTECTION (0=NOT PROTECTED, OTHER=PROTECTED) */ /* (PROTECTED MEANS NOT DESTROYED BY CRRSET .) */ @@ -2148,8 +2084,7 @@ int AdvApp2Var_SysBase::mcrdelt_(integer* iunit, /* LPROT : COMMUNICATION BETWEEN CRPROT AND MCRRQST, SET TO 0 BY MCRRQST */ /* FLAG : VALUE OF THE FLAG USED FOR EXCESSES */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ /* 20-10-86 : BF ; INITIAL VERSION */ @@ -2248,8 +2183,7 @@ L1100: } goto L9900; - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ /* ERROR PROCESSING */ L9001: @@ -2306,7 +2240,7 @@ C C REFERENCES CALLED : C ------------------- C -C DEMSCRIPTION/NOTES/LIMITATIONS : +C DESCRIPTION/NOTES/LIMITATIONS : C ----------------------------------- C Routine portable UNIX (SGI, ULTRIX, BULL) C @@ -2345,7 +2279,7 @@ int AdvApp2Var_SysBase::mcrfill_(integer* size, void* tin, void* tout) /* */ /* FUNCTION : */ /* ---------- */ -/* Routines for management of the dynamic memory. */ +/* Routines for management of the dynamic memory. */ /* */ /* Routine mcrfree */ /* -------------- */ @@ -2378,7 +2312,7 @@ int mcrfree_(integer*, // ibyte, /*........................................................................*/ /* */ -/* FONCTION : */ +/* FUNCTION : */ /* ---------- */ /* Routines for management of the dynamic memory. */ /* */ @@ -2399,7 +2333,6 @@ int mcrfree_(integer*, // ibyte, /* = 1 ==> Allocation impossible */ /* = -1 ==> Offset > 2**31 - 1 */ /* */ - /* */ /*........................................................................*/ @@ -2432,8 +2365,7 @@ int AdvApp2Var_SysBase::mcrlist_(integer* ier) const integer ifmt, i__, nufmt, ntotal; char subrou[7]; - /************************************************************************ - *******/ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2475,12 +2407,9 @@ int AdvApp2Var_SysBase::mcrlist_(integer* ier) const /* . NONE */ /* > */ - /* *********************************************************************** - */ - - /* INCLUDE MCRGENE */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* INCLUDE MCRGENE */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2490,12 +2419,11 @@ int AdvApp2Var_SysBase::mcrlist_(integer* ier) const /* ----------- */ /* SYSTEM, MEMORY, ALLOCATION */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ICORE : TABLE OF EXISTING ALLOCATIONS, EACH HAVING : */ /* 1 : LEVEL OF PROTECTION (0=NOT PROTECTED, OTHER=PROTECTED) */ @@ -2517,11 +2445,9 @@ int AdvApp2Var_SysBase::mcrlist_(integer* ier) const /* LPROT : COMMUNICATION BETWEEN CRPROT AND MCRRQST, SET TO 0 BY MCRRQST */ /* FLAG : VALUE OF THE FLAG USED FOR EXCESSES */ - /* ----------------------------------------------------------------------* - */ + /* ***********************************************************************/ - /* ----------------------------------------------------------------------* - */ + /* ***********************************************************************/ *ier = 0; //__s__copy(subrou, "MCRLIST", 7L, 7L); @@ -2571,8 +2497,7 @@ int AdvApp2Var_SysBase::mcrrqst_(integer* iunit, intptr_t iadfd, iadff, iaddr, lofset, loc; integer izu; - /* ********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2637,8 +2562,7 @@ int AdvApp2Var_SysBase::mcrrqst_(integer* iunit, /* IERCOD=3 : REFUSED DYNAMIC ALLOCATION (MORE PLACE IN MEMORY) */ /* AND THE FOLLOWING MESSAGE APPEARS IN THE CONSOLE ALPHA : */ - /* "The system refuses dynamic allocation of memory of N octets" - */ + /* "The system refuses dynamic allocation of memory of N octets" */ /* with completev display of all allocations carried out till now */ /* 2) DESIGNER */ @@ -2652,15 +2576,13 @@ int AdvApp2Var_SysBase::mcrrqst_(integer* iunit, /* SO THAT THE ALLOCATION WAS AN INTEGER NUMBER OF QUADWORDS. */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* COMMON OF PARAMETRES */ /* COMMON OF INFORMATION ON STATISTICS */ /* INCLUDE MCRGENE */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ /* TABLE FOR MANAGEMENT OF DYNAMIC MEMORY ALLOCATIONS */ @@ -2669,12 +2591,11 @@ int AdvApp2Var_SysBase::mcrrqst_(integer* iunit, /* ----------- */ /* SYSTEM, MEMORY, ALLOCATION */ - /* DEMSCRIPTION/NOTES/LIMITATIONS : */ + /* DESCRIPTION/NOTES/LIMITATIONS : */ /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ICORE : TABLE OF EXISTING ALLOCATIONS, EACH HAVING : */ /* 1 : LEVEL OF PROTECTION (0=NOT PROTECTED, OTHER=PROTECTED) */ @@ -2696,8 +2617,7 @@ int AdvApp2Var_SysBase::mcrrqst_(integer* iunit, /* LPROT : COMMUNICATION BETWEEN CRPROT AND MCRRQST, SET TO 0 BY MCRRQST */ /* FLAG : VALUE OF THE FLAG USED FOR EXCESSES */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ /* 20-10-86 : BF ; INITIAL VERSION */ /* NRQST : NUMBER OF ALLOCATIONS */ @@ -2705,8 +2625,7 @@ int AdvApp2Var_SysBase::mcrrqst_(integer* iunit, /* NBYTE : TOTAL NUMBER OF OCTETS OF ALLOCATIONS */ /* MBYTE : MAX NUMBER OF OCTETS */ - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ /* Function Body */ *iercod = 0; @@ -2876,8 +2795,7 @@ L9003: mcrlist_(&ier); goto L9900; - /* ----------------------------------------------------------------------* - */ + /* --------------------------------------------------------------------- */ L9900: mcrgene_.lprot = 0; @@ -2930,7 +2848,7 @@ C C REFERENCES CALLED : C --------------------- C -C DEMSCRIPTION/NOTES/LIMITATIONS : +C DESCRIPTION/NOTES/LIMITATIONS : C ----------------------------------- C C Portable VAX-SGI @@ -2961,8 +2879,7 @@ int AdvApp2Var_SysBase::msifill_(integer* nbintg, integer* ivecin, integer* ivec { integer nocte; - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -2991,8 +2908,7 @@ int AdvApp2Var_SysBase::msifill_(integer* nbintg, integer* ivecin, integer* ivec /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ___ NOCTE : Number of octets to transfer */ @@ -3012,10 +2928,9 @@ int AdvApp2Var_SysBase::msrfill_(integer* nbreel, doublereal* vecent, doublereal { integer nocte; - /* *********************************************************************** - */ + /* ***********************************************************************/ - /* FONCTION : */ + /* FUNCTION : */ /* ---------- */ /* Transfer real from one zone to another */ @@ -3042,8 +2957,7 @@ int AdvApp2Var_SysBase::msrfill_(integer* nbreel, doublereal* vecent, doublereal /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ + /* ***********************************************************************/ /* ___ NOCTE : Nb of octets to transfer */ @@ -3064,8 +2978,7 @@ int AdvApp2Var_SysBase::mswrdbg_(const char*, // ctexte, { - /* *********************************************************************** - */ + /* ***********************************************************************/ /* FUNCTION : */ /* ---------- */ @@ -3093,17 +3006,13 @@ int AdvApp2Var_SysBase::mswrdbg_(const char*, // ctexte, /* ----------------------------------- */ /* > */ - /* *********************************************************************** - */ - /* DECLARATIONS */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* DECLARATIONS */ + /* ***********************************************************************/ - /* *********************************************************************** - */ - /* PROCESSING */ - /* *********************************************************************** - */ + /* ***********************************************************************/ + /* PROCESSING */ + /* ***********************************************************************/ if (AdvApp2Var_SysBase::mnfndeb_() >= 1) { @@ -3163,7 +3072,7 @@ C C REFERENCES CALLED : C ----------------------- C -C DEMSCRIPTION/NOTES/LIMITATIONS : +C DESCRIPTION/NOTES/LIMITATIONS : C ----------------------------------- C C diff --git a/src/ModelingData/TKGeomBase/Approx/Approx_Curve2d.hxx b/src/ModelingData/TKGeomBase/Approx/Approx_Curve2d.hxx index 7fcef70ae0..23dbee7a0a 100644 --- a/src/ModelingData/TKGeomBase/Approx/Approx_Curve2d.hxx +++ b/src/ModelingData/TKGeomBase/Approx/Approx_Curve2d.hxx @@ -21,7 +21,7 @@ #include #include -//! Makes an approximation for HCurve2d from Adaptor3d +//! Makes an approximation for HCurve2d from Adaptor3d class Approx_Curve2d { public: diff --git a/src/ModelingData/TKGeomBase/Approx/Approx_Curve3d.hxx b/src/ModelingData/TKGeomBase/Approx/Approx_Curve3d.hxx index 453f379b7e..7c115f424a 100644 --- a/src/ModelingData/TKGeomBase/Approx/Approx_Curve3d.hxx +++ b/src/ModelingData/TKGeomBase/Approx/Approx_Curve3d.hxx @@ -26,7 +26,7 @@ class Approx_Curve3d public: DEFINE_STANDARD_ALLOC - //! Approximation of a curve with respect of the + //! Approximation of a curve with respect of the //! required tolerance Tol3D. Standard_EXPORT Approx_Curve3d(const Handle(Adaptor3d_Curve)& Curve, const Standard_Real Tol3d, @@ -36,20 +36,20 @@ public: Standard_EXPORT Handle(Geom_BSplineCurve) Curve() const; - //! returns Standard_True if the approximation has - //! been done within required tolerance + //! returns Standard_True if the approximation has + //! been done within required tolerance Standard_EXPORT Standard_Boolean IsDone() const; - //! returns Standard_True if the approximation did come out - //! with a result that is not NECESSARELY within the required + //! returns Standard_True if the approximation did come out + //! with a result that is not NECESSARELY within the required //! tolerance Standard_EXPORT Standard_Boolean HasResult() const; - //! returns the Maximum Error (>0 when an approximation - //! has been done, 0 if no approximation) + //! returns the Maximum Error (>0 when an approximation + //! has been done, 0 if no approximation) Standard_EXPORT Standard_Real MaxError() const; - //! Print on the stream o information about the object + //! Print on the stream 'o' information about the object Standard_EXPORT void Dump(Standard_OStream& o) const; private: diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Assembly.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Assembly.hxx index 44461c12b4..2307dfe2eb 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Assembly.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Assembly.hxx @@ -40,17 +40,17 @@ public: Standard_EXPORT FEmTool_Assembly(const TColStd_Array2OfInteger& Dependence, const Handle(FEmTool_HAssemblyTable)& Table); - //! Nullify all Matrix 's Coefficient + //! Nullify all Matrix's Coefficient Standard_EXPORT void NullifyMatrix(); //! Add an elementary Matrix in the assembly Matrix - //! if Dependence(Dimension1,Dimension2) is False + //! if Dependence(Dimension1,Dimension2) is False Standard_EXPORT void AddMatrix(const Standard_Integer Element, const Standard_Integer Dimension1, const Standard_Integer Dimension2, const math_Matrix& Mat); - //! Nullify all Coordinate of assembly Vector (second member) + //! Nullify all Coordinate of assembly Vector (second member) Standard_EXPORT void NullifyVector(); //! Add an elementary Vector in the assembly Vector (second member) diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_AssemblyTable.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_AssemblyTable.hxx index e2cef1a711..3dfb5cad45 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_AssemblyTable.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_AssemblyTable.hxx @@ -20,8 +20,8 @@ #include #include -//! To define the table [Freedom's degree] [Dimension,Element] -//! which gives Index of Freedom's degree in the assembly problem. +//! To define the table [Freedom's degree] [Dimension,Element] +//! which gives Index of Freedom's degree in the assembly problem. typedef NCollection_Array2 FEmTool_AssemblyTable; diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Curve.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Curve.hxx index c7b8c87151..ea1e3369ce 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Curve.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_Curve.hxx @@ -60,7 +60,7 @@ public: Standard_EXPORT void GetElement(const Standard_Integer IndexOfElement, TColStd_Array2OfReal& Coeffs); - //! returns coefficients of all elements in canonical base. + //! returns coefficients of all elements in canonical base. Standard_EXPORT void GetPolynom(TColStd_Array1OfReal& Coeffs); Standard_EXPORT Standard_Integer NbElements() const; diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementaryCriterion.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementaryCriterion.hxx index 2a65406c30..3036648277 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementaryCriterion.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementaryCriterion.hxx @@ -38,7 +38,7 @@ public: //! Empty constructor Standard_EXPORT FEmTool_ElementaryCriterion(); - //! Set the coefficient of the Element (the Curve) + //! Set the coefficient of the Element (the Curve) Standard_EXPORT void Set(const Handle(TColStd_HArray2OfReal)& Coeff); //! Set the definition interval of the Element @@ -52,14 +52,14 @@ public: //! To Compute J(E) the coefficients of Hessian matrix of //! J(E) which are crossed derivatives in dimensions - //! and . + //! and . //! If DependenceTable(Dimension1,Dimension2) is False Standard_EXPORT virtual void Hessian(const Standard_Integer Dim1, const Standard_Integer Dim2, math_Matrix& H) = 0; - //! To Compute the coefficients in the dimension - //! of the J(E)'s Gradient where E is the current Element + //! To Compute the coefficients in the dimension + //! of the J(E)'s Gradient where E is the current Element Standard_EXPORT virtual void Gradient(const Standard_Integer Dim, math_Vector& G) = 0; DEFINE_STANDARD_RTTIEXT(FEmTool_ElementaryCriterion, Standard_Transient) diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementsOfRefMatrix.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementsOfRefMatrix.hxx index 1921c5bd62..3478937ad0 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementsOfRefMatrix.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ElementsOfRefMatrix.hxx @@ -26,13 +26,13 @@ #include class PLib_Base; -//! this class describes the functions needed for -//! calculating matrix elements of RefMatrix for linear -//! criteriums (Tension, Flexsion and Jerk) by Gauss integration. -//! Each function from set gives value Pi(u)'*Pj(u)' or -//! Pi(u)''*Pj(u)'' or Pi(u)'''*Pj(u)''' for each i and j, -//! where Pi(u) is i-th basis function of expansion and -//! (') means derivative. +//! this class describes the functions needed for calculating +//! matrix elements of RefMatrix for linear criteriums +//! (Tension, Flexion and Jerk) by Gauss integration. +//! Each function from set gives value Pi(u)'*Pj(u)' or +//! Pi(u)''*Pj(u)'' or Pi(u)'''*Pj(u)''' for each i and j, +//! where Pi(u) is i-th basis function of expansion and +//! (') means derivative. class FEmTool_ElementsOfRefMatrix : public math_FunctionSet { public: @@ -42,7 +42,7 @@ public: const Standard_Integer DerOrder); //! returns the number of variables of the function. - //! It is supposed that NbVariables = 1. + //! It is supposed that NbVariables = 1. Standard_EXPORT Standard_Integer NbVariables() const; //! returns the number of equations of the function. @@ -52,9 +52,9 @@ public: //! variable . //! returns True if the computation was done successfully, //! False otherwise. - //! F contains results only for i<=j in following order: - //! P0*P0, P0*P1, P0*P2... P1*P1, P1*P2,... (upper triangle of - //! matrix {PiPj}) + //! F contains results only for i<=j in following order: + //! P0*P0, P0*P1, P0*P2... P1*P1, P1*P2,... (upper triangle of + //! matrix {PiPj}) Standard_EXPORT Standard_Boolean Value(const math_Vector& X, math_Vector& F); protected: diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearJerk.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearJerk.hxx index 5fedecd67f..05f942eadb 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearJerk.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearJerk.hxx @@ -30,7 +30,7 @@ class FEmTool_LinearJerk; DEFINE_STANDARD_HANDLE(FEmTool_LinearJerk, FEmTool_ElementaryCriterion) -//! Criterion of LinearJerk To Hermit-Jacobi elements +//! Criterion of LinearJerk To Hermit-Jacobi elements class FEmTool_LinearJerk : public FEmTool_ElementaryCriterion { diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearTension.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearTension.hxx index b1a8096bfa..ba334c95bd 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearTension.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_LinearTension.hxx @@ -30,7 +30,7 @@ class FEmTool_LinearTension; DEFINE_STANDARD_HANDLE(FEmTool_LinearTension, FEmTool_ElementaryCriterion) -//! Criterium of LinearTension To Hermit-Jacobi elements +//! Criterium of LinearTension To Hermit-Jacobi elements class FEmTool_LinearTension : public FEmTool_ElementaryCriterion { diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ListOfVectors.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ListOfVectors.hxx index 93ba9d6fbd..a96d97194f 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ListOfVectors.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_ListOfVectors.hxx @@ -20,7 +20,7 @@ #include #include -//! To define list of segments with non-zero coefficients of constraint +//! To define list of segments with non-zero coefficients of constraint typedef NCollection_List FEmTool_ListOfVectors; typedef NCollection_List::Iterator diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SeqOfLinConstr.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SeqOfLinConstr.hxx index 13f2ea78fc..cb2cbd94ba 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SeqOfLinConstr.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SeqOfLinConstr.hxx @@ -20,7 +20,7 @@ #include #include -//! To define sequence of constraints +//! To define sequence of constraints typedef NCollection_Sequence FEmTool_SeqOfLinConstr; diff --git a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SparseMatrix.hxx b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SparseMatrix.hxx index 7d66377c89..2592d81206 100644 --- a/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SparseMatrix.hxx +++ b/src/ModelingData/TKGeomBase/FEmTool/FEmTool_SparseMatrix.hxx @@ -46,7 +46,7 @@ public: //! Make Preparation to iterative solve Standard_EXPORT virtual Standard_Boolean Prepare() = 0; - //! Iterative solve of AX = B + //! Iterative solve of AX = B Standard_EXPORT virtual void Solve(const math_Vector& B, const math_Vector& Init, math_Vector& X, diff --git a/src/ModelingData/TKGeomBase/GC/GC_MakeCylindricalSurface.cxx b/src/ModelingData/TKGeomBase/GC/GC_MakeCylindricalSurface.cxx index 49b314302c..25861572ce 100644 --- a/src/ModelingData/TKGeomBase/GC/GC_MakeCylindricalSurface.cxx +++ b/src/ModelingData/TKGeomBase/GC/GC_MakeCylindricalSurface.cxx @@ -45,7 +45,7 @@ GC_MakeCylindricalSurface::GC_MakeCylindricalSurface(const gp_Ax2& A2, const Sta } //========================================================================= -// Construction of a cylinder by axis et radius . + +// Construction of a cylinder by axis et radius . + //========================================================================= GC_MakeCylindricalSurface::GC_MakeCylindricalSurface(const gp_Ax1& A1, const Standard_Real Radius) @@ -59,7 +59,7 @@ GC_MakeCylindricalSurface::GC_MakeCylindricalSurface(const gp_Ax1& A1, const Sta } //========================================================================= -// Construction of a cylinder by a circle . + +// Construction of a cylinder by a circle . + //========================================================================= GC_MakeCylindricalSurface::GC_MakeCylindricalSurface(const gp_Circ& Circ) @@ -70,9 +70,9 @@ GC_MakeCylindricalSurface::GC_MakeCylindricalSurface(const gp_Circ& Circ) } //========================================================================= -// Construction of a cylinder by tree points , , . + -// Two first points define the axis. + -// The third gives the radius. + +// Construction of a cylinder by tree points , , . + +// Two first points define the axis. + +// The third gives the radius. + //========================================================================= GC_MakeCylindricalSurface::GC_MakeCylindricalSurface(const gp_Pnt& P1, diff --git a/src/ModelingData/TKGeomBase/GC/GC_MakeTranslation.cxx b/src/ModelingData/TKGeomBase/GC/GC_MakeTranslation.cxx index 9552c92934..475dbc19af 100644 --- a/src/ModelingData/TKGeomBase/GC/GC_MakeTranslation.cxx +++ b/src/ModelingData/TKGeomBase/GC/GC_MakeTranslation.cxx @@ -21,7 +21,7 @@ #include //========================================================================= -// Creation of a 3D Geom translation of translation vector Vec. + +// Creation of a 3D Geom translation of translation vector Vec. + //========================================================================= GC_MakeTranslation::GC_MakeTranslation(const gp_Vec& Vec) { @@ -30,8 +30,8 @@ GC_MakeTranslation::GC_MakeTranslation(const gp_Vec& Vec) } //========================================================================= -// Creation of a 3D Geom translation of translation vector connecting -// Point1 and Point2. + +// Creation of a 3D Geom translation of translation vector connecting + +// Point1 and Point2. + //========================================================================= GC_MakeTranslation::GC_MakeTranslation(const gp_Pnt& Point1, const gp_Pnt& Point2) diff --git a/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCone.cxx b/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCone.cxx index 847dea6dce..be118ede03 100644 --- a/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCone.cxx +++ b/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCone.cxx @@ -25,10 +25,10 @@ #include //========================================================================= -// Creation of a cone by four points. + -// First two give the axis. + -// The third gives the base radius. + -// the third and the fourth demi-angle. + +// Creation of a cone by four points. + +// First two give the axis. + +// The third gives the base radius. + +// the third and the fourth demi-angle. + //========================================================================= GC_MakeTrimmedCone::GC_MakeTrimmedCone(const gp_Pnt& P1, const gp_Pnt& P2, diff --git a/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCylinder.cxx b/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCylinder.cxx index 9f819c74f3..f1a5fe4a4f 100644 --- a/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCylinder.cxx +++ b/src/ModelingData/TKGeomBase/GC/GC_MakeTrimmedCylinder.cxx @@ -24,11 +24,11 @@ #include #include -//========================================================================= -// Creation of a cylinder limited by three points , and . + -// the height og the resulting cylinder is the distance from to . + -// The radius is the distance from to axis . + -//========================================================================= +//=========================================================================== +// Creation of a cylinder limited by three points , and . + +// the height og the resulting cylinder is the distance from to + +// The radius is the distance from to axis . + +//=========================================================================== GC_MakeTrimmedCylinder::GC_MakeTrimmedCylinder(const gp_Pnt& P1, const gp_Pnt& P2, const gp_Pnt& P3) { GC_MakeCylindricalSurface Cyl(P1, P2, P3); @@ -46,7 +46,7 @@ GC_MakeTrimmedCylinder::GC_MakeTrimmedCylinder(const gp_Pnt& P1, const gp_Pnt& P } //========================================================================= -// Creation of a cylinder limited by a circle and height. + +// Creation of a cylinder limited by a circle and height. + //========================================================================= GC_MakeTrimmedCylinder::GC_MakeTrimmedCylinder(const gp_Circ& Circ, const Standard_Real Height) diff --git a/src/ModelingData/TKGeomBase/GCE2d/GCE2d_MakeMirror.cxx b/src/ModelingData/TKGeomBase/GCE2d/GCE2d_MakeMirror.cxx index 37909816fe..cc4d5022d1 100644 --- a/src/ModelingData/TKGeomBase/GCE2d/GCE2d_MakeMirror.cxx +++ b/src/ModelingData/TKGeomBase/GCE2d/GCE2d_MakeMirror.cxx @@ -22,7 +22,7 @@ #include //========================================================================= -// Creation d une symetrie de Geom2d par rapport a un point. + +// Creation d une symetrie de Geom2d par rapport a un point. + //========================================================================= GCE2d_MakeMirror::GCE2d_MakeMirror(const gp_Pnt2d& Point) { @@ -31,7 +31,7 @@ GCE2d_MakeMirror::GCE2d_MakeMirror(const gp_Pnt2d& Point) } //========================================================================= -// Creation d une symetrie de Geom2d par rapport a une droite. + +// Creation d une symetrie de Geom2d par rapport a une droite. + //========================================================================= GCE2d_MakeMirror::GCE2d_MakeMirror(const gp_Ax2d& Axis) @@ -41,7 +41,7 @@ GCE2d_MakeMirror::GCE2d_MakeMirror(const gp_Ax2d& Axis) } //========================================================================= -// Creation d une symetrie de Geom2d par rapport a une droite. + +// Creation d une symetrie de Geom2d par rapport a une droite. + //========================================================================= GCE2d_MakeMirror::GCE2d_MakeMirror(const gp_Lin2d& Line) @@ -51,8 +51,8 @@ GCE2d_MakeMirror::GCE2d_MakeMirror(const gp_Lin2d& Line) } //========================================================================= -// Creation d une symetrie 3d de Geom2d par rapport a une droite definie + -// par un point et une direction. + +// Creation d une symetrie 3d de Geom2d par rapport a une droite + +// definie par un point et une direction. + //========================================================================= GCE2d_MakeMirror::GCE2d_MakeMirror(const gp_Pnt2d& Point, const gp_Dir2d& Direc) diff --git a/src/ModelingData/TKGeomBase/GeomConvert/GeomConvert_FuncConeLSDist.hxx b/src/ModelingData/TKGeomBase/GeomConvert/GeomConvert_FuncConeLSDist.hxx index 55a29cbc31..f59c48c1df 100644 --- a/src/ModelingData/TKGeomBase/GeomConvert/GeomConvert_FuncConeLSDist.hxx +++ b/src/ModelingData/TKGeomBase/GeomConvert/GeomConvert_FuncConeLSDist.hxx @@ -26,8 +26,6 @@ //! Function for search of Cone canonic parameters: coordinates of center local coordinate system, //! direction of axis, radius and semi-angle from set of points //! by least square method. -//! -//! class GeomConvert_FuncConeLSDist : public math_MultipleVarFunction { public: diff --git a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckBSplineCurve.hxx b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckBSplineCurve.hxx index d3e65030ff..1937fef304 100644 --- a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckBSplineCurve.hxx +++ b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckBSplineCurve.hxx @@ -23,7 +23,7 @@ class Geom_BSplineCurve; -//! Checks for the end tangents : whether or not those +//! Checks for the end tangents : whether or not those //! are reversed regarding the third or n-3rd control class GeomLib_CheckBSplineCurve { diff --git a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckCurveOnSurface.cxx b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckCurveOnSurface.cxx index d7c37bcf7c..e121d2beb1 100644 --- a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckCurveOnSurface.cxx +++ b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_CheckCurveOnSurface.cxx @@ -66,7 +66,7 @@ public: } // returns the number of parameters of the function - //(the function is one-dimension). + // (the function is one-dimension). virtual Standard_Integer NbVariables() const { return 1; } // returns value of the function when parameters are equal to theX @@ -93,7 +93,6 @@ public: { return Standard_False; } - // return Standard_True; } diff --git a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_Interpolate.hxx b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_Interpolate.hxx index 1448fa83e2..8a8ef2d587 100644 --- a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_Interpolate.hxx +++ b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_Interpolate.hxx @@ -27,11 +27,11 @@ #include class Geom_BSplineCurve; -//! this class is used to construct a BSpline curve by -//! interpolation of points at given parameters The -//! continuity of the curve is degree - 1 and the -//! method used when boundary condition are not given -//! is to use odd degrees and null the derivatives on +//! This class is used to construct a BSpline curve by +//! interpolation of points at given parameters. The +//! continuity of the curve is degree - 1 and the +//! method used when boundary conditions are not given +//! is to use odd degrees and null the derivatives on //! both sides from degree -1 down to (degree+1) / 2 //! When even degree is given the returned curve is of //! degree - 1 so that the degree of the curve is odd diff --git a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_IsPlanarSurface.hxx b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_IsPlanarSurface.hxx index c717bbfd8c..337001a087 100644 --- a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_IsPlanarSurface.hxx +++ b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_IsPlanarSurface.hxx @@ -24,7 +24,7 @@ #include class Geom_Surface; -//! Find if a surface is a planar surface. +//! Find if a surface is a planar surface. class GeomLib_IsPlanarSurface { public: diff --git a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_MakeCurvefromApprox.hxx b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_MakeCurvefromApprox.hxx index b7f7784f6b..44e92f5976 100644 --- a/src/ModelingData/TKGeomBase/GeomLib/GeomLib_MakeCurvefromApprox.hxx +++ b/src/ModelingData/TKGeomBase/GeomLib/GeomLib_MakeCurvefromApprox.hxx @@ -26,8 +26,8 @@ class Geom2d_BSplineCurve; class Geom_BSplineCurve; -//! this class is used to construct the BSpline curve -//! from an Approximation ( ApproxAFunction from AdvApprox). +//! this class is used to construct the BSpline curve +//! from an Approximation (ApproxAFunction from AdvApprox). class GeomLib_MakeCurvefromApprox { public: diff --git a/src/ModelingData/TKGeomBase/GeomProjLib/GeomProjLib.hxx b/src/ModelingData/TKGeomBase/GeomProjLib/GeomProjLib.hxx index 5d6ce0fb9b..52ca10e16f 100644 --- a/src/ModelingData/TKGeomBase/GeomProjLib/GeomProjLib.hxx +++ b/src/ModelingData/TKGeomBase/GeomProjLib/GeomProjLib.hxx @@ -35,14 +35,14 @@ class GeomProjLib public: DEFINE_STANDARD_ALLOC - //! gives the 2d-curve of a 3d-curve lying on a - //! surface ( uses GeomProjLib_ProjectedCurve ) + //! gives the 2d-curve of a 3d-curve lying on a + //! surface (uses GeomProjLib_ProjectedCurve) //! The 3dCurve is taken between the parametrization //! range [First, Last] //! is used as input if the projection needs //! an approximation. In this case, the reached //! tolerance is set in as output. - //! WARNING : if the projection has failed, this + //! WARNING: if the projection has failed, this //! method returns a null Handle. Standard_EXPORT static Handle(Geom2d_Curve) Curve2d(const Handle(Geom_Curve)& C, const Standard_Real First, @@ -54,14 +54,14 @@ public: const Standard_Real VLast, Standard_Real& Tolerance); - //! gives the 2d-curve of a 3d-curve lying on a - //! surface ( uses GeomProjLib_ProjectedCurve ) + //! gives the 2d-curve of a 3d-curve lying on a + //! surface (uses GeomProjLib_ProjectedCurve) //! The 3dCurve is taken between the parametrization //! range [First, Last] //! is used as input if the projection needs //! an approximation. In this case, the reached //! tolerance is set in as output. - //! WARNING : if the projection has failed, this + //! WARNING: if the projection has failed, this //! method returns a null Handle. Standard_EXPORT static Handle(Geom2d_Curve) Curve2d(const Handle(Geom_Curve)& C, const Standard_Real First, @@ -69,33 +69,33 @@ public: const Handle(Geom_Surface)& S, Standard_Real& Tolerance); - //! gives the 2d-curve of a 3d-curve lying on a - //! surface ( uses GeomProjLib_ProjectedCurve ) + //! gives the 2d-curve of a 3d-curve lying on a + //! surface (uses GeomProjLib_ProjectedCurve) //! The 3dCurve is taken between the parametrization //! range [First, Last] //! If the projection needs an approximation, //! Precision::PApproximation() is used. - //! WARNING : if the projection has failed, this + //! WARNING: if the projection has failed, this //! method returns a null Handle. Standard_EXPORT static Handle(Geom2d_Curve) Curve2d(const Handle(Geom_Curve)& C, const Standard_Real First, const Standard_Real Last, const Handle(Geom_Surface)& S); - //! gives the 2d-curve of a 3d-curve lying on a - //! surface ( uses GeomProjLib_ProjectedCurve ). + //! gives the 2d-curve of a 3d-curve lying on a + //! surface (uses GeomProjLib_ProjectedCurve) //! If the projection needs an approximation, //! Precision::PApproximation() is used. - //! WARNING : if the projection has failed, this + //! WARNING: if the projection has failed, this //! method returns a null Handle. Standard_EXPORT static Handle(Geom2d_Curve) Curve2d(const Handle(Geom_Curve)& C, const Handle(Geom_Surface)& S); - //! gives the 2d-curve of a 3d-curve lying on a - //! surface ( uses GeomProjLib_ProjectedCurve ). + //! gives the 2d-curve of a 3d-curve lying on a + //! surface (uses GeomProjLib_ProjectedCurve) //! If the projection needs an approximation, //! Precision::PApproximation() is used. - //! WARNING : if the projection has failed, this + //! WARNING: if the projection has failed, this //! method returns a null Handle. //! can expand a little the bounds of surface Standard_EXPORT static Handle(Geom2d_Curve) Curve2d(const Handle(Geom_Curve)& C, @@ -105,11 +105,11 @@ public: const Standard_Real VDeb, const Standard_Real VFin); - //! gives the 2d-curve of a 3d-curve lying on a - //! surface ( uses GeomProjLib_ProjectedCurve ). + //! gives the 2d-curve of a 3d-curve lying on a + //! surface (uses GeomProjLib_ProjectedCurve) //! If the projection needs an approximation, //! Precision::PApproximation() is used. - //! WARNING : if the projection has failed, this + //! WARNING: if the projection has failed, this //! method returns a null Handle. //! can expand a little the bounds of surface Standard_EXPORT static Handle(Geom2d_Curve) Curve2d(const Handle(Geom_Curve)& C, @@ -120,15 +120,15 @@ public: const Standard_Real VFin, Standard_Real& Tolerance); - //! Constructs the 3d-curve from the normal - //! projection of the Curve on the surface . - //! WARNING : if the projection has failed, returns a + //! Constructs the 3d-curve from the normal + //! projection of the Curve on the surface . + //! WARNING: if the projection has failed, returns a //! null Handle. Standard_EXPORT static Handle(Geom_Curve) Project(const Handle(Geom_Curve)& C, const Handle(Geom_Surface)& S); - //! Constructs the 3d-curves from the projection - //! of the curve on the plane along + //! Constructs the 3d-curves from the projection + //! of the curve on the plane along //! the direction . //! If is true, the parametrization //! of the Projected Curve will be the same as the diff --git a/src/ModelingData/TKGeomBase/GeomTools/GeomTools.hxx b/src/ModelingData/TKGeomBase/GeomTools/GeomTools.hxx index 91a3b7bae2..02a242bca9 100644 --- a/src/ModelingData/TKGeomBase/GeomTools/GeomTools.hxx +++ b/src/ModelingData/TKGeomBase/GeomTools/GeomTools.hxx @@ -29,9 +29,9 @@ class Geom_Curve; class Geom2d_Curve; class GeomTools_UndefinedTypeHandler; -//! The GeomTools package provides utilities for Geometry. +//! The GeomTools package provides utilities for Geometry. //! -//! * SurfaceSet, CurveSet, Curve2dSet : Tools used +//! * SurfaceSet, CurveSet, Curve2dSet : Tools used //! for dumping, writing and reading. //! //! * Methods to dump, write, read curves and surfaces. diff --git a/src/ModelingData/TKGeomBase/GeomTools/GeomTools_Curve2dSet.hxx b/src/ModelingData/TKGeomBase/GeomTools/GeomTools_Curve2dSet.hxx index affe979602..5b8058ae7a 100644 --- a/src/ModelingData/TKGeomBase/GeomTools/GeomTools_Curve2dSet.hxx +++ b/src/ModelingData/TKGeomBase/GeomTools/GeomTools_Curve2dSet.hxx @@ -41,7 +41,7 @@ public: //! Clears the content of the set. Standard_EXPORT void Clear(); - //! Incorporate a new Curve in the set and returns + //! Incorporate a new Curve in the set and returns //! its index. Standard_EXPORT Standard_Integer Add(const Handle(Geom2d_Curve)& C); @@ -54,25 +54,25 @@ public: //! Dumps the content of me on the stream . Standard_EXPORT void Dump(Standard_OStream& OS) const; - //! Writes the content of me on the stream in a + //! Writes the content of me on the stream in a //! format that can be read back by Read. Standard_EXPORT void Write( Standard_OStream& OS, const Message_ProgressRange& theProgress = Message_ProgressRange()) const; - //! Reads the content of me from the stream . me - //! is first cleared. + //! Reads the content of me from the stream . + //! me is first cleared. Standard_EXPORT void Read(Standard_IStream& IS, const Message_ProgressRange& theProgress = Message_ProgressRange()); - //! Dumps the curve on the stream, if compact is True + //! Dumps the curve on the stream, if compact is True //! use the compact format that can be read back. Standard_EXPORT static void PrintCurve2d(const Handle(Geom2d_Curve)& C, Standard_OStream& OS, const Standard_Boolean compact = Standard_False); - //! Reads the curve from the stream. The curve is - //! assumed to have been written with the Print + //! Reads the curve from the stream. The curve is + //! assumed to have been written with the Print //! method (compact = True). Standard_EXPORT static Handle(Geom2d_Curve) ReadCurve2d(Standard_IStream& IS); diff --git a/src/ModelingData/TKGeomBase/GeomTools/GeomTools_CurveSet.hxx b/src/ModelingData/TKGeomBase/GeomTools/GeomTools_CurveSet.hxx index fc210869d5..ef6588ba03 100644 --- a/src/ModelingData/TKGeomBase/GeomTools/GeomTools_CurveSet.hxx +++ b/src/ModelingData/TKGeomBase/GeomTools/GeomTools_CurveSet.hxx @@ -41,7 +41,7 @@ public: //! Clears the content of the set. Standard_EXPORT void Clear(); - //! Incorporate a new Curve in the set and returns + //! Incorporate a new Curve in the set and returns //! its index. Standard_EXPORT Standard_Integer Add(const Handle(Geom_Curve)& C); @@ -54,25 +54,25 @@ public: //! Dumps the content of me on the stream . Standard_EXPORT void Dump(Standard_OStream& OS) const; - //! Writes the content of me on the stream in a + //! Writes the content of me on the stream in a //! format that can be read back by Read. Standard_EXPORT void Write( Standard_OStream& OS, const Message_ProgressRange& theProgress = Message_ProgressRange()) const; - //! Reads the content of me from the stream . me - //! is first cleared. + //! Reads the content of me from the stream + //! me is first cleared. Standard_EXPORT void Read(Standard_IStream& IS, const Message_ProgressRange& theProgress = Message_ProgressRange()); - //! Dumps the curve on the stream, if compact is True + //! Dumps the curve on the stream, if compact is True //! use the compact format that can be read back. Standard_EXPORT static void PrintCurve(const Handle(Geom_Curve)& C, Standard_OStream& OS, const Standard_Boolean compact = Standard_False); - //! Reads the curve from the stream. The curve is - //! assumed to have been written with the Print + //! Reads the curve from the stream. The curve is + //! assumed to have been written with the Print //! method (compact = True). Standard_EXPORT static Handle(Geom_Curve) ReadCurve(Standard_IStream& IS); diff --git a/src/ModelingData/TKGeomBase/GeomTools/GeomTools_SurfaceSet.hxx b/src/ModelingData/TKGeomBase/GeomTools/GeomTools_SurfaceSet.hxx index d98dcba90a..dab9c2af9d 100644 --- a/src/ModelingData/TKGeomBase/GeomTools/GeomTools_SurfaceSet.hxx +++ b/src/ModelingData/TKGeomBase/GeomTools/GeomTools_SurfaceSet.hxx @@ -41,7 +41,7 @@ public: //! Clears the content of the set. Standard_EXPORT void Clear(); - //! Incorporate a new Surface in the set and returns + //! Incorporate a new Surface in the set and returns //! its index. Standard_EXPORT Standard_Integer Add(const Handle(Geom_Surface)& S); @@ -54,14 +54,14 @@ public: //! Dumps the content of me on the stream . Standard_EXPORT void Dump(Standard_OStream& OS) const; - //! Writes the content of me on the stream in a + //! Writes the content of me on the stream in a //! format that can be read back by Read. Standard_EXPORT void Write( Standard_OStream& OS, const Message_ProgressRange& theProgress = Message_ProgressRange()) const; - //! Reads the content of me from the stream . me - //! is first cleared. + //! Reads the content of me from the stream . + //! me is first cleared. Standard_EXPORT void Read(Standard_IStream& IS, const Message_ProgressRange& theProgress = Message_ProgressRange()); @@ -71,8 +71,8 @@ public: Standard_OStream& OS, const Standard_Boolean compact = Standard_False); - //! Reads the surface from the stream. The surface is - //! assumed to have been written with the Print + //! Reads the surface from the stream. The surface is + //! assumed to have been written with the Print //! method (compact = True). Standard_EXPORT static Handle(Geom_Surface) ReadSurface(Standard_IStream& IS); diff --git a/src/ModelingData/TKGeomBase/Hermit/Hermit.cxx b/src/ModelingData/TKGeomBase/Hermit/Hermit.cxx index cb18da7eb4..b6ebd0fc9f 100644 --- a/src/ModelingData/TKGeomBase/Hermit/Hermit.cxx +++ b/src/ModelingData/TKGeomBase/Hermit/Hermit.cxx @@ -97,8 +97,8 @@ static void HermiteCoeff(const Handle(Geom2d_BSplineCurve)& BS, TColStd_Array1Of Standard_Integer Degree, Index0, Index1; Standard_Real Denom0, Denom1, // denominateur value for u=0 & u=1 // clang-format off - Deriv0,Deriv1 ; // denominator value for u=0 & u=1 - Standard_Boolean Periodic; // derivative denominatur value for u=0 & 1 + Deriv0,Deriv1 ; // denominator value for u=0 & u=1 + Standard_Boolean Periodic; // derivative denominatur value for u=0 & 1 // clang-format on BS->Knots(Knots); diff --git a/src/ModelingData/TKGeomBase/IntAna/IntAna_Curve.hxx b/src/ModelingData/TKGeomBase/IntAna/IntAna_Curve.hxx index 1ec45a8b3a..b3da849c99 100644 --- a/src/ModelingData/TKGeomBase/IntAna/IntAna_Curve.hxx +++ b/src/ModelingData/TKGeomBase/IntAna/IntAna_Curve.hxx @@ -56,7 +56,7 @@ public: const Standard_Boolean TwoZForATheta, const Standard_Boolean ZIsPositive); - //! Sets the parameters used to compute Points and + //! Sets the parameters used to compute Points and //! Derivative on the curve. Standard_EXPORT void SetConeQuadValues(const gp_Cone& Cone, const Standard_Real Qxx, @@ -75,7 +75,7 @@ public: const Standard_Boolean TwoZForATheta, const Standard_Boolean ZIsPositive); - //! Returns TRUE if the curve is not infinite at the + //! Returns TRUE if the curve is not infinite at the //! last parameter or at the first parameter of the domain. Standard_EXPORT Standard_Boolean IsOpen() const; diff --git a/src/ModelingData/TKGeomBase/IntAna/IntAna_QuadQuadGeo.hxx b/src/ModelingData/TKGeomBase/IntAna/IntAna_QuadQuadGeo.hxx index 234d6e344a..7ff7d9ea05 100644 --- a/src/ModelingData/TKGeomBase/IntAna/IntAna_QuadQuadGeo.hxx +++ b/src/ModelingData/TKGeomBase/IntAna/IntAna_QuadQuadGeo.hxx @@ -85,7 +85,7 @@ public: //! is a circle or an ellipse. If the maximum distance between //! the ellipse solution and the circle centered at the ellipse //! center is less than Tol, the result will be the circle. - //! H is the height of the cylinder . It is used to check + //! H is the height of the cylinder . It is used to check //! whether the plane and cylinder are parallel. Standard_EXPORT IntAna_QuadQuadGeo(const gp_Pln& P, const gp_Cylinder& C, @@ -100,7 +100,7 @@ public: //! is a circle or an ellipse. If the maximum distance between //! the ellipse solution and the circle centered at the ellipse //! center is less than Tol, the result will be the circle. - //! H is the height of the cylinder . It is used to check + //! H is the height of the cylinder . It is used to check //! whether the plane and cylinder are parallel. Standard_EXPORT void Perform(const gp_Pln& P, const gp_Cylinder& C, diff --git a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_CompProjectedCurve.hxx b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_CompProjectedCurve.hxx index 850c9a44d1..bbe28bab77 100644 --- a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_CompProjectedCurve.hxx +++ b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_CompProjectedCurve.hxx @@ -72,9 +72,9 @@ public: Standard_EXPORT virtual Handle(Adaptor2d_Curve2d) ShallowCopy() const Standard_OVERRIDE; //! computes a set of projected point and determine the - //! continuous parts of the projected curves. The points + //! continuous parts of the projected curves. The points //! corresponding to a projection on the bounds of the surface are - //! included in this set of points. + //! included in this set of points. Standard_EXPORT void Init(); //! Performs projecting for given curve. @@ -126,16 +126,16 @@ public: Standard_Real& Udeb, Standard_Real& Ufin) const; - //! returns True if part of projection with number Index is a single point and writes - //! its coordinates in P + //! returns True if part of projection with number Index is a single point and writes + //! its coordinates in P Standard_EXPORT Standard_Boolean IsSinglePnt(const Standard_Integer Index, gp_Pnt2d& P) const; - //! returns True if part of projection with number Index is an u-isoparametric curve of - //! input surface + //! returns True if part of projection with number Index is an u-isoparametric curve of + //! input surface Standard_EXPORT Standard_Boolean IsUIso(const Standard_Integer Index, Standard_Real& U) const; - //! returns True if part of projection with number Index is an v-isoparametric curve of - //! input surface + //! returns True if part of projection with number Index is an v-isoparametric curve of + //! input surface Standard_EXPORT Standard_Boolean IsVIso(const Standard_Integer Index, Standard_Real& V) const; //! Computes the point of parameter U on the curve. @@ -166,45 +166,45 @@ public: Standard_EXPORT gp_Vec2d DN(const Standard_Real U, const Standard_Integer N) const Standard_OVERRIDE; - //! Returns the first parameter of the curve C - //! which has a projection on S. + //! Returns the first parameter of the curve C + //! which has a projection on S. Standard_EXPORT Standard_Real FirstParameter() const Standard_OVERRIDE; - //! Returns the last parameter of the curve C - //! which has a projection on S. + //! Returns the last parameter of the curve C + //! which has a projection on S. Standard_EXPORT Standard_Real LastParameter() const Standard_OVERRIDE; //! Returns the Continuity used in the approximation. Standard_EXPORT GeomAbs_Shape Continuity() const Standard_OVERRIDE; - //! Returns the number of intervals which define - //! an S continuous part of the projected curve + //! Returns the number of intervals which define + //! an S continuous part of the projected curve Standard_EXPORT Standard_Integer NbIntervals(const GeomAbs_Shape S) const Standard_OVERRIDE; - //! Returns a curve equivalent of between - //! parameters and . is used to + //! Returns a curve equivalent of between + //! parameters and . is used to //! test for 2d points confusion. //! If >= Standard_EXPORT Handle(Adaptor2d_Curve2d) Trim(const Standard_Real FirstParam, const Standard_Real LastParam, const Standard_Real Tol) const Standard_OVERRIDE; - //! Returns the parameters corresponding to - //! S discontinuities. + //! Returns the parameters corresponding to + //! S discontinuities. //! - //! The array must provide enough room to accommodate + //! The array must provide enough room to accommodate //! for the parameters. i.e. T.Length() > NbIntervals() Standard_EXPORT void Intervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const Standard_OVERRIDE; - //! returns the maximum distance between - //! curve to project and surface + //! returns the maximum distance between + //! curve to project and surface Standard_EXPORT Standard_Real MaxDistance(const Standard_Integer Index) const; Standard_EXPORT const Handle(ProjLib_HSequenceOfHSequenceOfPnt)& GetSequence() const; - //! Returns the type of the curve in the current - //! interval : Line, Circle, Ellipse, Hyperbola, + //! Returns the type of the curve in the current + //! interval: Line, Circle, Ellipse, Hyperbola, //! Parabola, BezierCurve, BSplineCurve, OtherCurve. Standard_EXPORT GeomAbs_CurveType GetType() const Standard_OVERRIDE; diff --git a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApprox.hxx b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApprox.hxx index ba4aee3958..a1bc4debe6 100644 --- a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApprox.hxx +++ b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApprox.hxx @@ -42,8 +42,7 @@ public: //! Empty constructor, it only sets some initial values for class fields. Standard_EXPORT ProjLib_ComputeApprox(); - //! is the tolerance with which the - //! approximation is performed. + //! is the tolerance with which the approximation is performed. //! Other parameters for approximation have default values. Standard_EXPORT ProjLib_ComputeApprox(const Handle(Adaptor3d_Curve)& C, const Handle(Adaptor3d_Surface)& S, diff --git a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApproxOnPolarSurface.hxx b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApproxOnPolarSurface.hxx index e2c218b108..e4c9e9ef61 100644 --- a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApproxOnPolarSurface.hxx +++ b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ComputeApproxOnPolarSurface.hxx @@ -24,11 +24,11 @@ class Geom2d_BSplineCurve; class Geom2d_Curve; -//! Approximate the projection of a 3d curve on an -//! polar surface and stores the result in Approx. -//! The result is a 2d curve. The evaluation of the -//! current point of the 2d curve is done with the -//! evaluation of the extrema P3d - Surface. +//! Approximate the projection of a 3d curve on an +//! polar surface and stores the result in Approx. +//! The result is a 2d curve. The evaluation of the +//! current point of the 2d curve is done with the +//! evaluation of the extrema P3d - Surface. //! For approximation some parameters are used, including //! required tolerance of approximation. //! Tolerance is maximal possible value of 3d deviation of 3d projection of projected curve from diff --git a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_PrjResolve.hxx b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_PrjResolve.hxx index 56e6d7159d..76062a550d 100644 --- a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_PrjResolve.hxx +++ b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_PrjResolve.hxx @@ -34,7 +34,7 @@ public: const Adaptor3d_Surface& S, const Standard_Integer Fix); - //! Calculates the ort from C(t) to S with a close point. + //! Calculates the ort from C(t) to S with a close point. //! The close point is defined by the parameter values U0 and V0. //! The function F(u,v)=distance(S(u,v),C(t)) has an extremum when gradient(F)=0. //! The algorithm searches a zero near the close point. diff --git a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnPlane.hxx b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnPlane.hxx index c30e247a51..80ed9e9e26 100644 --- a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnPlane.hxx +++ b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnPlane.hxx @@ -35,13 +35,13 @@ class gp_Parab; class Geom_BezierCurve; class Geom_BSplineCurve; -//! Class used to project a 3d curve on a plane. The +//! Class used to project a 3d curve on a plane. The //! result will be a 3d curve. //! -//! You can ask the projected curve to have the same +//! You can ask the projected curve to have the same //! parametrization as the original curve. //! -//! The projection can be done along every direction not +//! The projection can be done along every direction not //! parallel to the plane. class ProjLib_ProjectOnPlane : public Adaptor3d_Curve { @@ -57,17 +57,17 @@ public: //! The projection will be along the direction on //! the plane defined by the Ax3 . - //! raises if the direction is parallel to the + //! raises if the direction is parallel to the //! plane . Standard_EXPORT ProjLib_ProjectOnPlane(const gp_Ax3& Pl, const gp_Dir& D); //! Shallow copy of adaptor Standard_EXPORT virtual Handle(Adaptor3d_Curve) ShallowCopy() const Standard_OVERRIDE; - //! Sets the Curve and perform the projection. + //! Sets the Curve and perform the projection. //! if is true, the parametrization - //! of the Projected Curve will be the same as - //! the parametrization of the initial curve . + //! of the Projected Curve will be the same as + //! the parametrization of the initial curve . //! It means: proj(C(u)) = PC(u) for each u. //! Otherwise, the parametrization may change. Standard_EXPORT void Load(const Handle(Adaptor3d_Curve)& C, @@ -88,8 +88,8 @@ public: Standard_EXPORT GeomAbs_Shape Continuity() const Standard_OVERRIDE; - //! If necessary, breaks the curve in intervals of - //! continuity . And returns the number of + //! If necessary, breaks the curve in intervals of + //! continuity . And returns the number of //! intervals. Standard_EXPORT Standard_Integer NbIntervals(const GeomAbs_Shape S) const Standard_OVERRIDE; @@ -100,8 +100,8 @@ public: Standard_EXPORT void Intervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const Standard_OVERRIDE; - //! Returns a curve equivalent of between - //! parameters and . is used to + //! Returns a curve equivalent of between + //! parameters and . is used to //! test for 3d points confusion. //! If >= Standard_EXPORT Handle(Adaptor3d_Curve) Trim(const Standard_Real First, @@ -153,12 +153,12 @@ public: Standard_EXPORT gp_Vec DN(const Standard_Real U, const Standard_Integer N) const Standard_OVERRIDE; - //! Returns the parametric resolution corresponding + //! Returns the parametric resolution corresponding //! to the real space resolution . Standard_EXPORT Standard_Real Resolution(const Standard_Real R3d) const Standard_OVERRIDE; - //! Returns the type of the curve in the current - //! interval : Line, Circle, Ellipse, Hyperbola, + //! Returns the type of the curve in the current + //! interval: Line, Circle, Ellipse, Hyperbola, //! Parabola, BezierCurve, BSplineCurve, OtherCurve. Standard_EXPORT GeomAbs_CurveType GetType() const Standard_OVERRIDE; diff --git a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnSurface.hxx b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnSurface.hxx index ecc568f83d..5bb4edf54d 100644 --- a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnSurface.hxx +++ b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectOnSurface.hxx @@ -21,8 +21,8 @@ class Geom_BSplineCurve; -//! Project a curve on a surface. The result ( a 3D -//! Curve) will be an approximation +//! Project a curve on a surface. The result +//! (a 3D Curve) will be an approximation class ProjLib_ProjectOnSurface { public: diff --git a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectedCurve.hxx b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectedCurve.hxx index e2dc541208..ffc28273e3 100644 --- a/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectedCurve.hxx +++ b/src/ModelingData/TKGeomBase/ProjLib/ProjLib_ProjectedCurve.hxx @@ -37,8 +37,8 @@ class Geom2d_BSplineCurve; DEFINE_STANDARD_HANDLE(ProjLib_ProjectedCurve, Adaptor2d_Curve2d) -//! Compute the 2d-curve. Try to solve the particular -//! case if possible. Otherwise, an approximation is +//! Compute the 2d-curve. Try to solve the particular +//! case if possible. Otherwise, an approximation is //! done. For approximation some parameters are used, including //! required tolerance of approximation. //! Tolerance is maximal possible value of 3d deviation of 3d projection of projected curve from @@ -133,8 +133,8 @@ public: Standard_EXPORT void Intervals(TColStd_Array1OfReal& T, const GeomAbs_Shape S) const Standard_OVERRIDE; - //! Returns a curve equivalent of between - //! parameters and . is used to + //! Returns a curve equivalent of between + //! parameters and . is used to //! test for 3d points confusion. //! If >= Standard_EXPORT Handle(Adaptor2d_Curve2d) Trim(const Standard_Real First, @@ -190,8 +190,8 @@ public: //! to the real space resolution . Standard_EXPORT Standard_Real Resolution(const Standard_Real R3d) const Standard_OVERRIDE; - //! Returns the type of the curve in the current - //! interval : Line, Circle, Ellipse, Hyperbola, + //! Returns the type of the curve in the current + //! interval: Line, Circle, Ellipse, Hyperbola, //! Parabola, BezierCurve, BSplineCurve, OtherCurve. Standard_EXPORT GeomAbs_CurveType GetType() const Standard_OVERRIDE; @@ -213,16 +213,14 @@ public: Standard_EXPORT Standard_Integer NbKnots() const Standard_OVERRIDE; - //! Warning ! This will NOT make a copy of the -- Bezier Curve - - //! If you want to modify -- the Curve please make a copy - //! yourself -- Also it will NOT trim the surface to -- - //! myFirst/Last. + //! Warning! This will NOT make a copy of the Bezier Curve + //! If you want to modify the Curve please make a copy + //! yourself. Also it will NOT trim the surface to myFirst/Last. Standard_EXPORT Handle(Geom2d_BezierCurve) Bezier() const Standard_OVERRIDE; - //! Warning ! This will NOT make a copy of the BSpline Curve - If - //! you want to modify the Curve please make a copy - //! yourself Also it will NOT trim the surface to - //! myFirst/Last. + //! Warning! This will NOT make a copy of the BSpline Curve + //! If you want to modify the Curve please make a copy + //! yourself. Also it will NOT trim the surface to myFirst/Last. Standard_EXPORT Handle(Geom2d_BSplineCurve) BSpline() const Standard_OVERRIDE; private: diff --git a/src/ModelingData/TKGeomBase/gce/gce_MakeCirc.cxx b/src/ModelingData/TKGeomBase/gce/gce_MakeCirc.cxx index 6281939bb5..c286583233 100644 --- a/src/ModelingData/TKGeomBase/gce/gce_MakeCirc.cxx +++ b/src/ModelingData/TKGeomBase/gce/gce_MakeCirc.cxx @@ -27,7 +27,7 @@ #include #include -//======================================================================= +//========================================================================= // function : gce_MakeCirc // purpose : // Creation d un cercle 3d de gp passant par trois points. + diff --git a/src/ModelingData/TKGeomBase/gce/gce_MakeMirror.cxx b/src/ModelingData/TKGeomBase/gce/gce_MakeMirror.cxx index 84963b52c2..599e7863dc 100644 --- a/src/ModelingData/TKGeomBase/gce/gce_MakeMirror.cxx +++ b/src/ModelingData/TKGeomBase/gce/gce_MakeMirror.cxx @@ -21,7 +21,7 @@ #include //========================================================================= -// Creation d une symetrie de gp par rapport a un point. + +// Creation d une symetrie de gp par rapport a un point. + //========================================================================= gce_MakeMirror::gce_MakeMirror(const gp_Pnt& Point) { @@ -29,7 +29,7 @@ gce_MakeMirror::gce_MakeMirror(const gp_Pnt& Point) } //========================================================================= -// Creation d une symetrie de gp par rapport a une droite. + +// Creation d une symetrie de gp par rapport a une droite. + //========================================================================= gce_MakeMirror::gce_MakeMirror(const gp_Ax1& Axis) @@ -38,7 +38,7 @@ gce_MakeMirror::gce_MakeMirror(const gp_Ax1& Axis) } //========================================================================= -// Creation d une symetrie de gp par rapport a une droite. + +// Creation d une symetrie de gp par rapport a une droite. + //========================================================================= gce_MakeMirror::gce_MakeMirror(const gp_Lin& Line) @@ -47,7 +47,7 @@ gce_MakeMirror::gce_MakeMirror(const gp_Lin& Line) } //========================================================================= -// Creation d une symetrie de gp par rapport a une droite definie + +// Creation d une symetrie de gp par rapport a une droite definie + // par un point et une direction. + //=========================================================================