blob: e7b10fa9215e88e56794e9c73d0b13872cbd953c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
python module _char_handling_test
interface
subroutine charint(trans, info)
callstatement (*f2py_func)(&trans, &info)
callprotoargument char*, int*
character, intent(in), check(*trans=='N'||*trans=='T'||*trans=='C') :: trans = 'N'
integer intent(out) :: info
end subroutine charint
end interface
end python module _char_handling_test
|