hdiff output

r22850/gradient.f 2017-01-21 10:33:34.154250000 +0000 r22849/gradient.f 2017-01-21 10:33:34.486250000 +0000
 14:       parameter( maxtab= 600) 14:       parameter( maxtab= 600)
 15:       integer ldim 15:       integer ldim
 16:       parameter( ldim= 9) 16:       parameter( ldim= 9)
 17:       integer maxopt 17:       integer maxopt
 18:       parameter(maxopt=3*nndim) 18:       parameter(maxopt=3*nndim)
 19:       integer maxsiz 19:       integer maxsiz
 20:       parameter(maxsiz=mdim) 20:       parameter(maxsiz=mdim)
 21:       integer maxtp 21:       integer maxtp
 22:       parameter(maxtp=maxtyp) 22:       parameter(maxtp=maxtyp)
 23:       real*8 deltax 23:       real*8 deltax
 24:       parameter ( deltax = 0.0001 ) 24:       parameter ( deltax = 0.01 )
 25:       logical period,doscf 25:       logical period,doscf
 26:       integer nn,nbeweg,ndim,izp(*),lmax(*),ind(*) 26:       integer nn,nbeweg,ndim,izp(*),lmax(*),ind(*)
 27:       real*8 x(3,*),ev(*),a(mdim,mdim),b(mdim,mdim),occ(*),grad(3,*) 27:       real*8 x(3,*),ev(*),a(mdim,mdim),b(mdim,mdim),occ(*),grad(3,*)
 28:       real*8 dacc,boxsiz(3,3),xinvbox(3,3),shift(*) 28:       real*8 dacc,boxsiz(3,3),xinvbox(3,3),shift(*)
 29:       integer m,n,i,j,k,lj,lk,mj,mk 29:       integer m,n,i,j,k,lj,lk,mj,mk
 30:       integer mu,nu,izpj,izpk,indj,indk 30:       integer mu,nu,izpj,izpk,indj,indk
 31:       real*8 au(ldim,ldim),bu(ldim,ldim),ocmcc,dgrh,rcdx,xhelp,dgrs,dgr 31:       real*8 au(ldim,ldim),bu(ldim,ldim),ocmcc,dgrh,rcdx,xhelp,dgrs,dgr
 32:       real*8 auh(ldim,ldim),buh(ldim,ldim) 32:       real*8 auh(ldim,ldim),buh(ldim,ldim)
 33: c 33: c
 34: c include the GHO switch ... PJ 7/2004 34: c include the GHO switch ... PJ 7/2004


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0