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

	STORA_B = 'BOEIN'
	CALL BYT(STORA_B, SMAA_B)
	WRITE(*,*) SMAA_B

END

SUBROUTINE BYT(STORA_B, SMAA_B)
IMPLICIT NONE
CHARACTER(LEN=*) STORA_B, SMAA_B
INTEGER I, 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 SUBROUTINE BYT