%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /backups/router/usr/local/lib/python3.11/site-packages/numpy/f2py/tests/src/string/
Upload File :
Create Path :
Current File : //backups/router/usr/local/lib/python3.11/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

Zerion Mini Shell 1.0