hdiff output

r31918/rbperm.f90 2017-02-15 20:30:09.384938063 +0000 r31917/rbperm.f90 2017-02-15 20:30:09.608941075 +0000
1613:       INTEGER :: J1, J21613:       INTEGER :: J1, J2
1614:       CHARACTER(LEN=132),INTENT(IN) :: C1614:       CHARACTER(LEN=132),INTENT(IN) :: C
1615:       DOUBLE PRECISION, INTENT(IN)  :: XS(3*NATOMS), XV(3*NATOMS/2)1615:       DOUBLE PRECISION, INTENT(IN)  :: XS(3*NATOMS), XV(3*NATOMS/2)
1616:       DOUBLE PRECISION :: EulerPhiDeg, EulerPsiDeg, EulerThetaDeg1616:       DOUBLE PRECISION :: EulerPhiDeg, EulerPsiDeg, EulerThetaDeg
1617: 1617: 
1618:       WRITE(50,'(I6)') (NATOMS/2)1618:       WRITE(50,'(I6)') (NATOMS/2)
1619:       WRITE(50,'(1X,A)') TRIM(ADJUSTL(C))1619:       WRITE(50,'(1X,A)') TRIM(ADJUSTL(C))
1620: 1620: 
1621:       DO J1 = 1, NATOMS/21621:       DO J1 = 1, NATOMS/2
1622:          J2 = J1*31622:          J2 = J1*3
1623: !             CALL AAtoEuler(XS(J2-2), XS(J2-1), XS(J2),EulerPhiDeg,EulerPsiDeg,EulerThetaDeg)1623:              CALL AAtoEuler(XS(J2-2), XS(J2-1), XS(J2),EulerPhiDeg,EulerPsiDeg,EulerThetaDeg)
1624:                  WRITE(50,'(a5,2x,3f20.10,2x,a8,6f15.8,2x,a11,3f15.8)') 'O',XS(J2-2), XS(J2-1), XS(J2),  'ellipse ',&1624:                  WRITE(50,'(a5,2x,3f20.10,2x,a8,6f15.8,2x,a11,3f15.8)') 'O',XS(J2-2), XS(J2-1), XS(J2),  'ellipse ',&
1625:                         PYA1BIN(J1,1)*2.0D0,PYA1BIN(J1,2)*2.0D0,PYA1BIN(J1,3)*2.0D0,0.0,0.0,0.0,&1625:                         PYA1BIN(J1,1)*2.0D0,PYA1BIN(J1,2)*2.0D0,PYA1BIN(J1,3)*2.0D0,EulerPhiDeg,EulerPsiDeg,EulerThetaDeg,&
1626:                       'atom_vector',XS(3*NATOMS/2 + J2-2), XS(3*NATOMS/2 + J2-1), XS(3*NATOMS/2 + J2)1626:                       'atom_vector',XS(3*NATOMS/2 + J2-2), XS(3*NATOMS/2 + J2-1), XS(3*NATOMS/2 + J2)
1627:       ENDDO1627:       ENDDO
1628: 1628: 
1629:       END SUBROUTINE PYFRAME1629:       END SUBROUTINE PYFRAME
1630: 1630: 
1631:       SUBROUTINE RBROTMAT(T, X, ROTMAT, NTSITES)1631:       SUBROUTINE RBROTMAT(T, X, ROTMAT, NTSITES)
1632: !     takes the set of rigid-body coordinates T and returns X after rotation via the quaternion Q21632: !     takes the set of rigid-body coordinates T and returns X after rotation via the quaternion Q2
1633: !     about the origin1633: !     about the origin
1634:       USE KEY, ONLY : EFIELDT, MULTISITEPYT1634:       USE KEY, ONLY : EFIELDT, MULTISITEPYT
1635:       IMPLICIT NONE1635:       IMPLICIT NONE


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0