From 03cf2abf2eccf156c0ac7c94a8204361e8f16821 Mon Sep 17 00:00:00 2001
From: gabrielkheisa <gabrielkheisa@gmail.com>
Date: Mon, 14 Nov 2022 14:45:53 +0700
Subject: [PATCH] add tugas3

---
 tugas3.f90 | 27 +++++++++++++++++++++++++++
 tugas3.sh  | 12 ++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100644 tugas3.f90
 create mode 100644 tugas3.sh

diff --git a/tugas3.f90 b/tugas3.f90
new file mode 100644
index 0000000..52f2bf4
--- /dev/null
+++ b/tugas3.f90
@@ -0,0 +1,27 @@
+program sample3
+use omp_lib
+
+        implicit real(8)(a-h,o-z)
+        parameter (n=4096)
+        real(8) a(n,n),c(n,n)
+        real(4) b(n,n)
+        real*8 t1, t2
+        a=0.0d0
+        call random_number(b)
+        call random_number(c)
+        write(6,50) 'Matrix Size = ', n
+    50 format(1x,a,i5)
+        t1 = omp_get_wtime()
+        !$OMP parallel do 
+        do j=1,n
+            do k=1,n
+                do i=1,n
+                    a(i,j)=a(i,j)+b(i,k)*c(k,j)
+                end do
+            end do
+        end do
+        !$OMP end parallel do
+        write(6,60) 'Execution Time = ', t2-t1, ' sec','A(n,n) = ',a(n,n)
+    60 format(1x,a,f10.3,a,1x,a,d24.15)
+        stop
+end
\ No newline at end of file
diff --git a/tugas3.sh b/tugas3.sh
new file mode 100644
index 0000000..d6f84f9
--- /dev/null
+++ b/tugas3.sh
@@ -0,0 +1,12 @@
+#!/bin/bash
+
+#SBATCH --nodes=1
+#SBATCH --time=00:01:10
+#SBATCH --job-name=Gabriel
+
+whoami
+hostname
+
+gfortran -fopenmp tugas3.f90 -o tugas3.x
+export OMP_NUM_THREADS=4
+./tugas3.x
\ No newline at end of file