Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character, | intent(in) | :: | str |
function UpperCase(str) result(upper)
implicit none
character(*),intent(In) :: str
character(len(str)) :: Upper
integer :: ic,i
character(27),parameter :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ '
character(27),parameter :: low = 'abcdefghijklmnopqrstuvwxyz '
do i = 1,len(str)
ic = index(low,str(i:i))
if(ic > 0) then
Upper(i:i) = cap(ic:ic)
else
Upper(i:i) = str(i:i)
endif
enddo
endfunction UpperCase