//=========================================================================== // SISL - SINTEF Spline Library, version 4.5.0. // Definition and interrogation of NURBS curves and surfaces. // // Copyright (C) 2000-2005, 2010 SINTEF ICT, Applied Mathematics, Norway. // // This program is free software; you can redistribute it and/or // modify it under the terms of the GNU General Public License // as published by the Free Software Foundation version 2 of the License. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program; if not, write to the Free Software // Foundation, Inc., // 59 Temple Place - Suite 330, // Boston, MA 02111-1307, USA. // // Contact information: E-mail: tor.dokken@sintef.no // SINTEF ICT, Department of Applied Mathematics, // P.O. Box 124 Blindern, // 0314 Oslo, Norway. // // Other licenses are also available for this software, notably licenses // for: // - Building commercial software. // - Building software whose source code you wish to keep private. //=========================================================================== 00010 #ifndef SISLP_INCLUDED 00011 #define SISLP_INCLUDED 00012 /* 00013 * If _SISL_COPYRIGHT_H is defined before sisl-copyright.h is included 00014 * then flag this by defining SISL_INTERNAL as we're compiling SISL 00015 * library source files. By doing this we can hide internal SISL macros 00016 * if this header file is included in external files. 00017 * --------------------------------------------------------------------- 00018 */ 00019 #if defined(_SISL_COPYRIGHT_H) 00020 #define SISL_INTERNAL 1 00021 #endif 00022 00023 #include "sisl-copyright.h" 00024 00025 #include "sisl.h" 00026 /* 00027 * 00028 * $Id: sislP.h,v 1.56 2009-03-18 13:30:41 vsk Exp $ 00029 * 00030 */ 00031 00032 #if defined(SISL_ALIGNMENT) 00033 #pragma HP_ALIGN NATURAL 00034 #endif 00035 00036 /* Get size_t */ 00037 #include <sys/types.h> 00038 00039 #if defined(SISL_INTERNAL) 00040 00041 /* Get standard I/O library definitions */ 00042 #include <stdio.h> 00043 00044 /* Get standard library definitions (includes malloc defs) */ 00045 #include <stdlib.h> 00046 00047 /* Get string library definitions (includes memcpy defs) */ 00048 #include <string.h> 00049 00050 /* Get system spesific limits */ 00051 #include <limits.h> 00052 00053 /* Get system spesific values */ 00054 #if defined(_MSC_VER) || defined(__BORLANDC__) || defined(MICROSOFT) 00055 # define MAXDOUBLE 1.79769313486231570e+308 00056 # define MAXFLOAT ((float)3.40282346638528860e+38) 00057 # define MINDOUBLE 2.22507385850720140e-308 00058 # define MINFLOAT ((float)1.17549435082228750e-38) 00059 # define M_PI 3.14159265358979323846 00060 # define M_PI_2 1.57079632679489661923 00061 # define M_SQRT2 1.41421356237309504880 00062 # define M_SQRT1_2 0.70710678118654752440 00063 #else 00064 # include <values.h> 00065 #endif 00066 00067 /* Get floating point limits */ 00068 #include <float.h> 00069 00070 /* Get math library routines definition. */ 00071 #include <math.h> 00072 00073 #endif /* SISL_INTERNAL */ 00074 00075 #if !defined(apollo) 00076 #if defined(__STDC__) 00077 00078 #if !defined(CONST) 00079 #define CONST const 00080 #endif 00081 #define VOIDP (void *) 00082 #define CONSTVOIDP (const void *) 00083 00084 #else /* Not __STDC__ */ 00085 #if !defined(CONST) 00086 #define CONST 00087 #endif 00088 #define VOIDP (char *) 00089 #define CONSTVOIDP (char *) 00090 #endif 00091 00092 #else /* apollo */ 00093 #if !defined(CONST) 00094 #define CONST 00095 #endif 00096 #define VOIDP (void *) 00097 #define CONSTVOIDP (void *) 00098 #endif 00099 00100 00101 00102 /* This file contains the definition of the structure SISLPoint 00103 The structure is created 18.04.89 by UJK. */ 00104 00105 00106 typedef struct SISLPoint 00107 { 00108 double ec[3]; 00109 int idim; /* The dimension the point lies in */ 00110 double *ecoef; /* Pointer to the array containing the 00111 coordinates */ 00112 int icopy; /* Indicates whether the arrays of the point 00113 are copied or referenced by creation of 00114 the point. 00115 = 0 : Pointer set to input arrays. 00116 = 1 : Copied. 00117 = 2 : Pointer set to input arrays, 00118 but are to be treated as copied. */ 00119 00120 SISLbox *pbox; /*Pointer to a structur to store the boxes. */ 00121 } SISLPoint; 00122 00123 00124 00125 /* This file contains the definition of the structure SISLObject that contains 00126 the description of a geometric object that take part in an intersection 00127 problem or in a related problem. SISLObject can represent any geometric 00128 structure, but only on at a time. */ 00129 00130 typedef struct SISLObject 00131 { 00132 int iobj; /* Integer indicates which kind of geometric 00133 object is contained in a particular 00134 instance of the structure. 00135 = 1 (SISLCurve) - curve. 00136 = 2 (SURFACE) - tensor-product surface. */ 00137 SISLPoint *p1; /* Pointer to a point (instance of Point). */ 00138 SISLCurve *c1; /* Pointer to a curve 00139 * (instance of SISLCurve). */ 00140 SISLSurf *s1; /* Pointer to a surface 00141 * (instance of SISLSurf). */ 00142 struct SISLObject *o1; /* Pointer to parent object 00143 * (instance of Object). */ 00144 struct SISLObject *edg[4]; /* Pointer to objects edges 00145 * (instance of Object). */ 00146 struct SISLObject *psimple; /* Indicates if object/object intersection 00147 * is simple case. */ 00148 } SISLObject; 00149 00150 typedef struct SISLIntsurf 00151 { 00152 int ipoint; /* Number of points defining the curve. */ 00153 int ipar; /* Number of parameter directions of */ 00154 double *epar; /* Pointer to the parameter-values of the 00155 points, dimension: ipoint*ipar */ 00156 int *const_par; /* Constant parameter direction between 00157 two points in epar. */ 00158 } SISLIntsurf; 00159 00160 00161 typedef struct SISLTrimpar 00162 { 00163 int ptindex; /* Index in pnext of pointer to an adjacent point 00164 in the trim curve. */ 00165 int parindex; /* The parameter which is constant along 00166 the trim curve, between 00167 this point and the ptindex point. */ 00168 } SISLTrimpar; 00169 00170 /* This file contains the description of an intersection point (or 00171 closest point or extremal point) found in the recursive part of 00172 an intersection routine. */ 00173 00174 00175 typedef struct SISLIntpt 00176 { 00177 int ipar; /* Number of parameter directions in 00178 * intersection problem. */ 00179 double *epar; /* Parametervalues of point, possibly in two 00180 * objects. */ 00181 double adist; /* Distance between the objects in this point. 00182 * tdist is used in closest point problems. */ 00183 struct SISLIntpt *pcurve; /* Not used, kept for compatibility with old 00184 version on the structure.*/ 00185 int iinter; /* = 1 ORDINARY MAIN POINT 00186 = 2 SINGULAR MAIN POINT 00187 = 3 TRIM MAIN POINT 00188 = -1 ORDINARY HELP POINT 00189 = -2 SINGULAR HELP POINT 00190 = -3 TRIM HELP POINT */ 00191 struct SISLIntpt **pnext; /* Pointers to next points in each curve 00192 * chain. */ 00193 int *curve_dir; /* An array of curve directions + from - to 00194 * this point. */ 00195 int no_of_curves; /* Number of curves containing this point. */ 00196 int no_of_curves_alloc; /* The size of the arrays allocated */ 00197 int *left_obj_1; /* Pretopology information, one for each 00198 * curve. */ 00199 int *left_obj_2; /* Pretopology information, one for each 00200 * curve. */ 00201 int *right_obj_1; /* Pretopology information, one for each 00202 curve. */ 00203 int *right_obj_2; /* Pretopology information, one for each 00204 curve. */ 00205 int size_1; /* Size of geo_data_1 */ 00206 int size_2; /* Size of geo_data_2 */ 00207 double *geo_data_1; /* Containing geometric info first object */ 00208 double *geo_data_2; /* Containing geometric info second object */ 00209 /* double geo_aux[3]; Containing auxiliary geo info, see sh6idput*/ 00210 double geo_track_3d[10]; /* To store intersection curve info */ 00211 double geo_track_2d_1[7]; 00212 double geo_track_2d_2[7]; 00213 int edge_1; /* Edge flag for topology */ 00214 int edge_2; 00215 int marker; /* Help attribute when creating lists */ 00216 int evaluated; /* Help attribute when creating tracks */ 00217 struct SISLTrimpar *trim[2]; /* Used if pt is in trim curve. */ 00218 int iside_1; /* Left/right evaluator flag. -1,0+ */ 00219 int iside_2; /* Left/right evaluator flag. -1,0+*/ 00220 } SISLIntpt; 00221 00222 /* This file contains the definition of the structure SISLTrack 00223 The structure is created 10.06.91 by UJK. */ 00224 00225 typedef struct SISLTrack 00226 { 00227 SISLSurf *psurf_1; /* Pointer to first surface in intersection */ 00228 SISLSurf *psurf_2; /* Pointer to second surface in intersection */ 00229 SISLCurve *pcurve_3d; /* Pointer to 3D support curve. */ 00230 SISLCurve *pcurve_2d_1; /* Pointer to 2D support curve in first 00231 parameter space. */ 00232 SISLCurve *pcurve_2d_2; /* Pointer to 2D support curve in second 00233 parameter space. */ 00234 int ideg; /* Type of track. 00235 = 0, Bspline vs Bspline 00236 = 1, Bspline vs Plane 00237 = 2, Bspline vs Quadric surface 00238 = 1001 Bspline vs Torus surface 00239 = 1003 Bspline silhouette line, parallel 00240 projection 00241 = 1004 Bspline silhouette line, perspective 00242 projection 00243 = 1005 Bspline silhouette line, circular 00244 projection */ 00245 00246 double eimpli[16]; /* Description of the implicit surface */ 00247 int turned; /* Connection between the direction of the 00248 support curve and the cross product 00249 between the two surface normals. 00250 = 0, same direction 00251 = 1, oposite direction */ 00252 int exact; /* Flag if curve is exact */ 00253 int pretop[4]; /* Pretopology */ 00254 int sing_start; /* Singular start end point markers */ 00255 int sing_end; 00256 } SISLTrack; 00257 00258 /* This file contains the description of a list connecting points that 00259 belong to an intersection curve. */ 00260 00261 typedef struct SISLIntlist 00262 { 00263 SISLIntpt *pfirst; /* Pointer to first point in list. */ 00264 SISLIntpt *plast; /* Pointer to last point in list. */ 00265 int ind_first; /* Index pointer in pfirst */ 00266 int ind_last; /* Index pointer in plast */ 00267 int itype; /* Status of curve-segment. 00268 = 0 : open curve, no singularities. 00269 = 1 : closed curve, no singularities. 00270 = 2 : more than two curves meet at start point. 00271 = 3 : more than two curves meet at end point. 00272 = 4 : more than two curves meet at start 00273 and end point. 00274 = 5 : isolated singularity. 00275 = 6 : touching area of surface. */ 00276 int inumb; /* Number of points in the list. */ 00277 int pretop[4]; /* Pretopology */ 00278 } SISLIntlist; 00279 00280 /* This file contains the definition of an element in a list where 00281 each element points to an intersection point. The structure is 00282 used internally in intersection routines and related routines. */ 00283 00284 typedef struct SISLPtedge 00285 { 00286 SISLIntpt *ppt; /* Pointer to intersection points. */ 00287 struct SISLPtedge *pnext; /* Pointer to next element in the list. */ 00288 } SISLPtedge; 00289 00290 /* This file contains the definition of the structure keeping 00291 track of intersections on edges/endpoints of objects. This 00292 structure is used internally in the recursive part of intersection 00293 routines and related routines. */ 00294 00295 typedef struct SISLEdge 00296 { 00297 int iedge; /* Number of edges/endpoints of object. */ 00298 int ipoint; /* Number of intersection points found on 00299 * the edges. */ 00300 SISLPtedge **prpt; /* Array containing lists of pointers to the 00301 * intersections at the edges. */ 00302 } SISLEdge; 00303 00304 /* This file contains the definition of the structure SISLIntdat used 00305 intarnally in intersection routines in order to store information 00306 in intersection points and curves. */ 00307 00308 typedef struct SISLIntdat 00309 { 00310 SISLIntpt **vpoint; 00311 int ipoint; 00312 int ipmax; 00313 SISLIntlist **vlist; 00314 int ilist; 00315 int ilmax; 00316 } SISLIntdat; 00317 00318 typedef struct rank_info 00319 { 00320 int *prio; 00321 int *groups; 00322 int antgr; 00323 int antrem; 00324 }rank_info; 00325 00326 /* UJK: NEW INTERSECTION STUFF START*/ 00327 00328 enum 00329 { 00330 SI_ORD = 1, SI_SING, SI_TRIM, SI_TOUCH 00331 }; 00332 00333 /* UJK: NEW INTERSECTION STUFF END*/ 00334 00335 #if defined(SISL_INTERNAL) 00336 #ifndef HUGE 00337 #define HUGE MAXDOUBLE 00338 #endif 00339 00340 /* Storage classes. Used in space allocation. */ 00341 #define INT int 00342 #define DOUBLE double 00343 #endif /* SISL_INTERNAL */ 00344 00345 /* Name of geometry objects. Used in branching. */ 00346 #define SISLPOINT 0 00347 #define SISLCURVE 1 00348 #define SISLSURFACE 2 00349 00350 /* The resolution of double precision numbers */ 00351 #define AEPSGE (double)1.e-6 00352 #define AEPSCO (double)0.0 00353 00354 #define REL_COMP_RES (double)0.000000000000001 00355 #define REL_PAR_RES (double)0.000000000001 00356 #define ANGULAR_TOLERANCE (double)0.01 /* IN RADIANS */ 00357 #define MAXIMAL_RADIUS_OF_CURVATURE (double)10000.0 00358 00359 /* 00360 * Name of the nullobject, what a pointer points to when 00361 * it points to nothing. 00362 */ 00363 00364 #ifndef SISL_NULL 00365 #define SISL_NULL 0 00366 #endif 00367 00368 /* Name of double 0.0 */ 00369 00370 #ifndef DZERO 00371 #define DZERO (double)0.0 00372 #endif 00373 00374 #if defined(SISL_INTERNAL) 00375 #define ONE_THIRD (double)0.333333333333333333333333 00376 #define ONE_SIXTH (double)0.166666666666666666666667 00377 #define ONE_FOURTH (double)0.25 00378 00379 /* Functions taking max/min of two arguments. */ 00380 00381 #ifndef max 00382 #define max(a,b) ((a) > (b) ? (a) : (b)) 00383 #endif 00384 00385 #ifndef min 00386 #define min(a,b) ((a) < (b) ? (a) : (b)) 00387 #endif 00388 00389 #ifndef MAX 00390 #define MAX max 00391 #endif 00392 #ifndef MIN 00393 #define MIN min 00394 #endif 00395 00396 /* Macros checking for equality/non-equality between two double numbers */ 00397 00398 #define DEQUAL(a,b) \ 00399 ( (fabs((a) - (b)) <= (REL_PAR_RES * MAX(MAX(fabs(a),fabs(b)),(double)1.0))) ? (1) : (0) ) 00400 00401 #define DNEQUAL(a,b) \ 00402 ( (fabs((a) - (b)) > (REL_PAR_RES * MAX(MAX(fabs(a),fabs(b)),(double)1.0))) ? (1) : (0) ) 00403 00404 #define ZEROLEN(a) \ 00405 ( (fabs(a) <= AEPSGE) ? (1) : (0) ) 00406 00407 /* Space allocation. */ 00408 00409 #if defined(SISL_INTERNAL) || defined(USING_SISL_NEWARRAY) 00410 00411 #define newarray(a,b) \ 00412 ((a)>(SISL_NULL)?((b*)malloc((size_t)((a)*sizeof(b)))):(SISL_NULL)) 00413 00414 #define new0array(a,b) \ 00415 ((a)>(SISL_NULL)?((b*)calloc((size_t)(a),(size_t)(sizeof(b)))):(SISL_NULL)) 00416 00417 #define increasearray(a,b,c) (c*)realloc(VOIDP(a),(size_t)((b)*sizeof(c))) 00418 00419 #define freearray(a) { (void)free(VOIDP a); a = SISL_NULL; } 00420 00421 #define free0array(a) { (void)free(VOIDP a); a = SISL_NULL; } 00422 00423 00424 /* Copying of arrays */ 00425 00426 #define memcopy(a,b,c,d) \ 00427 VOIDP memcpy(VOIDP (a),CONSTVOIDP(b),(size_t)((c)*sizeof(d))) 00428 00429 /* Zero out an array */ 00430 00431 #define memzero(a,b,c) \ 00432 VOIDP memset(VOIDP (a),0,(size_t)((b)*sizeof(c))) 00433 00434 #endif /* SISL_INTERNAL || USING_SISL_NEWARRAY */ 00435 00436 /* Set value of PI/2, PI, 3PI/2 and 2PI */ 00437 00438 #ifndef PIHALF 00439 #define PIHALF (double)M_PI_2 00440 #endif 00441 #ifndef PI 00442 #define PI (double)M_PI 00443 #endif 00444 /* #ifndef PIHALF 00445 #define PIHALF (double)1.57079632679489661923 00446 #endif 00447 #ifndef PI 00448 #define PI (double)3.14159265358979323846 00449 #endif */ 00450 #ifndef THREEPIHALF 00451 #define THREEPIHALF (double)4.71238898038468985769 00452 #endif 00453 #ifndef TWOPI 00454 #define TWOPI (double)6.28318530717958647692 00455 #endif 00456 #ifndef ROTM 00457 /* #define ROTM (double)0.70710678118654752440 */ 00458 #define ROTM (double)M_SQRT1_2 00459 #endif 00460 #ifndef SIMPLECASE 00461 #define SIMPLECASE (double)0.75 00462 #endif 00463 00464 /* Values of logicals */ 00465 00466 #ifndef TRUE 00467 #define TRUE 1 00468 #endif 00469 #ifndef FALSE 00470 #define FALSE 0 00471 #endif 00472 #endif /* SISL_INTERNAL */ 00473 00474 00475 /* 00476 * -------------------------------------------------------------- 00477 * Forward declarations of all sisl low-level routines, all in C. 00478 * -------------------------------------------------------------- 00479 */ 00480 00481 #if defined(__cplusplus) 00482 extern "C" { 00483 #endif 00484 #if defined(SISLNEEDPROTOTYPES) 00485 00486 #ifndef CONSTRUCT 00487 extern 00488 #endif 00489 SISLIntpt *copyIntpt(SISLIntpt *); 00490 #ifndef CONSTRUCT 00491 extern 00492 #endif 00493 SISLEdge *newEdge(int); 00494 #ifndef CONSTRUCT 00495 extern 00496 #endif 00497 SISLIntdat *newIntdat(void); 00498 #ifndef CONSTRUCT 00499 extern 00500 #endif 00501 SISLIntlist *newIntlist(SISLIntpt *,SISLIntpt *,int); 00502 #ifndef CONSTRUCT 00503 extern 00504 #endif 00505 SISLIntpt *newIntpt(int,double *,double); 00506 #ifndef CONSTRUCT 00507 extern 00508 #endif 00509 SISLObject *newObject(int); 00510 #ifndef CONSTRUCT 00511 extern 00512 #endif 00513 SISLPoint *newPoint(double *,int,int); 00514 #ifndef CONSTRUCT 00515 extern 00516 #endif 00517 SISLPtedge *newPtedge(SISLIntpt *); 00518 #ifndef CONSTRUCT 00519 extern 00520 #endif 00521 SISLIntsurf *newIntsurf(SISLIntlist *); 00522 #ifndef CONSTRUCT 00523 extern 00524 #endif 00525 SISLTrack *newTrack(SISLSurf *,SISLSurf *,SISLCurve *,SISLCurve *, 00526 SISLCurve *,int,double[],int,int,int); 00527 #ifndef CONSTRUCT 00528 extern 00529 #endif 00530 SISLTrimpar *newTrimpar(int,int); 00531 #ifndef CONSTRUCT 00532 extern 00533 #endif 00534 SISLIntpt *hp_newIntpt(int,double *,double,int,int,int,int,int, 00535 int,int,double [],double []); 00536 #ifndef CONSTRUCT 00537 extern 00538 #endif 00539 SISLIntpt *hp_copyIntpt(SISLIntpt *); 00540 #ifndef DESTRUCT 00541 extern 00542 #endif 00543 void freeEdge(SISLEdge *); 00544 #ifndef DESTRUCT 00545 extern 00546 #endif 00547 void freeIntdat(SISLIntdat *); 00548 #ifndef DESTRUCT 00549 extern 00550 #endif 00551 void freeIntlist(SISLIntlist *); 00552 #ifndef DESTRUCT 00553 extern 00554 #endif 00555 void freeIntpt(SISLIntpt *); 00556 #ifndef DESTRUCT 00557 extern 00558 #endif 00559 void freeObject(SISLObject *); 00560 #ifndef DESTRUCT 00561 extern 00562 #endif 00563 void freePoint(SISLPoint *); 00564 #ifndef DESTRUCT 00565 extern 00566 #endif 00567 void freePtedge(SISLPtedge *); 00568 #ifndef DESTRUCT 00569 extern 00570 #endif 00571 void freeIntsurf(SISLIntsurf *); 00572 #ifndef DESTRUCT 00573 extern 00574 #endif 00575 void freeTrimpar(SISLTrimpar *); 00576 #ifndef DESTRUCT 00577 extern 00578 #endif 00579 void freeTrack(SISLTrack * ptrack); 00580 #ifndef MAKE3D 00581 extern 00582 #endif 00583 void make3D(SISLSurf *, SISLSurf **, int *); 00584 #ifndef S1119 00585 extern 00586 #endif 00587 void s1119(double *,double *,double *,int,int,int,int,int *,int *,int *,int *); 00588 #ifndef S1161 00589 extern 00590 #endif 00591 void s1161(SISLObject *,double *,double ,SISLIntdat **,int *); 00592 #ifndef S1162 00593 extern 00594 #endif 00595 void s1162(SISLObject *,double *,double,SISLIntdat **,SISLEdge *[2],int, 00596 int,int *); 00597 #ifndef S1172 00598 extern 00599 #endif 00600 void s1172(SISLCurve *,double,double,double,double *,int *); 00601 #ifndef S1173 00602 extern 00603 #endif 00604 void s1173(SISLPoint *,SISLSurf *,double,double [],double [],double [], 00605 double [],int *); 00606 #ifndef S1174 00607 extern 00608 #endif 00609 void s1174(SISLSurf *,double [],double [],double [],double [],int *); 00610 #ifndef S1190 00611 extern 00612 #endif 00613 void s1190(SISLObject *, double *, double, int *); 00614 #ifndef S1192 00615 extern 00616 #endif 00617 void s1192(SISLObject *, double, int *); 00618 #ifndef S1219 00619 extern 00620 #endif 00621 void s1219(double *,int,int,int *,double,int *); 00622 #ifndef S1220 00623 extern 00624 #endif 00625 void s1220(double *,int,int,int *,double,int,double [],int *); 00626 #ifndef S1222 00627 extern 00628 #endif 00629 void s1222(double *,int,int,int,double,int,double [],int *); 00630 #ifndef S1223 00631 extern 00632 #endif 00633 void s1223(double [],double [],int,int,int,int,int,int,double [], 00634 int,int,double [],int *); 00635 #ifndef S1224 00636 extern 00637 #endif 00638 void s1224(double [],double [],int,int,int,int,int, int,double [],int, 00639 double [],int *); 00640 #ifndef S1231 00641 extern 00642 #endif 00643 void s1231(SISLCurve *,double,SISLCurve **,SISLCurve **,int *); 00644 #ifndef S1232 00645 extern 00646 #endif 00647 void s1232(double [],int,int,double,double,double [],int *); 00648 #ifndef S1235 00649 extern 00650 #endif 00651 void s1235(double [],int,int,int *,double **,int *); 00652 #ifndef S1236 00653 extern 00654 #endif 00655 void s1236(double [],int,int,int,double [],int *); 00656 #ifndef S1239 00657 extern 00658 #endif 00659 void s1239(SISLCurve *,int,double,SISLCurve *,double,double,SISLCurve **, 00660 int,int *,int *); 00661 #ifndef S1244 00662 extern 00663 #endif 00664 void s1244(double [],int,int,int,int,int,int,double *,int *); 00665 #ifndef S1245 00666 extern 00667 #endif 00668 void s1245(double [],int,int,double [],double,int,double [],double *, 00669 double *,int *); 00670 #ifndef S1251 00671 extern 00672 #endif 00673 void s1251(SISLCurve *,double,double *,int *); 00674 #ifndef S1252 00675 extern 00676 #endif 00677 void s1252(SISLCurve *,double,double,double *,int *); 00678 #ifndef S1301 00679 extern 00680 #endif 00681 void s1301(double,double,int,SISLCurve **,int *); 00682 #ifndef S1304 00683 extern 00684 #endif 00685 void s1304(double [],double [],double [],double [], 00686 double [],double [],double [],int *); 00687 #ifndef S1305 00688 extern 00689 #endif 00690 void s1305(double [],double [],double [],double [],int *,double [],int *); 00691 #ifndef S1306 00692 extern 00693 #endif 00694 void s1306(double [],double [],double [],int,double [],double [],int *); 00695 #ifndef S1307 00696 extern 00697 #endif 00698 void s1307(double [],int,double [],int *); 00699 #ifndef S1308 00700 extern 00701 #endif 00702 void s1308(double [],int,double [],int,double [],int *); 00703 #ifndef S1309 00704 extern 00705 #endif 00706 double s1309(double [],double [],double [],int,int *); 00707 #ifndef S1311 00708 extern 00709 #endif 00710 double s1311(double,double,double,int *); 00711 #ifndef S1312 00712 extern 00713 #endif 00714 void s1312(double [],int,int,int,double [],SISLCurve **,int *); 00715 #ifndef S1313 00716 extern 00717 #endif 00718 void s1313(SISLSurf *,double [],int,double,double,double, 00719 SISLIntcurve *,int,int,int *); 00720 #ifndef S1320 00721 extern 00722 #endif 00723 void s1320(SISLSurf *,double [],int,int,SISLSurf **,int *); 00724 #ifndef S1321 00725 extern 00726 #endif 00727 void s1321(double [],double,int,int,double [],int *); 00728 #ifndef S1322 00729 extern 00730 #endif 00731 void s1322(double [],double [],double,int,int,double [],int *); 00732 #ifndef S1323 00733 extern 00734 #endif 00735 void s1323(double [],double [],double [],int,int,double [],int *); 00736 #ifndef S1324 00737 extern 00738 #endif 00739 void s1324(double [],double,double [],int,double [],int *); 00740 #ifndef S1325 00741 extern 00742 #endif 00743 double s1325(double,double); 00744 #ifndef S1329 00745 extern 00746 #endif 00747 void s1329(SISLSurf *,double [],double [],int,SISLSurf **,int *); 00748 #ifndef S1330 00749 extern 00750 #endif 00751 void s1330(double [],double [],double [],double [],double [],double [], 00752 double [],double [],int *,double [],double [],int *); 00753 #ifndef S1331 00754 extern 00755 #endif 00756 void s1331(double [],double [],int,int,double [],double [],int *); 00757 #ifndef S1333 00758 extern 00759 #endif 00760 void s1333(int,SISLCurve *[],int [],double,int,int,int,SISLSurf **, 00761 double **,int *); 00762 #ifndef S1333_COUNT 00763 extern 00764 #endif 00765 void s1333_count(int,SISLCurve *[],int *,int *); 00766 #ifndef S1333_CYCLIC 00767 extern 00768 #endif 00769 void s1333_cyclic(SISLSurf *,int,int *); 00770 #ifndef S1334 00771 extern 00772 #endif 00773 void s1334(double [],int,int,double [],int,int,int,int,double, 00774 double *,SISLCurve **,double **,int *,int *); 00775 #ifndef S1340 00776 extern 00777 #endif 00778 void s1340(SISLCurve *,double [],int,int,double,int,SISLCurve **, 00779 double [],int *); 00780 #ifndef S1341 00781 extern 00782 #endif 00783 void s1341(double [],int,int,int,double [],double [],int,int, 00784 double,double,int,int,SISLCurve **,double [],int *); 00785 #ifndef S1342 00786 extern 00787 #endif 00788 void s1342(double [],double [],int,int,int,double [], 00789 double [],int,int,double,int,SISLCurve **,double [],int *); 00790 #ifndef S1343 00791 extern 00792 #endif 00793 void s1343(SISLCurve *,double [],int,int,double,int,SISLCurve **,int *); 00794 #ifndef S1345 00795 extern 00796 #endif 00797 void s1345(SISLSurf *,double [],int [],double [],double,int,int, 00798 SISLSurf **,double [],int *); 00799 #ifndef S1346 00800 extern 00801 #endif 00802 void s1346(double [],int,int,int,int,double [],double [],double [], 00803 int [],double [],double,double,int,int,int,int, 00804 SISLSurf **,double [],int *); 00805 #ifndef S1347 00806 extern 00807 #endif 00808 void s1347(double [],double [],double [],double [],int,int,int,int, 00809 double [],double [],double [],int [],double [],double,int, 00810 int,SISLSurf **,double [],int *); 00811 #ifndef S1348 00812 extern 00813 #endif 00814 void s1348(SISLSurf *,double [],int [],double [],double,int,int, 00815 SISLSurf **,int *); 00816 #ifndef S1349 00817 extern 00818 #endif 00819 void s1349(int,SISLCurve *[],int *); 00820 #ifndef S1350 00821 extern 00822 #endif 00823 void s1350(double [],double [],int,int,int,SISLCurve **,int *); 00824 #ifndef S1351 00825 extern 00826 #endif 00827 void s1351(double [],int,int,int,int,SISLCurve **,int *); 00828 #ifndef S1352 00829 extern 00830 #endif 00831 void s1352(double [],int,int,double [],double [], 00832 double [],int,int,int,double [],int *); 00833 #ifndef S1353 00834 extern 00835 #endif 00836 void s1353(SISLCurve *,double [],rank_info *,int *); 00837 #ifndef S1354 00838 extern 00839 #endif 00840 void s1354(SISLCurve *,SISLCurve *,rank_info *,double [], 00841 double [],int,int,int,int,SISLCurve **,double [],int *); 00842 #ifndef S1355 00843 extern 00844 #endif 00845 void s1355(SISLCurve *,double [],double **,int *,int *); 00846 #ifndef S1358 00847 extern 00848 #endif 00849 void s1358(double [],int,int,double [],double [],int,int,int,int,double, 00850 double *,SISLCurve **,double **,int *,int *); 00851 #ifndef S1359 00852 extern 00853 #endif 00854 void s1359(double [],double,int,int,int,double [],SISLCurve **,int *); 00855 #ifndef S1361 00856 extern 00857 #endif 00858 void s1361(double [],double [],int,double [],double [],int *); 00859 #ifndef S1362 00860 extern 00861 #endif 00862 void s1362(SISLCurve *,double,double [],int,int,double,int *,double [],int *); 00863 #ifndef S1366 00864 extern 00865 #endif 00866 void s1366(SISLSurf *,double,double,double,int, 00867 double *,int,int,double *,int,int,SISLSurf **,int *); 00868 #ifndef S1367 00869 extern 00870 #endif 00871 void s1367(SISLSurf *,double,double,int,double [], 00872 int,int *,int *,double [],int *); 00873 #ifndef S1370 00874 extern 00875 #endif 00876 void s1370(SISLCurve *,double [],int,int,int,SISLCurve **,int *); 00877 #ifndef S1376 00878 extern 00879 #endif 00880 void s1376(double [],int,int,double **,int *,int *,int *); 00881 #ifndef S1377 00882 extern 00883 #endif 00884 void s1377(SISLCurve *,double [],int,int,SISLCurve **,int *); 00885 #ifndef S1378 00886 extern 00887 #endif 00888 void s1378(SISLSurf *,double [],int,int,SISLSurf **,int *); 00889 #ifndef S1381 00890 extern 00891 #endif 00892 void s1381(double [],int,int,double **,int *,int,int *); 00893 #ifndef S1382 00894 extern 00895 #endif 00896 void s1382(SISLSurf *,double [],int,SISLSurf **,int *); 00897 #ifndef S1384 00898 extern 00899 #endif 00900 void s1384(SISLCurve *,SISLSurf *,int,int,double,int *,int *,int *,double [], 00901 double [],double [],double [],int *); 00902 #ifndef S1385 00903 extern 00904 #endif 00905 void s1385(double [],double [],double [],double,int,double,SISLCurve **,int *); 00906 #ifndef S1393 00907 extern 00908 #endif 00909 void s1393(int,SISLCurve *[],SISLCurve *[],SISLCurve *[],int *); 00910 #ifndef S1399 00911 extern 00912 #endif 00913 void s1399(SISLCurve *,double,double); 00914 #ifndef S1435 00915 extern 00916 #endif 00917 void s1435(SISLSurf *,int,SISLCurve **,double *,int *); 00918 #ifndef S1436 00919 extern 00920 #endif 00921 void s1436(SISLSurf *,double,SISLCurve **,int *); 00922 #ifndef S1437 00923 extern 00924 #endif 00925 void s1437(SISLSurf *,double,SISLCurve **,int *); 00926 #ifndef S1438 00927 extern 00928 #endif 00929 void s1438(SISLCurve *,int,SISLPoint **,double *,int *); 00930 #ifndef S1452 00931 extern 00932 #endif 00933 void s1452(SISLSurf *,double,double,SISLSurf **,int *); 00934 #ifndef S1500 00935 extern 00936 #endif 00937 void s1500(double [],double [],double [],double,double,int,int, 00938 double [],int *); 00939 #ifndef S1504 00940 extern 00941 #endif 00942 void s1504(double *,int,int,double *,int,int,double [],int [],int *); 00943 #ifndef S1505 00944 extern 00945 #endif 00946 void s1505(const SISLSurf *,int,int,int,double *,double *, int *, 00947 int *,double [],double [],int *); 00948 #ifndef S1507 00949 extern 00950 #endif 00951 void s1507(SISLCurve **, int, int, SISLCurve ***, int *); 00952 #ifndef S1512 00953 extern 00954 #endif 00955 void s1512(SISLSurf *,double [],int,SISLSurf **,int *); 00956 #ifndef S1513 00957 extern 00958 #endif 00959 void s1513(SISLSurf *,double [],double [],int,SISLSurf **,int *); 00960 #ifndef S1516 00961 extern 00962 #endif 00963 void s1516(double [],double [],int,int,double **,int *); 00964 #ifndef S1517 00965 extern 00966 #endif 00967 void s1517(double [],double [],double [],int,double,double **,int *); 00968 #ifndef S1520 00969 extern 00970 #endif 00971 void s1520(SISLCurve *,double,double [],double [],SISLSurf **,int *); 00972 #ifndef S1521 00973 extern 00974 #endif 00975 SISLCurve* s1521(SISLCurve *,int *); 00976 #ifndef S1528 00977 extern 00978 #endif 00979 void s1528(int,int,int,double [],int,int,int,double **,double **,int *); 00980 #ifndef S1531 00981 extern 00982 #endif 00983 void s1531(double [],int,int,int,double **,int *); 00984 #ifndef S1540 00985 extern 00986 #endif 00987 void s1540(double [], int, int, double [], int, int, double [], int [], int *); 00988 #ifndef S1541 00989 extern 00990 #endif 00991 void s1541(SISLCurve *, int, double [], int [], double [], int *); 00992 #ifndef S1604 00993 extern 00994 #endif 00995 void s1604(double [],int,double,int,int,int,SISLCurve **,int *); 00996 #ifndef S1605 00997 extern 00998 #endif 00999 void s1605(SISLCurve *,double,double **,int *,int *); 01000 #ifndef S1612 01001 extern 01002 #endif 01003 void s1612(SISLCurve *,double,double **,int *,int *,int *); 01004 #ifndef S1613BEZ 01005 extern 01006 #endif 01007 void s1613bez(SISLCurve *,int,double,double **,int *,int *); 01008 #ifndef S1614 01009 extern 01010 #endif 01011 void s1614(double [],int,int,int [],double [],int *,int [],int *); 01012 #ifndef S1615 01013 extern 01014 #endif 01015 void s1615(double [],int,int,int [],int *); 01016 #ifndef S1616 01017 extern 01018 #endif 01019 void s1616(double [],int,int,int [],double [],int *); 01020 #ifndef S1617 01021 extern 01022 #endif 01023 void s1617(double [],int,int,int [],double,double [], 01024 double [],double [],double [],double *,int *); 01025 #ifndef S1618 01026 extern 01027 #endif 01028 void s1618(double [],double [],double[],int,double *); 01029 #ifndef S1619 01030 extern 01031 #endif 01032 void s1619(double [],int,int,int [],double [],int,double[],double *, int *); 01033 #ifndef S1700 01034 extern 01035 #endif 01036 void s1700(int,int,int,int,int *,int *,int *,double *,double,double *,int *); 01037 #ifndef S1701 01038 extern 01039 #endif 01040 void s1701(int,int,int,int,int *,int *,int *, 01041 double *,double *,double *,double *,int *); 01042 #ifndef S1705 01043 extern 01044 #endif 01045 void s1705(SISLCurve *,int *); 01046 #ifndef S1707 01047 extern 01048 #endif 01049 void s1707(SISLCurve *,int *); 01050 #ifndef S1708 01051 extern 01052 #endif 01053 void s1708(SISLSurf *,int *); 01054 #ifndef S1741 01055 extern 01056 #endif 01057 void s1741(SISLObject *,SISLObject *,double,int *); 01058 #ifndef S1753 01059 extern 01060 #endif 01061 void 01062 s1753(double [],double [],int,int,int,double [],double [],int, 01063 double [],double [],int *); 01064 #ifndef S1754 01065 extern 01066 #endif 01067 void 01068 s1754(double *,int,int,int,double **,int *,int *); 01069 #ifndef S1755 01070 extern 01071 #endif 01072 void 01073 s1755(double [],int,int,double [],int *,int *); 01074 #ifndef S1770 01075 extern 01076 #endif 01077 void s1770(SISLCurve *,SISLCurve *,double,double,double,double,double, 01078 double,double,double *,double *,int *); 01079 #ifndef S1770_2D 01080 extern 01081 #endif 01082 void s1770_2D(SISLCurve *,SISLCurve *,double,double,double,double,double, 01083 double,double,double *,double *,int *); 01084 #ifndef S1771 01085 extern 01086 #endif 01087 void s1771(SISLPoint *,SISLCurve *,double,double,double,double,double *,int *); 01088 #ifndef S1772 01089 extern 01090 #endif 01091 void s1772(SISLCurve *,SISLSurf *,double,double,double [],double,double [], 01092 double,double [],double *,double [],int *); 01093 #ifndef S1773 01094 extern 01095 #endif 01096 void s1773(SISLPoint *,SISLSurf *,double,double [],double [],double [], 01097 double [],int *); 01098 #ifndef S1780 01099 extern 01100 #endif 01101 void s1780(SISLCurve *,SISLCurve *,SISLIntpt *[],int *); 01102 #ifndef S1785 01103 extern 01104 #endif 01105 void s1785(SISLCurve *,SISLSurf *,double,double [],double [],int,int *); 01106 #ifndef S1786 01107 extern 01108 #endif 01109 void s1786(SISLCurve *,SISLCurve *,double,double [],double [],int *); 01110 #ifndef S1787 01111 extern 01112 #endif 01113 void s1787(SISLSurf *,double,double,double [],double [],double [],int *); 01114 #ifndef S1788 01115 extern 01116 #endif 01117 void s1788(SISLSurf *,SISLSurf *,double,double [],double [],double [],int *); 01118 #ifndef S1789 01119 extern 01120 #endif 01121 void s1789(SISLPoint *,SISLSurf *,double ,double [],double [],int *); 01122 #ifndef S1790 01123 extern 01124 #endif 01125 void s1790(SISLObject *,SISLObject *,double,int *); 01126 #ifndef S1791 01127 extern 01128 #endif 01129 int s1791(double [],int,int); 01130 #ifndef S1792 01131 extern 01132 #endif 01133 double s1792(double [],int,int); 01134 #ifndef S1795 01135 extern 01136 #endif 01137 void s1795(SISLSurf *,SISLSurf *,double,double,int *); 01138 #ifndef S1796 01139 extern 01140 #endif 01141 void s1796(SISLCurve *,SISLCurve *,double,double,int *); 01142 #ifndef S1797 01143 extern 01144 #endif 01145 void s1797(SISLSurf *,SISLCurve *,double,double,int *); 01146 #ifndef S1830 01147 extern 01148 #endif 01149 void s1830(SISLSurf *,SISLCurve *,int *); 01150 #ifndef S1834 01151 extern 01152 #endif 01153 void s1834(double [],int,double [],int,int,double [],double [],int *); 01154 #ifndef S1839 01155 extern 01156 #endif 01157 void s1839(SISLSurf *,double [],int,int,int *); 01158 #ifndef S1840 01159 extern 01160 #endif 01161 void s1840(SISLCurve *,double *,int *); 01162 #ifndef S1880 01163 extern 01164 #endif 01165 void s1880(int,int,int *,SISLIntpt **,int *,SISLIntlist **, 01166 int *,double **,double **,int *,SISLIntcurve ***,int *); 01167 #ifndef S1890 01168 extern 01169 #endif 01170 void 01171 s1890(double [],int,int,double *[],int *[],int *); 01172 #ifndef S1891 01173 extern 01174 #endif 01175 void 01176 s1891(double [],double [],int,int,int,int [],int,double [], 01177 double *[],int *,int,int,int,int *); 01178 #ifndef S1893 01179 extern 01180 #endif 01181 void 01182 s1893(SISLCurve *,double [],int,int,int,int,SISLCurve **,int *); 01183 #ifndef S1894 01184 extern 01185 #endif 01186 void 01187 s1894(double [],int,int,int,int,double [],int,int,double *[],int *, 01188 int *,int *); 01189 #ifndef S1896 01190 extern 01191 #endif 01192 void 01193 s1896(SISLSurf *,double [],int,int,int [],int [],int [],int [],SISLSurf **,int *); 01194 #ifndef S1897 01195 extern 01196 #endif 01197 void 01198 s1897(double [],int,double,int,int,double [],int *); 01199 #ifndef S1900 01200 extern 01201 #endif 01202 void 01203 s1900(double [],double [],double [],int [],int,int,int,int, 01204 double *,SISLCurve **,double **,int *,int *); 01205 #ifndef S1901 01206 extern 01207 #endif 01208 void 01209 s1901(void (*)(double[],int[],int,int,int,double,double *, 01210 double *[],double *[],int *), 01211 void (*)(double[],int,int,int,double *[],int *), 01212 double [],int [],int,double,int,int,int, 01213 double *,SISLCurve **,double **,int *,int *); 01214 #ifndef S1902 01215 extern 01216 #endif 01217 void 01218 s1902(double [],int,int,int,double *[],int *); 01219 #ifndef S1903 01220 extern 01221 #endif 01222 void 01223 s1903(double [],int,int,int,double *[],int *); 01224 #ifndef S1904 01225 extern 01226 #endif 01227 void 01228 s1904(double [],int,int,int,double *[],int *); 01229 #ifndef S1905 01230 extern 01231 #endif 01232 void 01233 s1905(double [],int [],int,int,int,int,double **,int **,int *,int *); 01234 #ifndef S1906 01235 extern 01236 #endif 01237 void 01238 s1906(double *,int *,int,int,int,int,double **,int **,int *,int *); 01239 #ifndef S1907 01240 extern 01241 #endif 01242 void 01243 s1907(double *,int *,double *,int,int,int,int,int, 01244 double *[],int *[],double *[],int *,int *); 01245 #ifndef S1908 01246 extern 01247 #endif 01248 void 01249 s1908(double [],int [],double [],int,int,int,int, 01250 double *[],int *[],double *[],int *,int *); 01251 #ifndef S1909 01252 extern 01253 #endif 01254 void 01255 s1909(double [],int [],int,int,int,double,double *,double *[], 01256 double *[],int *); 01257 #ifndef S1910 01258 extern 01259 #endif 01260 void 01261 s1910(double [],int [],int,int,int,double,double *,double *[], 01262 double *[],int *); 01263 #ifndef S1911 01264 extern 01265 #endif 01266 void 01267 s1911(double [],int [],int,int,int,double,double *,double *[], 01268 double *[],int *); 01269 #ifndef S1912 01270 extern 01271 #endif 01272 void 01273 s1912(void (*)(double[],int[],int,int,int,double,double *, 01274 double *[],double *[],int *), 01275 void (*)(double[],int,int,int,double *[],int *), 01276 double [],int [],int,double,int,int,int, 01277 double *,SISLCurve **,double **,int *,int *); 01278 #ifndef S1916 01279 extern 01280 #endif 01281 void 01282 s1916(int,double [],double [],int,int,int,int,double [],int [],int *); 01283 #ifndef S1917 01284 extern 01285 #endif 01286 void 01287 s1917(int,double [],int,int,int [],double,int,double *[],int *[],int *i,int *); 01288 #ifndef S1918 01289 extern 01290 #endif 01291 void 01292 s1918(int,double [],double [],int,int,int,double [],int [],int *); 01293 #ifndef S1919 01294 extern 01295 #endif 01296 void 01297 s1919(double [],double [],double [],double [],double [],int,int,int,int,int, 01298 double,double,double,int *); 01299 #ifndef S1924 01300 extern 01301 #endif 01302 void 01303 s1924(int,int,int,int,int,int,double **,int *); 01304 #ifndef S1925 01305 extern 01306 #endif 01307 void 01308 s1925(double [],double [],int,int [],double [],double [],int,int,int,int, 01309 double [],int,int [],double [],int,double [],int,int *); 01310 #ifndef S1926 01311 extern 01312 #endif 01313 void 01314 s1926(double *,int,int,int *,double *,int,double *,int,int *); 01315 #ifndef S1927 01316 extern 01317 #endif 01318 void 01319 s1927(double *,int,int,int *,double *,int,double *,int,double *[], 01320 double *,int *); 01321 #ifndef S1930 01322 extern 01323 #endif 01324 void 01325 s1930(int,SISLCurve **,double **,double **,int *,int *,int *); 01326 #ifndef S1931 01327 extern 01328 #endif 01329 void 01330 s1931(int,SISLCurve **,double **,double **,int *,int *,int *); 01331 #ifndef S1931UNIT 01332 extern 01333 #endif 01334 void s1931unit (int,SISLCurve **,double **,double **,int *,int *,int *); 01335 #ifndef S1932 01336 extern 01337 #endif 01338 void 01339 s1932(int,SISLCurve **,double,double,double *,int,int,double **,int *); 01340 #ifndef S1933 01341 extern 01342 #endif 01343 void 01344 s1933(int,SISLCurve *[],double,double,double **,int *,int *,int *); 01345 #ifndef S1934 01346 extern 01347 #endif 01348 void 01349 s1934(double *,int,int,double,double,int *); 01350 #ifndef S1935 01351 extern 01352 #endif 01353 void 01354 s1935(double *,int,double *,int,double *[],int *,int,int *); 01355 #ifndef S1936 01356 extern 01357 #endif 01358 void 01359 s1936(SISLCurve *,double [],int,double *,int *); 01360 #ifndef S1937 01361 extern 01362 #endif 01363 void 01364 s1937(double [],int,int,int,double [],double []); 01365 #ifndef S1938 01366 extern 01367 #endif 01368 void 01369 s1938(SISLSurf *,double [],int,double [],int,double **,int *); 01370 #ifndef S1941 01371 extern 01372 #endif 01373 void 01374 s1941(SISLCurve *pcurve,int icont,int *jstat); 01375 #ifndef S1942 01376 extern 01377 #endif 01378 void s1942(SISLCurve *pc1,SISLCurve *pc2,int idim,double ea[],int nstart[], 01379 int nstop[],double emxerr[],double el2err[],int *jstat); 01380 #ifndef S1943 01381 extern 01382 #endif 01383 void 01384 s1943(SISLCurve *pcurve,double etau[],int ik,int in,int ileftfix, 01385 int irightfix,int incont,SISLCurve **rnewcurve, 01386 double gmaxerr[],double gl2err[],int *jstat); 01387 #ifndef S1944 01388 extern 01389 #endif 01390 void 01391 s1944(double etau[],int ik,int in,int idim,double et[],double ed[], 01392 int im,int inlc,int inlr,int inorm,double ea[],double ew1[], 01393 int nfirst[],int nlast[],double eb[],double ew2[], 01394 int n2sta[],double ec[],int *jstat); 01395 #ifndef S1945 01396 extern 01397 #endif 01398 void 01399 s1945(double etau[],int ik,int in,int idim,double et[], 01400 double ed[],int im,int ilend,int irend, int inlc, 01401 int inlr, int inorm, double ea[], double ew1[], int inh, 01402 int nfirst[],int nlast[],double eb[], 01403 double ew2[], double ec[],int n2sta[],int *jstat); 01404 #ifndef S1946 01405 extern 01406 #endif 01407 void 01408 s1946(double ea[],double ew1[],int nfirst[],int nlast[],double ed[], 01409 double ec[],int ik,int in,int im,int idim,int ilend,int irend, 01410 int inlr, int inlc,int *jstat); 01411 #ifndef S1947 01412 extern 01413 #endif 01414 void 01415 s1947(double ea[], int nfirst[], int nlast[], int ik, int im, 01416 double etau[], int in, int incont, double ew[], int inlr, 01417 int *jnred, double efac[], int *jstat); 01418 #ifndef S1948 01419 extern 01420 #endif 01421 void 01422 s1948(double *ea,double *ew,int in,int ik,int inlr, 01423 int *nstart,int *jstat); 01424 #ifndef S1949 01425 extern 01426 #endif 01427 void 01428 s1949(double *ea,double *ew,double *eb,int in,int ik,int inlr, 01429 int idim,int *nstart,int *jstat); 01430 #ifndef S1950 01431 extern 01432 #endif 01433 void s1950(SISLCurve *oldcurve,SISLCurve *rankcurve,rank_info *ranking, 01434 double eps[],double epsco[],int startfix,int endfix,int *jncont, 01435 int mini,int maxi,SISLCurve **newcurve,double maxerr[],int *stat); 01436 #ifndef S1951 01437 extern 01438 #endif 01439 void 01440 s1951(double etau[], double ecoef[], int in, int ik, int idim, 01441 int ilend, int irend, int incont, double efac[]); 01442 #ifndef S1956 01443 extern 01444 #endif 01445 void s1956(SISLCurve *,SISLCurve *,SISLSurf **,int *); 01446 #ifndef S1959 01447 extern 01448 #endif 01449 void s1959(SISLPoint *, SISLCurve *, double *, int *); 01450 #ifndef S1960 01451 extern 01452 #endif 01453 void s1960(SISLPoint *, SISLSurf *, double [], int *); 01454 #ifndef S1990 01455 extern 01456 #endif 01457 void s1990(SISLSurf *, double, int *); 01458 #ifndef S1991 01459 extern 01460 #endif 01461 void s1991(SISLCurve *,double,int *); 01462 #ifndef S1992 01463 extern 01464 #endif 01465 void s1992(SISLObject *,int *); 01466 #ifndef S1992 01467 extern 01468 #endif 01469 void s1992cu(SISLCurve *,int *); 01470 #ifndef S1992 01471 extern 01472 #endif 01473 void s1992su(SISLSurf *,int *); 01474 #ifndef S1993 01475 extern 01476 #endif 01477 void s1993(SISLCurve *,int *); 01478 #ifndef S1994 01479 extern 01480 #endif 01481 void s1994(SISLSurf *,int *); 01482 #ifndef S2501 01483 extern 01484 #endif 01485 void s2501(SISLSurf *, int, double [], double [], double *, int *); 01486 #ifndef S2503 01487 extern 01488 #endif 01489 void s2503(SISLSurf *, int, double [], double [], double *, int *); 01490 #ifndef S2505 01491 extern 01492 #endif 01493 void s2505(SISLSurf *, int, double [], double [], double *, int *); 01494 #ifndef S2507 01495 extern 01496 #endif 01497 void s2507(SISLSurf *, int, double [], double [], double *, int *); 01498 #ifndef S2509 01499 extern 01500 #endif 01501 void s2509(SISLSurf *, int, double [], double [], double *, int *); 01502 #ifndef S2511 01503 extern 01504 #endif 01505 void s2511(SISLSurf *, int, double [], double [], double *, int *); 01506 #ifndef S2512 01507 extern 01508 #endif 01509 void s2512(SISLSurf *, int, int, int, double [], int *, int *, double [], int *); 01510 #ifndef S2513 01511 extern 01512 #endif 01513 void s2513(SISLSurf *, int, int, int, double [], double [], double [], int *); 01514 #ifndef S2514 01515 extern 01516 #endif 01517 void s2514(SISLSurf *, int, double [], double [], double [], int *); 01518 #ifndef S2515 01519 extern 01520 #endif 01521 void s2515(SISLSurf *, int, int, int, double [], int *,int *, double [], int *); 01522 #ifndef S2516 01523 extern 01524 #endif 01525 void s2516(SISLSurf *, int, double [], double [], double [], int *); 01526 #ifndef S2533 01527 extern 01528 #endif 01529 void s2533(double *, int, int, int, int, int *, double **, int *); 01530 #ifndef S2534 01531 extern 01532 #endif 01533 void s2534(SISLSurf *, int, int, int, int, 01534 void evalp(SISLSurf *, int, int, int, 01535 double [], int *, int *, 01536 double *, int *), 01537 int, SISLSurf **, int *); 01538 #ifndef S2535 01539 extern 01540 #endif 01541 void s2535(SISLSurf *, int, int, int *, int *, SISLSurf ***, int *); 01542 #ifndef S2541 01543 extern 01544 #endif 01545 void s2541(SISLSurf *surf, 01546 void evalp(SISLSurf *, int, int, int, double [], int *, int *, 01547 double *, int *), 01548 int, int, int, double [], int, int, double **, int *); 01549 #ifndef S2543 01550 extern 01551 #endif 01552 void s2543(SISLSurf *, int, double [], double [], double *, double *, 01553 double [], double [], int *); 01554 #ifndef S2551 01555 extern 01556 #endif 01557 void s2551(SISLCurve *, double, int *, double [], double *, int *); 01558 #ifndef S2554 01559 extern 01560 #endif 01561 void s2554(SISLCurve *, double, int *, double [], double *, int *); 01562 #ifndef S2555 01563 extern 01564 #endif 01565 void s2555(double [], double *, int *); 01566 #ifndef S2557 01567 extern 01568 #endif 01569 void s2557(SISLCurve *, double, int *, double [], double *, int *); 01570 #ifndef S2558 01571 extern 01572 #endif 01573 void s2558(double [], int, double *, int *); 01574 #ifndef S2560 01575 extern 01576 #endif 01577 void s2560(SISLCurve *, double, int *, double [], double [], double [], 01578 double [], double [], int *); 01579 #ifndef S2561 01580 extern 01581 #endif 01582 void s2561(double [], int, double [], double [], double [], double [], int *); 01583 #ifndef S6ADDCURVE 01584 extern 01585 #endif 01586 void s6addcurve(SISLCurve *,SISLCurve *,int,SISLCurve **,int *); 01587 #ifndef S6AFFDIST 01588 extern 01589 #endif 01590 double s6affdist(double [],double [],double [],int); 01591 #ifndef S6ANG 01592 extern 01593 #endif 01594 double s6ang(double [],double [],int); 01595 #ifndef S6ANGLE 01596 extern 01597 #endif 01598 double s6angle(double [],double [],double [],int,int *); 01599 #ifndef S6CHPAR 01600 extern 01601 #endif 01602 void s6chpar(double [],int,int,int,double []); 01603 #ifndef S6CRSS 01604 extern 01605 #endif 01606 void s6crss(double [],double [],double []); 01607 #ifndef S6CRVCHECK 01608 extern 01609 #endif 01610 void s6crvcheck(SISLCurve *,int *); 01611 #ifndef S6CURVATURE 01612 extern 01613 #endif 01614 void s6curvature(double [],int,double [],int *); 01615 #ifndef s6CURVRAD 01616 extern 01617 #endif 01618 void s6curvrad(double [],double [],double [],int,double *,int *); 01619 #ifndef S6DECASTELJAU 01620 extern 01621 #endif 01622 void s6deCasteljau(double [],double,double,double,int,double [],int *); 01623 #ifndef S6DECOMP 01624 extern 01625 #endif 01626 void s6decomp(double [],double [],double [],double [],double [],int *); 01627 #ifndef S6DEGNORM 01628 extern 01629 #endif 01630 void s6degnorm(SISLSurf *,int,double[],double[],double[],double[], 01631 double[],int *); 01632 #ifndef S6DERTOPT 01633 extern 01634 #endif 01635 void s6dertopt(double [],int [],int,int,double [],int *); 01636 #ifndef S6DIFF 01637 extern 01638 #endif 01639 void s6diff(double [],double [],int,double []); 01640 #ifndef S6DIST 01641 extern 01642 #endif 01643 double s6dist(double [],double [],int); 01644 #ifndef S6DLINE 01645 extern 01646 #endif 01647 double s6dline(double [],double [],double [],int,int *); 01648 #ifndef S6DPLANE 01649 extern 01650 #endif 01651 double s6dplane(double [],double [],double [],double [],int,int *); 01652 #ifndef S6EQUAL 01653 extern 01654 #endif 01655 int s6equal(double,double,double); 01656 #ifndef S6ERR 01657 extern 01658 #endif 01659 void s6err(char *,int,int); 01660 #ifndef S6EXISTBOX 01661 extern 01662 #endif 01663 int s6existbox(SISLbox *,int,double); 01664 #ifndef S6FINDFAC 01665 extern 01666 #endif 01667 void s6findfac(double [],double [],double [],double [],int,int, 01668 double *,double *,double *,int *); 01669 #ifndef S6FNDINTVL 01670 extern 01671 #endif 01672 void s6fndintvl(double *et,int ik,int in,int *ileft, 01673 double ax1,double ax2,int mu_max,int *jstat); 01674 #ifndef S6HERM 01675 extern 01676 #endif 01677 void s6herm(double *,double *,double *,int,int,int,int,int,double [],int *); 01678 #ifndef S6HERMITE_BEZIER 01679 extern 01680 #endif 01681 void s6hermite_bezier(SISLSurf *,double [],double [],int,double [],int *); 01682 #ifndef S6IDCON 01683 extern 01684 #endif 01685 void s6idcon(SISLIntdat **,SISLIntpt **,SISLIntpt **,int *); 01686 #ifndef S6IDCPT 01687 extern 01688 #endif 01689 void s6idcpt(SISLIntdat *,SISLIntpt *,SISLIntpt **); 01690 #ifndef S6IDEDG 01691 extern 01692 #endif 01693 void s6idedg(SISLObject *,SISLObject *,int,int,double,SISLIntdat *, 01694 SISLPtedge **,int *,int *); 01695 #ifndef S6IDENTIFY 01696 extern 01697 #endif 01698 void s6identify(SISLSurf *,double [],double [],double,double,double,int *); 01699 #ifndef S6IDGET 01700 extern 01701 #endif 01702 void s6idget(SISLObject *,SISLObject *,int,double,SISLIntdat *, 01703 SISLIntdat **,int *); 01704 #ifndef S6IDINT 01705 extern 01706 #endif 01707 void s6idint(SISLObject *,SISLObject *,SISLIntdat *,SISLIntpt **,int); 01708 #ifndef S6IDKLIST 01709 extern 01710 #endif 01711 void s6idklist(SISLIntdat **,SISLIntlist *,int *); 01712 #ifndef S6IDKPT 01713 extern 01714 #endif 01715 void s6idkpt(SISLIntdat **,SISLIntpt **,SISLIntpt **,SISLIntpt **,int *); 01716 #ifndef S6IDLIS 01717 extern 01718 #endif 01719 void s6idlis(SISLObject *,SISLObject *,SISLIntdat **,int *); 01720 #ifndef S6IDNPT 01721 extern 01722 #endif 01723 void s6idnpt(SISLIntdat **,SISLIntpt **,int,int *); 01724 #ifndef S6IDPUT 01725 extern 01726 #endif 01727 void s6idput(SISLIntdat **,SISLIntdat *,int,double,int *); 01728 #ifndef S6INV4 01729 extern 01730 #endif 01731 void s6inv4 (double [], double [], int *); 01732 #ifndef S6INVERT 01733 extern 01734 #endif 01735 void s6invert(double [],int,double [],int *); 01736 #ifndef S6KNOTMULT 01737 extern 01738 #endif 01739 int s6knotmult(double [],int,int,int *,double,int *); 01740 #ifndef S6LENGTH 01741 extern 01742 #endif 01743 double s6length(double [],int,int *); 01744 #ifndef S6LINE 01745 extern 01746 #endif 01747 void s6line(double []); 01748 #ifndef S6LPRJ 01749 extern 01750 #endif 01751 double s6lprj(double [],double [],int); 01752 #ifndef S6LUFACP 01753 extern 01754 #endif 01755 void s6lufacp(double [],int [],int,int *); 01756 #ifndef S6LUSOLP 01757 extern 01758 #endif 01759 void s6lusolp(double [],double [],int [],int,int *); 01760 #ifndef S6METRIC 01761 extern 01762 #endif 01763 void s6metric(double [],int,int,double [],int *); 01764 #ifndef S6MOVE 01765 extern 01766 #endif 01767 void s6move(double []); 01768 #ifndef S6MULVEC 01769 extern 01770 #endif 01771 void s6mulvec (double [],double [],double []); 01772 #ifndef S6MVEC 01773 extern 01774 #endif 01775 void s6mvec(double [],double [],int,double []); 01776 #ifndef S6NEWBOX 01777 extern 01778 #endif 01779 void s6newbox(SISLbox *pbox,int inum,int itype,double aepsge,int *jstat); 01780 #ifndef S6NORM 01781 extern 01782 #endif 01783 double s6norm(double [],int,double [],int *); 01784 #ifndef S6RATDER 01785 extern 01786 #endif 01787 void s6ratder(double [],int,int,double [],int *); 01788 #ifndef S6ROTAX 01789 extern 01790 #endif 01791 void s6rotax(double [],double [],double [],double [],int *); 01792 #ifndef S6ROTMAT 01793 extern 01794 #endif 01795 void s6rotmat (double [],double [],double [],double [],int *); 01796 #ifndef S6SCHOEN 01797 extern 01798 #endif 01799 double s6schoen(double [],int, int); 01800 #ifndef S6SCPR 01801 extern 01802 #endif 01803 double s6scpr(double [],double [],int); 01804 #ifndef S6SORTPAR 01805 extern 01806 #endif 01807 void s6sortpar(double [],double [],int,int,double [],double [],int *); 01808 #ifndef S6SRATDER 01809 extern 01810 #endif 01811 void s6sratder(double [],int,int,int,double [],int *); 01812 #ifndef S6STRIDER 01813 extern 01814 #endif 01815 void s6strider(double [],int,int,double [],int *); 01816 #ifndef S6TAKEUNION 01817 extern 01818 #endif 01819 void s6takeunion(double [],int,double [],int,double **,int *,int *); 01820 #ifndef S6TWONORM 01821 extern 01822 #endif 01823 void s6twonorm(double [],double [],double [],int *); 01824 #ifndef S9ADSIMP 01825 extern 01826 #endif 01827 double s9adsimp(double [],double [],double [],int,double [], 01828 double [],double [],double [],double,int *); 01829 #ifndef S9ADSTEP 01830 extern 01831 #endif 01832 double s9adstep(double [],double [],double [],double [], 01833 double [],double [],double [],double [], 01834 double [],double [],double [],double,int *); 01835 #ifndef S9BOUNDIMP 01836 extern 01837 #endif 01838 void s9boundimp(double [],double [],SISLSurf *,double [], 01839 int,double,int,double,double [],double [],int *); 01840 #ifndef S9BOUNDIT 01841 extern 01842 #endif 01843 void s9boundit(double [],double [],double [],double [], 01844 SISLSurf *,SISLSurf *,double,int,double, 01845 double [],double [],double [],double [],int *); 01846 #ifndef S9CLIPIMP 01847 extern 01848 #endif 01849 void s9clipimp(double [],double [],SISLSurf *,double [], 01850 int,double [],double [],double,double [],double [],int *); 01851 #ifndef S9CLIPIT 01852 extern 01853 #endif 01854 void s9clipit(double [],double [],double [],double [],SISLSurf *,SISLSurf *, 01855 double [],double [],double [],double [],double,double [], 01856 double [],double [],double [],int *); 01857 #ifndef S9CONMARCH 01858 extern 01859 #endif 01860 void s9conmarch(SISLSurf *,double,double [],int [],int, 01861 double *[],int *[],int *,int *); 01862 #ifndef S9ITERATE 01863 extern 01864 #endif 01865 void s9iterate(double [],double [],double [],double [],double [], 01866 SISLSurf *,SISLSurf *,double,double,double [],double [], 01867 double [],double [],int *); 01868 #ifndef S9ITERIMP 01869 extern 01870 #endif 01871 void s9iterimp(double [],double [],double [],SISLSurf *,double [],int, 01872 double,double,double [],double [],int *); 01873 #ifndef S9SIMPLE_KNOT 01874 extern 01875 #endif 01876 void s9simple_knot(SISLSurf *,int,double [],int *,int *); 01877 #ifndef S9SURMARCH 01878 extern 01879 #endif 01880 void s9surmarch(SISLSurf *,SISLSurf *,double [],int [],int, 01881 double *[],int *[],int *,int *); 01882 #ifndef SH1260 01883 extern 01884 #endif 01885 void sh1260(double aconst,SISLCurve *vcurve[],int icurve,int *jstat); 01886 #ifndef SH1261 01887 extern 01888 #endif 01889 void sh1261(SISLCurve *pcurve1,SISLCurve *pcurve2,double ecoef1[], 01890 int ik1,double ecoef2[],int ik2,SISLCurve **rcrtanc,int *jstat); 01891 #ifndef SH1262 01892 extern 01893 #endif 01894 void sh1262(SISLCurve *vcurve[],int iedge,int inmbx,double ecoef[],int *jstat); 01895 #ifndef SH1263 01896 extern 01897 #endif 01898 void sh1263(SISLCurve *vcurve[],int iedge,SISLCurve *vboundc[],int *jstat); 01899 #ifndef SH1365 01900 extern 01901 #endif 01902 void sh1365(SISLCurve *,double [],int,int,int,int,SISLCurve **, 01903 double **,double **,int *); 01904 #ifndef SH1369 01905 extern 01906 #endif 01907 void sh1369(SISLSurf *,double [],double [],double,double,int,double, 01908 double,int,int *,SISLTrack ***,int *,double **,int **,int *, 01909 SISLIntcurve ***,int *,SISLIntsurf ***,int *); 01910 #ifndef SH1371 01911 extern 01912 #endif 01913 void sh1371(SISLCurve *,double [],double,int,double,double,int,int *, 01914 SISLTrack ***,int *,double **,int **,int *,SISLIntcurve ***,int *); 01915 #ifndef SH1372 01916 extern 01917 #endif 01918 void sh1372(SISLCurve *,double [],double [],double,int,double,double,int, 01919 int *,SISLTrack ***,int *,double **,int **,int *, 01920 SISLIntcurve ***,int *); 01921 #ifndef SH1373 01922 extern 01923 #endif 01924 void sh1373(SISLCurve *,double [],double [],double [],int,double,double, 01925 int,int *,SISLTrack ***,int *,double **,int **,int *, 01926 SISLIntcurve ***,int *); 01927 #ifndef SH1374 01928 extern 01929 #endif 01930 void sh1374(SISLCurve *,double [],int,double,double,int,int *,SISLTrack ***, 01931 int *,double **,int **,int *,SISLIntcurve ***,int *); 01932 #ifndef SH1375 01933 extern 01934 #endif 01935 void sh1375(SISLCurve *,double [],double [],double,double,int,double, 01936 double,int,int *,SISLTrack ***,int *,double **,int **, 01937 int *,SISLIntcurve ***,int *); 01938 #ifndef SH1460 01939 extern 01940 #endif 01941 void sh1460(void (*)(double [],double [],int,int,int *), 01942 SISLCurve *[],int,SISLSurf ***,int *); 01943 #ifndef SH1461 01944 extern 01945 #endif 01946 void sh1461(void (*)(double [],double [],int,int,int *), 01947 void (*)(void (*)(double [],double [],int,int,int *), 01948 SISLCurve *[],int,double [],double [],double [],int *), 01949 SISLCurve *[],int,SISLSurf *[],int *); 01950 #ifndef SH1462 01951 extern 01952 #endif 01953 void sh1462(void (*)(double [],double [],int,int,int *), 01954 SISLCurve *[],int,double [],double [],double [],int *); 01955 #ifndef SH1463 01956 extern 01957 #endif 01958 void sh1463(void (*)(double [],double [],int,int,int *), 01959 SISLCurve *[],int,double [],double [],double [],int *); 01960 #ifndef SH1464 01961 extern 01962 #endif 01963 void sh1464(void (*)(double [],double [],int,int,int *), 01964 SISLCurve *[],int,double [],double [],double [],int *); 01965 #ifndef SH1465 01966 extern 01967 #endif 01968 void sh1465(void (*)(double [],double [],int,int,int *), 01969 SISLCurve *[],int,double [],double [],double [],int *); 01970 #ifndef SH1466 01971 extern 01972 #endif 01973 void sh1466(SISLCurve *[],double [],int,double [],double [],int *); 01974 #ifndef SH1467 01975 extern 01976 #endif 01977 void sh1467(SISLCurve *[],double [],int,double [],double [],int *); 01978 #ifndef SH1502 01979 extern 01980 #endif 01981 void sh1502(SISLCurve *,double [],double [],double [],double,double, 01982 int,double,double,int,int *,SISLTrack ***,int *,double **, 01983 int **,int *,SISLIntcurve ***,int *); 01984 #ifndef SH1503 01985 extern 01986 #endif 01987 void sh1503(SISLSurf *,double [],double [],double [],double,double,int, 01988 double,double,int,int *,SISLTrack ***,int *,double **,int **, 01989 int *,SISLIntcurve ***,int *,SISLIntsurf ***,int *); 01990 #ifndef SH1510 01991 extern 01992 #endif 01993 void sh1510(SISLSurf *,double [],int,double,double,int,int *, 01994 SISLTrack ***,int *,double **,int **,int *, 01995 SISLIntcurve ***,int *,SISLIntsurf ***,int *); 01996 #ifndef SH1511 01997 extern 01998 #endif 01999 void sh1511(SISLSurf *,double [],double [],int,double,double,int, 02000 int *,SISLTrack ***,int *,double **,int **,int *, 02001 SISLIntcurve ***,int *,SISLIntsurf ***,int *); 02002 #ifndef SH1761 02003 extern 02004 #endif 02005 void sh1761(SISLObject *,SISLObject *,double,SISLIntdat **,int *); 02006 #ifndef SH1762 02007 extern 02008 #endif 02009 void sh1762(SISLObject *,SISLObject *,double,SISLIntdat **,SISLEdge *[],int *); 02010 #ifndef SH1779 02011 extern 02012 #endif 02013 void sh1779(SISLObject *,SISLObject *,double,SISLIntdat **,SISLIntpt *, 02014 int *,int *); 02015 #ifndef SH1779_AT 02016 extern 02017 #endif 02018 void sh1779_at(SISLObject *,SISLObject *,SISLIntpt *,int *); 02019 #ifndef SH1780 02020 extern 02021 #endif 02022 void sh1780(SISLObject *,SISLObject *,double,SISLIntdat **, 02023 SISLIntpt *,int *,int *); 02024 #ifndef SH1780_AT 02025 extern 02026 #endif 02027 void sh1780_at(SISLObject *,SISLObject *,SISLIntpt *,int *); 02028 #ifndef SH1781 02029 extern 02030 #endif 02031 void sh1781(SISLObject *,SISLObject *,double,SISLIntdat **, 02032 SISLIntpt *,int *,int *); 02033 #ifndef SH1781_AT 02034 extern 02035 #endif 02036 void sh1781_at(SISLObject *,SISLObject *,SISLIntpt *,int *); 02037 #ifndef SH1782 02038 extern 02039 #endif 02040 void sh1782(SISLObject *,SISLObject *,double,SISLIntdat *,int,double, 02041 SISLIntdat **,int *,int *); 02042 #ifndef SH1783 02043 extern 02044 #endif 02045 void sh1783(SISLCurve *,SISLCurve *,double,double [],int,int,double [], 02046 double [],int *); 02047 #ifndef SH1784 02048 extern 02049 #endif 02050 void sh1784(SISLCurve *,SISLSurf *,double,double [],int,int,double [], 02051 double [],int *); 02052 #ifndef SH1786 02053 extern 02054 #endif 02055 void sh1786(SISLObject *,SISLObject *,double,SISLIntdat **,SISLIntpt *, 02056 int *,int *); 02057 #ifndef SH1787 02058 extern 02059 #endif 02060 void sh1787(SISLObject *,SISLObject *,double,SISLIntdat **,SISLIntpt *, 02061 int *,int *); 02062 #ifndef SH1790 02063 extern 02064 #endif 02065 void sh1790(SISLObject *,SISLObject *,int,double,int *); 02066 #ifndef SH1830 02067 extern 02068 #endif 02069 void sh1830(SISLObject *,SISLObject *,double,int *); 02070 #ifndef SH1831 02071 extern 02072 #endif 02073 void sh1831(SISLCurve *pc1, SISLCurve *pc2, int isign, double epoint[], 02074 double enorm[], double aepsge, int *jstat); 02075 #ifndef SH1834 02076 extern 02077 #endif 02078 void sh1834(SISLObject *,SISLObject *,double,int,double [],double [],int *); 02079 #ifndef SH1839 02080 extern 02081 #endif 02082 void sh1839(SISLObject *,SISLObject *,double,int *); 02083 #ifndef SH1850 02084 extern 02085 #endif 02086 void sh1850(SISLCurve *,double [],double [],int,double,double,int,int *, 02087 SISLTrack ***,int *,double **,int **,int *,SISLIntcurve ***,int *); 02088 #ifndef SH1851 02089 extern 02090 #endif 02091 void sh1851(SISLSurf *,double [],double [],int,double,double,int,int *, 02092 SISLTrack ***,int *,double **,int **,int *,SISLIntcurve ***, 02093 int *,SISLIntsurf ***,int *); 02094 #ifndef SH1852 02095 extern 02096 #endif 02097 void sh1852(SISLSurf *,double [],double,int,double,double,int,int *, 02098 SISLTrack ***,int *,double **,int **,int *,SISLIntcurve ***, 02099 int *,SISLIntsurf ***,int *); 02100 #ifndef SH1853 02101 extern 02102 #endif 02103 void sh1853(SISLSurf *,double [],double [],double,int,double,double,int, 02104 int *,SISLTrack ***,int *,double **,int **,int *, 02105 SISLIntcurve ***,int *,SISLIntsurf ***,int *); 02106 #ifndef SH1854 02107 extern 02108 #endif 02109 void sh1854(SISLSurf *,double[],double[],double[],int,double,double,int, 02110 int *, SISLTrack ***,int *,double **,int **,int *, 02111 SISLIntcurve ***,int *,SISLIntsurf ***,int *); 02112 #ifndef SH1855 02113 extern 02114 #endif 02115 void sh1855(SISLSurf *,double [],double,double [],int,double,double, 02116 int,int *,SISLTrack ***,int *,double **,int **,int *, 02117 SISLIntcurve ***,int *); 02118 #ifndef SH1856 02119 extern 02120 #endif 02121 void sh1856(SISLSurf *,double [],double [],int,double,double,int,int *, 02122 SISLTrack ***,int *,double **,int **,int *,SISLIntcurve ***,int *); 02123 #ifndef SH1857 02124 extern 02125 #endif 02126 void sh1857(SISLCurve *,SISLCurve *,double,double,int,int *,SISLTrack ***, 02127 int *,double **,double **,int **,int *,SISLIntcurve ***,int *); 02128 #ifndef SH1858 02129 extern 02130 #endif 02131 void sh1858(SISLSurf *,SISLCurve *,double,double,int,int *,SISLTrack ***, 02132 int *,double **,double **,int **,int *,SISLIntcurve ***,int *); 02133 #ifndef SH1859 02134 extern 02135 #endif 02136 void sh1859(SISLSurf *,SISLSurf *,double,double,int,int *,SISLTrack ***, 02137 int *,double **,double **,int **,int *,SISLIntcurve ***, 02138 int *,SISLIntsurf ***,int *); 02139 #ifndef SH1860 02140 extern 02141 #endif 02142 void sh1860(SISLSurf *,double[],int,double,double,int,int *,SISLTrack ***, 02143 int *,double **,int **,int *,SISLIntcurve ***,int *, 02144 SISLIntsurf ***,int *); 02145 02146 #ifndef SH1870 02147 extern 02148 #endif 02149 void sh1870(SISLSurf *,double *,int,double,double,int,int *,SISLTrack ***, 02150 int *,double **,int **,int *,SISLIntcurve ***,int *); 02151 #ifndef SH1871 02152 extern 02153 #endif 02154 void sh1871(SISLCurve *,double *,int,double,double,int,int *,SISLTrack ***, 02155 int *,double **,int **,int *,SISLIntcurve ***,int *); 02156 #ifndef SH1922 02157 extern 02158 #endif 02159 void sh1922(double [],int,int,double [],int,double [], 02160 int [],int [],int *); 02161 #ifndef SH1923 02162 extern 02163 #endif 02164 void sh1923(double *,int,int,int *,int *); 02165 #ifndef SH1924 02166 extern 02167 #endif 02168 void sh1924(double *,double *,int,int,int,int *,int *); 02169 #ifndef SH1925 02170 extern 02171 #endif 02172 void sh1925(SISLCurve *,SISLCurve *,int,double [],int [], 02173 int [],double [],double [],int,int,int *); 02174 #ifndef SH1926 02175 extern 02176 #endif 02177 void sh1926(double [],int,int,int,double [],double [],int,double [], 02178 int [],int [],double [],int [],double [],int *); 02179 #ifndef SH1927 02180 extern 02181 #endif 02182 void sh1927(double [],int,int,int,SISLCurve *,int,int,double [],int *); 02183 #ifndef SH1928 02184 extern 02185 #endif 02186 void sh1928(double [],int,int,int,double [],double [],int,int,int, 02187 double [],int,int [],int [],double [],double [],int [],int *); 02188 #ifndef SH1929 02189 extern 02190 #endif 02191 void sh1929(double [],int,int,int,double [],int,int,double [], 02192 int *,int *,int *); 02193 #ifndef SH1930 02194 extern 02195 #endif 02196 void sh1930(double [],int [],int [],double [],double [], 02197 int,int,int,int,int,int,int *); 02198 #ifndef SH1992 02199 extern 02200 #endif 02201 void sh1992(SISLObject *,int,double,int *); 02202 #ifndef SH1992CU 02203 extern 02204 #endif 02205 void sh1992cu(SISLCurve *,int,double,int *); 02206 #ifndef SH1992SU 02207 extern 02208 #endif 02209 void sh1992su(SISLSurf *,int,double,int *); 02210 #ifndef SH1993 02211 extern 02212 #endif 02213 void sh1993(SISLCurve *,double,int *); 02214 #ifndef SH1994 02215 extern 02216 #endif 02217 void sh1994(SISLSurf *,double,int *); 02218 #ifndef SH6CLOSEVERT 02219 extern 02220 #endif 02221 void sh6closevert(SISLCurve *,SISLSurf *,double *,double []); 02222 #ifndef SH6CVVERT 02223 extern 02224 #endif 02225 void 02226 sh6cvvert(SISLCurve *pc1, SISLCurve *pc2, double *cpar1, double *cpar2); 02227 #ifndef SH6COMEDG 02228 extern 02229 #endif 02230 void sh6comedg(SISLObject *,SISLObject *,SISLIntpt *,SISLIntpt *,int *); 02231 #ifndef SH6CONNECT 02232 extern 02233 #endif 02234 void sh6connect(SISLIntpt *,SISLIntpt *,int *); 02235 #ifndef SH6COUNT 02236 extern 02237 #endif 02238 int sh6count(SISLIntpt *,int *); 02239 #ifndef SH6DEGEN 02240 extern 02241 #endif 02242 void sh6degen(SISLObject *,SISLObject *,SISLIntdat **,double,int *); 02243 #ifndef SH6DISCONNECT 02244 extern 02245 #endif 02246 void sh6disconnect(SISLIntpt *,SISLIntpt *,int *); 02247 #ifndef SH6EDGPOINT 02248 extern 02249 #endif 02250 void sh6edgpoint(SISLEdge *[],SISLIntpt ***,int *,int *); 02251 #ifndef SH6EDGRED 02252 extern 02253 #endif 02254 void sh6edgred(SISLObject *,SISLObject *,SISLIntdat *,int *); 02255 #ifndef SH6EVALINT 02256 extern 02257 #endif 02258 void sh6evalint(SISLObject *,SISLObject *,double [],int,SISLIntpt *, 02259 double,double *[],double *[],double *[],int *); 02260 #ifndef SH6FINDSPLIT 02261 extern 02262 #endif 02263 void sh6findsplit(SISLSurf *,SISLSurf *,double,int *); 02264 #ifndef SH6FLOOP 02265 extern 02266 #endif 02267 void sh6floop(SISLIntpt *[],int,int *,int *); 02268 #ifndef SH6GETGEOM 02269 extern 02270 #endif 02271 void sh6getgeom(SISLObject *,int,SISLIntpt *,double **,double **,double,int *); 02272 #ifndef SH6GETLIST 02273 extern 02274 #endif 02275 void sh6getlist(SISLIntpt *,SISLIntpt *,int *,int *,int *); 02276 #ifndef SH6GETMAIN 02277 extern 02278 #endif 02279 SISLIntpt *sh6getmain(SISLIntpt *); 02280 #ifndef SH6GETNEXT 02281 extern 02282 #endif 02283 SISLIntpt *sh6getnext(SISLIntpt *,int); 02284 #ifndef SH6GETNHBRS 02285 extern 02286 #endif 02287 void sh6getnhbrs(SISLIntpt *,SISLIntpt **,SISLIntpt **,int *); 02288 #ifndef SH6GETOTHER 02289 extern 02290 #endif 02291 void sh6getother(SISLIntpt *,SISLIntpt *,SISLIntpt **,int *); 02292 #ifndef SH6GETPREV 02293 extern 02294 #endif 02295 int sh6getprev(SISLIntpt *,SISLIntpt *); 02296 #ifndef SH6GETTOP 02297 extern 02298 #endif 02299 void sh6gettop(SISLIntpt *,int,int *,int *,int *,int *,int *); 02300 #ifndef SH6GETTOPHLP 02301 extern 02302 #endif 02303 void sh6gettophlp(SISLIntpt *,int [4],int,int *); 02304 #ifndef SH6IDALLEDG 02305 extern 02306 #endif 02307 void sh6idalledg(SISLObject *,SISLObject *,SISLIntdat *,SISLEdge *[],int *); 02308 #ifndef SH6IDCON 02309 extern 02310 #endif 02311 void sh6idcon (SISLIntdat **,SISLIntpt **,SISLIntpt **,int *); 02312 #ifndef SH6IDFCROSS 02313 extern 02314 #endif 02315 void sh6idfcross(SISLIntdat *,SISLIntpt *[],int *,int,int,int *); 02316 #ifndef SH6IDGET 02317 extern 02318 #endif 02319 void sh6idget(SISLObject *,SISLObject *,int,double,SISLIntdat *, 02320 SISLIntdat **,double,int *); 02321 #ifndef SH6IDKPT 02322 extern 02323 #endif 02324 void sh6idkpt(SISLIntdat **,SISLIntpt **,int,int *); 02325 #ifndef SH6IDLIS 02326 extern 02327 #endif 02328 void sh6idlis(SISLObject *,SISLObject *,SISLIntdat **,double,int *); 02329 #ifndef SH6IDNPT 02330 extern 02331 #endif 02332 void sh6idnpt(SISLIntdat **,SISLIntpt **,int,int *); 02333 #ifndef SH6IDNEWUNITE 02334 extern 02335 #endif 02336 void sh6idnewunite(SISLObject *,SISLObject *,SISLIntdat **, 02337 SISLIntpt **,SISLIntpt **,double,double,int *); 02338 #ifndef SH6IDPUT 02339 extern 02340 #endif 02341 void sh6idput(SISLObject *,SISLObject *,SISLIntdat **,SISLIntdat *, 02342 int,double,SISLIntpt ***,int *,int *); 02343 #ifndef SH6IDRMCROSS 02344 extern 02345 #endif 02346 void sh6idrmcross(SISLObject *,SISLObject *,SISLIntdat **,SISLIntpt *[], 02347 int,SISLIntpt *[],int,int *); 02348 #ifndef SH6IDSPLIT 02349 extern 02350 #endif 02351 void sh6idsplit(SISLIntdat **,SISLIntpt *,int *); 02352 #ifndef SH6IDUNITE 02353 extern 02354 #endif 02355 void sh6idunite(SISLIntdat **,SISLIntpt **,SISLIntpt **,double,int *); 02356 #ifndef SH6INSERT 02357 extern 02358 #endif 02359 void sh6insert(SISLIntdat **,SISLIntpt *,SISLIntpt *,SISLIntpt **,int *); 02360 #ifndef SH6INSERTPT 02361 extern 02362 #endif 02363 void sh6insertpt(SISLIntpt *,SISLIntpt *,SISLIntpt *,int *); 02364 #ifndef SH6ISCONNECT 02365 extern 02366 #endif 02367 int sh6isconnect(SISLIntpt *,SISLIntpt *,SISLIntpt *); 02368 #ifndef SH6ISHELP 02369 extern 02370 #endif 02371 int sh6ishelp (SISLIntpt *); 02372 #ifndef SH6ISINSIDE 02373 extern 02374 #endif 02375 void sh6isinside(SISLObject *,SISLObject *,SISLIntpt *,int *); 02376 #ifndef SH6ISMAIN 02377 extern 02378 #endif 02379 int sh6ismain(SISLIntpt *); 02380 #ifndef SH6NMBHELP 02381 extern 02382 #endif 02383 int sh6nmbhelp(SISLIntpt *,int *); 02384 #ifndef SH6NMBMAIN 02385 extern 02386 #endif 02387 int sh6nmbmain (SISLIntpt *,int *); 02388 #ifndef SH6PTOBJ 02389 extern 02390 #endif 02391 void sh6ptobj(double *,SISLObject *,double,double [],double [],int *); 02392 #ifndef SH6PUTSING 02393 extern 02394 #endif 02395 void sh6putsing( SISLIntpt *,SISLIntpt *); 02396 #ifndef SH6PUTTOUCH 02397 extern 02398 #endif 02399 void sh6puttouch( SISLIntpt *,SISLIntpt *,int); 02400 #ifndef SH6RED 02401 extern 02402 #endif 02403 void sh6red(SISLObject *,SISLObject *,SISLIntdat *,int *); 02404 #ifndef SH6REMCON 02405 extern 02406 #endif 02407 void sh6remcon (SISLIntdat **,SISLIntpt *,SISLIntpt *,int *); 02408 #ifndef SH6REMOVEPT 02409 extern 02410 #endif 02411 void sh6removept(SISLIntpt *,SISLIntpt *,SISLIntpt *,int *); 02412 #ifndef SH6SEPCRV 02413 extern 02414 #endif 02415 void sh6sepcrv(SISLCurve *,SISLCurve *,double,double [],double *,int *); 02416 #ifndef SH6SETCNSDIR 02417 extern 02418 #endif 02419 void sh6setcnsdir(SISLIntpt *,SISLIntpt *,int,int *); 02420 #ifndef SH6SETDIR 02421 extern 02422 #endif 02423 void sh6setdir(SISLIntpt *,SISLIntpt *,int *); 02424 #ifndef SH6SETTOP 02425 extern 02426 #endif 02427 void sh6settop(SISLIntpt *,int,int,int,int,int,int *); 02428 #ifndef SH6SPLITGEOM 02429 extern 02430 #endif 02431 void sh6splitgeom(SISLSurf *,SISLSurf *,double,double [],double [], 02432 double *,double *,int *); 02433 #ifndef SH6TOHELP 02434 extern 02435 #endif 02436 void sh6tohelp(SISLIntpt *,int *); 02437 #ifndef SH6TOMAIN 02438 extern 02439 #endif 02440 void sh6tomain(SISLIntpt *,int *); 02441 #ifndef SH6TRIMLIST 02442 extern 02443 #endif 02444 void sh6trimlist(SISLIntpt *,SISLIntpt ***,int *,int *); 02445 #ifndef CRV_ARC_TANG 02446 extern 02447 #endif 02448 void crv_arc_tang(SISLCurve *,double[],double,double,double[],double[],int *); 02449 #ifndef CRV_CRV_TANG 02450 extern 02451 #endif 02452 void crv_crv_tang(SISLCurve *,SISLCurve *,double,double[],double[],int *); 02453 #ifndef CRV_LIN_TANG 02454 extern 02455 #endif 02456 void crv_lin_tang(SISLCurve *,double[],double[],double,double,double *,int *); 02457 #ifndef EV_CV_OFF 02458 extern 02459 #endif 02460 void ev_cv_off(SISLCurve *,int,double,int *,double,double[],int *); 02461 #ifndef EVAL_2_CRV 02462 extern 02463 #endif 02464 void eval_2_crv(SISLCurve *,SISLCurve *,int,double[],int *,int *, 02465 double[],int *); 02466 #ifndef EVAL_CRV_ARC 02467 extern 02468 #endif 02469 void eval_crv_arc(SISLCurve *,double[],double,int,double[],int *, 02470 double[],int *); 02471 #ifndef HP_S1880 02472 extern 02473 #endif 02474 void hp_s1880(SISLObject *,SISLObject *,int,int,int,SISLIntdat *,int *, 02475 double **,double **,int **,int *,SISLIntcurve ***, 02476 int *,SISLIntsurf ***,int *); 02477 #ifndef INT_JOIN_PER 02478 extern 02479 #endif 02480 void int_join_per(SISLIntdat **,SISLObject *,SISLObject *,double [], 02481 int,double,int *); 02482 #ifndef MAKE_CV_KREG 02483 extern 02484 #endif 02485 void make_cv_kreg(SISLCurve *,SISLCurve **,int *); 02486 #ifndef MAKE_SF_KREG 02487 extern 02488 #endif 02489 void make_sf_kreg(SISLSurf *,SISLSurf **,int *); 02490 #ifndef MAKE_TRACKS 02491 extern 02492 #endif 02493 void make_tracks(SISLObject *,SISLObject *,int,double [],int,SISLIntlist **, 02494 int *,SISLTrack ***,double,int *); 02495 #ifndef NEWKNOTS 02496 extern 02497 #endif 02498 void newknots(double [],int,int,double [],int,double,double **,int *,int *); 02499 #ifndef PICK_CRV_SF 02500 extern 02501 #endif 02502 void pick_crv_sf(SISLObject *,SISLObject *,int,SISLIntpt *,SISLIntpt *, 02503 SISLCurve **,int *); 02504 #ifndef PO_CRV_TANG 02505 extern 02506 #endif 02507 void po_crv_tang(SISLCurve *,double[],double,double,double *,int *); 02508 #ifndef REFINE_ALL 02509 extern 02510 #endif 02511 void refine_all(SISLIntdat **,SISLObject *,SISLObject *,double [], 02512 int,double,int *); 02513 #ifndef SH_1D_DIV 02514 extern 02515 #endif 02516 void sh_1d_div(SISLObject *,SISLObject *,double,SISLIntdat **, 02517 SISLEdge *[],int *); 02518 #ifndef SH_DIV_CRV 02519 extern 02520 #endif 02521 void sh_div_crv(SISLCurve *,int,double,SISLCurve **,int *); 02522 #ifndef SH_DIV_SURF 02523 extern 02524 #endif 02525 void sh_div_surf(SISLSurf *,int,int,double,SISLSurf **,int *); 02526 #ifndef SH_SET_AT 02527 extern 02528 #endif 02529 void sh_set_at(SISLObject *,SISLObject *,SISLIntdat *,int *); 02530 #ifndef SHAPE 02531 extern 02532 #endif 02533 void shape(double [],double [],int,int,int *); 02534 #ifndef SHCHECKPUT 02535 extern 02536 #endif 02537 void shcheckput(SISLObject *,SISLIntdat **,SISLIntdat *,int,double,int *); 02538 #ifndef SHCHECKTYPE 02539 extern 02540 #endif 02541 int shchecktype(SISLObject *,double *); 02542 #ifndef SHCSFSING 02543 extern 02544 #endif 02545 void shcsfsing(SISLCurve *,SISLSurf *,double [],double [],double [],int *); 02546 #ifndef SHEVALC 02547 extern 02548 #endif 02549 void shevalc(SISLCurve *,int,double,double,int *,double [],int *); 02550 #ifndef SHMKHLPPTS 02551 extern 02552 #endif 02553 void shmkhlppts(SISLObject *,SISLObject *,double,SISLIntdat **, 02554 SISLEdge *[],int *,int *); 02555 #ifndef SHSING 02556 extern 02557 #endif 02558 void shsing(SISLSurf *,SISLSurf *,double [],double [],double [],int *); 02559 #ifndef SPLI_SILH 02560 extern 02561 #endif 02562 void spli_silh (SISLIntdat ** pintdat,SISLObject * po1,int *jstat); 02563 #ifndef TEST_CYCLIC_KNOTS 02564 extern 02565 #endif 02566 void test_cyclic_knots(double [],int,int,int *); 02567 02568 #else /* NOT SISLNEEDPROTOTYPES */ 02569 02570 #ifndef CONSTRUCT 02571 extern 02572 #endif 02573 SISLIntpt *copyIntpt(); 02574 #ifndef CONSTRUCT 02575 extern 02576 #endif 02577 SISLEdge *newEdge(); 02578 #ifndef CONSTRUCT 02579 extern 02580 #endif 02581 SISLIntdat *newIntdat(); 02582 #ifndef CONSTRUCT 02583 extern 02584 #endif 02585 SISLIntlist *newIntlist(); 02586 #ifndef CONSTRUCT 02587 extern 02588 #endif 02589 SISLIntpt *newIntpt(); 02590 #ifndef CONSTRUCT 02591 extern 02592 #endif 02593 SISLObject *newObject(); 02594 #ifndef CONSTRUCT 02595 extern 02596 #endif 02597 SISLPoint *newPoint(); 02598 #ifndef CONSTRUCT 02599 extern 02600 #endif 02601 SISLPtedge *newPtedge(); 02602 #ifndef CONSTRUCT 02603 extern 02604 #endif 02605 SISLIntsurf *newIntsurf(); 02606 #ifndef CONSTRUCT 02607 extern 02608 #endif 02609 SISLTrack *newTrack(); 02610 #ifndef CONSTRUCT 02611 extern 02612 #endif 02613 SISLTrimpar *newTrimpar(); 02614 #ifndef CONSTRUCT 02615 extern 02616 #endif 02617 SISLIntpt *hp_newIntpt(); 02618 #ifndef CONSTRUCT 02619 extern 02620 #endif 02621 SISLIntpt *hp_copyIntpt(); 02622 #ifndef DESTRUCT 02623 extern 02624 #endif 02625 void freeEdge(); 02626 #ifndef DESTRUCT 02627 extern 02628 #endif 02629 void freeIntdat(); 02630 #ifndef DESTRUCT 02631 extern 02632 #endif 02633 void freeIntlist(); 02634 #ifndef DESTRUCT 02635 extern 02636 #endif 02637 void freeIntpt(); 02638 #ifndef DESTRUCT 02639 extern 02640 #endif 02641 void freeObject(); 02642 #ifndef DESTRUCT 02643 extern 02644 #endif 02645 void freePoint(); 02646 #ifndef DESTRUCT 02647 extern 02648 #endif 02649 void freePtedge(); 02650 #ifndef DESTRUCT 02651 extern 02652 #endif 02653 void freeIntsurf(); 02654 #ifndef DESTRUCT 02655 extern 02656 #endif 02657 void freeTrimpar(); 02658 #ifndef DESTRUCT 02659 extern 02660 #endif 02661 void freeTrack(); 02662 #ifndef MAKE3D 02663 extern 02664 #endif 02665 void make3D(); 02666 #ifndef S1119 02667 extern 02668 #endif 02669 void s1119(); 02670 #ifndef S1161 02671 extern 02672 #endif 02673 void s1161(); 02674 #ifndef S1162 02675 extern 02676 #endif 02677 void s1162(); 02678 #ifndef S1172 02679 extern 02680 #endif 02681 void s1172(); 02682 #ifndef S1173 02683 extern 02684 #endif 02685 void s1173(); 02686 #ifndef S1174 02687 extern 02688 #endif 02689 void s1174(); 02690 #ifndef S1190 02691 extern 02692 #endif 02693 void s1190(); 02694 #ifndef S1192 02695 extern 02696 #endif 02697 void s1192(); 02698 #ifndef S1219 02699 extern 02700 #endif 02701 void s1219(); 02702 #ifndef S1220 02703 extern 02704 #endif 02705 void s1220(); 02706 #ifndef S1222 02707 extern 02708 #endif 02709 void s1222(); 02710 #ifndef S1223 02711 extern 02712 #endif 02713 void s1223(); 02714 #ifndef S1224 02715 extern 02716 #endif 02717 void s1224(); 02718 #ifndef S1231 02719 extern 02720 #endif 02721 void s1231(); 02722 #ifndef S1232 02723 extern 02724 #endif 02725 void s1232(); 02726 #ifndef S1235 02727 extern 02728 #endif 02729 void s1235(); 02730 #ifndef S1236 02731 extern 02732 #endif 02733 void s1236(); 02734 #ifndef S1239 02735 extern 02736 #endif 02737 void s1239(); 02738 #ifndef S1244 02739 extern 02740 #endif 02741 void s1244(); 02742 #ifndef S1245 02743 extern 02744 #endif 02745 void s1245(); 02746 #ifndef S1251 02747 extern 02748 #endif 02749 void s1251(); 02750 #ifndef S1252 02751 extern 02752 #endif 02753 void s1252(); 02754 #ifndef S1301 02755 extern 02756 #endif 02757 void s1301(); 02758 #ifndef S1304 02759 extern 02760 #endif 02761 void s1304(); 02762 #ifndef S1305 02763 extern 02764 #endif 02765 void s1305(); 02766 #ifndef S1306 02767 extern 02768 #endif 02769 void s1306(); 02770 #ifndef S1307 02771 extern 02772 #endif 02773 void s1307(); 02774 #ifndef S1308 02775 extern 02776 #endif 02777 void s1308(); 02778 #ifndef S1309 02779 extern 02780 #endif 02781 double s1309(); 02782 #ifndef S1311 02783 extern 02784 #endif 02785 double s1311(); 02786 #ifndef S1312 02787 extern 02788 #endif 02789 void s1312(); 02790 #ifndef S1313 02791 extern 02792 #endif 02793 void s1313(); 02794 #ifndef S1320 02795 extern 02796 #endif 02797 void s1320(); 02798 #ifndef S1321 02799 extern 02800 #endif 02801 void s1321(); 02802 #ifndef S1322 02803 extern 02804 #endif 02805 void s1322(); 02806 #ifndef S1323 02807 extern 02808 #endif 02809 void s1323(); 02810 #ifndef S1324 02811 extern 02812 #endif 02813 void s1324(); 02814 #ifndef S1325 02815 extern 02816 #endif 02817 double s1325(); 02818 #ifndef S1329 02819 extern 02820 #endif 02821 void s1329(); 02822 #ifndef S1330 02823 extern 02824 #endif 02825 void s1330(); 02826 #ifndef S1331 02827 extern 02828 #endif 02829 void s1331(); 02830 #ifndef S1333 02831 extern 02832 #endif 02833 void s1333(); 02834 #ifndef S1333_COUNT 02835 extern 02836 #endif 02837 void s1333_count(); 02838 #ifndef S1333_CYCLIC 02839 extern 02840 #endif 02841 void s1333_cyclic(); 02842 #ifndef S1334 02843 extern 02844 #endif 02845 void s1334(); 02846 #ifndef S1340 02847 extern 02848 #endif 02849 void s1340(); 02850 #ifndef S1341 02851 extern 02852 #endif 02853 void s1341(); 02854 #ifndef S1342 02855 extern 02856 #endif 02857 void s1342(); 02858 #ifndef S1343 02859 extern 02860 #endif 02861 void s1343(); 02862 #ifndef S1345 02863 extern 02864 #endif 02865 void s1345(); 02866 #ifndef S1346 02867 extern 02868 #endif 02869 void s1346(); 02870 #ifndef S1347 02871 extern 02872 #endif 02873 void s1347(); 02874 #ifndef S1348 02875 extern 02876 #endif 02877 void s1348(); 02878 #ifndef S1349 02879 extern 02880 #endif 02881 void s1349(); 02882 #ifndef S1350 02883 extern 02884 #endif 02885 void s1350(); 02886 #ifndef S1351 02887 extern 02888 #endif 02889 void s1351(); 02890 #ifndef S1352 02891 extern 02892 #endif 02893 void s1352(); 02894 #ifndef S1353 02895 extern 02896 #endif 02897 void s1353(); 02898 #ifndef S1354 02899 extern 02900 #endif 02901 void s1354(); 02902 #ifndef S1355 02903 extern 02904 #endif 02905 void s1355(); 02906 #ifndef S1358 02907 extern 02908 #endif 02909 void s1358(); 02910 #ifndef S1359 02911 extern 02912 #endif 02913 void s1359(); 02914 #ifndef S1361 02915 extern 02916 #endif 02917 void s1361(); 02918 #ifndef S1362 02919 extern 02920 #endif 02921 void s1362(); 02922 #ifndef S1366 02923 extern 02924 #endif 02925 void s1366(); 02926 #ifndef S1367 02927 extern 02928 #endif 02929 void s1367(); 02930 #ifndef S1370 02931 extern 02932 #endif 02933 void s1370(); 02934 #ifndef S1376 02935 extern 02936 #endif 02937 void s1376(); 02938 #ifndef S1377 02939 extern 02940 #endif 02941 void s1377(); 02942 #ifndef S1378 02943 extern 02944 #endif 02945 void s1378(); 02946 #ifndef S1381 02947 extern 02948 #endif 02949 void s1381(); 02950 #ifndef S1382 02951 extern 02952 #endif 02953 void s1382(); 02954 #ifndef S1384 02955 extern 02956 #endif 02957 void s1384(); 02958 #ifndef S1385 02959 extern 02960 #endif 02961 void s1385(); 02962 #ifndef S1393 02963 extern 02964 #endif 02965 void s1393(); 02966 #ifndef S1399 02967 extern 02968 #endif 02969 void s1399(); 02970 #ifndef S1435 02971 extern 02972 #endif 02973 void s1435(); 02974 #ifndef S1436 02975 extern 02976 #endif 02977 void s1436(); 02978 #ifndef S1437 02979 extern 02980 #endif 02981 void s1437(); 02982 #ifndef S1438 02983 extern 02984 #endif 02985 void s1438(); 02986 #ifndef S1452 02987 extern 02988 #endif 02989 void s1452(); 02990 #ifndef S1500 02991 extern 02992 #endif 02993 void s1500(); 02994 #ifndef S1504 02995 extern 02996 #endif 02997 void s1504(); 02998 #ifndef S1505 02999 extern 03000 #endif 03001 void s1505(); 03002 #ifndef S1507 03003 extern 03004 #endif 03005 void s1507(); 03006 #ifndef S1512 03007 extern 03008 #endif 03009 void s1512(); 03010 #ifndef S1513 03011 extern 03012 #endif 03013 void s1513(); 03014 #ifndef S1516 03015 extern 03016 #endif 03017 void s1516(); 03018 #ifndef S1517 03019 extern 03020 #endif 03021 void s1517(); 03022 #ifndef S1520 03023 extern 03024 #endif 03025 void s1520(); 03026 #ifndef S1521 03027 extern 03028 #endif 03029 SISLCurve *s1521(); 03030 #ifndef S1528 03031 extern 03032 #endif 03033 void s1528(); 03034 #ifndef S1531 03035 extern 03036 #endif 03037 void s1531(); 03038 #ifndef S1540 03039 extern 03040 #endif 03041 void s1540(); 03042 #ifndef S1541 03043 extern 03044 #endif 03045 void s1541(); 03046 #ifndef S1604 03047 extern 03048 #endif 03049 void s1604(); 03050 #ifndef S1605 03051 extern 03052 #endif 03053 void s1605(); 03054 #ifndef S1612 03055 extern 03056 #endif 03057 void s1612(); 03058 #ifndef S1613BEZ 03059 extern 03060 #endif 03061 void s1613bez(); 03062 #ifndef S1614 03063 extern 03064 #endif 03065 void s1614 (); 03066 #ifndef S1615 03067 extern 03068 #endif 03069 void s1615 (); 03070 #ifndef S1616 03071 extern 03072 #endif 03073 void s1616 (); 03074 #ifndef S1617 03075 extern 03076 #endif 03077 void s1617 (); 03078 #ifndef S1618 03079 extern 03080 #endif 03081 void s1618 (); 03082 #ifndef S1619 03083 extern 03084 #endif 03085 void s1619 (); 03086 #ifndef S1700 03087 extern 03088 #endif 03089 void s1700(); 03090 #ifndef S1701 03091 extern 03092 #endif 03093 void s1701(); 03094 #ifndef S1705 03095 extern 03096 #endif 03097 void s1705(); 03098 #ifndef S1707 03099 extern 03100 #endif 03101 void s1707(); 03102 #ifndef S1708 03103 extern 03104 #endif 03105 void s1708(); 03106 #ifndef S1741 03107 extern 03108 #endif 03109 void s1741(); 03110 #ifndef S1753 03111 extern 03112 #endif 03113 void s1753(); 03114 #ifndef S1754 03115 extern 03116 #endif 03117 void s1754(); 03118 #ifndef S1755 03119 extern 03120 #endif 03121 void s1755(); 03122 #ifndef S1770 03123 extern 03124 #endif 03125 void s1770(); 03126 #ifndef S1770_2D 03127 extern 03128 #endif 03129 void s1770_2D(); 03130 #ifndef S1771 03131 extern 03132 #endif 03133 void s1771(); 03134 #ifndef S1772 03135 extern 03136 #endif 03137 void s1772(); 03138 #ifndef S1773 03139 extern 03140 #endif 03141 void s1773(); 03142 #ifndef S1780 03143 extern 03144 #endif 03145 void s1780(); 03146 #ifndef S1785 03147 extern 03148 #endif 03149 void s1785(); 03150 #ifndef S1786 03151 extern 03152 #endif 03153 void s1786(); 03154 #ifndef S1787 03155 extern 03156 #endif 03157 void s1787(); 03158 #ifndef S1788 03159 extern 03160 #endif 03161 void s1788(); 03162 #ifndef S1790 03163 extern 03164 #endif 03165 void s1790(); 03166 #ifndef S1791 03167 extern 03168 #endif 03169 int s1791(); 03170 #ifndef S1792 03171 extern 03172 #endif 03173 double s1792(); 03174 #ifndef S1795 03175 extern 03176 #endif 03177 void s1795(); 03178 #ifndef S1796 03179 extern 03180 #endif 03181 void s1796(); 03182 #ifndef S1797 03183 extern 03184 #endif 03185 void s1797(); 03186 #ifndef S1830 03187 extern 03188 #endif 03189 void s1830(); 03190 #ifndef S1834 03191 extern 03192 #endif 03193 void s1834(); 03194 #ifndef S1839 03195 extern 03196 #endif 03197 void s1839(); 03198 #ifndef S1840 03199 extern 03200 #endif 03201 void s1840(); 03202 #ifndef S1880 03203 extern 03204 #endif 03205 void s1880(); 03206 #ifndef S1890 03207 extern 03208 #endif 03209 void s1890(); 03210 #ifndef S1891 03211 extern 03212 #endif 03213 void s1891(); 03214 #ifndef S1893 03215 extern 03216 #endif 03217 void s1893(); 03218 #ifndef S1894 03219 extern 03220 #endif 03221 void s1894(); 03222 #ifndef S1896 03223 extern 03224 #endif 03225 void s1896(); 03226 #ifndef S1897 03227 extern 03228 #endif 03229 void s1897(); 03230 #ifndef S1900 03231 extern 03232 #endif 03233 void s1900(); 03234 #ifndef S1901 03235 extern 03236 #endif 03237 void s1901(); 03238 #ifndef S1902 03239 extern 03240 #endif 03241 void s1902(); 03242 #ifndef S1903 03243 extern 03244 #endif 03245 void s1903(); 03246 #ifndef S1904 03247 extern 03248 #endif 03249 void s1904(); 03250 #ifndef S1905 03251 extern 03252 #endif 03253 void s1905(); 03254 #ifndef S1906 03255 extern 03256 #endif 03257 void s1906(); 03258 #ifndef S1907 03259 extern 03260 #endif 03261 void s1907(); 03262 #ifndef S1908 03263 extern 03264 #endif 03265 void s1908(); 03266 #ifndef S1909 03267 extern 03268 #endif 03269 void s1909(); 03270 #ifndef S1910 03271 extern 03272 #endif 03273 void s1910(); 03274 #ifndef S1911 03275 extern 03276 #endif 03277 void s1911(); 03278 #ifndef S1912 03279 extern 03280 #endif 03281 void s1912(); 03282 #ifndef S1916 03283 extern 03284 #endif 03285 void s1916(); 03286 #ifndef S1917 03287 extern 03288 #endif 03289 void s1917(); 03290 #ifndef S1918 03291 extern 03292 #endif 03293 void s1918(); 03294 #ifndef S1919 03295 extern 03296 #endif 03297 void s1919(); 03298 #ifndef S1924 03299 extern 03300 #endif 03301 void s1924(); 03302 #ifndef S1925 03303 extern 03304 #endif 03305 void s1925(); 03306 #ifndef S1926 03307 extern 03308 #endif 03309 void s1926(); 03310 #ifndef S1927 03311 extern 03312 #endif 03313 void s1927(); 03314 #ifndef S1931 03315 extern 03316 #endif 03317 void s1931(); 03318 #ifndef S1931UNIT 03319 extern 03320 #endif 03321 void s1931unit(); 03322 #ifndef S1932 03323 extern 03324 #endif 03325 void s1932(); 03326 #ifndef S1933 03327 extern 03328 #endif 03329 void s1933(); 03330 #ifndef S1934 03331 extern 03332 #endif 03333 void s1934(); 03334 #ifndef S1935 03335 extern 03336 #endif 03337 void s1935(); 03338 #ifndef S1936 03339 extern 03340 #endif 03341 void s1936(); 03342 #ifndef S1937 03343 extern 03344 #endif 03345 void s1937(); 03346 #ifndef S1938 03347 extern 03348 #endif 03349 void s1938(); 03350 #ifndef S1940 03351 extern 03352 #endif 03353 void s1940(); 03354 #ifndef S1941 03355 extern 03356 #endif 03357 void s1941(); 03358 #ifndef S1942 03359 extern 03360 #endif 03361 void s1942(); 03362 #ifndef S1943 03363 extern 03364 #endif 03365 void s1943(); 03366 #ifndef S1944 03367 extern 03368 #endif 03369 void s1944(); 03370 #ifndef S1945 03371 extern 03372 #endif 03373 void s1945(); 03374 #ifndef S1946 03375 extern 03376 #endif 03377 void s1946(); 03378 #ifndef S1947 03379 extern 03380 #endif 03381 void s1947(); 03382 #ifndef S1948 03383 extern 03384 #endif 03385 void s1948(); 03386 #ifndef S1949 03387 extern 03388 #endif 03389 void s1949(); 03390 #ifndef S1950 03391 extern 03392 #endif 03393 void s1950(); 03394 #ifndef S1951 03395 extern 03396 #endif 03397 void s1951(); 03398 #ifndef S1956 03399 extern 03400 #endif 03401 void s1956(); 03402 #ifndef S1959 03403 extern 03404 #endif 03405 void s1959(); 03406 #ifndef S1960 03407 extern 03408 #endif 03409 void s1960(); 03410 #ifndef S1990 03411 extern 03412 #endif 03413 void s1990(); 03414 #ifndef S1991 03415 extern 03416 #endif 03417 void s1991(); 03418 #ifndef S1992 03419 extern 03420 #endif 03421 void s1992(); 03422 #ifndef S1992 03423 extern 03424 #endif 03425 void s1992cu(); 03426 #ifndef S1992 03427 extern 03428 #endif 03429 void s1992su(); 03430 #ifndef S1993 03431 extern 03432 #endif 03433 void s1993(); 03434 #ifndef S1994 03435 extern 03436 #endif 03437 void s1994(); 03438 #ifndef S2501 03439 extern 03440 #endif 03441 void s2501(); 03442 #ifndef S2503 03443 extern 03444 #endif 03445 void s2503(); 03446 #ifndef S2505 03447 extern 03448 #endif 03449 void s2505(); 03450 #ifndef S2507 03451 extern 03452 #endif 03453 void s2507(); 03454 #ifndef S2509 03455 extern 03456 #endif 03457 void s2509(); 03458 #ifndef S2511 03459 extern 03460 #endif 03461 void s2511(); 03462 #ifndef S2512 03463 extern 03464 #endif 03465 void s2512(); 03466 #ifndef S2513 03467 extern 03468 #endif 03469 void s2513(); 03470 #ifndef S2514 03471 extern 03472 #endif 03473 void s2514(); 03474 #ifndef S2515 03475 extern 03476 #endif 03477 void s2515(); 03478 #ifndef S2516 03479 extern 03480 #endif 03481 void s2516(); 03482 #ifndef S2533 03483 extern 03484 #endif 03485 void s2533(); 03486 #ifndef S2534 03487 extern 03488 #endif 03489 void s2534(); 03490 #ifndef S2535 03491 extern 03492 #endif 03493 void s2535(); 03494 #ifndef S2541 03495 extern 03496 #endif 03497 void s2541(); 03498 #ifndef S2543 03499 extern 03500 #endif 03501 void s2543(); 03502 #ifndef S2551 03503 extern 03504 #endif 03505 void s2551(); 03506 #ifndef S2554 03507 extern 03508 #endif 03509 void s2554(); 03510 #ifndef S2555 03511 extern 03512 #endif 03513 void s2555(); 03514 #ifndef S2557 03515 extern 03516 #endif 03517 void s2557(); 03518 #ifndef S2558 03519 extern 03520 #endif 03521 void s2558(); 03522 #ifndef S2560 03523 extern 03524 #endif 03525 void s2560(); 03526 #ifndef S2561 03527 extern 03528 #endif 03529 void s2561(); 03530 #ifndef S6ADDCURVE 03531 extern 03532 #endif 03533 void s6addcurve(); 03534 #ifndef S6AFFDIST 03535 extern 03536 #endif 03537 double s6affdist(); 03538 #ifndef S6ANG 03539 extern 03540 #endif 03541 double s6ang(); 03542 #ifndef S6ANGLE 03543 extern 03544 #endif 03545 double s6angle(); 03546 #ifndef S6CHPAR 03547 extern 03548 #endif 03549 void s6chpar(); 03550 #ifndef S6CRSS 03551 extern 03552 #endif 03553 void s6crss(); 03554 #ifndef S6CRVCHECK 03555 extern 03556 #endif 03557 void s6crvcheck(); 03558 #ifndef S6CURVATURE 03559 extern 03560 #endif 03561 void s6curvature(); 03562 #ifndef s6CURVRAD 03563 extern 03564 #endif 03565 void s6curvrad(); 03566 #ifndef S6DECASTELJAU 03567 extern 03568 #endif 03569 void s6deCasteljau(); 03570 #ifndef S6DECOMP 03571 extern 03572 #endif 03573 void s6decomp(); 03574 #ifndef S6DEGNORM 03575 extern 03576 #endif 03577 void s6degnorm(); 03578 #ifndef S6DERTOPT 03579 extern 03580 #endif 03581 void s6dertopt(); 03582 #ifndef S6DIFF 03583 extern 03584 #endif 03585 void s6diff(); 03586 #ifndef S6DIST 03587 extern 03588 #endif 03589 double s6dist(); 03590 #ifndef S6DLINE 03591 extern 03592 #endif 03593 double s6dline(); 03594 #ifndef S6DPLANE 03595 extern 03596 #endif 03597 double s6dplane(); 03598 #ifndef S6EQUAL 03599 extern 03600 #endif 03601 int s6equal(); 03602 #ifndef S6ERR 03603 extern 03604 #endif 03605 void s6err(); 03606 #ifndef S6EXISTBOX 03607 extern 03608 #endif 03609 int s6existbox(); 03610 #ifndef S6FINDFAC 03611 extern 03612 #endif 03613 void s6findfac(); 03614 #ifndef S6HERM 03615 extern 03616 #endif 03617 void s6herm(); 03618 #ifndef S6HERMITE_BEZIER 03619 extern 03620 #endif 03621 void s6hermite_bezier(); 03622 #ifndef S6IDCON 03623 extern 03624 #endif 03625 void s6idcon(); 03626 #ifndef S6IDCPT 03627 extern 03628 #endif 03629 void s6idcpt(); 03630 #ifndef S6IDEDG 03631 extern 03632 #endif 03633 void s6idedg(); 03634 #ifndef S6IDENTIFY 03635 extern 03636 #endif 03637 void s6identify(); 03638 #ifndef S6IDGET 03639 extern 03640 #endif 03641 void s6idget(); 03642 #ifndef S6IDINT 03643 extern 03644 #endif 03645 void s6idint(); 03646 #ifndef S6IDKLIST 03647 extern 03648 #endif 03649 void s6idklist(); 03650 #ifndef S6IDKPT 03651 extern 03652 #endif 03653 void s6idkpt(); 03654 #ifndef S6IDLIS 03655 extern 03656 #endif 03657 void s6idlis(); 03658 #ifndef S6IDNPT 03659 extern 03660 #endif 03661 void s6idnpt(); 03662 #ifndef S6IDPUT 03663 extern 03664 #endif 03665 void s6idput(); 03666 #ifndef S6INV4 03667 extern 03668 #endif 03669 void s6inv4 (); 03670 #ifndef S6INVERT 03671 extern 03672 #endif 03673 void s6invert(); 03674 #ifndef S6KNOTMULT 03675 extern 03676 #endif 03677 int s6knotmult(); 03678 #ifndef S6LENGTH 03679 extern 03680 #endif 03681 double s6length(); 03682 #ifndef S6LINE 03683 extern 03684 #endif 03685 void s6line(); 03686 #ifndef S6LPRJ 03687 extern 03688 #endif 03689 double s6lprj(); 03690 #ifndef S6LUFACP 03691 extern 03692 #endif 03693 void s6lufacp(); 03694 #ifndef S6LUSOLP 03695 extern 03696 #endif 03697 void s6lusolp(); 03698 #ifndef S6METRIC 03699 extern 03700 #endif 03701 void s6metric(); 03702 #ifndef S6MOVE 03703 extern 03704 #endif 03705 void s6move(); 03706 #ifndef S6MULVEC 03707 extern 03708 #endif 03709 void s6mulvec (); 03710 #ifndef S6MVEC 03711 extern 03712 #endif 03713 void s6mvec(); 03714 #ifndef S6NEWBOX 03715 extern 03716 #endif 03717 void s6newbox(); 03718 #ifndef S6NORM 03719 extern 03720 #endif 03721 double s6norm(); 03722 #ifndef S6RATDER 03723 extern 03724 #endif 03725 void s6ratder(); 03726 #ifndef S6ROTAX 03727 extern 03728 #endif 03729 void s6rotax(); 03730 #ifndef S6SCPR 03731 extern 03732 #endif 03733 double s6scpr(); 03734 #ifndef S6ROTMAT 03735 extern 03736 #endif 03737 void s6rotmat (); 03738 #ifndef S6SCHOEN 03739 extern 03740 #endif 03741 double s6schoen(); 03742 #ifndef S6SORTPAR 03743 extern 03744 #endif 03745 void s6sortpar(); 03746 #ifndef S6SRATDER 03747 extern 03748 #endif 03749 void s6sratder(); 03750 #ifndef S6STRIDER 03751 extern 03752 #endif 03753 void s6strider(); 03754 #ifndef S6TAKEUNION 03755 extern 03756 #endif 03757 void s6takeunion(); 03758 #ifndef S6TWONORM 03759 extern 03760 #endif 03761 void s6twonorm(); 03762 #ifndef S9ADSIMP 03763 extern 03764 #endif 03765 double s9adsimp(); 03766 #ifndef S9ADSTEP 03767 extern 03768 #endif 03769 double s9adstep(); 03770 #ifndef S9BOUNDIMP 03771 extern 03772 #endif 03773 void s9boundimp(); 03774 #ifndef S9BOUNDIT 03775 extern 03776 #endif 03777 void s9boundit(); 03778 #ifndef S9CLIPIMP 03779 extern 03780 #endif 03781 void s9clipimp(); 03782 #ifndef S9CLIPIT 03783 extern 03784 #endif 03785 void s9clipit(); 03786 #ifndef S9CONMARCH 03787 extern 03788 #endif 03789 void s9conmarch(); 03790 #ifndef S9ITERATE 03791 extern 03792 #endif 03793 void s9iterate(); 03794 #ifndef S9ITERIMP 03795 extern 03796 #endif 03797 void s9iterimp(); 03798 #ifndef S9SIMPLE_KNOT 03799 extern 03800 #endif 03801 void s9simple_knot(); 03802 #ifndef S9SURMARCH 03803 extern 03804 #endif 03805 void s9surmarch(); 03806 #ifndef SH1260 03807 extern 03808 #endif 03809 void sh1260(); 03810 #ifndef SH1261 03811 extern 03812 #endif 03813 void sh1261(); 03814 #ifndef SH1262 03815 extern 03816 #endif 03817 void sh1262(); 03818 #ifndef SH1263 03819 extern 03820 #endif 03821 void sh1263(); 03822 #ifndef SH1365 03823 extern 03824 #endif 03825 void sh1365(); 03826 #ifndef SH1369 03827 extern 03828 #endif 03829 void sh1369(); 03830 #ifndef SH1371 03831 extern 03832 #endif 03833 void sh1371(); 03834 #ifndef SH1372 03835 extern 03836 #endif 03837 void sh1372(); 03838 #ifndef SH1373 03839 extern 03840 #endif 03841 void sh1373(); 03842 #ifndef SH1374 03843 extern 03844 #endif 03845 void sh1374(); 03846 #ifndef SH1375 03847 extern 03848 #endif 03849 void sh1375(); 03850 #ifndef SH1460 03851 extern 03852 #endif 03853 void sh1460(); 03854 #ifndef SH1461 03855 extern 03856 #endif 03857 void sh1461(); 03858 #ifndef SH1462 03859 extern 03860 #endif 03861 void sh1462(); 03862 #ifndef SH1463 03863 extern 03864 #endif 03865 void sh1463(); 03866 #ifndef SH1464 03867 extern 03868 #endif 03869 void sh1464(); 03870 #ifndef SH1465 03871 extern 03872 #endif 03873 void sh1465(); 03874 #ifndef SH1466 03875 extern 03876 #endif 03877 void sh1466(); 03878 #ifndef SH1467 03879 extern 03880 #endif 03881 void sh1467(); 03882 #ifndef SH1502 03883 extern 03884 #endif 03885 void sh1502(); 03886 #ifndef SH1503 03887 extern 03888 #endif 03889 void sh1503(); 03890 #ifndef SH1510 03891 extern 03892 #endif 03893 void sh1510(); 03894 #ifndef SH1511 03895 extern 03896 #endif 03897 void sh1511(); 03898 #ifndef SH1761 03899 extern 03900 #endif 03901 void sh1761(); 03902 #ifndef SH1762 03903 extern 03904 #endif 03905 void sh1762(); 03906 #ifndef SH1779 03907 extern 03908 #endif 03909 void sh1779(); 03910 #ifndef SH1779_AT 03911 extern 03912 #endif 03913 void sh1779_at(); 03914 #ifndef SH1780 03915 extern 03916 #endif 03917 void sh1780(); 03918 #ifndef SH1780_AT 03919 extern 03920 #endif 03921 void sh1780_at(); 03922 #ifndef SH1781 03923 extern 03924 #endif 03925 void sh1781(); 03926 #ifndef SH1781_AT 03927 extern 03928 #endif 03929 void sh1781_at(); 03930 #ifndef SH1782 03931 extern 03932 #endif 03933 void sh1782(); 03934 #ifndef SH1783 03935 extern 03936 #endif 03937 void sh1783(); 03938 #ifndef SH1784 03939 extern 03940 #endif 03941 void sh1784(); 03942 #ifndef SH1786 03943 extern 03944 #endif 03945 void sh1786(); 03946 #ifndef SH1787 03947 extern 03948 #endif 03949 void sh1787(); 03950 #ifndef SH1790 03951 extern 03952 #endif 03953 void sh1790(); 03954 #ifndef SH1830 03955 extern 03956 #endif 03957 void sh1830(); 03958 #ifndef SH1831 03959 extern 03960 #endif 03961 void sh1831(); 03962 #ifndef SH1834 03963 extern 03964 #endif 03965 void sh1834(); 03966 #ifndef SH1839 03967 extern 03968 #endif 03969 void sh1839(); 03970 #ifndef SH1850 03971 extern 03972 #endif 03973 void sh1850(); 03974 #ifndef SH1851 03975 extern 03976 #endif 03977 void sh1851(); 03978 #ifndef SH1852 03979 extern 03980 #endif 03981 void sh1852(); 03982 #ifndef SH1853 03983 extern 03984 #endif 03985 void sh1853(); 03986 #ifndef SH1854 03987 extern 03988 #endif 03989 void sh1854(); 03990 #ifndef SH1855 03991 extern 03992 #endif 03993 void sh1855(); 03994 #ifndef SH1856 03995 extern 03996 #endif 03997 void sh1856(); 03998 #ifndef SH1857 03999 extern 04000 #endif 04001 void sh1857(); 04002 #ifndef SH1858 04003 extern 04004 #endif 04005 void sh1858(); 04006 #ifndef SH1859 04007 extern 04008 #endif 04009 void sh1859(); 04010 #ifndef SH1860 04011 extern 04012 #endif 04013 void sh1860(); 04014 #ifndef SH1870 04015 extern 04016 #endif 04017 void sh1870(); 04018 #ifndef SH1871 04019 extern 04020 #endif 04021 void sh1871(); 04022 #ifndef SH1922 04023 extern 04024 #endif 04025 void sh1922(); 04026 #ifndef SH1923 04027 extern 04028 #endif 04029 void sh1923(); 04030 #ifndef SH1924 04031 extern 04032 #endif 04033 void sh1924(); 04034 #ifndef SH1925 04035 extern 04036 #endif 04037 void sh1925(); 04038 #ifndef SH1926 04039 extern 04040 #endif 04041 void sh1926(); 04042 #ifndef SH1927 04043 extern 04044 #endif 04045 void sh1927(); 04046 #ifndef SH1928 04047 extern 04048 #endif 04049 void sh1928(); 04050 #ifndef SH1929 04051 extern 04052 #endif 04053 void sh1929(); 04054 #ifndef SH1930 04055 extern 04056 #endif 04057 void sh1930(); 04058 #ifndef SH1992 04059 extern 04060 #endif 04061 void sh1992(); 04062 #ifndef SH1992CU 04063 extern 04064 #endif 04065 void sh1992cu(); 04066 #ifndef SH1992SU 04067 extern 04068 #endif 04069 void sh1992su(); 04070 #ifndef SH1993 04071 extern 04072 #endif 04073 void sh1993(); 04074 #ifndef SH1994 04075 extern 04076 #endif 04077 void sh1994(); 04078 #ifndef SH6CLOSEVERT 04079 extern 04080 #endif 04081 void sh6closevert(); 04082 #ifndef SH6CVVERT 04083 extern 04084 #endif 04085 void sh6cvvert(); 04086 #ifndef SH6COMEDG 04087 extern 04088 #endif 04089 void sh6comedg(); 04090 #ifndef SH6CONNECT 04091 extern 04092 #endif 04093 void sh6connect(); 04094 #ifndef SH6COUNT 04095 extern 04096 #endif 04097 int sh6count(); 04098 #ifndef SH6DEGEN 04099 extern 04100 #endif 04101 void sh6degen(); 04102 #ifndef SH6DISCONNECT 04103 extern 04104 #endif 04105 void sh6disconnect(); 04106 #ifndef SH6EDGPOINT 04107 extern 04108 #endif 04109 void sh6edgpoint(); 04110 #ifndef SH6EDGRED 04111 extern 04112 #endif 04113 void sh6edgred(); 04114 #ifndef SH6EVALINT 04115 extern 04116 #endif 04117 void sh6evalint(); 04118 #ifndef SH6FINDSPLIT 04119 extern 04120 #endif 04121 void sh6findsplit(); 04122 #ifndef SH6FLOOP 04123 extern 04124 #endif 04125 void sh6floop(); 04126 #ifndef SH6GETGEOM 04127 extern 04128 #endif 04129 void sh6getgeom(); 04130 #ifndef SH6GETLIST 04131 extern 04132 #endif 04133 void sh6getlist(); 04134 #ifndef SH6GETMAIN 04135 extern 04136 #endif 04137 SISLIntpt *sh6getmain(); 04138 #ifndef SH6GETNEXT 04139 extern 04140 #endif 04141 SISLIntpt *sh6getnext(); 04142 #ifndef SH6GETNHBRS 04143 extern 04144 #endif 04145 void sh6getnhbrs(); 04146 #ifndef SH6GETOTHER 04147 extern 04148 #endif 04149 void sh6getother(); 04150 #ifndef SH6GETPREV 04151 extern 04152 #endif 04153 int sh6getprev(); 04154 #ifndef SH6GETTOP 04155 extern 04156 #endif 04157 void sh6gettop(); 04158 #ifndef SH6GETTOPHLP 04159 extern 04160 #endif 04161 void sh6gettophlp(); 04162 #ifndef SH6IDALLEDG 04163 extern 04164 #endif 04165 void sh6idalledg(); 04166 #ifndef SH6IDCON 04167 extern 04168 #endif 04169 void sh6idcon (); 04170 #ifndef SH6IDFCROSS 04171 extern 04172 #endif 04173 void sh6idfcross(); 04174 #ifndef SH6IDGET 04175 extern 04176 #endif 04177 void sh6idget(); 04178 #ifndef SH6IDKPT 04179 extern 04180 #endif 04181 void sh6idkpt(); 04182 #ifndef SH6IDLIS 04183 extern 04184 #endif 04185 void sh6idlis(); 04186 #ifndef SH6IDNPT 04187 extern 04188 #endif 04189 void sh6idnpt(); 04190 #ifndef SH6IDNEWUNITE 04191 extern 04192 #endif 04193 void sh6idnewunite(); 04194 #ifndef SH6IDPUT 04195 extern 04196 #endif 04197 void sh6idput(); 04198 #ifndef SH6IDRMCROSS 04199 extern 04200 #endif 04201 void sh6idrmcross(); 04202 #ifndef SH6IDSPLIT 04203 extern 04204 #endif 04205 void sh6idsplit(); 04206 #ifndef SH6IDUNITE 04207 extern 04208 #endif 04209 void sh6idunite(); 04210 #ifndef SH6INSERT 04211 extern 04212 #endif 04213 void sh6insert(); 04214 #ifndef SH6INSERTPT 04215 extern 04216 #endif 04217 void sh6insertpt(); 04218 #ifndef SH6ISCONNECT 04219 extern 04220 #endif 04221 int sh6isconnect(); 04222 #ifndef SH6ISHELP 04223 extern 04224 #endif 04225 int sh6ishelp(); 04226 #ifndef SH6ISINSIDE 04227 extern 04228 #endif 04229 void sh6isinside(); 04230 #ifndef SH6ISMAIN 04231 extern 04232 #endif 04233 int sh6ismain(); 04234 #ifndef SH6NMBHELP 04235 extern 04236 #endif 04237 int sh6nmbhelp(); 04238 #ifndef SH6NMBMAIN 04239 extern 04240 #endif 04241 int sh6nmbmain (); 04242 #ifndef SH6PTOBJ 04243 extern 04244 #endif 04245 void sh6ptobj(); 04246 #ifndef SH6PUTSING 04247 extern 04248 #endif 04249 void sh6putsing(); 04250 #ifndef SH6PUTTOUCH 04251 extern 04252 #endif 04253 void sh6puttouch(); 04254 #ifndef SH6RED 04255 extern 04256 #endif 04257 void sh6red(); 04258 #ifndef SH6REMCON 04259 extern 04260 #endif 04261 void sh6remcon(); 04262 #ifndef SH6REMOVEPT 04263 extern 04264 #endif 04265 void sh6removept(); 04266 #ifndef SH6SEPCRV 04267 extern 04268 #endif 04269 void sh6sepcrv(); 04270 #ifndef SH6SETCNSDIR 04271 extern 04272 #endif 04273 void sh6setcnsdir(); 04274 #ifndef SH6SETDIR 04275 extern 04276 #endif 04277 void sh6setdir(); 04278 #ifndef SH6SETTOP 04279 extern 04280 #endif 04281 void sh6settop(); 04282 #ifndef SH6SPLITGEOM 04283 extern 04284 #endif 04285 void sh6splitgeom(); 04286 #ifndef SH6TOHELP 04287 extern 04288 #endif 04289 void sh6tohelp(); 04290 #ifndef SH6TOMAIN 04291 extern 04292 #endif 04293 void sh6tomain(); 04294 #ifndef SH6TRIMLIST 04295 extern 04296 #endif 04297 void sh6trimlist(); 04298 #ifndef CRV_ARC_TANG 04299 extern 04300 #endif 04301 void crv_arc_tang(); 04302 #ifndef CRV_CRV_TANG 04303 extern 04304 #endif 04305 void crv_crv_tang(); 04306 #ifndef CRV_LIN_TANG 04307 extern 04308 #endif 04309 void crv_lin_tang(); 04310 #ifndef EV_CV_OFF 04311 extern 04312 #endif 04313 void ev_cv_off(); 04314 #ifndef EVAL_2_CRV 04315 extern 04316 #endif 04317 void eval_2_crv(); 04318 #ifndef EVAL_CRV_ARC 04319 extern 04320 #endif 04321 void eval_crv_arc(); 04322 #ifndef HP_S1880 04323 extern 04324 #endif 04325 void hp_s1880(); 04326 #ifndef INT_JOIN_PER 04327 extern 04328 #endif 04329 void int_join_per(); 04330 #ifndef MAKE_CV_KREG 04331 extern 04332 #endif 04333 void make_cv_kreg(); 04334 #ifndef MAKE_SF_KREG 04335 extern 04336 #endif 04337 void make_sf_kreg(); 04338 #ifndef MAKE_TRACKS 04339 extern 04340 #endif 04341 void make_tracks(); 04342 #ifndef NEWKNOTS 04343 extern 04344 #endif 04345 void newknots(); 04346 #ifndef PICK_CRV_SF 04347 extern 04348 #endif 04349 void pick_crv_sf(); 04350 #ifndef PO_CRV_TANG 04351 extern 04352 #endif 04353 void po_crv_tang(); 04354 #ifndef REFINE_ALL 04355 extern 04356 #endif 04357 void refine_all(); 04358 #ifndef SH_1D_DIV 04359 extern 04360 #endif 04361 void sh_1d_div(); 04362 #ifndef SH_DIV_CRV 04363 extern 04364 #endif 04365 void sh_div_crv(); 04366 #ifndef SH_DIV_SURF 04367 extern 04368 #endif 04369 void sh_div_surf(); 04370 #ifndef SH_SET_AT 04371 extern 04372 #endif 04373 void sh_set_at(); 04374 #ifndef SHAPE 04375 extern 04376 #endif 04377 void shape(); 04378 #ifndef SHCHECKPUT 04379 extern 04380 #endif 04381 void shcheckput(); 04382 #ifndef SHCHECKTYPE 04383 extern 04384 #endif 04385 int shchecktype(); 04386 #ifndef SHCSFSING 04387 extern 04388 #endif 04389 void shcsfsing(); 04390 #ifndef SHEVALC 04391 extern 04392 #endif 04393 void shevalc(); 04394 #ifndef SHMKHLPPTS 04395 extern 04396 #endif 04397 void shmkhlppts(); 04398 #ifndef SHSING 04399 extern 04400 #endif 04401 void shsing(); 04402 #ifndef SPLI_SILH 04403 extern 04404 #endif 04405 void spli_silh(); 04406 #ifndef TEST_CYCLIC_KNOTS 04407 extern 04408 #endif 04409 void test_cyclic_knots(); 04410 04411 #endif /* End forward declarations of SISL C routines */ 04412 04413 #if defined(__cplusplus) 04414 } 04415 #endif 04416 04417 #endif /* SISLP_INCLUDED */ 04418 04419 /* DO NOT ADD ANYTHING AFTER THIS LINE */

Generated on Tue Sep 21 17:28:53 2010 for SISL by 1.6.3