00001 #define INTERPLATE_FULL 1 00002 #define INTERPLATE_INTER 2 00003 00004 extern void extra_velocity_normals(real x, real y, 00005 real n1, real n2, real xn, real yn, 00006 real2D u, real2D v, real2D ap, 00007 real *eu, real *ev, 00008 real *a11, real *a22, real *a12, real *a21, 00009 int nx, int ny); 00010 extern void extra_velocity_normals2(real x, real y, 00011 real n1, real n2, real xn, real yn, 00012 real2D u, real2D v, 00013 real2D ap, 00014 real *eu, real *ev, 00015 real *dudx, real *dudy, real *dvdx, real *dvdy, 00016 int nx, int ny); 00017 extern void extra_velocity(real x, real y, real2D u, 00018 real2D v, real2D ap, 00019 interface in, 00020 real *eu, real *ev, 00021 int nx, int ny); 00022 extern real kappa_normals(polynom3 px, polynom3 py, real t, 00023 real *nx, real *ny); 00024 extern real avg_kappa_normals(polynom3 px, polynom3 py, real t1, real t2, 00025 real *nx, real *ny); 00026 extern int closest_normal(real x, real y, interface in, 00027 real *xmin, real *ymin, real *pmin, real *tmin, 00028 real *xn, real *yn);