libpomp2-doc 2.0.2-3 / usr / share / doc / opari2 / example / example.c

/*
 * This file is part of the Score-P software (http://www.score-p.org)
 *
 * Copyright (c) 2009-2011,
 * RWTH Aachen University, Germany
 *
 * Copyright (c) 2009-2011,
 * Gesellschaft fuer numerische Simulation mbH Braunschweig, Germany
 *
 * Copyright (c) 2009-2011,
 * Technische Universitaet Dresden, Germany
 *
 * Copyright (c) 2009-2011,
 * University of Oregon, Eugene, USA
 *
 * Copyright (c) 2009-2011, 2013
 * Forschungszentrum Juelich GmbH, Germany
 *
 * Copyright (c) 2009-2011,
 * German Research School for Simulation Sciences GmbH, Juelich/Aachen, Germany
 *
 * Copyright (c) 2009-2011,
 * Technische Universitaet Muenchen, Germany
 *
 * This software may be modified and distributed under the terms of
 * a BSD-style license. See the COPYING file in the package base
 * directory for details.
 *
 */

#include <stdio.h>

int
main( int argc, char** argv )
{
    int i, lsum, sum;

    sum = 0;

#pragma omp parallel private(i, lsum) reduction(+:sum)
    {
        lsum = 0;

    #pragma omp for
        for ( i = 0; i < 21; i++ )
        {
            lsum += i;
        }
        printf( "local sum: %d\n", lsum );

        sum += lsum;
    }

    printf( "total sum: %d\n", sum );

    return 0;
}