The TELEMAC-MASCARET system  trunk
crosfr.f File Reference

Go to the source code of this file.


subroutine crosfr (X, Y, XR, YR, XMAIL, YMAIL, NPMAX, NBOR, KP1BOR, NPTFR, DM, OK)

Function/Subroutine Documentation

◆ 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 
[in]xDM Minimum distance to the boundary
[in]KP1BORRank of the next point along the boundary
[in]NBORGlobal number of boundary nodes
[in]NPMAXMaximum number of points in the mesh
[in]NPTFRNumber of boundary nodes
[out]OKIf yes, no crossing of boundary IF NO, POINT OUTSIDE THE DOMAIN
[in]XAbscissa of point where to interpolate

Definition at line 7 of file crosfr.f.

+ Here is the caller graph for this function: