subroutine cspcev |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
nptdis, |
|
|
integer |
ityloc, |
|
|
integer |
ivar, |
|
|
integer, dimension(nptdis) |
locpts, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
rtpa, |
|
|
double precision, dimension(3,ncelet) |
vela, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(nfac,*) |
propfa, |
|
|
double precision, dimension(nfabor,*) |
propfb, |
|
|
double precision, dimension(nfabor,*) |
coefa, |
|
|
double precision, dimension(nfabor,*) |
coefb, |
|
|
double precision, dimension(3 ,nfabor) |
coefav, |
|
|
double precision, dimension(3,3,nfabor) |
coefbv, |
|
|
double precision, dimension(3,nptdis) |
coopts, |
|
|
double precision, dimension(3,nptdis) |
rvdis |
|
) |
| |