mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-04 18:36:00 +02:00
16 lines
335 B
Fortran
16 lines
335 B
Fortran
BEGIN_PROVIDER [ character*(128), ezfio_filename ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Name of EZFIO file
|
|
END_DOC
|
|
integer :: iargc
|
|
call getarg(0,ezfio_filename)
|
|
if (iargc() /= 1) then
|
|
print *, ezfio_filename, ' <ezfio_file>'
|
|
stop 1
|
|
endif
|
|
call getarg(1,ezfio_filename)
|
|
call ezfio_set_file(ezfio_filename)
|
|
END_PROVIDER
|
|
|