Commit 527560da authored by Govoni's avatar Govoni
Browse files

dir and file moved to 512 length max. Centralized save dirs.

parent 3871b613
......@@ -66,7 +66,7 @@ SUBROUTINE dfpt (m,dvg,dng,tr2)
LOGICAL :: exst,exst_mem
LOGICAL :: l_dost
!
CHARACTER(LEN=256) :: title
CHARACTER(LEN=512) :: title
!
CALL mp_barrier( world_comm )
!
......
......@@ -21,7 +21,7 @@ SUBROUTINE fetch_namelist(num_namelists,driver)
USE mp, ONLY : mp_bcast
USE mp_world, ONLY : mpime,root,world_comm
USE mp_global, ONLY : nimage
USE io_push, ONLY : io_push_title,io_push_value,io_push_bar,io_push_es0,io_push_c256
USE io_push, ONLY : io_push_title,io_push_value,io_push_bar,io_push_es0,io_push_c512
!
IMPLICIT NONE
!
......@@ -32,7 +32,7 @@ SUBROUTINE fetch_namelist(num_namelists,driver)
!
! Workspace
!
CHARACTER(LEN=256), EXTERNAL :: trimcheck
CHARACTER(LEN=512), EXTERNAL :: trimcheck
INTEGER :: iunit=5
INTEGER :: i
INTEGER :: numsp
......@@ -127,9 +127,9 @@ SUBROUTINE fetch_namelist(num_namelists,driver)
CALL io_push_title("I/O Summary : input_west")
!
numsp = 14
CALL io_push_c256('qe_prefix',qe_prefix,numsp)
CALL io_push_c256('west_prefix',qe_prefix,numsp)
CALL io_push_c256('outdir',outdir,numsp)
CALL io_push_c512('qe_prefix',qe_prefix,numsp)
CALL io_push_c512('west_prefix',qe_prefix,numsp)
CALL io_push_c512('outdir',outdir,numsp)
!
CALL io_push_bar()
!
......
......@@ -1091,7 +1091,7 @@ MODULE west_io
REAL(DP),INTENT(IN) :: d2dummy(nrow,ncol)
!
INTEGER :: ierr,i,j
CHARACTER(LEN=128) :: format_string
CHARACTER(LEN=512) :: format_string
REAL(DP) :: help(ncol)
!
IF(.NOT.lproc) RETURN
......
......@@ -48,7 +48,7 @@ MODULE pdep_db
!
IMPLICIT NONE
!
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
CHARACTER(LEN=6) :: my_label
REAL(DP), EXTERNAL :: GET_CLOCK
REAL(DP) :: time_spent(2)
......@@ -132,7 +132,7 @@ MODULE pdep_db
SUBROUTINE pdep_db_read( nglob_to_be_read )
!------------------------------------------------------------------------
!
USE westcom, ONLY : n_pdep_eigen,ev,dvg,west_prefix,npwq0x
USE westcom, ONLY : n_pdep_eigen,ev,dvg,west_prefix,npwq0x,wstat_save_dir
USE io_global, ONLY : stdout
USE mp, ONLY : mp_bcast,mp_barrier
USE mp_world, ONLY : world_comm,mpime,root
......@@ -146,7 +146,7 @@ MODULE pdep_db
!
INTEGER, INTENT(IN) :: nglob_to_be_read
!
CHARACTER(LEN=256) :: dirname,fname
CHARACTER(LEN=512) :: dirname,fname
CHARACTER(LEN=6) :: my_label
REAL(DP), EXTERNAL :: GET_CLOCK
REAL(DP) :: time_spent(2)
......@@ -169,17 +169,13 @@ MODULE pdep_db
!
time_spent(1)=get_clock('pdep_db')
!
! ... the main db directory
!
dirname = TRIM( tmp_dir ) // TRIM( west_prefix ) // '.wstat.save'
!
! 1) READ THE INPUT FILE
!
!
IF ( mpime == root ) THEN
!
CALL json%initialize()
CALL json%load_file( filename = TRIM( dirname ) // '/' // TRIM('wstat-save.json') )
CALL json%load_file( filename = TRIM( wstat_save_dir ) // '/' // TRIM('wstat-save.json') )
!
CALL json%get('input.wstat_control.n_pdep_eigen', tmp_n_pdep_eigen, found)
CALL json%get('output.eigenval', tmp_ev, found)
......
......@@ -46,7 +46,7 @@ MODULE wfreq_io
USE mp_images, ONLY : nimage,my_image_id,inter_image_comm
USE mp, ONLY : mp_sum
USE control_flags, ONLY : gamma_only
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mod_mpiio, ONLY : mp_master_creates_and_preallocates
!
IMPLICIT NONE
......@@ -61,7 +61,7 @@ MODULE wfreq_io
INTEGER :: ib, ii
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
INTEGER :: nmode
!
IF( gamma_only ) THEN
......@@ -75,9 +75,9 @@ MODULE wfreq_io
!
WRITE(c_glob_ib, '(i5.5)') ib
!
fname = TRIM( wfreq_dirname )//"/w_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/w_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_master_creates_and_preallocates( fname, n_lanczos*idistr%nglob * 1 )
fname = TRIM( wfreq_dirname )//"/w_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/w_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_master_creates_and_preallocates( fname, n_lanczos*idistr%nglob*idistr%nglob*nmode )
!
ENDDO
......@@ -93,7 +93,7 @@ MODULE wfreq_io
USE mp_images, ONLY : nimage,my_image_id,inter_image_comm
USE mp, ONLY : mp_sum
USE control_flags, ONLY : gamma_only
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mod_mpiio, ONLY : mp_master_creates_and_preallocates
!
IMPLICIT NONE
......@@ -108,7 +108,7 @@ MODULE wfreq_io
INTEGER :: ib, ii
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
INTEGER :: nmode
!
IF( gamma_only ) THEN
......@@ -122,9 +122,9 @@ MODULE wfreq_io
!
WRITE(c_glob_ib, '(i5.5)') ib
!
fname = TRIM( wfreq_dirname )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_master_creates_and_preallocates( fname, n_lanczos*idistr%nglob * 1 ) ! check nmode
fname = TRIM( wfreq_dirname )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_master_creates_and_preallocates( fname, n_lanczos*idistr%nglob*idistr%nglob*nmode )
!
ENDDO
......@@ -140,7 +140,7 @@ MODULE wfreq_io
! WHAT? ... braket( ndim, n_lanczos )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mp_global, ONLY : my_image_id,intra_bgrp_comm,me_bgrp,root_bgrp
USE mp, ONLY : mp_bcast
USE mod_mpiio, ONLY : mp_write_dmsg_at
......@@ -159,17 +159,17 @@ MODULE wfreq_io
!
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/w_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/w_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_write_dmsg_at( fname, diago, n_lanczos*nloc, n_lanczos*myoffset )
!
fname = TRIM( wfreq_dirname )//"/w_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/w_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_write_dmsg_at( fname, braket, nglob*n_lanczos*nloc, nglob*n_lanczos*myoffset )
!
END SUBROUTINE
......@@ -183,7 +183,7 @@ MODULE wfreq_io
! WHAT? ... braket( ndim, n_lanczos )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mp_global, ONLY : my_image_id,intra_bgrp_comm,me_bgrp,root_bgrp
USE mp, ONLY : mp_bcast
USE mod_mpiio, ONLY : mp_read_dmsg_at
......@@ -202,17 +202,17 @@ MODULE wfreq_io
!
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/w_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/w_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_read_dmsg_at( fname, diago, n_lanczos*nloc, n_lanczos*myoffset )
!
fname = TRIM( wfreq_dirname )//"/w_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/w_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_read_dmsg_at( fname, braket, nglob*n_lanczos*nloc, nglob*n_lanczos*myoffset )
!
END SUBROUTINE
......@@ -226,7 +226,7 @@ MODULE wfreq_io
! WHAT? ... lambda( n_pdep_eigen_to_use, n_pdep_eigen_to_use )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,wfreq_save_dir
USE mp_global, ONLY : my_image_id,inter_image_comm,me_image,root_image
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -243,11 +243,11 @@ MODULE wfreq_io
!
CHARACTER(LEN=6) :: c_glob_ifreq
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
!
WRITE(c_glob_ifreq,'(i6.6)') glob_ifreq
fname = TRIM( wfreq_dirname )//"/w_imF"//c_glob_ifreq//".dat"
fname = TRIM( wfreq_save_dir )//"/w_imF"//c_glob_ifreq//".dat"
!
IF ( my_image_id == 0 ) THEN
!
......@@ -285,7 +285,7 @@ MODULE wfreq_io
! WHAT? ... lambda( n_pdep_eigen_to_use, n_pdep_eigen_to_use )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,wfreq_save_dir
USE mp_global, ONLY : my_image_id,inter_image_comm
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -302,10 +302,10 @@ MODULE wfreq_io
!
CHARACTER(LEN=6) :: c_glob_ifreq
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
WRITE(c_glob_ifreq,'(i6.6)') glob_ifreq
fname = TRIM( wfreq_dirname )//"/w_imF"//c_glob_ifreq//".dat"
fname = TRIM( wfreq_save_dir )//"/w_imF"//c_glob_ifreq//".dat"
!
!
IF ( my_image_id == 0 ) THEN
......@@ -347,7 +347,7 @@ MODULE wfreq_io
! WHAT? ... braket( ndim, n_lanczos )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mp_global, ONLY : my_image_id,intra_bgrp_comm,me_bgrp,root_bgrp
USE mp, ONLY : mp_bcast
USE mod_mpiio, ONLY : mp_write_dmsg_at
......@@ -366,17 +366,17 @@ MODULE wfreq_io
!
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_write_dmsg_at( fname, diago, n_lanczos*nloc, n_lanczos*myoffset )
!
fname = TRIM( wfreq_dirname )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_write_dmsg_at( fname, braket, nglob*n_lanczos*nloc, nglob*n_lanczos*myoffset )
!
END SUBROUTINE
......@@ -390,7 +390,7 @@ MODULE wfreq_io
! WHAT? ... braket( ndim, n_lanczos )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mp_global, ONLY : my_image_id,intra_bgrp_comm,me_bgrp,root_bgrp
USE mp, ONLY : mp_bcast
USE mod_mpiio, ONLY : mp_write_dmsg_at,mp_write_zmsg_at
......@@ -409,17 +409,17 @@ MODULE wfreq_io
!
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_write_dmsg_at( fname, diago, n_lanczos*nloc, n_lanczos*myoffset )
!
fname = TRIM( wfreq_dirname )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_write_zmsg_at( fname, braket, nglob*n_lanczos*nloc, nglob*n_lanczos*myoffset )
!
END SUBROUTINE
......@@ -433,7 +433,7 @@ MODULE wfreq_io
! WHAT? ... braket( ndim, n_lanczos )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mp_global, ONLY : my_image_id,intra_bgrp_comm,me_bgrp,root_bgrp
USE mp, ONLY : mp_bcast
USE mod_mpiio, ONLY : mp_read_dmsg_at
......@@ -452,17 +452,17 @@ MODULE wfreq_io
!
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_read_dmsg_at( fname, diago, n_lanczos*nloc, n_lanczos*myoffset )
!
fname = TRIM( wfreq_dirname )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_read_dmsg_at( fname, braket, nglob*n_lanczos*nloc, nglob*n_lanczos*myoffset )
!
END SUBROUTINE
......@@ -476,7 +476,7 @@ MODULE wfreq_io
! WHAT? ... braket( ndim, n_lanczos )
!
USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_dirname
USE westcom, ONLY : n_pdep_eigen_to_use,iks_l2g,n_lanczos,wfreq_save_dir
USE mp_global, ONLY : my_image_id,intra_bgrp_comm,me_bgrp,root_bgrp
USE mp, ONLY : mp_bcast
USE mod_mpiio, ONLY : mp_read_dmsg_at,mp_read_zmsg_at
......@@ -495,17 +495,17 @@ MODULE wfreq_io
!
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_diag_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_read_dmsg_at( fname, diago, n_lanczos*nloc, n_lanczos*myoffset )
!
fname = TRIM( wfreq_dirname )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/g_brak_K"//c_glob_iks//"B"//c_glob_ib//".dat"
CALL mp_read_zmsg_at( fname, braket, nglob*n_lanczos*nloc, nglob*n_lanczos*myoffset )
!
END SUBROUTINE
......@@ -518,7 +518,7 @@ MODULE wfreq_io
! WHAT? ... overlap( no1, no2 )
!
USE kinds, ONLY : DP
USE westcom, ONLY : iks_l2g,wfreq_dirname
USE westcom, ONLY : iks_l2g,wfreq_save_dir
USE mp_world, ONLY : mpime,root,world_comm
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -538,14 +538,14 @@ MODULE wfreq_io
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
!
IF ( mpime == root ) THEN
!
......@@ -581,7 +581,7 @@ MODULE wfreq_io
! WHAT? ... overlap( no1, no2 )
!
USE kinds, ONLY : DP
USE westcom, ONLY : iks_l2g,wfreq_dirname
USE westcom, ONLY : iks_l2g,wfreq_save_dir
USE mp_world, ONLY : mpime,root,world_comm
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -601,14 +601,14 @@ MODULE wfreq_io
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
!
IF ( mpime == root ) THEN
!
......@@ -644,7 +644,7 @@ MODULE wfreq_io
! WHAT? ... overlap( no1, no2 )
!
USE kinds, ONLY : DP
USE westcom, ONLY : iks_l2g,wfreq_dirname
USE westcom, ONLY : iks_l2g,wfreq_save_dir
USE mp_world, ONLY : mpime,root,world_comm
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -664,14 +664,14 @@ MODULE wfreq_io
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
!
IF ( mpime == root ) THEN
!
......@@ -709,7 +709,7 @@ MODULE wfreq_io
! WHAT? ... overlap( no1, no2 )
!
USE kinds, ONLY : DP
USE westcom, ONLY : iks_l2g,wfreq_dirname
USE westcom, ONLY : iks_l2g,wfreq_save_dir
USE mp_world, ONLY : mpime,root,world_comm
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -729,14 +729,14 @@ MODULE wfreq_io
CHARACTER(LEN=5) :: c_glob_iks
CHARACTER(LEN=5) :: c_glob_ib
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
WRITE(c_glob_iks,'(i5.5)') glob_iks
WRITE(c_glob_ib, '(i5.5)') glob_ib
!
fname = TRIM( wfreq_dirname )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
fname = TRIM( wfreq_save_dir )//"/over_"//labellina//"_K"//c_glob_iks//"B"//c_glob_ib//".dat"
!
IF ( mpime == root ) THEN
!
......@@ -774,7 +774,7 @@ MODULE wfreq_io
! WHAT? ... sigma_hf(nb, nk)
!
USE kinds, ONLY : DP
USE westcom, ONLY : wfreq_dirname
USE westcom, ONLY : wfreq_save_dir
USE mp_world, ONLY : mpime,root,world_comm
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -789,11 +789,11 @@ MODULE wfreq_io
! Workspace
!
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
fname = TRIM( wfreq_dirname )//"/hf.dat"
fname = TRIM( wfreq_save_dir )//"/hf.dat"
!
IF ( mpime == root ) THEN
!
......@@ -829,7 +829,7 @@ MODULE wfreq_io
! WHAT? ... sigma_hf(nb, nk)
!
USE kinds, ONLY : DP
USE westcom, ONLY : iks_l2g,wfreq_dirname
USE westcom, ONLY : iks_l2g,wfreq_save_dir
USE mp_world, ONLY : mpime,root,world_comm
USE mp, ONLY : mp_bcast
USE iotk_module
......@@ -844,11 +844,11 @@ MODULE wfreq_io
! Workspace
!
INTEGER :: iunout, ierr
CHARACTER(LEN=256) :: fname
CHARACTER(LEN=512) :: fname
!
! Generate the filename
!
fname = TRIM( wfreq_dirname )//"/hf.dat"
fname = TRIM( wfreq_save_dir )//"/hf.dat"
!
IF ( mpime == root ) THEN
!
......
......@@ -60,7 +60,7 @@ MODULE wfreq_restart
! I/O
!
TYPE(bks_type),INTENT(IN) :: bks
CHARACTER(LEN=256),INTENT(IN) :: dirname, fname
CHARACTER(LEN=512),INTENT(IN) :: dirname, fname
INTEGER :: iunout
!
! Workspace
......@@ -116,7 +116,7 @@ MODULE wfreq_restart
! I/O
!
TYPE(bks_type),INTENT(OUT) :: bks
CHARACTER(LEN=256),INTENT(IN) :: dirname, fname
CHARACTER(LEN=512),INTENT(IN) :: dirname, fname
INTEGER :: iunout
!
! Workspace
......@@ -178,7 +178,7 @@ MODULE wfreq_restart
!
! I/O
!
CHARACTER(LEN=256),INTENT(IN) :: dirname, fname
CHARACTER(LEN=512),INTENT(IN) :: dirname, fname
!
! Workspace
!
......@@ -222,7 +222,7 @@ MODULE wfreq_restart
! Workspace
!
INTEGER :: ierr
CHARACTER(LEN=256) :: dirname,fname
CHARACTER(LEN=512) :: dirname,fname
CHARACTER(29) :: my_label
CHARACTER(33) :: my_label2
INTEGER :: local_j,global_j
......@@ -327,7 +327,7 @@ MODULE wfreq_restart
! Workspace
!
INTEGER :: ierr
CHARACTER(LEN=256) :: dirname,fname
CHARACTER(LEN=512) :: dirname,fname
CHARACTER(29) :: my_label
CHARACTER(33) :: my_label2
INTEGER :: local_j,global_j
......@@ -434,7 +434,7 @@ MODULE wfreq_restart
! Workspace
!
INTEGER :: ierr
CHARACTER(LEN=256) :: dirname,fname
CHARACTER(LEN=512) :: dirname,fname
REAL(DP), EXTERNAL :: GET_CLOCK
REAL(DP) :: time_spent(2)
CHARACTER(20),EXTERNAL :: human_readable_time
......@@ -532,7 +532,7 @@ MODULE wfreq_restart
! Workspace
!
INTEGER :: ierr
CHARACTER(LEN=256) :: dirname,fname
CHARACTER(LEN=512) :: dirname,fname
REAL(DP), EXTERNAL :: GET_CLOCK
REAL(DP) :: time_spent(2)
CHARACTER(20),EXTERNAL :: human_readable_time
......@@ -629,7 +629,7 @@ MODULE wfreq_restart
! Workspace
!
INTEGER :: ierr
CHARACTER(LEN=256) :: dirname,fname
CHARACTER(LEN=512) :: dirname,fname
REAL(DP), EXTERNAL :: GET_CLOCK
REAL(DP) :: time_spent(2)
CHARACTER(20),EXTERNAL :: human_readable_time
......@@ -673,7 +673,7 @@ MODULE wfreq_restart
! Workspace
!
INTEGER :: ierr