Go to the source code of this file.
|
subroutine | crosfr (X, Y, XR, YR, XMAIL, YMAIL, NPMAX, NBOR, KP1BOR, NPTFR, DM, OK) |
|
◆ crosfr()
subroutine crosfr |
( |
double precision, intent(in) |
X, |
|
|
double precision, intent(in) |
Y, |
|
|
double precision, intent(in) |
XR, |
|
|
double precision, intent(in) |
YR, |
|
|
double precision, dimension(npmax), intent(in) |
XMAIL, |
|
|
double precision, dimension(npmax), intent(in) |
YMAIL, |
|
|
integer, intent(in) |
NPMAX, |
|
|
integer, dimension(nptfr), intent(in) |
NBOR, |
|
|
integer, dimension(nptfr), intent(in) |
KP1BOR, |
|
|
integer, intent(in) |
NPTFR, |
|
|
double precision, intent(in) |
DM, |
|
|
logical, intent(inout) |
OK |
|
) |
| |
- Parameters
-
[in] | x | DM Minimum distance to the boundary |
[in] | KP1BOR | Rank of the next point along the boundary |
[in] | NBOR | Global number of boundary nodes |
[in] | NPMAX | Maximum number of points in the mesh |
[in] | NPTFR | Number of boundary nodes |
[out] | OK | If yes, no crossing of boundary IF NO, POINT OUTSIDE THE DOMAIN |
[in] | X | Abscissa of point where to interpolate |
| | |
Definition at line 7 of file crosfr.f.