! -------------------------------------------------------------------- !
      function dir(string1,string2)
! -------------------------------------------------------------------- !
      implicit none
      character(len=*) :: dir
      character(len=*),intent(in)  :: string1,string2
      dir=trim(adjustl(string1))//adjustl(string2)
      end function dir