subroutine majgeo |
( |
integer(c_int), intent(in) |
ncel2, |
|
|
integer(c_int), intent(in) |
ncele2, |
|
|
integer(c_int), intent(in) |
nfac2, |
|
|
integer(c_int), intent(in) |
nfabo2, |
|
|
integer(c_int), dimension(2,nfac2), target |
iface2, |
|
|
integer(c_int), dimension(nfabo2), target |
ifabo2, |
|
|
real(c_double) |
volmn2, |
|
|
real(c_double) |
volmx2, |
|
|
real(c_double) |
voltt2, |
|
|
real(c_double), dimension(3,ncele2), target |
xyzce2, |
|
|
real(c_double), dimension(3,nfac2), target |
surfa2, |
|
|
real(c_double), dimension(3,nfabo2), target |
surfb2, |
|
|
real(c_double), dimension(3,nfac2), target |
suffa2, |
|
|
real(c_double), dimension(3,nfabo2), target |
suffb2, |
|
|
real(c_double), dimension(3,nfac2), target |
cdgfa2, |
|
|
real(c_double), dimension(3,nfabo2), target |
cdgfb2, |
|
|
real(c_double), dimension(ncele2), target |
volum2, |
|
|
real(c_double), dimension(ncele2), target |
volf2, |
|
|
real(c_double), dimension(nfac2), target |
srfan2, |
|
|
real(c_double), dimension(nfabo2), target |
srfbn2, |
|
|
real(c_double), dimension(nfac2), target |
sffan2, |
|
|
real(c_double), dimension(nfabo2), target |
sffbn2, |
|
|
real(c_double), dimension(nfac2), target |
dist2, |
|
|
real(c_double), dimension(nfabo2), target |
distb2, |
|
|
real(c_double), dimension(nfac2), target |
pond2, |
|
|
real(c_double), dimension(3,nfac2), target |
dijpf2, |
|
|
real(c_double), dimension(3,nfabo2), target |
diipb2, |
|
|
real(c_double), dimension(3,nfac2), target |
dofij2 |
|
) |
| |