to_upper.f

Go to the documentation of this file.

      FUNCTION to_upper(STRIN) RESULT(STROUT)
      ! Adapted from http://www.star.le.ac.uk/~cgp/fortran.html (25 May
      ! 2012)
      ! Original author: Clive Page

      IMPLICIT NONE

      CHARACTER(LEN=*), INTENT(IN) :: strin
      CHARACTER(LEN=LEN(STRIN)) :: strout
      INTEGER :: i,j

      DO i = 1, len(strin)
        j = iachar(strin(i:i))
        IF (j>= iachar("a") .AND. j<=iachar("z") ) THEN
          strout(i:i) = achar(iachar(strin(i:i))-32)
        ELSE
          strout(i:i) = strin(i:i)
        END IF
      END DO

      END FUNCTION to_upper