diff --git a/schainf/Ffiles/get_path_2_reader.f b/schainf/Ffiles/get_path_2_reader.f
index fa1fb7d..ea6ca7c 100644
--- a/schainf/Ffiles/get_path_2_reader.f
+++ b/schainf/Ffiles/get_path_2_reader.f
@@ -5,7 +5,7 @@
       return
       end
 
-      subroutine get_path(fqual,the_len)
+      subroutine get_path_reader(fqual,the_len)
 c
 c      create table of magnetic field components
 c