1 SUBROUTINE MOVEC(NOUT,IA,INP,IB,IBIT) 2 integer*4 inp,nout 3 nout=inp 4 return 5 END SUBROUTINE MOVEC