[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgenc / vaxgs / locf.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:50:39  mclareni
* Kernlib
*
*
      FUNCTION LOCF (IVAR)
C
C CERN PROGLIB# N100    LOCF            .VERSION KERNVAX  2.39  930112
C ORIG. 92/07/13 Miguel Marquina
C
      DIMENSION    IVAR(9)

      J = %LOC(IVAR)
      LOCF = ISHFT (J, -2)
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:50:39 mclareni
	6	* Kernlib
	7	*
	8	*
	9	FUNCTION LOCF (IVAR)
	10	C
	11	C CERN PROGLIB# N100 LOCF .VERSION KERNVAX 2.39 930112
	12	C ORIG. 92/07/13 Miguel Marquina
	13	C
	14	DIMENSION IVAR(9)
	15
	16	J = %LOC(IVAR)
	17	LOCF = ISHFT (J, -2)
	18	END