* * $Id: fzocvff.inc,v 1.1.1.1 1996/03/06 10:47:12 mclareni Exp $ * * $Log: fzocvff.inc,v $ * Revision 1.1.1.1 1996/03/06 10:47:12 mclareni * Zebra * * * cv IEEE <- single * * fzocvff.inc * #if defined(CERNLIB_FQIE3FSC) C-- Default conversion from internal to single IEEE 301 CALL IE3FOS (MS(JMS+1),MT(JMT+1),NWDO,JBAD) IF (JBAD.NE.0) GO TO 331 304 JMT = JMT + NWDO JMS = JMS + NWDO GO TO 801 331 JBAD = JBAD-1 + JMS IFOCON(1) = 3 IFOCON(2) = JBAD IFOCON(3) = MS(JBAD+1) GO TO 304 #endif