mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-12 16:33:37 +01:00
46 lines
982 B
Fortran
46 lines
982 B
Fortran
BEGIN_PROVIDER [ character*(128), json_filename ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Fortran unit of the JSON file
|
|
END_DOC
|
|
integer, external :: getUnitAndOpen
|
|
integer :: counter
|
|
character*(128) :: prefix
|
|
logical :: exists
|
|
|
|
prefix = trim(ezfio_filename)//'/json/'
|
|
|
|
call lock_io
|
|
exists = .True.
|
|
counter = 0
|
|
do while (exists)
|
|
counter += 1
|
|
write(json_filename, '(A,I5.5,A)') trim(prefix), counter, '.json'
|
|
INQUIRE(FILE=trim(json_filename), EXIST=exists)
|
|
enddo
|
|
call unlock_io
|
|
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [ integer, json_unit]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Unit file for JSON output
|
|
END_DOC
|
|
integer, external :: getUnitAndOpen
|
|
call ezfio_set_json_empty(.False.)
|
|
call lock_io
|
|
json_unit = getUnitAndOpen(json_filename, 'w')
|
|
write(json_unit, '(A)') '{'
|
|
call unlock_io
|
|
END_PROVIDER
|
|
|
|
subroutine json_close
|
|
call lock_io
|
|
write(json_unit, '(A)') '}'
|
|
close(json_unit)
|
|
call unlock_io
|
|
FREE json_unit
|
|
end
|
|
|