source: CIVL/mods/dev.civl.com/examples/fortran/simple/omp_loop.F95@ cb4d4f4

main test-branch
Last change on this file since cb4d4f4 was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5664 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 165 bytes
Line 
1program OMPLOOP
2 use omp_lib
3 integer :: i
4 integer :: a(5)
5
6!$omp parallel do
7 do i = 1, 5
8 a(i) = i
9 end do
10!$omp end parallel do
11end program
Note: See TracBrowser for help on using the repository browser.