39 lines
764 B
FortranFixed
39 lines
764 B
FortranFixed
|
program example
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
character(9) :: teststring = "alphaBETA"
|
||
|
|
|
||
|
|
call To_upper(teststring)
|
||
|
|
write(*,*) teststring
|
||
|
|
call To_lower(teststring)
|
||
|
|
write(*,*) teststring
|
||
|
|
|
||
|
|
contains
|
||
|
|
|
||
|
|
subroutine To_upper(str)
|
||
|
|
character(*), intent(in out) :: str
|
||
|
|
integer :: i
|
||
|
|
|
||
|
|
do i = 1, len(str)
|
||
|
|
select case(str(i:i))
|
||
|
|
case("a":"z")
|
||
|
|
str(i:i) = achar(iachar(str(i:i))-32)
|
||
|
|
end select
|
||
|
|
end do
|
||
|
|
end subroutine To_upper
|
||
|
|
|
||
|
|
subroutine To_lower(str)
|
||
|
|
character(*), intent(in out) :: str
|
||
|
|
integer :: i
|
||
|
|
|
||
|
|
do i = 1, len(str)
|
||
|
|
select case(str(i:i))
|
||
|
|
case("A":"Z")
|
||
|
|
str(i:i) = achar(iachar(str(i:i))+32)
|
||
|
|
end select
|
||
|
|
end do
|
||
|
|
end subroutine To_Lower
|
||
|
|
|
||
|
|
end program example
|