c_binding.F

Go to the documentation of this file.

!                   ****************
                    MODULE c_binding
!                   ****************
!
!***********************************************************************
! PARTEL
!***********************************************************************
!
!brief    call to the partionning software
!
!history   Y.AUDOUIN
!+
!+
!+         created
!
!
!
        use, INTRINSIC :: iso_c_binding
!
        IMPLICIT NONE
!
        INTERFACE
!
          ! Metis function
          SUBROUTINE c_mymetis_partmeshdual
     &        (nelem, npoin, eptr, eind, vwgt,
     &         vsize, ncommonnodes, nparts, tpwgts,
     &         option, edgecut, epart, npart)
#if defined HAVE_MPI
     &        bind(c, name='METIS_PartMeshDual')
#endif

            use,INTRINSIC :: iso_c_binding
            IMPLICIT NONE
            TYPE(c_ptr),VALUE :: NELEM
            TYPE(c_ptr),VALUE :: NPOIN
            INTEGER(C_INT) :: EPTR(*)
            INTEGER(C_INT) :: EIND(*)
            TYPE(c_ptr), VALUE :: VWGT
            TYPE(c_ptr), VALUE :: VSIZE
            TYPE(c_ptr),VALUE :: NCOMMONNODES
            TYPE(c_ptr),VALUE :: NPARTS
            TYPE(c_ptr), VALUE :: TPWGTS
            TYPE(c_ptr), VALUE :: OPTION
            TYPE(c_ptr),VALUE :: EDGECUT
            INTEGER(C_INT) :: EPART(*)
            INTEGER(C_INT) :: NPART(*)
!
          END SUBROUTINE
        END INTERFACE
      CONTAINS
          SUBROUTINE mymetis_partmeshdual
     &        (nelem, npoin, eptr, eind,
     &          ncommonnodes, nparts,
     &          edgecut, epart, npart)

            use,INTRINSIC :: iso_c_binding
            IMPLICIT NONE
            INTEGER(C_INT),TARGET :: NELEM
            INTEGER(C_INT),TARGET :: NPOIN
            INTEGER(C_INT),TARGET :: EPTR(*)
            INTEGER(C_INT),TARGET :: EIND(*)
            INTEGER(C_INT),TARGET :: NCOMMONNODES
            INTEGER(C_INT),TARGET :: NPARTS
            INTEGER(C_INT),TARGET :: EDGECUT
            INTEGER(C_INT),TARGET :: EPART(*)
            INTEGER(C_INT),TARGET :: NPART(*)
!
#if defined HAVE_MPI
            CALL c_mymetis_partmeshdual
     &        (c_loc(nelem), c_loc(npoin), eptr,
     &         eind, c_null_ptr,
     &         c_null_ptr, c_loc(ncommonnodes), c_loc(nparts),
     &         c_null_ptr,
     &         c_null_ptr, c_loc(edgecut), epart, npart)
#endif
          END SUBROUTINE

      END MODULE c_binding