 //**************************************************************************************//
 int main(int argc, char **argv)
 {
-    int i,j,k,l, task, ntasks, thread, cpuid;
+    int i,l, task, ntasks, cpuid;
     char node_name[MPI_MAX_PROCESSOR_NAME];
 
     // determine MPI task and total number of MPI tasks

            }
#elif defined __CUDACC__
            cpuid = sched_getcpu();
            printf("node %s, task %3d of %3d tasks, GPU %3d of %3d, on cpu %3d\n",
                    &node_name[0], task, ntasks, device, num_devices, cpuid);
#else //pure MPI
            cpuid = sched_getcpu();

#ifdef _OPENMP
            #pragma omp parallel for schedule(static,1) ordered private(thread, cpuid)
            for ( j=0; j<nthreads; j++) {
                int thread = omp_get_thread_num();
                cpuid = sched_getcpu();
                #pragma omp ordered
                printf("node %s, task %3d of %3d tasks, thread %3d of %3d threads, on cpu %3d\n",
