subroutine ecrava |
( |
integer |
ndim, |
|
|
integer |
ncelet, |
|
|
integer |
ncel, |
|
|
integer |
nfac, |
|
|
integer |
nfabor, |
|
|
integer |
nnod, |
|
|
integer |
nvar, |
|
|
integer |
nscal, |
|
|
double precision, dimension(ndim,ncelet) |
xyzcen, |
|
|
double precision, dimension(ndim,nfac) |
surfac, |
|
|
double precision, dimension(ndim,nfabor) |
surfbo, |
|
|
double precision, dimension(ndim,nfac) |
cdgfac, |
|
|
double precision, dimension(ndim,nfabor) |
cdgfbo, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
rtp, |
|
|
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) |
frcxt |
|
) |
| |