Fix backward compatibility of .chk file

* Specify `len=20` when defining `checkpoint` variable in src/readwrite.F90
wannier-developers · Sep 26, 2024 · f20ee86 · f20ee86
1 parent c1de9d4
commit f20ee86
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/readwrite.F90 b/src/readwrite.F90
@@ -1896,7 +1896,7 @@ subroutine w90_readwrite_read_chkpt_header(exclude_bands, kmesh_info, kpt_latt,
     real(kind=dp), intent(in) :: real_lattice(3, 3)
 
     character(len=*), intent(in)  :: seedname
-    character(len=*), intent(inout) :: checkpoint
+    character(len=20), intent(inout) :: checkpoint
 
     logical, intent(in) :: ispostw90 ! Are we running postw90?
     logical, intent(out) :: have_disentangled