mirror of
https://github.com/ivabus/pantry
synced 2024-09-20 08:40:50 +03:00
8 lines
148 B
Fortran
8 lines
148 B
Fortran
|
integer,parameter::m=10000
|
||
|
|
real::a(m), b(m)
|
||
|
|
real::fact=0.5
|
||
|
|
do concurrent (i=1:m)
|
||
|
|
a(i) = a(i) + fact*b(i)
|
||
|
|
end do
|
||
|
|
write(*,"(A)") "Hello, world!"
|
||
|
|
end
|