hdiff output

r27978/amberinterface.f 2017-03-30 13:31:02.760947684 +0100 r27977/amberinterface.f 2017-03-30 13:31:03.628959222 +0100
280: SELECT CASE(ncalls)280: SELECT CASE(ncalls)
281:         CASE(2)281:         CASE(2)
282:                 ! ncalls == 2 only once during a GMIN run282:                 ! ncalls == 2 only once during a GMIN run
283:                 ! remove mdcrd file left over from previous run283:                 ! remove mdcrd file left over from previous run
284: !284: !
285: !ss2029> 02062011: added MPIT check to fix a bug in PTMC runs with 285: !ss2029> 02062011: added MPIT check to fix a bug in PTMC runs with 
286: !        GMIN AMBER. MPI runs with non-MD moves were giving 'stale NTFS' error related to  286: !        GMIN AMBER. MPI runs with non-MD moves were giving 'stale NTFS' error related to  
287: !        IO to coord.mdcrd file. Now IO to coord.mdcrd done only for serial jobs.   287: !        IO to coord.mdcrd file. Now IO to coord.mdcrd done only for serial jobs.   
288: !288: !
289:           IF(.NOT.MPIT) THEN 289:           IF(.NOT.MPIT) THEN 
290:                 call system_subr('rm -f ' // mdcrd )290:                 call system('rm -f ' // mdcrd )
291:                 open(unit=mdcrd_unit,file=trim(adjustl(mdcrd)),status='UNKNOWN')291:                 open(unit=mdcrd_unit,file=trim(adjustl(mdcrd)),status='UNKNOWN')
292:                 write(mdcrd_unit,'(A)') 'mdcrd file' ! first line of mdcrd file, will use appending292:                 write(mdcrd_unit,'(A)') 'mdcrd file' ! first line of mdcrd file, will use appending
293:                                            ! (facc = 'A')293:                                            ! (facc = 'A')
294:                 close(mdcrd_unit)294:                 close(mdcrd_unit)
295:           ENDIF 295:           ENDIF 
296:         CASE(3)296:         CASE(3)
297:                 call open_dump_files297:                 call open_dump_files
298:         CASE DEFAULT298:         CASE DEFAULT
299:         299:         
300: END SELECT300: END SELECT
992:    WRITE(ROTMAXCHANGESTR,'(I10)') ROTMAXCHANGE992:    WRITE(ROTMAXCHANGESTR,'(I10)') ROTMAXCHANGE
993:    WRITE(ROTPSELECTSTR,'(F10.3)') ROTPSELECT993:    WRITE(ROTPSELECTSTR,'(F10.3)') ROTPSELECT
994:    WRITE(ROTCUTOFFSTR,'(F10.3)') ROTCUTOFF994:    WRITE(ROTCUTOFFSTR,'(F10.3)') ROTCUTOFF
995:    WRITE(ROTCENTRESTR,'(I10)') ROTCENTRE995:    WRITE(ROTCENTRESTR,'(I10)') ROTCENTRE
996:    WRITE(ROTOCCUWSTR,'(F10.3)') ROTOCCUW996:    WRITE(ROTOCCUWSTR,'(F10.3)') ROTOCCUW
997:  997:  
998: ! Dump the coordinates as a PDB (beforerotamer.pdb) for script to read998: ! Dump the coordinates as a PDB (beforerotamer.pdb) for script to read
999:    CALL A9DUMPPDB(y(:),'beforerotamer')999:    CALL A9DUMPPDB(y(:),'beforerotamer')
1000: 1000: 
1001: ! Call the rotamer move script (make sure the options are set correctly!)1001: ! Call the rotamer move script (make sure the options are set correctly!)
1002:    CALL SYSTEM_SUBR('./rotamermove.csh '//TRIM(ADJUSTL(ROTMAXCHANGESTR))//' '//TRIM(ADJUSTL(ROTPSELECTSTR)) &1002:    CALL SYSTEM('./rotamermove.csh '//TRIM(ADJUSTL(ROTMAXCHANGESTR))//' '//TRIM(ADJUSTL(ROTPSELECTSTR)) &
1003:      &         //' '//TRIM(ADJUSTL(ROTCUTOFFSTR))//' '//TRIM(ADJUSTL(ROTCENTRESTR))//' '//TRIM(ADJUSTL(ROTOCCUWSTR)) )1003:      &         //' '//TRIM(ADJUSTL(ROTCUTOFFSTR))//' '//TRIM(ADJUSTL(ROTCENTRESTR))//' '//TRIM(ADJUSTL(ROTOCCUWSTR)) )
1004: 1004: 
1005: ! Check which residues have changed (reschanged.dat file contains list)1005: ! Check which residues have changed (reschanged.dat file contains list)
1006:    RESCHANGEDT(:)=.FALSE.1006:    RESCHANGEDT(:)=.FALSE.
1007:    OPEN(UNIT=222,FILE='reschanged.dat',STATUS='OLD')1007:    OPEN(UNIT=222,FILE='reschanged.dat',STATUS='OLD')
1008:    DO1008:    DO
1009:       READ (UNIT=222,IOSTAT=iostatus,FMT='(I6)') restemp1009:       READ (UNIT=222,IOSTAT=iostatus,FMT='(I6)') restemp
1010:       IF (iostatus<0) THEN1010:       IF (iostatus<0) THEN
1011:          CLOSE(222)1011:          CLOSE(222)
1012:          EXIT1012:          EXIT


r27978/configurations.F90 2017-03-30 13:31:03.332955292 +0100 r27977/configurations.F90 2017-03-30 13:31:05.800988089 +0100
 36: INTEGER, PARAMETER :: MINIMUM = 1 36: INTEGER, PARAMETER :: MINIMUM = 1
 37: INTEGER, PARAMETER :: TRANS_STATE = 2 37: INTEGER, PARAMETER :: TRANS_STATE = 2
 38: INTEGER, PARAMETER :: AFTER_STEP = 3 38: INTEGER, PARAMETER :: AFTER_STEP = 3
 39:  39: 
 40: ! Named parameters for COORD_SYSTEM 40: ! Named parameters for COORD_SYSTEM
 41: INTEGER, PARAMETER :: CARTESIAN = 1 41: INTEGER, PARAMETER :: CARTESIAN = 1
 42: INTEGER, PARAMETER :: RIGID_BODY = 2 42: INTEGER, PARAMETER :: RIGID_BODY = 2
 43: INTEGER, PARAMETER :: ANGLE_AXIS = 3 43: INTEGER, PARAMETER :: ANGLE_AXIS = 3
 44: INTEGER, PARAMETER :: INTERNALS = 4 44: INTEGER, PARAMETER :: INTERNALS = 4
 45:  45: 
 46: ! CONTAINS 46: CONTAINS
 47:  47: 
 48: END MODULE CONFIGS 48: END MODULE CONFIGS


r27978/mexit.f 2017-03-30 13:31:03.040951411 +0100 r27977/mexit.f 2017-03-30 13:31:03.908962952 +0100
 35:       close(unit=output_unit) 35:       close(unit=output_unit)
 36:    end if 36:    end if
 37:  37: 
 38:  38: 
 39:  39: 
 40:  40: 
 41:  41: 
 42:  42: 
 43:  43: 
 44:  44: 
 45:    call exit_subr(status) 45:    call exit(status)
 46:  46: 
 47: end subroutine mexit  47: end subroutine mexit 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0