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