Dear friends,
I have successfully merged SCR files by using mrgscr. Now I am wondering if there is any way (if proper in theory) to do the same thing to SUS files. I did not find an available tool in abinit.
Thanks.
Sincerely,
Guangfu Luo
Is there any way to merge SUS files?
Moderators: maryam.azizi, bruneval
Re: Is there any way to merge SUS files?
Dear Guangfu,
The file format of the SUS and SCR files are very similar.
In principle one case use mrgscr to merge SUS files but one has to make small changes
in the code to include this option. A version of mrgscr capable of merging SUS files will be released soon.
The file format of the SUS and SCR files are very similar.
In principle one case use mrgscr to merge SUS files but one has to make small changes
in the code to include this option. A version of mrgscr capable of merging SUS files will be released soon.
Re: Is there any way to merge SUS files?
Dear Gmatteo,
It is nice to hear that. Since you are going to modify this tool, I'd like to add one more piece of suggestion: can you allow mrgscr to accept the relative path of the SUS or SCR files? In the present version, mrgscr does not accept the path (like ../) before the file names.
Sincerely,
Guangfu Luo
It is nice to hear that. Since you are going to modify this tool, I'd like to add one more piece of suggestion: can you allow mrgscr to accept the relative path of the SUS or SCR files? In the present version, mrgscr does not accept the path (like ../) before the file names.
Sincerely,
Guangfu Luo
Re: Is there any way to merge SUS files?
This change will be available in the forthcoming release.
For the moment you have to change the routine prompt_string defined in 27_toolbox_oop/m_io_tools
using the version below:
subroutine prompt_string(msg,string)
!Arguments ------------------------------------
character(len=*),intent(in) :: msg
character(len=*),intent(out) :: string
!Local variables-------------------------------
integer :: ios
character(len=4) :: PS
! *********************************************************************
ios=-1 ; PS=PS1
do while (ios/=0)
write(STDOUT,'(a)',ADVANCE='NO')PS//TRIM(msg)//BLANK
read(STDIN,'(a)',IOSTAT=ios)string ! <<<< It was read(STDIN,*,IOSTAT=ios)
if (ios==IO_EOT) call prompt_exit()
PS=PS2
end do
write(STDOUT,*)
end subroutine prompt_string
!!***
For the moment you have to change the routine prompt_string defined in 27_toolbox_oop/m_io_tools
using the version below:
subroutine prompt_string(msg,string)
!Arguments ------------------------------------
character(len=*),intent(in) :: msg
character(len=*),intent(out) :: string
!Local variables-------------------------------
integer :: ios
character(len=4) :: PS
! *********************************************************************
ios=-1 ; PS=PS1
do while (ios/=0)
write(STDOUT,'(a)',ADVANCE='NO')PS//TRIM(msg)//BLANK
read(STDIN,'(a)',IOSTAT=ios)string ! <<<< It was read(STDIN,*,IOSTAT=ios)
if (ios==IO_EOT) call prompt_exit()
PS=PS2
end do
write(STDOUT,*)
end subroutine prompt_string
!!***