5 * Revision 1.1.1.1 1996/04/01 15:03:26 mclareni
10 SUBROUTINE MODCHL (N,NADIM,AHESS,ALPHA,Z,IFAIL)
11 INTEGER N, NADIM, IFAIL
12 DOUBLE PRECISION ALPHA
13 DOUBLE PRECISION AHESS(NADIM,N), Z(N)
14 INTEGER I, IB, IP1, J, K
15 DOUBLE PRECISION A, BETA, DB, DI, GAMMA, P1, RMAX, T, W
16 #if defined(CERNLIB_IBM)||defined(CERNLIB_SINGLE)
19 #if (!defined(CERNLIB_IBM))&&(defined(CERNLIB_DOUBLE))
31 IF(DB.GE.1.0D+0) GOTO 10
32 IF(DB.GT.0.0D+0.AND.DI.LE.RMAX*DB) GOTO 10
42 IF(GAMMA.GE.2.5D-1) GOTO 30
45 AHESS(IB,I)=T*GAMMA+BETA*Z(IB)