5 * Revision 1.1.1.1 1996/04/01 15:03:28 mclareni
10 SUBROUTINE RLEN (LEN,VEC,VLEN)
12 DOUBLE PRECISION VEC(LEN), VLEN
14 DOUBLE PRECISION ABSV, RATIO, RMIN, TOL, TVMX, VMAX
16 #if defined(CERNLIB_IBM)||defined(CERNLIB_SINGLE)
19 #if (!defined(CERNLIB_IBM))&&(defined(CERNLIB_DOUBLE))
25 IF(ABSV.GT.VMAX) VMAX=ABSV
28 IF(VMAX.EQ.0.0D+0) RETURN
30 IF(VMAX.GT.RMIN) TVMX=TOL*VMAX
32 IF(ABS(VEC(I)).LE.TVMX) GOTO 20