diff --git a/src/ezfio_files/ezfio.irp.f b/src/ezfio_files/ezfio.irp.f index e7a7a159..4f53b173 100644 --- a/src/ezfio_files/ezfio.irp.f +++ b/src/ezfio_files/ezfio.irp.f @@ -1,4 +1,4 @@ -BEGIN_PROVIDER [ character*(128), ezfio_filename ] +BEGIN_PROVIDER [ character*(1024), ezfio_filename ] implicit none BEGIN_DOC ! Name of EZFIO file. It is obtained from the QPACKAGE_INPUT environment @@ -34,7 +34,7 @@ BEGIN_PROVIDER [ character*(128), ezfio_filename ] ! Adjust out-of-memory killer flag such that the current process will be ! killed first by the OOM killer, allowing compute nodes to survive integer :: getpid - character*(64) :: command, pidc + character*(1024) :: command, pidc write(pidc,*) getpid() write(command,*) 'echo 15 > /proc//'//trim(adjustl(pidc))//'/oom_adj' call system(command) @@ -43,7 +43,7 @@ BEGIN_PROVIDER [ character*(128), ezfio_filename ] END_PROVIDER -BEGIN_PROVIDER [ character*(128), ezfio_work_dir ] +BEGIN_PROVIDER [ character*(1024), ezfio_work_dir ] implicit none BEGIN_DOC ! EZFIO/work/ diff --git a/src/ezfio_files/get_unit_and_open.irp.f b/src/ezfio_files/get_unit_and_open.irp.f index 71bbc76c..6440579f 100644 --- a/src/ezfio_files/get_unit_and_open.irp.f +++ b/src/ezfio_files/get_unit_and_open.irp.f @@ -17,7 +17,7 @@ integer function getUnitAndOpen(f,mode) END_DOC character*(*) :: f - character*(128) :: new_f + character*(256) :: new_f integer :: iunit logical :: is_open, exists character :: mode diff --git a/src/ezfio_files/qp_stop.irp.f b/src/ezfio_files/qp_stop.irp.f index b2618246..c1039dc3 100644 --- a/src/ezfio_files/qp_stop.irp.f +++ b/src/ezfio_files/qp_stop.irp.f @@ -1,5 +1,5 @@ - BEGIN_PROVIDER [ character*(128), qp_stop_filename ] -&BEGIN_PROVIDER [ character*(128), qp_kill_filename ] + BEGIN_PROVIDER [ character*(256), qp_stop_filename ] +&BEGIN_PROVIDER [ character*(256), qp_kill_filename ] &BEGIN_PROVIDER [ integer, qp_stop_variable ] implicit none BEGIN_DOC