[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / ie3fod.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:46  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
#if defined(CERNLIB_QMIRTD)
#include "irtdgs/ie3fod.F"
#elif defined(CERNLIB_QMVAX)&&defined(CERNLIB_QMALPH)
#include "vaxgs/ie3foda.F"
#elif defined(CERNLIB_QMVAX)&&(!defined(CERNLIB_QMALPH))
#include "vaxgs/ie3fodv.F"
#else
      SUBROUTINE IE3FOD (MS,MT,NDPN,JBAD)
C
C CERN PROGLIB# M220    IE3FOD          .VERSION KERNFOR  4.15  861204

C-    Convert double precision for output with copy
C-    from source in native to target in IEEE data format
C-    Dummy routine valid for machines with IEEE internal repr.

      DIMENSION    MS(99), MT(99)

      CALL UCOPY (MS,MT,2*NDPN)

      JBAD = 0
      RETURN
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:46 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	#if defined(CERNLIB_QMIRTD)
	11	#include "irtdgs/ie3fod.F"
	12	#elif defined(CERNLIB_QMVAX)&&defined(CERNLIB_QMALPH)
	13	#include "vaxgs/ie3foda.F"
	14	#elif defined(CERNLIB_QMVAX)&&(!defined(CERNLIB_QMALPH))
	15	#include "vaxgs/ie3fodv.F"
	16	#else
	17	SUBROUTINE IE3FOD (MS,MT,NDPN,JBAD)
	18	C
	19	C CERN PROGLIB# M220 IE3FOD .VERSION KERNFOR 4.15 861204
	20
	21	C- Convert double precision for output with copy
	22	C- from source in native to target in IEEE data format
	23	C- Dummy routine valid for machines with IEEE internal repr.
	24
	25	DIMENSION MS(99), MT(99)
	26
	27	CALL UCOPY (MS,MT,2*NDPN)
	28
	29	JBAD = 0
	30	RETURN
	31	END
	32	#endif