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