1.get_connection() 方法的 command_name 参数已经被弃用，更新使用调用get_connection() 方法 2.更新清...

hyb

2025-11-20 cfeb6c5395c96619ee8454ff5d9ea4f783584dd9

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