MODULE MaxChar_fd

  INTEGER, PARAMETER :: MAXC = 512  !Max path+file name length

END MODULE MaxChar_fd