I found partel.f, there is a section !partitionning
Could you tell me where to put the line:
! PARTITIONING
!
!
!======================================================================
! STEP 2 : PARTITIONING THE MESH
!
! OTHER PARTITIONING METHODS SHOULD BE USED (SCOTCH FOR EXAMPLE)
! ALL PROCESSORS PERFORM THIS TASK TO AVOID COMMUNICATION
! THE USE OF PARMETIS OR PTSCOTCH COULD BE USED FOR LARGER MESHES
! IF THERE WILL BE SOME MEMORY ALLOCATION PROBLEM
!======================================================================
ALLOCATE (EPART(NELEM2),STAT=ERR)
IF (ERR.NE.0) CALL ALLOER (LU, 'EPART')
ALLOCATE (NPART(NPOIN2),STAT=ERR)
IF (ERR.NE.0) CALL ALLOER (LU, 'NPART')
!
IF (NDP==3.OR.NDP==6) THEN
ETYPE = 1
ELSE
WRITE(LU,*) 'METIS: IMPLEMENTED FOR TRIANGLES OR PRISMS ONLY'
CALL PLANTE2(-1)
STOP
ENDIF
! WE ONLY USE METIS_PARTMESHDUAL AS ONLY THE FINITE ELEMENTS PARTITION
! IS RELEVANT HERE.
!
! IMPORTANT: WE USE FORTRAN-LIKE FIELD ELEMENTS NUMBERING 1...N
! IN C VERSION, 0...N-1 NUMBERING IS APPLIED!!!
!
NUMFLAG = 1
!
WRITE(LU,*) 'USING ONLY METIS_PARTMESHDUAL SUBROUTINE'
WRITE(LU,*) ' THE MESH PARTITIONING STEP METIS STARTS'
IF (TIMECOUNT) THEN
CALL SYSTEM_CLOCK (COUNT=TEMPS, COUNT_RATE=PARSEC)
TDEBP = TEMPS
ENDIF
CALL METIS_PARTMESHDUAL
& (NELEM2, NPOIN2, IKLES, ETYPE, NUMFLAG,
& NPARTS, EDGECUT, EPART, NPART)
WRITE(LU,*) ' THE MESH PARTITIONING STEP HAS FINISHED'
IF (TIMECOUNT) THEN
CALL SYSTEM_CLOCK (COUNT=TEMPS, COUNT_RATE=PARSEC)
TFINP = TEMPS
WRITE(LU,*) ' RUNTIME OF METIS ',
& (1.0*(TFINP-TDEBP))/(1.0*PARSEC),' SECONDS'
ENDIF