module dopiqState
integer len,hdr,last,i0,n
real*8 xmn,prf
real*8, allocatable, dimension(:) :: acc
integer dim1_acc
end module