hdiff output

r30679/SBM.f 2016-07-06 15:38:21.117462939 +0100 r30678/SBM.f 2016-07-06 15:38:21.441467318 +0100
 96:      Q  Ib22, Ib21,IT1, JT1, KT1, IT2, JT2, KT2, IP1, JP1, 96:      Q  Ib22, Ib21,IT1, JT1, KT1, IT2, JT2, KT2, IP1, JP1,
 97:      Q KP1, LP1, IP2, JP2, KP2, 97:      Q KP1, LP1, IP2, JP2, KP2,
 98:      Q LP2, nBA1, nTA1, nPA1, nBA2, nTA2, nPA2,  ind1, ind2, ANt, 98:      Q LP2, nBA1, nTA1, nPA1, nBA2, nTA2, nPA2,  ind1, ind2, ANt,
 99:      Q  MDT1, MDT2, cl1,cl2,tempi,NSBMMAX,MAXEXCLUSIONS,NT,MAXSEP,MAXSEPTEMP 99:      Q  MDT1, MDT2, cl1,cl2,tempi,NSBMMAX,MAXEXCLUSIONS,NT,MAXSEP,MAXSEPTEMP
100: 100: 
101:       DOUBLE PRECISION  Rb(2*NSBMMAX), bK(2*NSBMMAX), ANTC(2*NSBMMAX), 101:       DOUBLE PRECISION  Rb(2*NSBMMAX), bK(2*NSBMMAX), ANTC(2*NSBMMAX), 
102:      Q Tk(2*NSBMMAX), PK(3*NSBMMAX), PHISBM(3*NSBMMAX),102:      Q Tk(2*NSBMMAX), PK(3*NSBMMAX), PHISBM(3*NSBMMAX),
103:      Q Sigma, EpsC, NCswitch,NCcut,STT,SBMCHARGE(NATOMS),103:      Q Sigma, EpsC, NCswitch,NCcut,STT,SBMCHARGE(NATOMS),
104:      Q CONCOEF1(5*NSBMMAX),CONCOEF2(5*NSBMMAX) 104:      Q CONCOEF1(5*NSBMMAX),CONCOEF2(5*NSBMMAX) 
105:       INTEGER  Ib1(2*NSBMMAX), Ib2(2*NSBMMAX), IT(2*NSBMMAX), JT(2*NSBMMAX), 105:       INTEGER  Ib1(2*NSBMMAX), Ib2(2*NSBMMAX), IT(2*NSBMMAX), JT(2*NSBMMAX), 
106:      Q KT(2*NSBMMAX),IP(3*NSBMMAX),JP(3*NSBMMAX),KP(3*NSBMMAX),106:      Q KT(2*NSBMMAX),IP(3*NSBMMAX), JP(3*NSBMMAX), KP(3*NSBMMAX),
107:      Q LP(3*NSBMMAX),IC(NSBMMAX*5),JC(NSBMMAX*5), 107:      Q LP(3*NSBMMAX), IC(NSBMMAX*5), JC(NSBMMAX*5), 
108:      Q NBA,NTA,NPA,NC,SBMCHARGEON(NATOMS),BONDTYPE108:      Q  NBA, NTA, NPA, NC,SBMCHARGEON(NATOMS)
109:       INTEGER PHITYPE(3*NSBMMAX)109:       INTEGER PHITYPE(3*NSBMMAX)
110:       integer AA,BB,ANTEMP110:       integer AA,BB,ANTEMP
111:       INTEGER NNEXL1(NATOMS*MAXEXCLUSIONS)111:       INTEGER NNEXL1(NATOMS*MAXEXCLUSIONS)
112:       INTEGER NNEXL2(NATOMS*MAXEXCLUSIONS)112:       INTEGER NNEXL2(NATOMS*MAXEXCLUSIONS)
113:       DOUBLE PRECISION dx,dy,dz113:       DOUBLE PRECISION dx,dy,dz
114:       double precision PI114:       double precision PI
115:       DOUBLE PRECISION RSig, Reps,PREFACTOR,DC,KAPPA,DHswitch,DHcut115:       DOUBLE PRECISION RSig, Reps,PREFACTOR,DC,KAPPA,DHswitch,DHcut
116:       integer CONTACTTYPE(NSBMMAX*5)116:       integer CONTACTTYPE(NSBMMAX*5)
117:       character TMPCHAR117:       character TMPCHAR
118:       integer TMPINT,NUMCHARGES,nexc,I1,I2118:       integer TMPINT,NUMCHARGES,nexc,I1,I2
199:           else199:           else
200:             write(*,*) 'ERROR: Only contacttypes 1 and 2 supported.'200:             write(*,*) 'ERROR: Only contacttypes 1 and 2 supported.'
201:           endif201:           endif
202:         end do202:         end do
203: ! make a function to check and add203: ! make a function to check and add
204: 204: 
205:           read(30,*)205:           read(30,*)
206:           read(30,*) nBA206:           read(30,*) nBA
207:           write(*,*) nBA, 'bonds'207:           write(*,*) nBA, 'bonds'
208:         do i=1, nBA208:         do i=1, nBA
209:           read(30,*) Ib1(i), Ib2(i),bondtype,Rb(i), bK(i)209:           read(30,*) Ib1(i), Ib2(i),Rb(i), bK(i)
210:           !!! ADD BONDS OF TYPE 6210:           !!! ADD BONDS OF TYPE 6
211:           IF(max(IB1(I),IB2(I))-min(IB1(I),IB2(I)) .gt. MAXSEP)THEN211:           IF(max(IB1(I),IB2(I))-min(IB1(I),IB2(I)) .gt. MAXSEP)THEN
212:             WRITE(*,*) 'WARNING: DIFFERENCE IN BONDED ATOM INDICES IS LESS THAN MAXSEP'212:             WRITE(*,*) 'WARNING: DIFFERENCE IN BONDED ATOM INDICES IS LESS THAN MAXSEP'
213:             WRITE(*,*) '         THIS CAN LEAD TO POOR PERFORMANCE.'213:             WRITE(*,*) '         THIS CAN LEAD TO POOR PERFORMANCE.'
214:             WRITE(*,*) '         CONSIDER RECOMPILING WITH A LARGER VALUE OF MAXSEP.'214:             WRITE(*,*) '         CONSIDER RECOMPILING WITH A LARGER VALUE OF MAXSEP.'
215:           ENDIF215:           ENDIF
216:           IF(bondtype .eq. 1 .or. bondtype .eq. 6)THEN216:           CALL INCLUDEEXCLUSIONS(NATOMS,IB1(I),IB2(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)          
217:             CALL INCLUDEEXCLUSIONS(NATOMS,IB1(I),IB2(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)           
218:           ENDIF 
219:         end do217:         end do
220: 218: 
221:           read(30,*)219:           read(30,*)
222:           read(30,*) nTA220:           read(30,*) nTA
223:           write(*,*) nTA, 'angles'221:           write(*,*) nTA, 'angles'
224:         do i=1, nTA222:         do i=1, nTA
225:           read(30,*) IT(i), JT(i), KT(i), ANTC(i), Tk(i)223:           read(30,*) IT(i), JT(i), KT(i), ANTC(i), Tk(i)
226:           CALL INCLUDEEXCLUSIONS(NATOMS,IT(I),JT(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)          224:           CALL INCLUDEEXCLUSIONS(NATOMS,IT(I),JT(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)          
227:           CALL INCLUDEEXCLUSIONS(NATOMS,IT(I),KT(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)          225:           CALL INCLUDEEXCLUSIONS(NATOMS,IT(I),KT(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)          
228:           CALL INCLUDEEXCLUSIONS(NATOMS,JT(I),KT(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)          226:           CALL INCLUDEEXCLUSIONS(NATOMS,JT(I),KT(I),EXCLUSIONS,NUMOFEXCLUSIONS,MAXEXCLUSIONS,NNCINC,MAXSEP,MAXSEPTEMP)          


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0