Capitalize in Fortran

Welcome to the Capitalize in Fortran page! Here, you'll find the source code for this program as well as a description of how the program works.

Current Solution

program capitalize
   implicit none
   character(len=100) :: cmd
   integer :: argc

   argc = command_argument_count()
   if (argc /= 1) call usage()

   call get_command_argument(1, cmd)
   cmd = adjustl(trim(cmd))
   if (len_trim(cmd) == 0) call usage()

   cmd(1:1) = upper(cmd(1:1))

   write(*,*) cmd

contains

   subroutine usage()
      write(*,*) "Usage: please provide a string"
      stop
   end subroutine

   pure elemental function upper(str) result(string)
      character(*), intent(in) :: str
      character(len(str)) :: string
      integer :: i, iend
      integer, parameter :: toupper = iachar('A') - iachar('a')

      iend = len_trim(str)
      string = str(:iend)

      do concurrent (i = 1:iend)
         select case (str(i:i))
          case ('a':'z')
            string(i:i) = achar(iachar(str(i:i)) + toupper)
         end select
      end do
   end function upper

end program capitalize

Capitalize in Fortran was written by:

• Mallikarjuna S J
• Ștefan-Iulian Alecu

If you see anything you'd like to change or update, please consider contributing.

How to Implement the Solution

No 'How to Implement the Solution' section available. Please consider contributing.

How to Run the Solution

No 'How to Run the Solution' section available. Please consider contributing.