Commit 9ca9274d authored by Ondrej Vysocky's avatar Ondrej Vysocky
Browse files

added scotch that was edited to compile with Intel

parent c4e15f21
This diff is collapsed.
Cette copie de la distribution logicielle Scotch 6.0 est distribuée
selon les termes de la licence de logiciel libre CeCILL-C.
Une copie du texte de cette licence se trouve dans le sous-répertoire
"doc", dans le fichier appelé "CeCILL-C_V1-fr.txt". Veuillez en lire
attentivement les clauses. Vous ne pourrez utiliser cette copie de la
distribution logicielle Scotch 6.0 que si vous les acceptez.
This copy of the Scotch 6.0 distribution is licensed to you under the
terms of the CeCILL-C free/libre software license.
A copy of this license is available in subdirectory "doc", in file
named "CeCILL-C_V1-en.txt". Please read its terms carefully. Only if
you accept them can you use this copy of the Scotch 6.0 distribution.
Les clauses selon lesquelles cette copie de la distribution logicielle
Scotch 6.0 est mise à votre disposition sont définies dans le fichier
"LICENCE_fr.txt", situé dans le même répertoire que le présent
fichier.
Si vous les acceptez, veuillez vous référer au fichier "INSTALL.txt",
également situé dans ce répertoire, pour consulter les instructions
d'installation.
The terms under which this copy of the Scotch 6.0 distribution
is provided to you are described in file "LICENSE_en.txt", located
in the same directory as this file.
If you accept them, please refer to file "INSTALL.txt", also
located in this directory, for the installation instructions.
This diff is collapsed.
This diff is collapsed.
************************************************************
** **
** NAME : scotch_example.f **
** **
** AUTHOR : Francois PELLEGRINI **
** **
** FUNCTION : FORTRAN testbed for the LibSCOTCH **
** library routines. **
** **
** DATES : # Version 3.4 : from : 04 feb 2000 **
** to 07 feb 2000 **
** # Version 4.0 : from : 13 mar 2005 **
** to 13 mar 2005 **
** **
*234567*****************************************************
PROGRAM SCOTCH_TEST
IMPLICIT NONE
INCLUDE "scotchf.h"
DOUBLEPRECISION SCOTCHGRAPH (SCOTCH_GRAPHDIM)
INTEGER VERTNBR
DATA VERTNBR / 3 /
INTEGER EDGENBR
DATA EDGENBR / 4 /
INTEGER VERTTAB (4)
DATA VERTTAB / 1, 2, 4, 5 /
INTEGER EDGETAB (4)
DATA EDGETAB / 2, 1, 3, 2 /
INTEGER INDXTAB (1)
INTEGER IDXVERTNBR
INTEGER IDXVERTTABIDX, IDXVENDTABIDX
INTEGER IDXVELOTABIDX, IDXVLBLTABIDX
INTEGER IDXEDGENBR
INTEGER IDXEDGETABIDX, IDXEDLOTABIDX
INTEGER IDXBASEVAL, IDXFLAGVAL
INTEGER IERR
PRINT *, 'Starting'
CALL SCOTCHFGRAPHINIT (SCOTCHGRAPH (1), IERR)
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Cannot initialize graph'
STOP
ENDIF
CALL SCOTCHFGRAPHBUILD (SCOTCHGRAPH (1), 1, VERTNBR,
* VERTTAB (1), VERTTAB (2),
* VERTTAB (1), VERTTAB (1),
* EDGENBR,
* EDGETAB (1), EDGETAB (1), IERR)
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Cannot build graph'
STOP
ENDIF
CALL SCOTCHFGRAPHCHECK (SCOTCHGRAPH (1), IERR)
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Invalid check'
STOP
ENDIF
PRINT *, 'Outputing original graph'
CALL SCOTCHFGRAPHSAVE (SCOTCHGRAPH (1), 1, IERR)
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Invalid graph output'
STOP
ENDIF
CALL SCOTCHFGRAPHDATA (SCOTCHGRAPH (1), INDXTAB (1),
* IDXBASEVAL, IDXVERTNBR,
* IDXVERTTABIDX, IDXVENDTABIDX,
* IDXVELOTABIDX, IDXVLBLTABIDX,
* IDXEDGENBR,
* IDXEDGETABIDX, IDXEDLOTABIDX,
* IDXFLAGVAL, IERR);
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Cannot get graph data'
STOP
ENDIF
PRINT *, 'Number of vertices : ', IDXVERTNBR
PRINT *, 'Index of verttab : ', IDXVERTTABIDX
PRINT *, 'Index of vendtab : ', IDXVENDTABIDX
PRINT *, 'Index of velotab : ', IDXVELOTABIDX
PRINT *, 'Index of vlbltab : ', IDXVLBLTABIDX
PRINT *, 'Number of edges : ', IDXEDGENBR
PRINT *, 'Index of edgetab : ', IDXEDGETABIDX
PRINT *, 'Index of edlotab : ', IDXEDLOTABIDX
PRINT *, 'Updating vertex and edge arrays'
INDXTAB (IDXVERTTABIDX + 1) = 3
INDXTAB (IDXEDGETABIDX) = 2
INDXTAB (IDXEDGETABIDX + 1) = 3
INDXTAB (IDXEDGETABIDX + 2) = 1
INDXTAB (IDXEDGETABIDX + 3) = 1
PRINT *, 'Outputting updated graph'
CALL SCOTCHFGRAPHCHECK (SCOTCHGRAPH (1), IERR)
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Invalid check'
STOP
ENDIF
CALL SCOTCHFGRAPHSAVE (SCOTCHGRAPH (1), 1, IERR)
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Invalid graph output'
STOP
ENDIF
CALL SCOTCHFGRAPHEXIT (SCOTCHGRAPH (1), IERR)
IF (IERR .NE. 0) THEN
PRINT *, 'ERROR : MAIN : Cannot destroy graph'
STOP
ENDIF
PRINT *, 'Test complete'
RETURN
END
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment