XMM-Newton Science Analysis System


emsaplib (emsaplib-2.33) [xmmsas_20230412_1735-21.0.0]

changeCase

Aim: Switch from lower to upper case or vice-versa.

The routine declaration is:

  function changeCase(instring,dir) result(outstring)

! instring : input string
! dir      : direction (1: to lower case; 2: to uppercase; 0: switch case)

    character(len=*), intent(in) :: instring
    integer, intent(in) :: dir
    character(len=len(instring)) :: outstring