From 5282014b4398dde12ab3ca96c200e95f68dd254b 2023-06-02 21:50:36
From: Roberto Flores <rflores@igp.gob.pe>
Date: 2023-06-02 21:50:36
Subject: [PATCH] test 1

---

diff --git a/schainf/Ffiles/lagp.f b/schainf/Ffiles/lagp.f
index 14962d0..3a11ec6 100644
--- a/schainf/Ffiles/lagp.f
+++ b/schainf/Ffiles/lagp.f
@@ -90,9 +90,10 @@ c      write(*,*) "BEFORE GET_PATH"
 c      write(*,*) "L_BEF: ", fqual_temp, "L_BEF_end"
       fqual = TRIM(fqual_temp)
       bfmodel_str = 'bfmodel/'
-c      write(*,*) "bfmodel_str: ", bfmodel_str
+      write(*,*) "bfmodel_str: ", bfmodel_str
 c      fqual(1:len_trim(fqual)-len_trim(bfmodel_str))
       fqual = fqual(1:index(fqual, bfmodel_str))//'weights.da'
+      write(*,*) "fqual: ", fqual
 c      write(*,*) "Final fqual",fqual,"FINAL"
 c      call exit
       if(first) then