subroutine coupev |
( |
double precision, intent(in) |
AT, |
|
|
double precision, dimension(npoin2,jm), intent(in) |
Z, |
|
|
double precision, dimension(npoin2,jm), intent(in) |
U, |
|
|
double precision, dimension(npoin2,jm), intent(in) |
V, |
|
|
double precision, dimension(npoin2,jm), intent(in) |
W, |
|
|
double precision, dimension(im,3,nc2dv), intent(inout) |
SHP, |
|
|
integer, dimension(49,nc2dv), intent(in) |
IMSEG, |
|
|
double precision, dimension(50,nc2dv), intent(in) |
X2DV, |
|
|
double precision, dimension(50,nc2dv), intent(in) |
Y2DV, |
|
|
double precision, dimension(nc2dv), intent(in) |
DISTOR, |
|
|
integer, dimension(3,nelem2), intent(in) |
IKLES, |
|
|
integer, dimension(im,nc2dv), intent(in) |
ELEM, |
|
|
integer, intent(in) |
NC2DV, |
|
|
integer, intent(in) |
NPOIN2, |
|
|
integer, intent(in) |
NELEM2, |
|
|
integer, dimension(nc2dv), intent(inout) |
NCOU, |
|
|
character(len=8), intent(inout) |
FFORMAT, |
|
|
integer, intent(in) |
IM, |
|
|
integer, intent(in) |
JM, |
|
|
character(len=72), intent(in) |
TITCAS, |
|
|
integer, intent(inout) |
NVA3, |
|
|
type (bief_obj), intent(inout) |
TAB, |
|
|
character(len=32), dimension(100), intent(in) |
TEXTLU, |
|
|
integer, intent(in) |
IENRE |
|
) |
| |