11 lines
219 B
FortranFixed
11 lines
219 B
FortranFixed
|
subroutine get_acc(array1d,dim1)
|
||
|
|
use dopiqState
|
||
|
|
implicit none
|
||
|
|
integer dim1,i
|
||
|
|
real*8, dimension(dim1) :: array1d
|
||
|
|
do i = 1,dim1
|
||
|
|
array1d(i) = acc(i)
|
||
|
|
enddo
|
||
|
|
end
|
||
|
|
|