subroutine cfmsfp |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
iterns, |
|
|
integer |
ncepdp, |
|
|
integer |
ncesmp, |
|
|
integer, dimension(ncepdp) |
icepdc, |
|
|
integer, dimension(ncesmp) |
icetsm, |
|
|
integer, dimension(ncesmp,nvar) |
itypsm, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension (3 ,ncelet) |
vela, |
|
|
double precision, dimension(ncepdp,6) |
ckupdc, |
|
|
double precision, dimension(ncesmp,nvar) |
smacel, |
|
|
double precision, dimension(nfac) |
flumas, |
|
|
double precision, dimension(nfabor) |
flumab |
|
) |
| |