aboutsummaryrefslogtreecommitdiff
path: root/common
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2022-06-28 21:12:20 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2022-06-28 21:12:20 -0400
commit6f681035a7c7125a72ce04d6881c1579bdb96d09 (patch)
tree0242bd750f447ab863b375e6e627e2da3abc8bb5 /common
parent1023ceb58f48c7a01a8d04688a48918ac485d20a (diff)
downloadlevitating-request_refactor.tar.gz
levitating-request_refactor.zip
Titan query strings are now actually processed as queries. Additional cleanup based on refactor of requests.request_refactor
Diffstat (limited to 'common')
-rw-r--r--common/utilities.F9012
1 files changed, 3 insertions, 9 deletions
diff --git a/common/utilities.F90 b/common/utilities.F90
index 61c5d93..d746e0f 100644
--- a/common/utilities.F90
+++ b/common/utilities.F90
@@ -573,16 +573,10 @@ contains
character(*), intent(inout)::str
integer::i
- interface
- function toupper_c(c) bind(c, name="toupper")
- use iso_c_binding
- integer(kind=c_int), value::c
- integer(kind=c_int)::toupper_c
- end function toupper_c
- end interface
-
do i=1, len_trim(str)
- str(i:i) = char(toupper_c(IACHAR(str(i:i))))
+ if(str(i:i) >= 'a' .and. str(i:i) <= 'z') then
+ str(i:i) = CHAR(ICHAR(str(i:i)) + (ICHAR('A') - ICHAR('a')))
+ end if
end do
end subroutine toupper