hdiff output

r22647/amberinterface.f 2017-03-30 13:31:31.309327065 +0100 r22646/amberinterface.f 2017-03-30 13:31:31.593330843 +0100
 10: ! 10: !
 11: ! If NO -> Add the variable to modamber9.f90 in both GMIN and OPTIM. When you want to use 11: ! If NO -> Add the variable to modamber9.f90 in both GMIN and OPTIM. When you want to use
 12: ! it, for example in a keyword, just add it to the appropriate 'use modamber9, only:'  12: ! it, for example in a keyword, just add it to the appropriate 'use modamber9, only:' 
 13: ! statement in that file. 13: ! statement in that file.
 14: ! 14: !
 15: ! The important thing here is to make changes to both GMIN and OPTIM files, otherwise  15: ! The important thing here is to make changes to both GMIN and OPTIM files, otherwise 
 16: ! you will break the compilation! (which you should check before comitting anyway!) 16: ! you will break the compilation! (which you should check before comitting anyway!)
 17: ! 17: !
 18:   use modamber9 18:   use modamber9
 19: ! 19: !
 20: ! Think about the above before adding things here!   20: ! Think about the above before adding things here!   
 21:   use commons, only : DEBUG,MPIT 21:   use commons, only : DEBUG,MPIT 
 22: ! : MPIT 22: ! : MPIT
 23:   use genborn 23:   use genborn
 24:   use decomp, only : allocate_int_decomp, allocate_real_decomp, & 24:   use decomp, only : allocate_int_decomp, allocate_real_decomp, &
 25:                      deallocate_int_decomp, deallocate_real_decomp 25:                      deallocate_int_decomp, deallocate_real_decomp
 26:   use stack 26:   use stack
 27:   use nblist, only:cutoffnb,skinnb,nblist_allocate,nblist_deallocate, & 27:   use nblist, only:cutoffnb,skinnb,nblist_allocate,nblist_deallocate, &
 28:                     nblist_allreal,nblist_allint, num_calls_nblist, first_list_flag 28:                     nblist_allreal,nblist_allint, num_calls_nblist, first_list_flag
 29:   use amoeba_interface, only:  & 29:   use amoeba_interface, only:  &
 30:                              AMOEBA_deallocate,AMOEBA_readparm 30:                              AMOEBA_deallocate,AMOEBA_readparm
 31:   use amoeba_runmd, only : AM_RUNMD_get_coords,AM_RUNMD 31:   use amoeba_runmd, only : AM_RUNMD_get_coords,AM_RUNMD
121:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Integer   ', lasti121:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Integer   ', lasti
122:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Max Pairs ', lastpr122:       write(MYUNITNEW,'(a,5x,a,i14)') '|', 'Max Pairs ', lastpr
123: end if123: end if
124:       !     --- dynamic memory allocation:124:       !     --- dynamic memory allocation:
125: 125: 
126: ! sf344> inserted if(.not.allocated())126: ! sf344> inserted if(.not.allocated())
127:       if(.not.allocated(x)) allocate(x(lastr), stat = ier)127:       if(.not.allocated(x)) allocate(x(lastr), stat = ier)
128:       if(.not.allocated(ix)) allocate(ix(lasti), stat = ier)128:       if(.not.allocated(ix)) allocate(ix(lasti), stat = ier)
129:       if(.not.allocated(ipairs)) allocate(ipairs(lastpr), stat = ier)129:       if(.not.allocated(ipairs)) allocate(ipairs(lastpr), stat = ier)
130:       if(.not.allocated(ih)) allocate(ih(lasth), stat = ier)130:       if(.not.allocated(ih)) allocate(ih(lasth), stat = ier)
131: ! hk286131:       if(.not.allocated(cisarray1)) allocate(cisarray1(natom), stat = ier)
132:       if(.not.allocated(cisarray1)) then 
133:          allocate(cisarray1(natom), stat = ier) 
134:          cisarray1(:) = 0 
135:       endif 
136: ! hk286 
137:       if(.not.allocated(cisarray2)) allocate(cisarray2(natom), stat = ier)132:       if(.not.allocated(cisarray2)) allocate(cisarray2(natom), stat = ier)
138:       if(.not.allocated(chiarray1)) allocate(chiarray1(natom), stat = ier)133:       if(.not.allocated(chiarray1)) allocate(chiarray1(natom), stat = ier)
139:       if(.not.allocated(chiarray2)) allocate(chiarray2(natom), stat = ier)134:       if(.not.allocated(chiarray2)) allocate(chiarray2(natom), stat = ier)
140:       if(igb /= 0 .and. igb /= 10 .and. ncalls == 2) call allocate_gb( natom, ncopy )135:       if(igb /= 0 .and. igb /= 10 .and. ncalls == 2) call allocate_gb( natom, ncopy )
141: 136: 
142:       if( idecomp > 0 .and. ncalls == 2) then137:       if( idecomp > 0 .and. ncalls == 2) then
143:          call allocate_int_decomp(natom, nres)138:          call allocate_int_decomp(natom, nres)
144:       else if (ncalls == 2) then139:       else if (ncalls == 2) then
145:          call allocate_int_decomp(1, 1)140:          call allocate_int_decomp(1, 1)
146:       endif141:       endif


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0