dashboard
repositories
filestore
activity
search
login
main
/
archive
归档各类文件
summary
reflog
commits
tree
docs
forks
compare
blame
|
history
|
raw
更新华东师范大学二期的并发入驻笼位,新增直接通过数据库获取使用人ID和对应课题组信息
hyb
2026-01-07
7b558540d1efb616406fa2d1aa416c4ee9616def
[archive.git]
/
测试组
/
脚本
/
Change_password
/
venv_build
/
Lib
/
site-packages
/
numpy
/
f2py
/
tests
/
src
/
string
/
string.f
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