更新华东师范大学二期的并发入驻笼位，新增直接通过数据库获取使用人ID和对应课题组信息

hyb

2026-01-07 7b558540d1efb616406fa2d1aa416c4ee9616def

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