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