From cb57cf1f88fcf429065b2c2a2870b1215cf20dc8 2023-06-02 21:25:48
From: Roberto Flores <rflores@igp.gob.pe>
Date: 2023-06-02 21:25:48
Subject: [PATCH] lagp.f update 7

---

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"