| 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, | 
        
          |  |  | integer(c_int), dimension(*), target | isoli2, | 
        
          |  |  | 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 | 
        
          |  | ) |  |  |