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