Preview: string.f
Size: 248 B
/proc/self/root/opt/cloudlinux/venv/lib/python3.11/site-packages/numpy/f2py/tests/src/string/string.f
C FILE: STRING.F
SUBROUTINE FOO(A,B,C,D)
CHARACTER*5 A, B
CHARACTER*(*) C,D
Cf2py intent(in) a,c
Cf2py intent(inout) b,d
A(1:1) = 'A'
B(1:1) = 'B'
C(1:1) = 'C'
D(1:1) = 'D'
END
C END OF FILE STRING.F
Directory Contents
Dirs: 0 × Files: 4