Mini Shell

Direktori : /opt/imh-python/lib/python3.9/site-packages/numpy/f2py/tests/src/string/
Upload File :
Current File : //opt/imh-python/lib/python3.9/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

Zerion Mini Shell 1.0