!    free form output of string and vector of BINARY values on terminal.
!    call tv4bin('strng',numg,in) !string, followed by in(1),in(2)...in(numg)
     subroutine tv4bin(string,numg,ivec)

     implicit none
     character*(*) string
     character*100 out,tmp*20
     integer*4:: dest,numg,nch,i,j,ival,ia,ivec(*)
     nch=len(string)  !how many chars output
     out=' '//string(1:nch)//' [Binary] '
     nch=nch+10
     do i=1,numg
      ia=ivec(i)    !get ith of vector
      dest=0        !char loc (backward)
      do while(ia.ne.0)
       dest=dest+1
       tmp(dest:dest)=char(48+iand(ia,1))
       ia=ishft(ia,-1)
      enddo
      do j=1,dest
       out(nch+dest-j:nch+dest-j)=tmp(j:j)
      enddo
      nch=nch+dest+1 
!
      if(nch > 75) then
       print 1000, out(1:nch)
1000   format(a)
       out=' [Binary] ' ; nch=11
      endif
     enddo 
     if(nch.gt.11) print 1000, out(1:nch)
     return
     end subroutine tv4bin