From 45293c69622c10224978b40732876edafbfc084b Mon Sep 17 00:00:00 2001 From: gabrielkheisa Date: Sun, 27 Nov 2022 12:23:27 +0700 Subject: [PATCH] fix old fortran syntax writing --- tugas.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tugas.f b/tugas.f index cf86762..0e09ace 100644 --- a/tugas.f +++ b/tugas.f @@ -78,13 +78,13 @@ C C cpu0=dtime(time0) t1 = omp_get_wtime() - !$OMP PARALLEL DO +!$OMP PARALLEL DO C C Jacobi iteration call jacobi(nn,gosa) C cpu1= dtime(time1) - !$OMP END PARALLEL DO +!$OMP END PARALLEL DO t2 = omp_get_wtime() cpu = cpu1 cpu = t2-t1