2016 Update

Task/String-case/Fortran/string-case-1.f

@@ -0,0 +1,38 @@
+ 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