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