VE_Metis_interface.f90

Go to the documentation of this file.

!
! -----------------------------------------------------------------------
! 
! NEC Vector Host MUMPS Library Interface
! 
! -----------------------------------------------------------------------
!
 
!
! -----------------------------------------------------------------------
! Interface to C metis_setdefaultoptions
! -----------------------------------------------------------------------
!
 
INTEGER FUNCTION ve_fmetis_setdefaultoptions( OPTIONS )
  USE iso_c_binding, ONLY : c_int
  ! INTERFACE TO C ROUTINE
  INTEGER(KIND=C_INT) :: options( * ), ierr(1)
  INTERFACE
    INTEGER(KIND=C_INT) FUNCTION ve_metis_setdefaultoptions( OPTIONS ) &
                                 bind(c, name='VE_Metis_setdefaultoptions')
      USE iso_c_binding, ONLY : c_int
      INTEGER(KIND=C_INT) :: options( * )
    END FUNCTION ve_metis_setdefaultoptions
  END INTERFACE
 
  WRITE(6,'(A)')'-----------------> Performing VH call of METIS_SETDEFAULTOPTIONS'
  ierr(1) =  ve_metis_setdefaultoptions( options )
 
  ve_fmetis_setdefaultoptions = ierr(1)
 
END FUNCTION ve_fmetis_setdefaultoptions
 
!
! -----------------------------------------------------------------------
! Interface to C metis_nodend
! -----------------------------------------------------------------------
!
 
FUNCTION ve_fmetis_nodend( NVTXS , XADJ , ADJNCY , VWGT , OPTIONS , PERM , IPERM )
  USE iso_c_binding, ONLY : c_int
  ! INTERFACE TO C ROUTINE
  INTEGER(KIND=C_INT) :: options( * ), ierr(1)
  INTEGER(KIND=C_INT) :: nvtxs( 1 ) , xadj( * )
  INTEGER(KIND=C_INT) :: adjncy( * ), vwgt( * )
  INTEGER(KIND=C_INT) :: perm( * )  , iperm( * )
  INTERFACE
    INTEGER(KIND=C_INT) FUNCTION ve_metis_nodend( NVTXS , XADJ , ADJNCY , VWGT , OPTIONS , PERM , IPERM ) &
                                 bind(c, name='VE_Metis_nodend')
      USE iso_c_binding, ONLY : c_int
      INTEGER(KIND=C_INT) :: options( * )
      INTEGER(KIND=C_INT) :: nvtxs( 1 ), xadj( * )
      INTEGER(KIND=C_INT) :: adjncy( * ), vwgt( * )
      INTEGER(KIND=C_INT) :: perm( * ), iperm( * )
    END FUNCTION ve_metis_nodend
  END INTERFACE
 
  WRITE(6,'(A)')'-----------------> Performing VH call of METIS_NODEND'
  ierr(1) = ve_metis_nodend( nvtxs , xadj , adjncy , vwgt , options , perm , iperm )
 
  ve_fmetis_nodend = ierr(1)
 
END FUNCTION ve_fmetis_nodend