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 ) |