MINICERN/mathlib/gen/v/tup.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:57  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE TUP(MEM, IPOS, K)
  11       DIMENSION MEM(1)
  12       COMMON /BITSXB/ NBITPW, NBYTPW
  13 C
  14 C   *TUP* STORES THE VALUE K INTO THE IPOS-TH GROUP OF 8 BITS OF
  15 C   THE VECTOR MEM.
  16 C   TUP IS NEEDED ONLY BECAUSE SBYT OPERATES ON SINGLE WORDS RATHER THAN
  17 C   ON SINGLE WORDS.
  18 C
  19       LW=(IPOS+NBYTPW-1)/NBYTPW
  20       LX=8*(IPOS-NBYTPW*(LW-1))-7
  21       CALL SBYT(K,MEM(LW),LX,8)
  22       RETURN
  23       END