c      write(*,*) "Len:", L
      fqual_temp = TRIM(ppath)//TRIM(cpath)
c      write(*,*) "Len:", fqual_temp
      return
      end