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
|
|
