git://git.uio.no / u / mrichter / AliRoot.git / blame
| Commit | Line | Data |
|---|---|---|
| fe4da5cc | 1 | * |
| 2 | * $Id$ | |
| 3 | * | |
| 4 | * $Log$ | |
| 5 | * Revision 1.1.1.1 1996/02/15 17:49:58 mclareni | |
| 6 | * Kernlib | |
| 7 | * | |
| 8 | * | |
| 9 | FUNCTION FLOARG (ARGM) | |
| 10 | C | |
| 11 | C CERN PROGLIB# M250 FLOARG .VERSION KERNSUN 1.00 880922 | |
| 12 | C ORIG. 22/09/88, JZ | |
| 13 | C | |
| 14 | C | |
| 15 | DIMENSION ARGM(9) | |
| 16 | EQUIVALENCE (A,IA) | |
| 17 | C | |
| 18 | C | |
| 19 | A = ARGM(1) | |
| 20 | JCH = RSHIFT (IA,23) | |
| 21 | IF (JCH.EQ.0) GO TO 36 | |
| 22 | IF (JCH.EQ.-1) GO TO 36 | |
| 23 | FLOARG = A | |
| 24 | RETURN | |
| 25 | C | |
| 26 | 36 FLOARG = IA | |
| 27 | RETURN | |
| 28 | END |