EXTERN_ENV #include "anl.h" void Compute_Normal() { long i; for (i=0; i<NM; i++) { norm_len[i] = map_len[i]-2*INSET; } norm_length = norm_len[X] * norm_len[Y] * norm_len[Z]; Allocate_Normal(&norm_address, norm_length); printf(" Computing normal...\n"); Global->Index = NODE0; #ifndef SERIAL_PREPROC for (i=1; i<num_nodes; i++) CREATE(Normal_Compute) #endif Normal_Compute(); }
void Compute_Normal() { long i; for (i=0; i<NM; i++) { norm_len[i] = map_len[i]-2*INSET; } norm_length = norm_len[X] * norm_len[Y] * norm_len[Z]; Allocate_Normal(&norm_address, norm_length); printf(" Computing normal...\n"); Global->Index = NODE0; #ifndef SERIAL_PREPROC for (i=1; i<num_nodes; i++) { #line 66 long i, Error; #line 66 #line 66 for (i = 0; i < () - 1; i++) { #line 66 Error = pthread_create(&PThreadTable[i], NULL, (void * (*)(void *))(Normal_Compute), NULL); #line 66 if (Error != 0) { #line 66 printf("Error in pthread_create().\n"); #line 66 exit(-1); #line 66 } #line 66 } #line 66 #line 66 Normal_Compute(); #line 66 } #endif Normal_Compute(); }