@@ -89,18 +89,7 @@ class GePolCavity final : public ICavity {
8989  void  writeOFF (const  std::string & suffix);
9090};
9191
92- /* ! \fn extern "C" void generatecavity_cpp(int * maxts, int * maxsph, int * maxvert,
93-  *                                 double * xtscor, double * ytscor, double * ztscor, 
94-  * double * ar, 
95-  *                                 double * xsphcor, double * ysphcor, double * 
96-  * zsphcor, double * rsph, 
97-  *                                 int * nts, int * ntsirr, int * nesfp, int * 
98-  * addsph, 
99-  *                                 double * xe, double * ye, double * ze, double * 
100-  * rin, 
101-  *                                 double * avgArea, double * rsolv, double * ret, 
102-  *                                 int * nr_gen, int * gen1, int * gen2, int * gen3, 
103-  *                                 int * nvert, double * vert, double * centr) 
92+ /* ! \brief Interface to the Fortran PEDRA code
10493 *  \param[in] maxts maximum number of tesserae allowed 
10594 *  \param[in] maxsph maximum number of spheres allowed 
10695 *  \param[in] maxvert maximum number of vertices allowed 
@@ -139,39 +128,39 @@ class GePolCavity final : public ICavity {
139128 *  \param[out] vert coordinates of tesserae vertices 
140129 *  \param[out] centr centers of arcs defining the edges of the tesserae 
141130 */  
142- extern  " C" void  generatecavity_cpp (int  * maxts,
143-                                     int  * maxsph,
144-                                     int  * maxvert,
145-                                     double  * xtscor,
146-                                     double  * ytscor,
147-                                     double  * ztscor,
148-                                     double  * ar,
149-                                     double  * xsphcor,
150-                                     double  * ysphcor,
151-                                     double  * zsphcor,
152-                                     double  * rsph,
153-                                     int  * nts,
154-                                     int  * ntsirr,
155-                                     int  * nesfp,
156-                                     int  * addsph,
157-                                     double  * xe,
158-                                     double  * ye,
159-                                     double  * ze,
160-                                     double  * rin,
161-                                     double  * masses,
162-                                     double  * avgArea,
163-                                     double  * rsolv,
164-                                     double  * ret,
165-                                     int  * nr_gen,
166-                                     int  * gen1,
167-                                     int  * gen2,
168-                                     int  * gen3,
169-                                     int  * nvert,
170-                                     double  * vert,
171-                                     double  * centr,
172-                                     int  * isphe,
173-                                     const  char  * pedra,
174-                                     int  * len_f_pedra);
131+ extern  " C" void  pedra_driver (int  * maxts,
132+                              int  * maxsph,
133+                              int  * maxvert,
134+                              double  * xtscor,
135+                              double  * ytscor,
136+                              double  * ztscor,
137+                              double  * ar,
138+                              double  * xsphcor,
139+                              double  * ysphcor,
140+                              double  * zsphcor,
141+                              double  * rsph,
142+                              int  * nts,
143+                              int  * ntsirr,
144+                              int  * nesfp,
145+                              int  * addsph,
146+                              double  * xe,
147+                              double  * ye,
148+                              double  * ze,
149+                              double  * rin,
150+                              double  * masses,
151+                              double  * avgArea,
152+                              double  * rsolv,
153+                              double  * ret,
154+                              int  * nr_gen,
155+                              int  * gen1,
156+                              int  * gen2,
157+                              int  * gen3,
158+                              int  * nvert,
159+                              double  * vert,
160+                              double  * centr,
161+                              int  * isphe,
162+                              const  char  * pedra,
163+                              int  * len_f_pedra);
175164
176165ICavity * createGePolCavity (const  CavityData & data);
177166} //  namespace cavity
0 commit comments