Commit 929061c1 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix in check_para.f90

parent 5f27a13c
......@@ -44,12 +44,13 @@ CONTAINS
use m_judft_string
use m_judft_stop
implicit none
real(8) :: summe, t_omp, t_seq
integer(4) :: rank, size, ierr
real :: summe, t_omp, t_seq
integer :: rank, size, ierr
integer :: i, omp_threads
integer, parameter :: loop_end = 300000000
summe = 0.0
t_omp=0.0
!$omp parallel reduction(+: t_omp)
omp_threads = OMP_GET_NUM_THREADS()
t_omp = OMP_GET_WTIME()
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment