diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-28 21:12:20 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-28 21:12:20 -0400 |
| commit | 6f681035a7c7125a72ce04d6881c1579bdb96d09 (patch) | |
| tree | 0242bd750f447ab863b375e6e627e2da3abc8bb5 /common/utilities.F90 | |
| parent | 1023ceb58f48c7a01a8d04688a48918ac485d20a (diff) | |
| download | levitating-6f681035a7c7125a72ce04d6881c1579bdb96d09.tar.gz levitating-6f681035a7c7125a72ce04d6881c1579bdb96d09.zip | |
Titan query strings are now actually processed as queries. Additional cleanup based on refactor of requests.request_refactor
Diffstat (limited to 'common/utilities.F90')
| -rw-r--r-- | common/utilities.F90 | 12 |
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 |