2009-10-12 17:37:07 +02:00
|
|
|
BEGIN_PROVIDER [ character*(64), ezfio_filename ]
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! Name of the ezfio file
|
2009-09-29 13:42:56 +02:00
|
|
|
END_DOC
|
|
|
|
|
IRP_IF MPI
|
2009-10-12 17:37:07 +02:00
|
|
|
include 'mpif.h'
|
|
|
|
|
integer :: ierr
|
2009-09-29 13:42:56 +02:00
|
|
|
IRP_ENDIF
|
2009-10-12 17:37:07 +02:00
|
|
|
|
|
|
|
|
if (mpi_master) then
|
|
|
|
|
call getarg(1,ezfio_filename)
|
|
|
|
|
if (ezfio_filename == '') then
|
|
|
|
|
call ezfio_get_filename(ezfio_filename)
|
|
|
|
|
endif
|
2009-09-29 13:42:56 +02:00
|
|
|
endif
|
2009-10-12 17:37:07 +02:00
|
|
|
|
|
|
|
|
IRP_IF MPI
|
|
|
|
|
call MPI_BCAST(ezfio_filename,64,MPI_character,0,MPI_COMM_WORLD,ierr)
|
|
|
|
|
if (ierr /= MPI_SUCCESS) then
|
|
|
|
|
call abrt(irp_here,'Unable to broadcast ezfio_filename')
|
|
|
|
|
endif
|
|
|
|
|
IRP_ENDIF
|
|
|
|
|
|
|
|
|
|
call ezfio_set_file(ezfio_filename)
|
2009-09-29 13:42:56 +02:00
|
|
|
if (.not.mpi_master) then
|
2009-10-12 17:37:07 +02:00
|
|
|
call ezfio_set_read_only(.True.)
|
2009-09-29 13:42:56 +02:00
|
|
|
endif
|
|
|
|
|
call barrier
|
|
|
|
|
|
|
|
|
|
END_PROVIDER
|
|
|
|
|
|
