subroutine raypun |
( |
integer, dimension(nfabor) |
itypfb, |
|
|
double precision, dimension(nfabor) |
coefap, |
|
|
double precision, dimension(nfabor) |
coefbp, |
|
|
double precision, dimension(nfabor) |
cofafp, |
|
|
double precision, dimension(nfabor) |
cofbfp, |
|
|
double precision, dimension(nfac) |
flurds, |
|
|
double precision, dimension(nfabor) |
flurdb, |
|
|
double precision, dimension(nfac) |
viscf, |
|
|
double precision, dimension(nfabor) |
viscb, |
|
|
double precision, dimension(ncelet) |
smbrs, |
|
|
double precision, dimension(ncelet) |
rovsdt, |
|
|
double precision, dimension(ncelet) |
theta4, |
|
|
double precision, dimension(ncelet) |
thetaa, |
|
|
double precision, dimension(ncelet) |
sa, |
|
|
double precision, dimension(ncelet) |
qx, |
|
|
double precision, dimension(ncelet) |
qy, |
|
|
double precision, dimension(ncelet) |
qz, |
|
|
double precision, dimension(nfabor) |
qincid, |
|
|
double precision, dimension(nfabor) |
eps, |
|
|
double precision, dimension(nfabor) |
tparoi, |
|
|
double precision, dimension(ncelet) |
ckmel, |
|
|
double precision, dimension(nfabor,nwsgg) |
abo, |
|
|
integer |
iband |
|
) |
| |