hdiff output

r33429/aaextraconstraint.f90 2017-10-30 21:30:10.257263840 +0000 r33428/aaextraconstraint.f90 2017-10-30 21:30:10.473266723 +0000
  1: PROGRAM AAXC  1: PROGRAM AAXC
  2: IMPLICIT NONE  2: IMPLICIT NONE
  3: CHARACTER(LEN=4) DSTRING,ASTRING  3: CHARACTER(LEN=4) DSTRING,ASTRING
  4: CHARACTER(LEN=3) RES  4: CHARACTER(LEN=3) RES
  5: INTEGER NAT, J1, HPOS, OPOS, CPOS  5: INTEGER NAT, J1, HPOS, OPOS
  6:   6: 
  7: OPEN(UNIT=9,FILE='coords.inpcrd.pdb',STATUS='UNKNOWN')  7: OPEN(UNIT=9,FILE='coords.inpcrd.pdb',STATUS='UNKNOWN')
  8: OPEN(UNIT=7,FILE='constraintfile',STATUS='UNKNOWN')  8: OPEN(UNIT=7,FILE='constraintfile',STATUS='UNKNOWN')
  9: OPEN(UNIT=8,FILE='aabk',STATUS='UNKNOWN')  9: OPEN(UNIT=8,FILE='aabk',STATUS='UNKNOWN')
 10:  10: 
 11: DO  11: DO 
 12:  12: 
 13: READ(9,'(A4,1X,I6,1X,A4,1X,A3)',END=666) DSTRING,NAT,ASTRING,RES 13: READ(9,'(A4,1X,I6,1X,A4,1X,A3)',END=666) DSTRING,NAT,ASTRING,RES
 14: WRITE(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING,NAT,ASTRING,RES 14: WRITE(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING,NAT,ASTRING,RES
 15: IF (RES.EQ.'PHE') THEN 15: IF (RES.EQ.'PHE') THEN
114: 114: 
115: ENDIF115: ENDIF
116: 116: 
117: ENDDO117: ENDDO
118: 118: 
119: 666 CONTINUE119: 666 CONTINUE
120: 120: 
121: REWIND(9)121: REWIND(9)
122: OPOS=0122: OPOS=0
123: HPOS=0123: HPOS=0
124: CPOS=0 
125: 124: 
126: DO125: DO
127: 126: 
128:    READ(9,'(A4,1X,I6,1X,A4,1X,A3)',END=667) DSTRING,NAT,ASTRING,RES127:    READ(9,'(A4,1X,I6,1X,A4,1X,A3)',END=667) DSTRING,NAT,ASTRING,RES
129: 128: 
130:    WRITE(*,'(A3)') ASTRING(2:4)129:    WRITE(*,'(A3)') ASTRING(2:4)
131: 130: 
132:    IF ((ASTRING(2:4).EQ.'N  ').OR. &131:    IF ((ASTRING(2:4).EQ.'N  ').OR. &
133:   &    (ASTRING(2:4).EQ.'H  ').OR. &132:   &    (ASTRING(2:4).EQ.'H  ').OR. &
134:   &    (ASTRING(2:4).EQ.'CA ').OR. &133:   &    (ASTRING(2:4).EQ.'CA ').OR. &
135:   &    (ASTRING(2:4).EQ.'HA ').OR. &134:   &    (ASTRING(2:4).EQ.'HA ').OR. &
136:   &    (ASTRING(2:4).EQ.'CB ').OR. &135:   &    (ASTRING(2:4).EQ.'CB ').OR. &
137:   &    (ASTRING(2:4).EQ.'C  ').OR. &136:   &    (ASTRING(2:4).EQ.'C  ').OR. &
138:   &    (ASTRING(2:4).EQ.'O  ').OR. &137:   &    (ASTRING(2:4).EQ.'O  ').OR. &
139:   &    (ASTRING(2:4).EQ.'HA2').OR. &138:   &    (ASTRING(2:4).EQ.'HA2').OR. &
140:   &    (ASTRING(2:4).EQ.'HA3')) THEN139:   &    (ASTRING(2:4).EQ.'HA3')) THEN
141: 140: 
142:       WRITE(8,'(I8)') NAT141:       WRITE(8,'(I8)') NAT
143:       IF (ASTRING(2:4).EQ.'O  ') OPOS=NAT142:       IF (ASTRING(2:4).EQ.'O  ') OPOS=NAT
144:       IF (ASTRING(2:4).EQ.'CA ') THEN 
145:          CPOS=NAT 
146:          IF ((CPOS.GT.OPOS).AND.(OPOS.GT.0)) WRITE(7,'(2I8)') CPOS,OPOS 
147:       ENDIF 
148:       IF (ASTRING(2:4).EQ.'H  ') THEN143:       IF (ASTRING(2:4).EQ.'H  ') THEN
149:          HPOS=NAT144:          HPOS=NAT
150:          IF ((HPOS.GT.OPOS).AND.(OPOS.GT.0)) WRITE(7,'(2I8)') OPOS,HPOS145:          WRITE(7,'(2I8)') OPOS,HPOS
151:          IF ((HPOS.GT.CPOS).AND.(CPOS.GT.0)) WRITE(7,'(2I8)') CPOS,HPOS 
152:       ENDIF146:       ENDIF
153: 147: 
154:    ENDIF148:    ENDIF
155: 149: 
156: ENDDO150: ENDDO
157: 151: 
158: 667 CONTINUE152: 667 CONTINUE
159: 153: 
160: CLOSE(7)154: CLOSE(7)
161: CLOSE(8)155: CLOSE(8)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0