hdiff output

r22229/amberinterface.f 2016-07-06 15:30:55.423435743 +0100 r22228/amberinterface.f 2016-07-06 15:30:55.827441209 +0100
  1: SUBROUTINE AMBERINTERFACE(natoms,ncalls,inpcrd1,MYUNIT)  1: SUBROUTINE AMBERINTERFACE(natoms,ncalls,inpcrd1,MYUNIT)
  2:   use modamber9  2:   use modamber9
  3: !  use commons, only : zsym  3: !  use commons, only : zsym
  4: ! ss2029> 02062011: added 'use commons, only : MPIT'   
  5:   use commons  
  6: ! : MPIT 
  7:   use genborn  4:   use genborn
  8:   use decomp, only : allocate_int_decomp, allocate_real_decomp, &  5:   use decomp, only : allocate_int_decomp, allocate_real_decomp, &
  9:                      deallocate_int_decomp, deallocate_real_decomp  6:                      deallocate_int_decomp, deallocate_real_decomp
 10:   use stack  7:   use stack
 11:   use nblist, only:cutoffnb,skinnb,nblist_allocate,nblist_deallocate, &  8:   use nblist, only:cutoffnb,skinnb,nblist_allocate,nblist_deallocate, &
 12:                     nblist_allreal,nblist_allint, num_calls_nblist, first_list_flag  9:                     nblist_allreal,nblist_allint, num_calls_nblist, first_list_flag
 13:   use amoeba_interface, only:  & 10:   use amoeba_interface, only:  &
 14:                              AMOEBA_deallocate,AMOEBA_readparm 11:                              AMOEBA_deallocate,AMOEBA_readparm
 15:   use amoeba_runmd, only : AM_RUNMD_get_coords,AM_RUNMD 12:   use amoeba_runmd, only : AM_RUNMD_get_coords,AM_RUNMD
 16:   use parms, only: rk,tk,pk,cn1,cn2,numbnd,numang,nimprp,nptra,asol,bsol, & 13:   use parms, only: rk,tk,pk,cn1,cn2,numbnd,numang,nimprp,nptra,asol,bsol, &
250: 247: 
251: 248: 
252:      ! --- Open the data dumping files and position it depending249:      ! --- Open the data dumping files and position it depending
253:      !     on the type of run:250:      !     on the type of run:
254: 251: 
255: if(ncalls>=2) master = .true.252: if(ncalls>=2) master = .true.
256: SELECT CASE(ncalls)253: SELECT CASE(ncalls)
257:         CASE(2)254:         CASE(2)
258:                 ! ncalls == 2 only once during a GMIN run255:                 ! ncalls == 2 only once during a GMIN run
259:                 ! remove mdcrd file left over from previous run256:                 ! remove mdcrd file left over from previous run
260: ! 
261: !ss2029> 02062011: added MPIT check to fix a bug in PTMC runs with  
262: !        GMIN AMBER. MPI runs with non-MD moves were giving 'stale NTFS' error related to   
263: !        IO to coord.mdcrd file. Now IO to coord.mdcrd done only for serial jobs.    
264: ! 
265:           IF(.NOT.MPIT) THEN  
266:                 call system('rm -f ' // mdcrd )257:                 call system('rm -f ' // mdcrd )
267:                 open(unit=mdcrd_unit,file=trim(adjustl(mdcrd)),status='UNKNOWN')258:                 open(unit=mdcrd_unit,file=trim(adjustl(mdcrd)),status='UNKNOWN')
268:                 write(mdcrd_unit,'(A)') 'mdcrd file' ! first line of mdcrd file, will use appending259:                 write(mdcrd_unit,'(A)') 'mdcrd file' ! first line of mdcrd file, will use appending
269:                                            ! (facc = 'A')260:                                            ! (facc = 'A')
270:                 close(mdcrd_unit)261:                 close(mdcrd_unit)
271:           ENDIF  
272:         CASE(3)262:         CASE(3)
273:                 call open_dump_files263:                 call open_dump_files
274:         CASE DEFAULT264:         CASE DEFAULT
275:         265:         
276: END SELECT266: END SELECT
277: 267: 
278: if(ncalls>2) then 268: if(ncalls>2) then 
279:         master = .false.269:         master = .false.
280:         goto 999270:         goto 999
281: end if271: end if


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0