15 lines
295 B
Fortran
15 lines
295 B
Fortran
|
program summ
|
||
|
|
implicit none
|
||
|
|
integer :: sum = 0
|
||
|
|
integer :: n
|
||
|
|
!$OMP parallel do
|
||
|
|
do n = 0, 1000
|
||
|
|
sum = sum + n
|
||
|
|
print*, n, " ", sum
|
||
|
|
end do
|
||
|
|
!$OMP end parallel do
|
||
|
|
print*, " "
|
||
|
|
print*, " "
|
||
|
|
print*, " "
|
||
|
|
print*, "hasilnya adalah ", sum
|
||
|
|
end program summ
|