1 *CMZ : 23/08/93 13.30.11 by Jonathan Butterworth
3 SUBROUTINE DELBND (N,NACTV,IACTV,NFREE,IFREE,IBDEL,IBTRUE,GACTV,NA
4 1DIM,AHESS,GFREE,GNORM)
5 INTEGER N, NACTV, NFREE, IBDEL, IBTRUE, NADIM
6 INTEGER IACTV(N), IFREE(N)
8 DOUBLE PRECISION AHESS(NADIM, N), GFREE(N), GACTV(N)
12 CALL DELETE(NACTV,IACTV,IBTRUE,IPOS)
16 IF(NFREE.EQ.0) GOTO 20
18 AHESS(NFREE+1,J)=0.0D+0
21 AHESS(NFREE,NFREE)=1.0D+0
22 GFREE(NFREE)=GACTV(IBDEL)
23 RVAL=GNORM*GNORM+GFREE(NFREE)**2