!
! Copyright (C) 2002-2020 Quantum ESPRESSO Foundation
! This file is distributed under the terms of the
! GNU General Public License. See the file `License'
! in the root directory of the present distribution,
! or http://www.gnu.org/copyleft/gpl.txt .
!
!-----------------------------------------------------------------------
  FUNCTION trimcheck ( directory )
    !-----------------------------------------------------------------------
    !
    ! ... verify if directory ends with / or \ for Windows, add one if needed
    ! ... trim white spaces and put the result in trimcheck
    !
    IMPLICIT NONE
    !
    CHARACTER (LEN=*), INTENT(IN) :: directory
    CHARACTER (LEN=256) :: trimcheck
#if defined (_WIN32) && ! defined (__PGI)
    CHARACTER (LEN=1) :: separator = '\'
#else
    CHARACTER (LEN=1) :: separator = '/'
#endif
    INTEGER  :: l, i
    !
    l = LEN_TRIM( ADJUSTL(directory) )
    IF ( l == 0 )  CALL errore( 'trimcheck', ' input name empty', 1)
    IF ( l > LEN( trimcheck ) ) &
         CALL errore( 'trimcheck', ' input name too long', 1)
    !
    trimcheck = TRIM ( ADJUSTL(directory) )
    !
    ! for Windows: convert / to \
    !
    IF ( separator /= '/') THEN
       DO i = 1, l
          IF ( trimcheck(i:i) == '/' )  trimcheck(i:i) = separator
       END DO
    END IF
    !
    ! add final / or \ if not present - makes easier to add a file name
    !
    IF ( directory(l:l) /= separator ) THEN
       IF ( l < LEN( trimcheck ) ) THEN
          trimcheck(l+1:l+1) = separator
       ELSE
          CALL errore(  'trimcheck', ' input name too long', 2 )
       END IF
    END IF
    !
    RETURN
    !
  END FUNCTION trimcheck
  !
