diff --git a/schainf/Ffiles/lagp.f b/schainf/Ffiles/lagp.f
index 1464053..f239489 100644
--- a/schainf/Ffiles/lagp.f
+++ b/schainf/Ffiles/lagp.f
@@ -89,8 +89,8 @@ c      write(*,*) "BEFORE GET_PATH"
       call get_path(fqual_temp)
 c      write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end"
       fqual = TRIM(fqual_temp)
-      bfmodel = 'bfmodel/'
-      fqual(1:len_trim(fqual)-len_trim(bfmodel))
+      bfmodel_str = 'bfmodel/'
+      fqual(1:len_trim(fqual)-len_trim(bfmodel_str))
       fqual = fqual//'weights.dat'
 c      write(*,*) "Final fqual",fqual,"FINAL"