/beegfs/hackathon/users/eoseret/qaas_runs_test/178-654-5529/intel/HACCmk/build/HACCmk/src/main.c: 50 - 194
--------------------------------------------------------------------------------

50: {
[...]
65:   rank = 0;
66:   nprocs = 1;
67: 
68:   //count = 327;
69:   count = 3000;
70: 
71:   if ( rank == 0 ) 
72:   {  
73:       printf( "count is set %d\n", count );
74:       printf( "Total MPI ranks %d\n", nprocs );
75:   } 
76: 
77:   if (argc == 2 && strncmp(argv[1], "-s", 2) == 0)
78:       NN = 15000;
79: 
80:   if (argc == 2 && strncmp(argv[1], "-l", 2) == 0)
81:   	  count = 6000;
82: 
83:   printf( "N is set %ld\n", NN );
84: 
85: #pragma omp parallel
[...]
100:   for ( n = 400; n < NN; n = n + 20 ) 
101:   {
102:       /* Initial data preparation */
103:       fcoeff = 0.23f;  
104:       fsrrmax2 = 0.5f; 
105:       mp_rsm2 = 0.03f;
106:       dx1 = 1.0f/(float)n;
107:       dy1 = 2.0f/(float)n;
108:       dz1 = 3.0f/(float)n;
109:       xx[0] = 0.f;
110:       yy[0] = 0.f;
111:       zz[0] = 0.f;
112:       mass[0] = 2.f;
113:       
114:       for ( i = 1; i < n; i++ )
115:       {
116:           xx[i] = xx[i-1] + dx1;
117:           yy[i] = yy[i-1] + dy1;
118:           zz[i] = zz[i-1] + dz1;
119:           mass[i] = (float)i * 0.01f + xx[i];
120:       }
121:     
122:       for ( i = 0; i < n; i++ )
123:       {
124:           vx1[i] = 0.f;
125:           vy1[i] = 0.f;
126:           vz1[i] = 0.f;
[...]
139:       t1 = mysecond();
140: #endif
141: 
142:     #pragma omp parallel for private( dx1, dy1, dz1 )
[...]
155:       t2 = mysecond();
156: #endif
157: 
158:       validation = 0.;
159:       for ( i = 0; i < n; i++ )
[...]
169:       t3 = (t2 - t1) * 1e6;
170: #endif 
171: 
172:       elapsed = elapsed + t3;
[...]
186:   if ( rank == 0 )
187:   {
188:       printf( "\nKernel elapsed time, s: %18.8lf\n", elapsed*1e-6 );
[...]
194:   return 0;
