From 245450ed306eb33374723e1e8ce97787819e341c 2022-11-29 22:01:15
From: Roberto Flores <rflores@igp.gob.pe>
Date: 2022-11-29 22:01:15
Subject: [PATCH] new files to generate right path to bfmodel

---

diff --git a/schainf/mkfact/get_path_1.f b/schainf/mkfact/get_path_1.f
new file mode 100644
index 0000000..701eafb
--- /dev/null
+++ b/schainf/mkfact/get_path_1.f
@@ -0,0 +1,10 @@
+
+      subroutine get_path(fqual_temp)
+c
+c      create table of magnetic field components
+c
+c      character*47 L
+
+      character(1024) :: fqual_temp
+      character(512) :: ppath
+      character(512) :: cpath
diff --git a/schainf/mkfact/get_path_2.f b/schainf/mkfact/get_path_2.f
new file mode 100644
index 0000000..db008dc
--- /dev/null
+++ b/schainf/mkfact/get_path_2.f
@@ -0,0 +1,6 @@
+    
+c      write(*,*) "Len:", L
+      fqual_temp = TRIM(ppath)//TRIM(cpath)
+c      write(*,*) "Len:", fqual_temp
+      return
+      end