source: CIVL/mods/dev.civl.abc/examples/omp/fig4.98-threadprivate.c

/*

   DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.

   Copyright 2009 Sun Microsystems, Inc. All rights reserved.

   The contents of this file are subject to the terms of the BSD License("BSD")(the "License"). 
   You can obtain a copy of the License at: http://www.opensparc.net/pubs/t1/licenses/BSD+_License.txt

   The BSD License

   Redistribution and use in source and binary forms, with or without 
   modification, are permitted provided that the following conditions are met:

       * Redistribution of source code must retain the above copyright 
         notice, this list of conditions and the following disclaimer.
       * Redistribution in binary form must reproduce the above copyright 
         notice, this list of conditions and the following disclaimer in 
         the documentation and/or other materials provided with the 
         distribution.
       * Neither the name of Sun Microsystems, Inc. or the names of 
         contributors may be used to endorse or promote products derived 
         from this software without specific prior written permission.

   This software is provided "AS IS," without a warranty of any kind. ALL 
   EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, INCLUDING ANY 
   IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR 
   NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN MICROSYSTEMS, INC. ("SUN") AND 
   ITS LICENSORS SHALL NOT BE LIABLE FOR ANY DAMAGES SUFFERED BY LICENSEE AS A 
   RESULT OF USING, MODIFYING OR DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. 
   IN NO EVENT WILL SUN OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT 
   OR DATA, OR FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR 
   PUNITIVE DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY, 
   ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF SUN HAS 
   BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.

   You acknowledge that this software is not designed, licensed or intended for 
   use in the design, construction, operation or maintenance of any nuclear facility. 

*/

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

#ifdef _OPENMP
  #include <omp.h>
  #define TRUE  1
  #define FALSE 0
#else
  #define omp_get_thread_num() 0
  #define omp_get_num_threads() 1
#endif

int calculate_sum(int length);

int *pglobal;

#pragma omp threadprivate(pglobal)

int main()
{
   int i, j, sum, TID, n = 5;
   int length[n], check[n];

#ifdef _OPENMP
   (void) omp_set_dynamic(FALSE);
   if (omp_get_dynamic()) {printf("Warning: dynamic adjustment of threads has been set\n");}
   (void) omp_set_num_threads(3);
#endif

   for (i=0; i<n; i++)
   {
      length[i] = 10 * (i+1);
      check[i]  = length[i]*(length[i]+1)/2; 
   }

   #pragma omp parallel for shared(n,length,check) private(TID,i,j,sum)
   for (i=0; i<n; i++)
   {
      TID = omp_get_thread_num();

      if ( (pglobal = (int *) malloc(length[i]*sizeof(int))) != NULL ) {

         for (j=sum=0; j<length[i]; j++)
             pglobal[j] = j+1;
         
         sum = calculate_sum(length[i]);

         printf("TID %d: value of sum for i = %d is %8d (check = %8d)\n",
                TID,i,sum,check[i]);

         free(pglobal);

      } else {
         printf("TID %d: fatal error in malloc for length[%d] = %d\n",
                TID,i,length[i]);
      }
   } /*-- End of parallel for --*/

   return(0);
}
int calculate_sum(int length)
{
   int sum = 0;

   for (int j=0; j<length; j++)
      sum += pglobal[j];

   return(sum);
}