sion_lock.c

Go to the documentation of this file.

/****************************************************************************
**  SIONLIB     http://www.fz-juelich.de/jsc/sionlib                       **
*****************************************************************************
**  Copyright (c) 2008-2016                                                **
**  Forschungszentrum Juelich, Juelich Supercomputing Centre               **
**                                                                         **
**  See the file COPYRIGHT in the package base directory for details       **
****************************************************************************/

#include <stdlib.h>
#include <stdio.h>
#include <assert.h>

#include <sion_debug.h>
#include <sion_fd.h>


#ifdef SION_OMP
#define SION_OMPLOCK
#else
#ifdef SION_OMPI
#define SION_OMPLOCK
#endif
#endif


#ifdef SION_OMPLOCK
#include "omp.h"

static int _sion_opmi_first_lock = 1;

void _sion_par_init_debug(){
    #pragma omp critical
        {

            if(_sion_opmi_first_lock){
                _sion_opmi_first_lock = 0;
                _sion_debug_init();
            }

        }
}


#else

void _sion_par_init_lock(){

}

#endif