From 4f9959ba9c146b1bbd4c005798c4770bf98faa9e 2023-06-02 21:33:45
From: Roberto Flores <rflores@igp.gob.pe>
Date: 2023-06-02 21:33:45
Subject: [PATCH] lagp.f update 8

---

diff --git a/schainf/Ffiles/lagp.f b/schainf/Ffiles/lagp.f
index f9a1d41..f72d4da 100644
--- a/schainf/Ffiles/lagp.f
+++ b/schainf/Ffiles/lagp.f
@@ -92,7 +92,7 @@ c      write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end"
       bfmodel_str = 'bfmodel/'
       write(*,*) "bfmodel_str: ", bfmodel_str
 c      fqual(1:len_trim(fqual)-len_trim(bfmodel_str))
-      fqual = fqual(1:index(fqual, bfmodel-str))//'weights.dat'
+      fqual = fqual(1:index(fqual, bfmodel_str))//'weights.dat'
 c      write(*,*) "Final fqual",fqual,"FINAL"
  
       if(first) then