fixed bug in remove path and in setting max_filename_size in mode 1

m3g · Dec 6, 2016 · b397851 · b397851
1 parent 0f71c87
commit b397851
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/file_operations.f90 b/src/file_operations.f90
@@ -67,7 +67,7 @@ character(len=200) function remove_path(filename)
       end do
       i = i + 1
       remove_path(1:ilength-i+1) = remove_path(i:ilength)
-      do i = ilength-i+1, 200
+      do i = ilength-i+2, 200
         remove_path(i:i) = achar(32)
       end do
 

diff --git a/src/lovoalign.f90 b/src/lovoalign.f90
@@ -178,7 +178,7 @@ program lovoalign
     ! Read command line parameters
 
     if(narg.gt.0) call getpars()
-    max_filename_size = max(length(basename(protea)),length(basename(proteb)))
+    max_filename_size = max(length(remove_path(protea)),length(remove_path(proteb)))
     call outputformats()
     if(iprint.eq.0) then
       write(*,header_list) trim(adjustl(basename(protea))), &