hdiff output

r33412/aaextraconstraint.f90 2017-10-23 12:30:08.524852293 +0100 r33411/aaextraconstraint.f90 2017-10-23 12:30:08.744855236 +0100
  1: PROGRAM AAXC  1: svn: E195012: Unable to find repository location for 'svn+ssh://svn.ch.private.cam.ac.uk/groups/wales/trunk/SCRIPTS/OPTIM/aaextraconstraint.f90' in revision 33411
  2: IMPLICIT NONE 
  3: CHARACTER(LEN=4) DSTRING,ASTRING 
  4: CHARACTER(LEN=3) RES 
  5: INTEGER NAT, J1 
  6:  
  7: OPEN(UNIT=7,FILE='aaxc',STATUS='UNKNOWN') 
  8:  
  9: DO  
 10:  
 11: READ(*,'(A4,1X,I6,1X,A4,1X,A3)',END=666) DSTRING,NAT,ASTRING,RES 
 12: WRITE(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING,NAT,ASTRING,RES 
 13: IF (RES.EQ.'PHE') THEN 
 14:  
 15: ! HD2 CE1 
 16: ! HE2 CD1 
 17: ! HZ  CG 
 18: ! HE1 CD2 
 19: ! HD1 CE2 
 20:  
 21:    WRITE(7,'(2I8)') NAT+17,NAT+10 
 22:    WRITE(7,'(2I8)') NAT+15,NAT+8 
 23:    WRITE(7,'(2I8)') NAT+13,NAT+7 
 24:    WRITE(7,'(2I8)') NAT+11,NAT+16 
 25:    WRITE(7,'(2I8)') NAT+9,NAT+14 
 26:    DO J1=1,19 
 27:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING 
 28:    ENDDO 
 29:  
 30: ELSEIF (RES.EQ.'ARG') THEN 
 31:  
 32: ! HH12 HH22 
 33: ! HH12 HH21 
 34: ! HH11 HH22 
 35: ! HH11 HH21 
 36: ! HH11 NE 
 37: ! HH12 NE 
 38: ! HH21 NE 
 39: ! HH22 NE 
 40:  
 41:    WRITE(7,'(2I8)') NAT+18,NAT+21 
 42:    WRITE(7,'(2I8)') NAT+18,NAT+20 
 43:    WRITE(7,'(2I8)') NAT+17,NAT+21 
 44:    WRITE(7,'(2I8)') NAT+17,NAT+20 
 45:    WRITE(7,'(2I8)') NAT+17,NAT+13 
 46:    WRITE(7,'(2I8)') NAT+18,NAT+13 
 47:    WRITE(7,'(2I8)') NAT+20,NAT+13 
 48:    WRITE(7,'(2I8)') NAT+21,NAT+13 
 49:  
 50:    DO J1=1,23 
 51:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING 
 52:    ENDDO 
 53:  
 54: ELSEIF (RES.EQ.'TRP') THEN 
 55:  
 56: ! HD1 CD2 
 57: ! HE1 CG 
 58: ! HZ2 CE3 
 59: ! HH2 CD2 
 60: ! HZ3 CE2 
 61: ! HE3 CZ2 
 62:  
 63:    WRITE(7,'(2I8)') NAT+9,NAT+21 
 64:    WRITE(7,'(2I8)') NAT+11,NAT+7 
 65:    WRITE(7,'(2I8)') NAT+14,NAT+19 
 66:    WRITE(7,'(2I8)') NAT+16,NAT+21 
 67:    WRITE(7,'(2I8)') NAT+18,NAT+12 
 68:    WRITE(7,'(2I8)') NAT+20,NAT+13 
 69:  
 70:    DO J1=1,23 
 71:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING 
 72:    ENDDO 
 73:  
 74: ELSEIF (RES.EQ.'TYR') THEN 
 75:  
 76: ! HD1 CE2 
 77: ! HE1 CD2 
 78: ! OH CG 
 79: ! HE2 CD1 
 80: ! HD2 CE1 
 81:  
 82:    WRITE(7,'(2I8)') NAT+9,NAT+15 
 83:    WRITE(7,'(2I8)') NAT+11,NAT+17 
 84:    WRITE(7,'(2I8)') NAT+13,NAT+7 
 85:    WRITE(7,'(2I8)') NAT+16,NAT+8 
 86:    WRITE(7,'(2I8)') NAT+18,NAT+10 
 87:  
 88:    DO J1=1,20 
 89:       READ(*,'(A4,1X,I6,1X,A4,1X,A3)') DSTRING 
 90:    ENDDO 
 91:  
 92: ENDIF 
 93:  
 94: ENDDO 
 95:  
 96: 666 CONTINUE 
 97:  
 98: END PROGRAM AAXC 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0