hdiff output

r33415/aaextraconstraint.f90 2017-10-23 17:30:10.580695641 +0100 r33414/aaextraconstraint.f90 2017-10-23 17:30:10.804698593 +0100
 71:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING 71:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING
 72:    ENDDO 72:    ENDDO
 73:  73: 
 74: ELSEIF (RES.EQ.'TYR') THEN 74: ELSEIF (RES.EQ.'TYR') THEN
 75:  75: 
 76: ! HD1 CE2 76: ! HD1 CE2
 77: ! HE1 CD2 77: ! HE1 CD2
 78: ! OH CG 78: ! OH CG
 79: ! HE2 CD1 79: ! HE2 CD1
 80: ! HD2 CE1 80: ! HD2 CE1
 81: ! CB CZ 
 82:  81: 
 83:    WRITE(7,'(2I8)') NAT+9,NAT+15 82:    WRITE(7,'(2I8)') NAT+9,NAT+15
 84:    WRITE(7,'(2I8)') NAT+11,NAT+17 83:    WRITE(7,'(2I8)') NAT+11,NAT+17
 85:    WRITE(7,'(2I8)') NAT+13,NAT+7 84:    WRITE(7,'(2I8)') NAT+13,NAT+7
 86:    WRITE(7,'(2I8)') NAT+16,NAT+8 85:    WRITE(7,'(2I8)') NAT+16,NAT+8
 87:    WRITE(7,'(2I8)') NAT+18,NAT+10 86:    WRITE(7,'(2I8)') NAT+18,NAT+10
 88:    WRITE(7,'(2I8)') NAT+4,NAT+12 
 89:  87: 
 90:    DO J1=1,20 88:    DO J1=1,20
 91:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING 89:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING
 92:    ENDDO 90:    ENDDO
 93:  91: 
 94: ELSEIF (RES.EQ.'HIP') THEN 
 95:  
 96: ! HD1 NE2 
 97: ! HE1 CD2 
 98: ! HE2 CG 
 99: ! HD2 ND1 
100:  
101:    WRITE(7,'(2I8)') NAT+9,NAT+12 
102:    WRITE(7,'(2I8)') NAT+11,NAT+14 
103:    WRITE(7,'(2I8)') NAT+13,NAT+7 
104:    WRITE(7,'(2I8)') NAT+15,NAT+8 
105:  
106:    DO J1=1,17 
107:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING 
108:    ENDDO 
109:  
110: ENDIF 92: ENDIF
111:  93: 
112: ENDDO 94: ENDDO
113:  95: 
114: 666 CONTINUE 96: 666 CONTINUE
115:  97: 
116: END PROGRAM AAXC 98: END PROGRAM AAXC


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0