hdiff output

r33416/aaback.f90 2017-10-24 15:30:15.123212713 +0100 r33415/aaback.f90 2017-10-24 15:30:15.399216390 +0100
  1: PROGRAM AABACK  1: svn: E195012: Unable to find repository location for 'svn+ssh://svn.ch.private.cam.ac.uk/groups/wales/trunk/SCRIPTS/OPTIM/aaback.f90' in revision 33415
  2: IMPLICIT NONE 
  3: CHARACTER(LEN=4) DSTRING,ASTRING 
  4: CHARACTER(LEN=3) RES 
  5: INTEGER NAT, J1 
  6:  
  7: OPEN(UNIT=7,FILE='aabk',STATUS='UNKNOWN') 
  8:  
  9: DO  
 10:  
 11:    READ(*,'(A4,1X,I6,1X,A4,1X,A3)',END=666) DSTRING,NAT,ASTRING,RES 
 12:  
 13:    WRITE(*,'(A3)') ASTRING(2:4) 
 14:  
 15:    IF ((ASTRING(2:4).EQ.'N  ').OR. & 
 16:   &    (ASTRING(2:4).EQ.'H  ').OR. & 
 17:   &    (ASTRING(2:4).EQ.'CA ').OR. & 
 18:   &    (ASTRING(2:4).EQ.'HA ').OR. & 
 19:   &    (ASTRING(2:4).EQ.'C  ').OR. & 
 20:   &    (ASTRING(2:4).EQ.'O  ').OR. & 
 21:   &    (ASTRING(2:4).EQ.'HA2').OR. & 
 22:   &    (ASTRING(2:4).EQ.'HA3')) THEN 
 23:  
 24:       WRITE(7,'(I8)') NAT 
 25:  
 26:    ENDIF 
 27:  
 28: ENDDO 
 29:  
 30: 666 CONTINUE 
 31:  
 32: CLOSE(7) 
 33:  
 34: END PROGRAM AABACK 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0