subroutine get_len(the_len,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
      integer the_len