.venv/lib/python3.12/site-packages/numpy/f2py/tests/src/string/gh25286.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

subroutine charint(trans, info)
    character, intent(in) :: trans
    integer, intent(out) :: info
    if (trans == 'N') then
        info = 1
    else if (trans == 'T') then
        info = 2
    else if (trans == 'C') then
        info = 3
    else
        info = -1
    end if

end subroutine charint