MINICERN/packlib/kernlib/kerngen/tcgen/iuback.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:48  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION IUBACK (IC,JL,JR)
  11 C
  12 C CERN PROGLIB# M410    IUBACK          .VERSION KERNFOR  4.08  840613
  13 C ORIG. 27/05/67
  14 C
  15       COMMON /SLATE/ ND,JEND, DUMMY(38)
  16       DIMENSION IC(80),NUM(11)
  17       DATA  NUM   /4H    ,4H0   ,4H1   ,4H2   ,4H3   ,4H4   ,4H5   ,
  18      +                           4H6   ,4H7   ,4H8   ,4H9    /
  19 C
  20 C
  21       ND  = 0
  22       JEND= JR
  23       IVAL= 0
  24       IPOW= 1
  25 C
  26    12 IF (JEND.LT.JL)  GO TO 20
  27       K= IUCOMP (IC(JEND),NUM,11) - 1
  28       IF (K) 20,19,14
  29    14 IVAL= (K-1)*IPOW + IVAL
  30       IPOW= 10*IPOW
  31       ND= ND + 1
  32    19 JEND= JEND - 1
  33       GO TO 12
  34 C
  35    20 IUBACK= IVAL
  36       RETURN
  37       END