*
* $Id$
*
* $Log$
* Revision 1.1  1996/04/01 15:01:30  mclareni
* Initial revision
*
*
*
* c343cod1.inc
*

      IC=0
      DO 1 IX = 1,2
      IF(IX .EQ. 1) X=HF
      IF(IX .EQ. 2) X=10
      DO 2 IA = 1,3
      IF(IA .EQ. 1) A=0
      IF(IA .EQ. 2) A=HF
      IF(IA .EQ. 3) A=9*R1/10
      DO 3 IN = 1,4
      IF(IN .EQ. 1) N=0
      IF(IN .EQ. 2) N=1
      IF(IN .EQ. 3) N=5
      IF(IN .EQ. 4) N=-5
      IC=IC+1
