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

      ppath = '/home/roberto'
      cpath = '/acf2_Wrapper/jlib26feb2001'
    
      fqual_temp = TRIM(ppath)//TRIM(cpath)
      the_len = LEN_TRIM(fqual_temp)

      return
      end

      subroutine get_path(fqual,the_len)
c
c      create table of magnetic field components
c
c      character*47 L

      integer the_len
      character(the_len) :: fqual
      character(1024) :: fqual_temp

      call get_len(the_len,fqual_temp)
      fqual = TRIM(fqual_temp)
      write(*,*) "Done"

      return
      end