-
Notifications
You must be signed in to change notification settings - Fork 1
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
pelegrin
committed
Mar 14, 2015
1 parent
44ebaa1
commit 147b2de
Showing
123 changed files
with
2,115 additions
and
1,009 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,156 @@ | ||
| /* Copyright 2012,2014 IPB, Universite de Bordeaux, INRIA & CNRS | ||
| ** | ||
| ** This file is part of the Scotch software package for static mapping, | ||
| ** graph partitioning and sparse matrix ordering. | ||
| ** | ||
| ** This software is governed by the CeCILL-C license under French law | ||
| ** and abiding by the rules of distribution of free software. You can | ||
| ** use, modify and/or redistribute the software under the terms of the | ||
| ** CeCILL-C license as circulated by CEA, CNRS and INRIA at the following | ||
| ** URL: "http://www.cecill.info". | ||
| ** | ||
| ** As a counterpart to the access to the source code and rights to copy, | ||
| ** modify and redistribute granted by the license, users are provided | ||
| ** only with a limited warranty and the software's author, the holder of | ||
| ** the economic rights, and the successive licensors have only limited | ||
| ** liability. | ||
| ** | ||
| ** In this respect, the user's attention is drawn to the risks associated | ||
| ** with loading, using, modifying and/or developing or reproducing the | ||
| ** software by the user in light of its specific status of free software, | ||
| ** that may mean that it is complicated to manipulate, and that also | ||
| ** therefore means that it is reserved for developers and experienced | ||
| ** professionals having in-depth computer knowledge. Users are therefore | ||
| ** encouraged to load and test the software's suitability as regards | ||
| ** their requirements in conditions enabling the security of their | ||
| ** systems and/or data to be ensured and, more generally, to use and | ||
| ** operate it in the same conditions as regards security. | ||
| ** | ||
| ** The fact that you are presently reading this means that you have had | ||
| ** knowledge of the CeCILL-C license and that you accept its terms. | ||
| */ | ||
| /************************************************************/ | ||
| /** **/ | ||
| /** NAME : test_common_thread.c **/ | ||
| /** **/ | ||
| /** AUTHOR : Francois PELLEGRINI **/ | ||
| /** **/ | ||
| /** FUNCTION : This module tests the sequential **/ | ||
| /** strategy building routines. **/ | ||
| /** **/ | ||
| /** DATES : # Version 6.0 : from : 01 oct 2014 **/ | ||
| /** to 16 oct 2014 **/ | ||
| /** **/ | ||
| /************************************************************/ | ||
|
|
||
| /* | ||
| ** The defines and includes. | ||
| */ | ||
|
|
||
| #ifndef _XOPEN_SOURCE | ||
| #define _XOPEN_SOURCE 600 | ||
| #endif /* _XOPEN_SOURCE */ | ||
| #ifndef __USE_XOPEN2K | ||
| #define __USE_XOPEN2K /* For POSIX pthread_barrier_t */ | ||
| #endif /* __USE_XOPEN2K */ | ||
|
|
||
| #include <stdio.h> | ||
| #include <sys/types.h> | ||
| #include <sys/stat.h> | ||
| #include <unistd.h> | ||
|
|
||
| #include "../libscotch/module.h" | ||
| #include "../libscotch/common.h" | ||
|
|
||
| #define RANDNBR 100 | ||
|
|
||
| /*********************/ | ||
| /* */ | ||
| /* The main routine. */ | ||
| /* */ | ||
| /*********************/ | ||
|
|
||
| int | ||
| main ( | ||
| int argc, | ||
| char * argv[]) | ||
| { | ||
| INT * randtab; | ||
| int randnbr; | ||
| int randnum; | ||
| struct stat statdat; | ||
| FILE * fileptr; | ||
| int passnum; | ||
|
|
||
| if (argc != 3) { | ||
| errorPrint ("usage: %s file passnum", argv[0]); | ||
| return (1); | ||
| } | ||
|
|
||
| if ((randtab = malloc (RANDNBR * sizeof (INT))) == NULL) { | ||
| errorPrint ("main: out of memory"); | ||
| return (1); | ||
| } | ||
|
|
||
| intRandInit (); /* Initialize random generator */ | ||
|
|
||
| for (randnum = 0; randnum < RANDNBR; randnum ++) | ||
| randtab[randnum] = intRandVal (INTVALMAX); | ||
|
|
||
| intRandReset (); | ||
|
|
||
| passnum = (atoi (argv[2]) == 0); /* First pass to write file; second pass to read it */ | ||
|
|
||
| if ((fileptr = fopen (argv[1], (passnum) ? "w+" : "r")) == NULL) { | ||
| errorPrint ("main: cannot open file"); | ||
| return (1); | ||
| } | ||
|
|
||
| if (passnum) { /* If first pass */ | ||
| for (randnum = 0; randnum < RANDNBR; randnum ++) { | ||
| if (randtab[randnum] != intRandVal (INTVALMAX)) { | ||
| errorPrint ("main: cannot replay random sequence"); | ||
| return (1); | ||
| } | ||
| } | ||
|
|
||
| if (fwrite (randtab, sizeof (INT), RANDNBR, fileptr) < RANDNBR) { | ||
| errorPrint ("main: cannot write to file"); | ||
| return (1); | ||
| } | ||
|
|
||
| sleep (1); /* Next run will not get the same time() value */ | ||
| } | ||
| else { /* Second pass */ | ||
| const char * const bufftab = ""; | ||
| char * charptr; | ||
| int o; | ||
|
|
||
| if (fread (randtab, sizeof (INT), RANDNBR, fileptr) < RANDNBR) { | ||
| errorPrint ("main: cannot read from file"); | ||
| return (1); | ||
| } | ||
|
|
||
| for (randnum = 0; randnum < RANDNBR; randnum ++) { | ||
| if (randtab[randnum] != intRandVal (INTVALMAX)) | ||
| break; | ||
| } | ||
|
|
||
| o = (randnum == RANDNBR); | ||
| charptr = (o) ? "same" : "different"; | ||
| #if ((defined COMMON_DEBUG) || (defined COMMON_RANDOM_FIXED_SEED) || (defined SCOTCH_DETERMINISTIC)) | ||
| o ^= 1; | ||
| #endif /* ((defined COMMON_DEBUG) || (defined COMMON_RANDOM_FIXED_SEED) || (defined SCOTCH_DETERMINISTIC)) */ | ||
|
|
||
| if (o) { | ||
| errorPrint ("main: two consecutive runs yield %s values.", charptr); | ||
| return (1); | ||
| } | ||
| printf ("Two consecutive runs yield %s values.\n", charptr); | ||
| } | ||
|
|
||
| fclose (fileptr); | ||
| free (randtab); | ||
|
|
||
| return (0); | ||
| } |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.