mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-24 21:21:47 +02:00
Increased size of strings
This commit is contained in:
parent
f07c2fad45
commit
ceeef553b1
@ -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/
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user