@@ -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