diff options
Diffstat (limited to 'src/RK87.c')
-rw-r--r-- | src/RK87.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -161,6 +161,7 @@ void MoL_RK87Add(CCTK_ARGUMENTS) + MoL_Num_Evolved_Vars * (MoL_Intermediate_Steps - (*MoL_Intermediate_Step))); +#pragma omp parallel for for (index = 0; index < totalsize; index++) { ScratchVar[index] = tmp * RHSVar[index]; @@ -188,6 +189,7 @@ void MoL_RK87Add(CCTK_ARGUMENTS) if (*MoL_Intermediate_Step - 1) { +#pragma omp parallel for for (index = 0; index < totalsize; index++) { UpdateVar[index] = OldVar[index]; @@ -207,6 +209,7 @@ void MoL_RK87Add(CCTK_ARGUMENTS) if ( (beta > MoL_Tiny)||(beta < -MoL_Tiny) ) { +#pragma omp parallel for for (index = 0; index < totalsize; index++) { UpdateVar[index] += beta * ScratchVar[index]; @@ -219,6 +222,7 @@ void MoL_RK87Add(CCTK_ARGUMENTS) else { +#pragma omp parallel for for (index = 0; index < totalsize; index++) { UpdateVar[index] = OldVar[index]; @@ -238,6 +242,7 @@ void MoL_RK87Add(CCTK_ARGUMENTS) if ( (gamma > MoL_Tiny)||(gamma < -MoL_Tiny) ) { +#pragma omp parallel for for (index = 0; index < totalsize; index++) { UpdateVar[index] += gamma * ScratchVar[index]; |