hdiff output

r31566/ljpshift.f 2017-01-21 10:35:01.014250000 +0000 r31565/ljpshift.f 2017-01-21 10:35:01.266250000 +0000
1474:         !USE MODHESS1474:         !USE MODHESS
1475: 1475: 
1476: 1476: 
1477:         IMPLICIT NONE1477:         IMPLICIT NONE
1478: 1478: 
1479:         INTEGER, INTENT(IN) :: J1, J2, N1479:         INTEGER, INTENT(IN) :: J1, J2, N
1480:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT21480:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT2
1481:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)1481:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)
1482:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ1482:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ
1483:         LOGICAL, INTENT(IN) :: FIXIMAGE, FRACTIONAL1483:         LOGICAL, INTENT(IN) :: FIXIMAGE, FRACTIONAL
1484:         DOUBLE PRECISION, INTENT(INOUT) :: POTEL1484:         DOUBLE PRECISION, INTENT(OUT) :: POTEL
1485:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)1485:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)
1486:         DOUBLE PRECISION, INTENT(INOUT) :: VBOX(3), SBOX(3)1486:         DOUBLE PRECISION, INTENT(INOUT) :: VBOX(3), SBOX(3)
1487: 1487: 
1488:         DOUBLE PRECISION :: R2, R6, VEC(3), G, R8, R14, FR2, TEMP1488:         DOUBLE PRECISION :: R2, R6, VEC(3), G, R8, R14, FR2, TEMP
1489:         INTEGER :: J3, J4, J5, J61489:         INTEGER :: J3, J4, J5, J6
1490: 1490: 
1491:         J3=3*(J1-1)1491:         J3=3*(J1-1)
1492:         J4=3*(J2-1)1492:         J4=3*(J2-1)
1493:         !find particle separation with suitable boundary conditions1493:         !find particle separation with suitable boundary conditions
1494:         VEC(1)=X(J3+1)-X(J4+1)1494:         VEC(1)=X(J3+1)-X(J4+1)
1549:         USE MODHESS1549:         USE MODHESS
1550: 1550: 
1551: 1551: 
1552:         IMPLICIT NONE1552:         IMPLICIT NONE
1553: 1553: 
1554:         INTEGER, INTENT(IN) :: J1, J2, N1554:         INTEGER, INTENT(IN) :: J1, J2, N
1555:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT21555:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT2
1556:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)1556:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)
1557:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ1557:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ
1558:         LOGICAL, INTENT(IN) :: FIXIMAGE1558:         LOGICAL, INTENT(IN) :: FIXIMAGE
1559:         DOUBLE PRECISION, INTENT(INOUT) :: POTEL1559:         DOUBLE PRECISION, INTENT(OUT) :: POTEL
1560:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)1560:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)
1561:         DOUBLE PRECISION, INTENT(INOUT) :: V(3*N)1561:         DOUBLE PRECISION, INTENT(INOUT) :: V(3*N)
1562: 1562: 
1563:         DOUBLE PRECISION :: R2, R6, VEC(3), G, R8, R14, FR2, TEMP1563:         DOUBLE PRECISION :: R2, R6, VEC(3), G, R8, R14, FR2, TEMP
1564:         INTEGER :: J3, J4, J5, J61564:         INTEGER :: J3, J4, J5, J6
1565: 1565: 
1566:         J3=3*(J1-1)1566:         J3=3*(J1-1)
1567:         J4=3*(J2-1)1567:         J4=3*(J2-1)
1568:         !find particle separation with suitable boundary conditions1568:         !find particle separation with suitable boundary conditions
1569:         VEC(1)=X(J3+1)-X(J4+1)1569:         VEC(1)=X(J3+1)-X(J4+1)
1658:         !Update also ANV1658:         !Update also ANV
1659: 1659: 
1660: 1660: 
1661:         IMPLICIT NONE1661:         IMPLICIT NONE
1662: 1662: 
1663:         INTEGER, INTENT(IN) :: J1, J2, N1663:         INTEGER, INTENT(IN) :: J1, J2, N
1664:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT21664:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT2
1665:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)1665:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)
1666:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ1666:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ
1667:         LOGICAL, INTENT(IN) :: FIXIMAGE1667:         LOGICAL, INTENT(IN) :: FIXIMAGE
1668:         DOUBLE PRECISION, INTENT(INOUT) :: POTEL1668:         DOUBLE PRECISION, INTENT(OUT) :: POTEL
1669:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)1669:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)
1670:         DOUBLE PRECISION, INTENT(INOUT) :: V(3*N)1670:         DOUBLE PRECISION, INTENT(INOUT) :: V(3*N)
1671: 1671: 
1672:         DOUBLE PRECISION :: R2, R6, VEC(3), G, R8, R141672:         DOUBLE PRECISION :: R2, R6, VEC(3), G, R8, R14
1673:         INTEGER :: J3, J4, J51673:         INTEGER :: J3, J4, J5
1674: 1674: 
1675: C       POTELDUM = 0.D0;1675: C       POTELDUM = 0.D0;
1676: 1676: 
1677:         J3=3*(J1-1)1677:         J3=3*(J1-1)
1678:         J4=3*(J2-1)1678:         J4=3*(J2-1)
1718:         !update ANV1718:         !update ANV
1719: 1719: 
1720: 1720: 
1721:         IMPLICIT NONE1721:         IMPLICIT NONE
1722: 1722: 
1723:         INTEGER, INTENT(IN) :: J1, J2, N1723:         INTEGER, INTENT(IN) :: J1, J2, N
1724:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT21724:         DOUBLE PRECISION, INTENT(IN) :: EPS, SIG6, RCONST, CONST, IRCUT2
1725:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)1725:         DOUBLE PRECISION, INTENT(IN) :: X(3*N)
1726:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ1726:         DOUBLE PRECISION, INTENT(IN) :: BOXLX, BOXLY, BOXLZ
1727:         LOGICAL, INTENT(IN) :: FIXIMAGE1727:         LOGICAL, INTENT(IN) :: FIXIMAGE
1728:         DOUBLE PRECISION, INTENT(INOUT) :: POTEL1728:         DOUBLE PRECISION, INTENT(OUT) :: POTEL
1729:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)1729:         INTEGER, INTENT(INOUT) :: ANV(N,N,3)
1730: 1730: 
1731:         DOUBLE PRECISION :: R2DUM, R6, VEC1, VEC2, VEC31731:         DOUBLE PRECISION :: R2DUM, R6, VEC1, VEC2, VEC3
1732:         INTEGER :: J3, J41732:         INTEGER :: J3, J4
1733: 1733: 
1734: C       POTELDUM = 0.D0;1734: C       POTELDUM = 0.D0;
1735: 1735: 
1736:         J3=3*(J1-1)1736:         J3=3*(J1-1)
1737:         J4=3*(J2-1)1737:         J4=3*(J2-1)
1738:         !find particle separation with suitable boundary conditions1738:         !find particle separation with suitable boundary conditions


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0