油烟监测 python后端代码

zmc

2023-08-08 e792e9a60d958b93aef96050644f369feb25d61b

1
2
3
4
5
6
7
8
9
10
11
12
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