hdiff output

r32253/ncutils.f90 2017-04-05 12:30:08.958038142 +0100 r32252/ncutils.f90 2017-04-05 12:30:09.182041089 +0100
4210:           ENDDO4210:           ENDDO
4211:           INTERPVALUE=MAXE4211:           INTERPVALUE=MAXE
4212: 4212: 
4213:      END FUNCTION INTERPVALUE4213:      END FUNCTION INTERPVALUE
4214: 4214: 
4215: 4215: 
4216:       SUBROUTINE STOCK_DIPOLES(PATH,COORDS,DIPOLES,Q2)4216:       SUBROUTINE STOCK_DIPOLES(PATH,COORDS,DIPOLES,Q2)
4217:       USE KEY, ONLY: NTSITES4217:       USE KEY, ONLY: NTSITES
4218:       IMPLICIT NONE4218:       IMPLICIT NONE
4219:       INTEGER          :: PATH, J1, J24219:       INTEGER          :: PATH, J1, J2
4220: !     DOUBLE PRECISION :: COORDS(3*NTSITES/2), DIPOLES(3*NTSITES), Q2(4), RMAT(3,3)4220:       DOUBLE PRECISION :: COORDS(3*NTSITES/2), DIPOLES(3*NTSITES/2), Q2(4), RMAT(3,3)
4221:       DOUBLE PRECISION :: COORDS(*), DIPOLES(*), Q2(4), RMAT(3,3) 
4222: 4221: 
4223:       DO J1=1,NTSITES4222:       DO J1=1,NTSITES
4224:          J2=3*J14223:          J2=3*J1
4225:          IF (PATH>1) CALL QROTAA(Q2,COORDS(J2-2:J2))4224:          IF (PATH>1) CALL QROTAA(Q2,COORDS(J2-2:J2))
4226:          CALL ROTMAT(COORDS(J2-2:J2),RMAT(:,:))4225:          CALL ROTMAT(COORDS(J2-2:J2),RMAT(:,:))
4227:          DIPOLES(J2-2:J2)=RMAT(:,3)4226:          DIPOLES(J2-2:J2)=RMAT(:,3)
4228:       ENDDO4227:       ENDDO
4229: 4228: 
4230:       END SUBROUTINE STOCK_DIPOLES4229:       END SUBROUTINE STOCK_DIPOLES
4231: 4230: 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0