File: rpl_armci_msg_init.c

package info (click to toggle)
ga 5.9.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 18,472 kB
  • sloc: ansic: 192,963; fortran: 53,761; f90: 11,218; cpp: 5,784; makefile: 2,248; sh: 1,945; python: 1,734; perl: 534; csh: 134; asm: 106
file content (19 lines) | stat: -rw-r--r-- 326 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#if HAVE_CONFIG_H
#   include "config.h"
#endif

#include <mpi.h>

void armci_msg_init(int *argc, char ***argv)
{
    int flag=0;
    MPI_Initialized(&flag);
    if (!flag) {
#if 0
        int provided;
        MPI_Init_thread(argc, argv, MPI_THREAD_MULTIPLE, &provided);
#else
        MPI_Init(argc, argv);
#   endif
    }
}