q4-s10.f90

INTEGER FUNCTION caseDifference(string)
IMPLICIT NONE

CHARACTER (LEN=*), INTENT(IN) :: string
INTEGER :: stringLength = LEN_TRIM(string)
INTEGER :: i, caseDifference
INTEGER :: uppercase = 0, lowercase = 0

DO i = 1, stringLength, 1
	IF (LLE("a",string(i:i)) .AND. LGE(string(i:i), "z")) THEN
		! Its lowercase
		lowercase = lowercase + 1
	END IF
	IF (LLE("A",string(i:i)) .AND. LGE(string(i:i), "Z")) THEN
		! Its uppercase
		uppercase = uppercase + 1
	END IF
END DO

caseDifference = ABS(lowercase-uppercase)

END FUNCTION caseDifference