*
* $Id: tup.F,v 1.1.1.1 1996/04/01 15:02:57 mclareni Exp $
*
* $Log: tup.F,v $
* Revision 1.1.1.1  1996/04/01 15:02:57  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE TUP(MEM, IPOS, K)
      DIMENSION MEM(1)
      COMMON /BITSXB/ NBITPW, NBYTPW
C
C   *TUP* STORES THE VALUE K INTO THE IPOS-TH GROUP OF 8 BITS OF
C   THE VECTOR MEM.
C   TUP IS NEEDED ONLY BECAUSE SBYT OPERATES ON SINGLE WORDS RATHER THAN
C   ON SINGLE WORDS.
C
      LW=(IPOS+NBYTPW-1)/NBYTPW
      LX=8*(IPOS-NBYTPW*(LW-1))-7
      CALL SBYT(K,MEM(LW),LX,8)
      RETURN
      END