mirror of https://gitlab.com/scemama/eplf
25 lines
424 B
Fortran
25 lines
424 B
Fortran
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
|
|
|
|
|