hdiff output

r27344/angl.f 2017-03-30 13:31:06.120992344 +0100 r27343/angl.f 2017-03-30 13:31:06.648999349 +0100
 13: !  whatsoever, without the express written permission of the authors.  ** 13: !  whatsoever, without the express written permission of the authors.  **
 14: !  This notice, and the associated author list, must be attached to    ** 14: !  This notice, and the associated author list, must be attached to    **
 15: !  all copies, or extracts, of this software. Any additional           ** 15: !  all copies, or extracts, of this software. Any additional           **
 16: !  restrictions set forth in the license agreement also apply to this  ** 16: !  restrictions set forth in the license agreement also apply to this  **
 17: !  software.                                                           ** 17: !  software.                                                           **
 18: !************************************************************************ 18: !************************************************************************
 19:  19: 
 20:  20: 
 21: !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 21: !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 22: !+ [Enter a one-line description of subroutine angl here] 22: !+ [Enter a one-line description of subroutine angl here]
 23: subroutine angl_nmode(nba, it, jt, kt, ict, tk, teq, fk, fpk, qeq, ntb, x, & 23: subroutine angl(nba, it, jt, kt, ict, tk, teq, fk, fpk, qeq, ntb, x, &
 24:       f, dd, eba, ndrv, nbel, natsys) 24:       f, dd, eba, ndrv, nbel, natsys)
 25:     25:    
 26:    implicit double precision (a-h,o-z) 26:    implicit double precision (a-h,o-z)
 27:     27:    
 28:    !     ----- routine to get the angle energies and forces for the 28:    !     ----- routine to get the angle energies and forces for the
 29:    !           potential of the type ct*(t-t0)**2 29:    !           potential of the type ct*(t-t0)**2
 30:     30:    
 31:    dimension it(nba),jt(nba),kt(nba),ict(2),tk(2), & 31:    dimension it(nba),jt(nba),kt(nba),ict(2),tk(2), &
 32:          teq(2),fk(2),fpk(2) 32:          teq(2),fk(2),fpk(2)
 33:    dimension x(2),f(2),xxik(3),qeq(2) 33:    dimension x(2),f(2),xxik(3),qeq(2)
205:       205:       
206:       !     ----- finish loop over angles -----206:       !     ----- finish loop over angles -----
207:       207:       
208:    end do208:    end do
209:    209:    
210: 210: 
211: 211: 
212: 212: 
213: 213: 
214:    return214:    return
215: end subroutine angl_nmode 215: end subroutine angl 


r27344/forces.f 2017-03-30 13:31:06.368995638 +0100 r27343/forces.f 2017-03-30 13:31:06.921002969 +0100
245:          x(mrk),    x(mreq),   ntb,      x(mx), &245:          x(mrk),    x(mreq),   ntb,      x(mx), &
246:          x(mf),     x(mh),     ebh,      ndrv,      ix(mnbel), &246:          x(mf),     x(mh),     ebh,      ndrv,      ix(mnbel), &
247:          natsys)247:          natsys)
248: 248: 
249:    call bond (nbona,     ix(miba),  ix(mjba), ix(micba), &249:    call bond (nbona,     ix(miba),  ix(mjba), ix(micba), &
250:          x(mrk),    x(mreq),   ntb,      x(mx), &250:          x(mrk),    x(mreq),   ntb,      x(mx), &
251:          x(mf),     x(mh), &251:          x(mf),     x(mh), &
252:          eba,       ndrv,      ix(mnbel), &252:          eba,       ndrv,      ix(mnbel), &
253:          natsys)253:          natsys)
254: 254: 
255:    call angl_nmode (ntheth,    ix(mith),  ix(mjth), ix(mkth), &255:    call angl (ntheth,    ix(mith),  ix(mjth), ix(mkth), &
256:          ix(micth), x(mtk),    x(mteq),  x(mfk), &256:          ix(micth), x(mtk),    x(mteq),  x(mfk), &
257:          x(mfpk),   x(mqeq),   ntb,      x(mx), &257:          x(mfpk),   x(mqeq),   ntb,      x(mx), &
258:          x(mf),     x(mh), &258:          x(mf),     x(mh), &
259:          eah,       ndrv,      ix(mnbel), &259:          eah,       ndrv,      ix(mnbel), &
260:          natsys)260:          natsys)
261: 261: 
262:    call angl_nmode (ntheta,    ix(mita),  ix(mjta), ix(mkta), &262:    call angl (ntheta,    ix(mita),  ix(mjta), ix(mkta), &
263:          ix(micta), x(mtk),    x(mteq),  x(mfk), &263:          ix(micta), x(mtk),    x(mteq),  x(mfk), &
264:          x(mfpk),   x(mqeq),   ntb,      x(mx), &264:          x(mfpk),   x(mqeq),   ntb,      x(mx), &
265:          x(mf),     x(mh), &265:          x(mf),     x(mh), &
266:          eaa,       ndrv,      ix(mnbel), &266:          eaa,       ndrv,      ix(mnbel), &
267:          natsys)267:          natsys)
268: 268: 
269:    call ephi (nphih,     ix(miph),  ix(mjph), ix(mkph), &269:    call ephi (nphih,     ix(miph),  ix(mjph), ix(mkph), &
270:          ix(mlph),  ix(micph), x(mpk),   x(mpn), &270:          ix(mlph),  ix(micph), x(mpk),   x(mpn), &
271: 271: 
272: 272: 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0