hdiff output

r29889/connectodata.f 2016-02-01 19:30:08.211832080 +0000 r29888/connectodata.f 2016-02-01 19:30:08.403834592 +0000
 31:       DOUBLE PRECISION DUMMY 31:       DOUBLE PRECISION DUMMY
 32:       CHARACTER(LEN=20) UNSTRING 32:       CHARACTER(LEN=20) UNSTRING
 33:       CHARACTER(LEN=10) CONNSTR 33:       CHARACTER(LEN=10) CONNSTR
 34:       CHARACTER(LEN=80) FPOO 34:       CHARACTER(LEN=80) FPOO
 35:       CHARACTER(LEN=80) BHSTRING1,BHSTRING2 35:       CHARACTER(LEN=80) BHSTRING1,BHSTRING2
 36:  36: 
 37:       WRITE(CONNSTR,'(I10)') CONNID 37:       WRITE(CONNSTR,'(I10)') CONNID
 38: ! 38: !
 39: ! DISTANCE is only used with BHINTERPT - don't really need to calculate it here otherwise? 39: ! DISTANCE is only used with BHINTERPT - don't really need to calculate it here otherwise?
 40: ! 40: !
 41:       IF (.NOT.(MLP3T.OR.MLPB3T)) THEN 41:       IF ((ABS(LOCALPOINTS2(1)-LOCALPOINTS2(4)).LT.1.0D-6).AND. 
 42:          IF ((ABS(LOCALPOINTS2(1)-LOCALPOINTS2(4)).LT.1.0D-6).AND.  42:      &    (ABS(LOCALPOINTS2(2)-LOCALPOINTS2(5)).LT.1.0D-6).AND. 
 43:      &       (ABS(LOCALPOINTS2(2)-LOCALPOINTS2(5)).LT.1.0D-6).AND.  43:      &    (ABS(LOCALPOINTS2(3)-LOCALPOINTS2(6)).LT.1.0D-6)) THEN
 44:      &       (ABS(LOCALPOINTS2(3)-LOCALPOINTS2(6)).LT.1.0D-6)) THEN 44:          PRINT '(A)','connectodata> here A ERROR *** atoms 1 and 2 are in the same place'
 45:             PRINT '(A)','connectodata> here A ERROR *** atoms 1 and 2 are in the same place' 45:          STOP
 46:             STOP 
 47:          ENDIF 
 48:       ENDIF 46:       ENDIF
 49:       CALL MINPERMDIST(LOCALPOINTS1,LOCALPOINTS2,NATOMS,DEBUG,BOXLX,BOXLY,BOXLZ,BULKT,TWOD,DISTANCE,DIST2,RIGIDBODY,RMAT,.FALSE.) 47:       CALL MINPERMDIST(LOCALPOINTS1,LOCALPOINTS2,NATOMS,DEBUG,BOXLX,BOXLY,BOXLZ,BULKT,TWOD,DISTANCE,DIST2,RIGIDBODY,RMAT,.FALSE.)
 50:       IF (.NOT.(MLP3T.OR.MLPB3T)) THEN 
 51:          IF ((ABS(LOCALPOINTS2(1)-LOCALPOINTS2(4)).LT.1.0D-6).AND.  48:          IF ((ABS(LOCALPOINTS2(1)-LOCALPOINTS2(4)).LT.1.0D-6).AND. 
 52:      &       (ABS(LOCALPOINTS2(2)-LOCALPOINTS2(5)).LT.1.0D-6).AND.  49:      &       (ABS(LOCALPOINTS2(2)-LOCALPOINTS2(5)).LT.1.0D-6).AND. 
 53:      &       (ABS(LOCALPOINTS2(3)-LOCALPOINTS2(6)).LT.1.0D-6)) THEN 50:      &       (ABS(LOCALPOINTS2(3)-LOCALPOINTS2(6)).LT.1.0D-6)) THEN
 54:             PRINT '(A)','connectodata> here B ERROR *** atoms 1 and 2 are in the same place' 51:             PRINT '(A)','connectodata> here B ERROR *** atoms 1 and 2 are in the same place'
 55:             STOP 52:             STOP
 56:          ENDIF 53:          ENDIF
 57:       ENDIF 
 58: C 54: C
 59: C  Other DOALLMIN might need an alternative to this STOPDIST for BLJ. 55: C  Other DOALLMIN might need an alternative to this STOPDIST for BLJ.
 60: C       56: C      
 61:       IF (ZSYM.EQ.'LS') THEN 57:       IF (ZSYM.EQ.'LS') THEN
 62: !        FPOO='odata.'//TRIM(ADJUSTL(CONNSTR)) ! workaround for Sun compiler bug 58: !        FPOO='odata.'//TRIM(ADJUSTL(CONNSTR)) ! workaround for Sun compiler bug
 63: !        OPEN(UNIT=1,FILE=TRIM(ADJUSTL(FPOO)),STATUS='UNKNOWN') 59: !        OPEN(UNIT=1,FILE=TRIM(ADJUSTL(FPOO)),STATUS='UNKNOWN')
 64: !        IF (DIRECTION.EQ.'BA') WRITE(1,'(A,F20.10)') 'STOPDISP   ',ORDERPARAM 60: !        IF (DIRECTION.EQ.'BA') WRITE(1,'(A,F20.10)') 'STOPDISP   ',ORDERPARAM
 65: !        IF (DIRECTION.EQ.'AB') WRITE(1,'(A,F20.10)') 'STOPDISP   ',-ORDERPARAM 61: !        IF (DIRECTION.EQ.'AB') WRITE(1,'(A,F20.10)') 'STOPDISP   ',-ORDERPARAM
 66: !        CLOSE(1) 62: !        CLOSE(1)
 67:          IF (BHINTERPT) THEN 63:          IF (BHINTERPT) THEN
189:       ELSE185:       ELSE
190:          FPOO='odata.'//TRIM(ADJUSTL(CONNSTR)) ! workaround for Sun compiler bug186:          FPOO='odata.'//TRIM(ADJUSTL(CONNSTR)) ! workaround for Sun compiler bug
191:          OPEN(2,FILE=TRIM(ADJUSTL(FPOO)),STATUS='UNKNOWN',POSITION='APPEND')187:          OPEN(2,FILE=TRIM(ADJUSTL(FPOO)),STATUS='UNKNOWN',POSITION='APPEND')
192:          WRITE(2,'(A2,2X,3F20.10)') (ZSYMBOL(J2),LOCALPOINTS1(3*(J2-1)+1),LOCALPOINTS1(3*(J2-1)+2),188:          WRITE(2,'(A2,2X,3F20.10)') (ZSYMBOL(J2),LOCALPOINTS1(3*(J2-1)+1),LOCALPOINTS1(3*(J2-1)+2),
193:      1                               LOCALPOINTS1(3*(J2-1)+3),J2=1,NATOMS)189:      1                               LOCALPOINTS1(3*(J2-1)+3),J2=1,NATOMS)
194:          CLOSE(2)190:          CLOSE(2)
195:          FPOO='finish.'//TRIM(ADJUSTL(CONNSTR))191:          FPOO='finish.'//TRIM(ADJUSTL(CONNSTR))
196:          OPEN(1,FILE=TRIM(ADJUSTL(FPOO)),STATUS='UNKNOWN')192:          OPEN(1,FILE=TRIM(ADJUSTL(FPOO)),STATUS='UNKNOWN')
197:          WRITE(1,'(3F20.10)') (LOCALPOINTS2(3*(J2-1)+1),LOCALPOINTS2(3*(J2-1)+2),LOCALPOINTS2(3*(J2-1)+3),J2=1,NATOMS)193:          WRITE(1,'(3F20.10)') (LOCALPOINTS2(3*(J2-1)+1),LOCALPOINTS2(3*(J2-1)+2),LOCALPOINTS2(3*(J2-1)+3),J2=1,NATOMS)
198:          CLOSE(1)194:          CLOSE(1)
199:          IF (.NOT.(MLP3T.OR.MLPB3T)) THEN195:          IF ((ABS(LOCALPOINTS2(1)-LOCALPOINTS2(4)).LT.1.0D-6).AND. 
200:             IF ((ABS(LOCALPOINTS2(1)-LOCALPOINTS2(4)).LT.1.0D-6).AND. 196:      &       (ABS(LOCALPOINTS2(2)-LOCALPOINTS2(5)).LT.1.0D-6).AND. 
201:      &          (ABS(LOCALPOINTS2(2)-LOCALPOINTS2(5)).LT.1.0D-6).AND. 197:      &       (ABS(LOCALPOINTS2(3)-LOCALPOINTS2(6)).LT.1.0D-6)) THEN
202:      &          (ABS(LOCALPOINTS2(3)-LOCALPOINTS2(6)).LT.1.0D-6)) THEN198:             PRINT '(A)','connectodata> here Z ERROR *** atoms 1 and 2 are in the same place'
203:                PRINT '(A)','connectodata> here Z ERROR *** atoms 1 and 2 are in the same place'199:             STOP
204:                STOP 
205:             ENDIF 
206:          ENDIF200:          ENDIF
207:       ENDIF201:       ENDIF
208: 202: 
209:       RETURN203:       RETURN
210:       END204:       END
211: 205: 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0