c-----------------------------------------------------------------------
c     Dumps vector labelled with 'label' on logical unit 'unit'.
c-----------------------------------------------------------------------
      subroutine dvdump(v,n,label,unit)
 
         real*8         v(1)
         character*(*)  label
         integer        i, n, st, unit
 
         if( n .lt. 1 ) go to 130
            write(unit,100) label
 100        FORMAT(/' <<< ',A,' >>>'/)
            st = 1
 110        continue
               write(unit,120) ( v(i) , i = st , min(st+3,n))
 120           FORMAT(' ',4(1PE19.10))
               st = st + 4
            if( st .le. n ) go to 110
 
 130     continue
 
         return
 
      end
