9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-04 19:03:28 +01:00
qp2/src/ezfio_files/lock.irp.f

13 lines
189 B
Fortran
Raw Normal View History

2019-01-25 11:39:31 +01:00
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