Go to the source code of this file.
|
subroutine | extrac (X, Y, SOM, IKLE, INDIC, NELEM, NELMAX, NPOIN, NSOM, PROJEC) |
|
◆ extrac()
subroutine extrac |
( |
double precision, dimension(npoin), intent(inout) |
X, |
|
|
double precision, dimension(npoin), intent(inout) |
Y, |
|
|
double precision, dimension(10,2), intent(in) |
SOM, |
|
|
integer, dimension(nelmax,3), intent(inout) |
IKLE, |
|
|
integer, dimension(npoin), intent(inout) |
INDIC, |
|
|
integer, intent(inout) |
NELEM, |
|
|
integer, intent(in) |
NELMAX, |
|
|
integer, intent(in) |
NPOIN, |
|
|
integer, intent(in) |
NSOM, |
|
|
logical, intent(in) |
PROJEC |
|
) |
| |