VE_Metis_interface.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	ve_fmetis_setdefaultoptions (options)
function	ve_fmetis_nodend (nvtxs, xadj, adjncy, vwgt, options, perm, iperm)

Function/Subroutine Documentation

ve_fmetis_nodend()

function ve_fmetis_nodend	(	integer(kind=c_int), dimension( 1 )	nvtxs,
		integer(kind=c_int), dimension( * )	xadj,
		integer(kind=c_int), dimension( * )	adjncy,
		integer(kind=c_int), dimension( * )	vwgt,
		integer(kind=c_int), dimension( * )	options,
		integer(kind=c_int), dimension( * )	perm,
		integer(kind=c_int), dimension( * )	iperm )

Definition at line 40 of file VE_Metis_interface.f90.

  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)
 

ve_fmetis_setdefaultoptions()

integer function ve_fmetis_setdefaultoptions

(

integer(kind=c_int), dimension( * )

options

)

Definition at line 15 of file VE_Metis_interface.f90.

  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)