SUBROUTINE MOVEC(NOUT,IA,INP,IB,IBIT)
      integer*4 inp,nout
      nout=inp
      return
      end SUBROUTINE MOVEC