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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:59  mclareni
* Kernlib
*
*
      SUBROUTINE IE3FOD (MS,MT,NDPN,JBAD)
C
C CERN PROGLIB# M220    IE3FOD          .VERSION KERNVAX  2.44  931108
C     Alfred Nathaniel - 12-Oct-93
C-    Convert double precision for output with copy
C-    from source in native to target in IEEE data format

      INTEGER MS(2,*), MT(2,*), IDBL(2)
      DOUBLE PRECISION DBL
      EQUIVALENCE(DBL,IDBL(1))

      INCLUDE '($CVTDEF)'
      INTEGER CVT$CONVERT_FLOAT

      JBAD = 0
      DO 10 I=1,NDPN
         IDBL(1) = MS(1,I)
         IDBL(2) = MS(2,I)
         ISTAT = CVT$CONVERT_FLOAT(
     +        DBL, %VAL(CVT$K_VAX_G),
     +        DBL, %VAL(CVT$K_IEEE_T),
     +        %VAL(CVT$M_ROUND_TO_NEAREST) )
         IF(.NOT.ISTAT) THEN
            JBAD = I
         ENDIF
         MT(1,I) = IDBL(2)
         MT(2,I) = IDBL(1)
 10   CONTINUE
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:59 mclareni
	6	* Kernlib
	7	*
	8	*
	9	SUBROUTINE IE3FOD (MS,MT,NDPN,JBAD)
	10	C
	11	C CERN PROGLIB# M220 IE3FOD .VERSION KERNVAX 2.44 931108
	12	C Alfred Nathaniel - 12-Oct-93
	13	C- Convert double precision for output with copy
	14	C- from source in native to target in IEEE data format
	15
	16	INTEGER MS(2,), MT(2,), IDBL(2)
	17	DOUBLE PRECISION DBL
	18	EQUIVALENCE(DBL,IDBL(1))
	19
	20	INCLUDE '($CVTDEF)'
	21	INTEGER CVT$CONVERT_FLOAT
	22
	23	JBAD = 0
	24	DO 10 I=1,NDPN
	25	IDBL(1) = MS(1,I)
	26	IDBL(2) = MS(2,I)
	27	ISTAT = CVT$CONVERT_FLOAT(
	28	+ DBL, %VAL(CVT$K_VAX_G),
	29	+ DBL, %VAL(CVT$K_IEEE_T),
	30	+ %VAL(CVT$M_ROUND_TO_NEAREST) )
	31	IF(.NOT.ISTAT) THEN
	32	JBAD = I
	33	ENDIF
	34	MT(1,I) = IDBL(2)
	35	MT(2,I) = IDBL(1)
	36	10 CONTINUE
	37	END