| Current Path : /proc/2568807/root/usr/local/lib/python3.12/site-packages/numpy/f2py/tests/src/string/ |
| Current File : //proc/2568807/root/usr/local/lib/python3.12/site-packages/numpy/f2py/tests/src/string/gh25286.f90 |
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