hdiff output

r30663/SBM.f 2016-07-06 15:38:13.569360906 +0100 r30662/SBM.f 2016-07-06 15:38:13.901365463 +0100
345:       DOUBLE PRECISION r2, f, r1345:       DOUBLE PRECISION r2, f, r1
346:       DOUBLE PRECISION dx,dy,dz346:       DOUBLE PRECISION dx,dy,dz
347:       DOUBLE PRECISION Rb(NBA), bK(NBA),GRADOMP(3*NATOMS)347:       DOUBLE PRECISION Rb(NBA), bK(NBA),GRADOMP(3*NATOMS)
348:       INTEGER Ib1(NBA), Ib2(NBA)348:       INTEGER Ib1(NBA), Ib2(NBA)
349: 349: 
350:       do I=1,NATOMS350:       do I=1,NATOMS
351:          gradOMP(I*3)=0351:          gradOMP(I*3)=0
352:          gradOMP(I*3-1)=0352:          gradOMP(I*3-1)=0
353:          gradOMP(I*3-2)=0353:          gradOMP(I*3-2)=0
354:       enddo354:       enddo
355:         etemp=0355: 
356: !$OMP PARALLEL PRIVATE(I,I2,J2,DX,DY,DZ,R1,R2,F)REDUCTION(+:etemp,gradOMP)356: !$OMP PARALLEL PRIVATE(I,I2,J2,DX,DY,DZ,R1,R2,F)REDUCTION(+:etemp,gradOMP)
357: !$OMP DO357: !$OMP DO
358:         DO I=1, nBA358:         DO I=1, nBA
359:            I2 = Ib1(I)359:            I2 = Ib1(I)
360:            J2 = Ib2(I)360:            J2 = Ib2(I)
361:            dx = X(I2) - X(J2)361:            dx = X(I2) - X(J2)
362:            dy = Y(I2) - Y(J2)362:            dy = Y(I2) - Y(J2)
363:            dz = Z(I2) - Z(J2)363:            dz = Z(I2) - Z(J2)
364:            r2 = dx**2 + dy**2 + dz**2364:            r2 = dx**2 + dy**2 + dz**2
365:            r1 = sqrt(r2)365:            r1 = sqrt(r2)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0