MINICERN/packlib/zebra/fq/fzocvff.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:12  mclareni
   6 * Zebra
   7 *
   8 *
   9 *   cv IEEE <- single
  10 *
  11 * fzocvff.inc
  12 *
  13 #if defined(CERNLIB_FQIE3FSC)
  14 C--       Default conversion from internal to single IEEE
  15   301 CALL IE3FOS (MS(JMS+1),MT(JMT+1),NWDO,JBAD)
  16       IF (JBAD.NE.0)               GO TO 331
  17   304 JMT = JMT + NWDO
  18       JMS = JMS + NWDO
  19       GO TO 801
  20
  21   331 JBAD = JBAD-1 + JMS
  22       IFOCON(1) = 3
  23       IFOCON(2) = JBAD
  24       IFOCON(3) = MS(JBAD+1)
  25       GO TO 304
  26 #endif