dashboard
repositories
filestore
activity
search
login
main
/
archive
归档各类文件
summary
reflog
commits
tree
docs
forks
compare
blame
|
history
|
raw
造数脚本
hyb
2025-12-23
c980682a1fe205d8c21d349e9fc6b9e4951aea34
[archive.git]
/
测试组
/
脚本
/
Change_password
/
venv_build
/
Lib
/
site-packages
/
numpy
/
f2py
/
tests
/
src
/
modules
/
gh25337
/
use_data.f90
1
2
3
4
5
6
subroutine shift_a(dim_a, a)
use data, only: shift
integer, intent(in) :: dim_a
real(8), intent(inout), dimension(dim_a) :: a
a = a + shift
end subroutine shift_a