mirror of https://gitlab.com/scemama/eplf
25 lines
424 B
FortranFixed
25 lines
424 B
FortranFixed
|
BEGIN_PROVIDER [ character*(128), qcio_filename ]
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! Name of the QCIO file
|
||
|
END_DOC
|
||
|
integer :: iargc
|
||
|
|
||
|
IRP_IF MPI
|
||
|
PROVIDE mpi_rank
|
||
|
IRP_ENDIF
|
||
|
call getarg(1,qcio_filename)
|
||
|
if (qcio_filename /= '') then
|
||
|
call qcio_set_file(qcio_filename)
|
||
|
else
|
||
|
call qcio_get_filename(qcio_filename)
|
||
|
endif
|
||
|
if (.not.mpi_master) then
|
||
|
call qcio_set_read_only(.True.)
|
||
|
endif
|
||
|
call barrier
|
||
|
|
||
|
END_PROVIDER
|
||
|
|
||
|
|