Update HP output filename len

QEF · Sep 13, 2019 · 86ee339 · 86ee339
1 parent 18c94b1
commit 86ee339
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/HP/src/hp_postproc.f90 b/HP/src/hp_postproc.f90
@@ -61,7 +61,7 @@ SUBROUTINE hp_postproc
                          eps3 = 1.d-4    ! the same threshold for the comparison of distances
                                          ! as in PW/src/inter_V.f90 DFT+U+V
   !
-  CHARACTER(len=50) :: filenameU
+  CHARACTER(len=256) :: filenameU
   INTEGER, EXTERNAL :: find_free_unit
   !
   CALL start_clock('hp_calc_U')

diff --git a/Modules/version.f90 b/Modules/version.f90
@@ -12,7 +12,7 @@ MODULE global_version
   !
   SAVE
   !
-  CHARACTER (LEN=6) :: version_number = '6.4.1'
+  CHARACTER (LEN=18) :: version_number = '6.4.1 Schrodinger'
   CHARACTER (LEN=12) :: svn_revision = 'unknown'
   !
 END MODULE global_version