mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-26 05:13:30 +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
|
|
|
|
|