Go to the source code of this file.
|
subroutine | fill_lim (NPTFR, NPTFRX, NTRAC, LIHBOR, LIUBOR, LIVBOR, LITBOR, HBOR, UBOR, VBOR, CHBORD, TBOR, ATBOR, BTBOR, NBOR, OLD_NBOR) |
|
◆ fill_lim()
subroutine fill_lim |
( |
integer, intent(in) |
NPTFR, |
|
|
integer, intent(in) |
NPTFRX, |
|
|
integer, intent(in) |
NTRAC, |
|
|
integer, dimension(nptfrx), intent(inout) |
LIHBOR, |
|
|
integer, dimension(nptfrx), intent(inout) |
LIUBOR, |
|
|
integer, dimension(nptfrx), intent(inout) |
LIVBOR, |
|
|
type(bief_obj), intent(inout) |
LITBOR, |
|
|
double precision, dimension(nptfrx), intent(inout) |
HBOR, |
|
|
double precision, dimension(nptfrx,2), intent(inout) |
UBOR, |
|
|
double precision, dimension(nptfrx,2), intent(inout) |
VBOR, |
|
|
double precision, dimension(nptfrx), intent(inout) |
CHBORD, |
|
|
type(bief_obj), intent(inout) |
TBOR, |
|
|
type(bief_obj), intent(inout) |
ATBOR, |
|
|
type(bief_obj), intent(inout) |
BTBOR, |
|
|
integer, dimension(nptfrx), intent(in) |
NBOR, |
|
|
integer, dimension(nptfrx), intent(in) |
OLD_NBOR |
|
) |
| |