PROGRAM SMAA_B_FUNKTION
IMPLICIT NONE
CHARACTER(LEN=20) STORA_B
CHARACTER(LEN=20) SMAA_B

	STORA_B = 'BOEIN'

	WRITE(*,*) SMAA_B(STORA_B)

END

CHARACTER(LEN=*) FUNCTION SMAA_B(STORA_B)
IMPLICIT NONE
	INTEGER I
	CHARACTER(LEN=*) STORA_B
        INTEGER LAENGD
	LAENGD = LEN(TRIM(STORA_B))
	SMAA_B = ' '
	DO I = 1, LAENGD
           SMAA_B(I:I) = ACHAR(IACHAR(STORA_B(I:I))+32)
	END DO
END FUNCTION SMAA_B