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