mirror of
https://github.com/LCPQ/quantum_package
synced 2024-07-09 04:43:43 +02:00
16 lines
335 B
FortranFixed
16 lines
335 B
FortranFixed
|
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
|
||
|
|