Files

 master

/

DRBF069_no.f95

Blame

Blame

Latest commit

 

History

History

9 lines (7 loc) · 157 Bytes

 master

/

DRBF069_no.f95

Top

File metadata and controls

• Code
• Blame

9 lines (7 loc) · 157 Bytes

Raw

1

2

3

4

5

6

7

8

9

program DB69

implicit none

include "omp_lib.h"

integer(kind=OMP_LOCK_KIND) :: lck

integer :: i = 0

call omp_init_lock(lck)

end program DB69