subroutine majgeo |
( |
integer, intent(in) |
ncel2, |
|
|
integer, intent(in) |
ncele2, |
|
|
integer, intent(in) |
nfac2, |
|
|
integer, intent(in) |
nfabo2, |
|
|
integer, intent(in) |
nsom2, |
|
|
integer, intent(in) |
lndfa2, |
|
|
integer, intent(in) |
lndfb2, |
|
|
integer(kind=8), intent(in) |
ncelg2, |
|
|
integer(kind=8), intent(in) |
nfacg2, |
|
|
integer(kind=8), intent(in) |
nfbrg2, |
|
|
integer(kind=8), intent(in) |
nsomg2, |
|
|
integer, dimension(2,nfac2), target |
iface2, |
|
|
integer, dimension(nfabo2), target |
ifabo2, |
|
|
integer, dimension(nfabo2), target |
ifmfb2, |
|
|
integer, dimension(ncele2), target |
ifmce2, |
|
|
integer, dimension(nfac2+1), target |
ipnfa2, |
|
|
integer, dimension(lndfa2), target |
nodfa2, |
|
|
integer, dimension(nfabo2+1), target |
ipnfb2, |
|
|
integer, dimension(lndfb2), target |
nodfb2, |
|
|
integer, dimension(nfabo2), target |
isymp2, |
|
|
integer, dimension(*), target |
isoli2, |
|
|
double precision |
volmn2, |
|
|
double precision |
volmx2, |
|
|
double precision |
voltt2, |
|
|
double precision, dimension(3,ncele2), target |
xyzce2, |
|
|
double precision, dimension(3,nfac2), target |
surfa2, |
|
|
double precision, dimension(3,nfabo2), target |
surfb2, |
|
|
double precision, dimension(3,nfac2), target |
suffa2, |
|
|
double precision, dimension(3,nfabo2), target |
suffb2, |
|
|
double precision, dimension(3,nfac2), target |
cdgfa2, |
|
|
double precision, dimension(3,nfabo2), target |
cdgfb2, |
|
|
double precision, dimension(3,nsom2), target |
xyzno2, |
|
|
double precision, dimension(ncele2), target |
volum2, |
|
|
double precision, dimension(ncele2), target |
volf2, |
|
|
double precision, dimension(nfac2), target |
srfan2, |
|
|
double precision, dimension(nfabo2), target |
srfbn2, |
|
|
double precision, dimension(nfac2), target |
sffan2, |
|
|
double precision, dimension(nfabo2), target |
sffbn2, |
|
|
double precision, dimension(nfac2), target |
dist2, |
|
|
double precision, dimension(nfabo2), target |
distb2, |
|
|
double precision, dimension(nfac2), target |
pond2, |
|
|
double precision, dimension(3,nfac2), target |
dijpf2, |
|
|
double precision, dimension(3,nfabo2), target |
diipb2, |
|
|
double precision, dimension(3,nfac2), target |
dofij2 |
|
) |
| |