subroutine catsmv |
( |
integer |
ncelet, |
|
|
integer |
ncel, |
|
|
integer |
ncesmp, |
|
|
integer |
iterns, |
|
|
integer |
isnexp, |
|
|
double precision |
thetv, |
|
|
integer, dimension(ncesmp) |
icetsm, |
|
|
integer, dimension(ncesmp) |
itpsmp, |
|
|
double precision, dimension(ncelet) |
volume, |
|
|
double precision, dimension (3,ncelet) |
vela, |
|
|
double precision, dimension(ncesmp,3) |
smcelv, |
|
|
double precision, dimension (ncesmp) |
gamma, |
|
|
double precision, dimension(3,ncelet) |
tsexpv, |
|
|
double precision, dimension(3,3,ncelet) |
tsimpv, |
|
|
double precision, dimension(3,ncelet) |
gavinj |
|
) |
| |