Fortran

CHARACTER (len=2) FUNCTION TH(x)

    !Prototyped by: John Naudus

    integer x

    x = MOD(x,100)

    if (x.ge.1) then
        if ((x.eq.11) .or. (x.eq.12) .or. (x.eq.13)) then
            TH = 'TH'
        else
            x = MOD(x,10)
            if (x.eq.1) then
                TH = 'ST'
            else if (x.eq.2) then
                TH = 'ND'
            else if (x.eq.3) then
                TH = 'RD'
            else
                TH = 'TH'
            endif
        endif
    else
        TH = ''
    endif

    RETURN

END