mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-08 07:03:52 +01:00
13 lines
189 B
Fortran
13 lines
189 B
Fortran
|
use omp_lib
|
||
|
|
|
||
|
|
BEGIN_PROVIDER [ integer(omp_lock_kind), file_lock ]
|
||
|
|
use f77_zmq
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! OpenMP Lock for I/O
|
||
|
|
END_DOC
|
||
|
|
call omp_init_lock(file_lock)
|
||
|
|
END_PROVIDER
|
||
|
|
|
||
|
|
|