]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | * |
2 | * $Id$ | |
3 | * | |
4 | * $Log$ | |
5 | * Revision 1.1.1.1 1996/03/06 10:47:09 mclareni | |
6 | * Zebra | |
7 | * | |
8 | * | |
9 | * sign-extension for integer input | |
10 | * | |
11 | * fzicvfi.inc | |
12 | * | |
13 | #if defined(CERNLIB_QMCDC) | |
14 | 201 DO 229 J=1,NWDO | |
15 | ITHA = MS(JMS+1) | |
16 | IF ((ITHA.AND.O"20000000000").NE.0) ITHA= MASK(28).OR.(ITHA-1) | |
17 | MT(JMT+1) = ITHA | |
18 | JMT = JMT + 1 | |
19 | 229 JMS = JMS + 1 | |
20 | GO TO 801 | |
21 | #endif | |
22 | * use default CALL IE3TOS for input single prec. | |
23 | #ifndef CERNLIB_FQIE3TSC | |
24 | #endif | |
25 | * use default CALL IE3TOD for input double prec. | |
26 | #ifndef CERNLIB_FQIE3TDC | |
27 | #endif | |
28 | * sign-extension for integer input | |
29 | * | |
30 | * fzicvfi.inc | |
31 | * | |
32 | #if defined(CERNLIB_QMCRY) | |
33 | 201 DO 229 J=1,NWDO | |
34 | ITHA = MS(JMS+1) | |
35 | IF ((ITHA.AND.20000000000B).NE.0) ITHA= ITHA .OR. MASK(32) | |
36 | MT(JMT+1) = ITHA | |
37 | JMT = JMT + 1 | |
38 | 229 JMS = JMS + 1 | |
39 | GO TO 801 | |
40 | #endif | |
41 | * use default in-line conversion for input floating | |
42 | #ifndef CERNLIB_FQCVDFF | |
43 | #endif | |
44 | * sign-extension for integer input | |
45 | * | |
46 | * fzicvfi.inc | |
47 | * | |
48 | #if (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE)) | |
49 | 201 DO 229 J=1,NWDO | |
50 | ITHA = MS(JMS+1) | |
51 | IF ((ITHA.AND.MSKB32).NE.0) ITHA= ITHA .OR. MSKL32 | |
52 | MT(JMT+1) = ITHA | |
53 | JMT = JMT + 1 | |
54 | 229 JMS = JMS + 1 | |
55 | GO TO 801 | |
56 | #endif | |
57 | * use default CALL IE3TOS for input single prec. | |
58 | #ifndef CERNLIB_FQIE3TSC | |
59 | #endif | |
60 | * use default CALL IE3TOD for input double prec. | |
61 | #ifndef CERNLIB_FQIE3TDC | |
62 | #endif |