[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / fq / fzcvhvax.inc

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:11  mclareni
* Zebra
*
*
*   invert ASCII characters
*
* fzcvhvax.inc
*
#if defined(CERNLIB_QMVAX)
C--       VAX : invert ASCII characters
      CALL VXINVC (MS(JMS+1),MT(JMT+1),NWDO)
      JMT = JMT + NWDO
      JMS = JMS + NWDO
      GO TO 801
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:47:11 mclareni
	6	* Zebra
	7	*
	8	*
	9	* invert ASCII characters
	10	*
	11	* fzcvhvax.inc
	12	*
	13	#if defined(CERNLIB_QMVAX)
	14	C-- VAX : invert ASCII characters
	15	CALL VXINVC (MS(JMS+1),MT(JMT+1),NWDO)
	16	JMT = JMT + NWDO
	17	JMS = JMS + NWDO
	18	GO TO 801
	19	#endif