subroutine resssg |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
ncepdp, |
|
|
integer |
ncesmp, |
|
|
integer |
ivar, |
|
|
integer |
isou, |
|
|
integer |
ipp, |
|
|
integer, dimension(ncepdp) |
icepdc, |
|
|
integer, dimension(ncesmp) |
icetsm, |
|
|
integer, dimension(ncesmp) |
itpsmp, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
rtp, |
|
|
double precision, dimension(ncelet,*) |
rtpa, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(nfac,*) |
propfa, |
|
|
double precision, dimension(ndimfb,*) |
propfb, |
|
|
double precision, dimension(ndimfb,*) |
coefa, |
|
|
double precision, dimension(ndimfb,*) |
coefb, |
|
|
double precision, dimension(ncelet,3,3) |
grdvit, |
|
|
double precision, dimension(ncelet,3) |
gradro, |
|
|
double precision, dimension(ncepdp,6) |
ckupdc, |
|
|
double precision, dimension(ncesmp) |
smcelp, |
|
|
double precision, dimension(ncesmp) |
gamma, |
|
|
double precision, dimension(nfac) |
viscf, |
|
|
double precision, dimension(nfabor) |
viscb, |
|
|
double precision, dimension(nfabor) |
coefax, |
|
|
double precision, dimension(ncelet) |
tslage, |
|
|
double precision, dimension(ncelet) |
tslagi, |
|
|
double precision, dimension(ncelet) |
smbr, |
|
|
double precision, dimension(ncelet) |
rovsdt |
|
) |
| |