hdiff output

r29142/CMakeLists.txt 2015-11-17 23:34:46.301930330 +0000 r29141/CMakeLists.txt 2015-11-17 23:34:46.881938109 +0000
 51:  51: 
 52:  52: 
 53: message("CMAKE_Fortran_COMPILER = ${CMAKE_Fortran_COMPILER}") 53: message("CMAKE_Fortran_COMPILER = ${CMAKE_Fortran_COMPILER}")
 54: set(CMAKE_Fortran_MODULE_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/modules) 54: set(CMAKE_Fortran_MODULE_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/modules)
 55: include_directories(${CMAKE_CURRENT_BINARY_DIR}/modules) 55: include_directories(${CMAKE_CURRENT_BINARY_DIR}/modules)
 56:  56: 
 57:  57: 
 58: include_directories(${CMAKE_SOURCE_DIR}) 58: include_directories(${CMAKE_SOURCE_DIR})
 59:  59: 
 60: file(GLOB PATHSAMPLE_MAIN main.F) 60: file(GLOB PATHSAMPLE_MAIN main.F)
 61: file(GLOB PATHSAMPLE_SOURCES *.f *.f90 *.F *.F90) 61: file(GLOB PATHSAMPLE_SOURCES *.f *.f90 .F .F90)
 62: file(GLOB NOT_PATHSAMPLE_SOURCES 62: file(GLOB NOT_PATHSAMPLE_SOURCES
 63:     main.f 63:     main.f
 64:     main.F 
 65:     porfuncs.f90 64:     porfuncs.f90
 66: ) 65: )
 67: if (NOT (NOT_PATHSAMPLE_SOURCES STREQUAL "")) 66: if (NOT (NOT_PATHSAMPLE_SOURCES STREQUAL ""))
 68:   list(REMOVE_ITEM PATHSAMPLE_SOURCES ${NOT_PATHSAMPLE_SOURCES}) 67:   list(REMOVE_ITEM PATHSAMPLE_SOURCES ${NOT_PATHSAMPLE_SOURCES})
 69: endif (NOT (NOT_PATHSAMPLE_SOURCES STREQUAL "")) 68: endif (NOT (NOT_PATHSAMPLE_SOURCES STREQUAL ""))
 70:  69: 
 71:  70: 
 72: # ---- add generated source files  71: # ---- add generated source files 
 73: set(PATHSAMPLE_SOURCES ${PATHSAMPLE_SOURCES} porfuncs.f90) 72: set(PATHSAMPLE_SOURCES ${PATHSAMPLE_SOURCES} porfuncs.f90)
 74:  73: 


r29142/waitforfile.F90 2015-11-17 23:34:46.489932852 +0000 r29141/waitforfile.F90 2015-11-17 23:34:47.065940577 +0000
  1: !   PATHSAMPLE: A driver for OPTIM to create stationary point databases using discrete path sampling and perform kinetic analysis  1: svn: E195012: Unable to find repository location for 'svn+ssh://svn.ch.private.cam.ac.uk/groups/wales/trunk/PATHSAMPLE/source/waitforfile.F90' in revision 29141
  2: !   Copyright (C) 1999-2015 David J. Wales 
  3: !   This file is part of PATHSAMPLE. 
  4: ! 
  5: !   PATHSAMPLE is free software; you can redistribute it and/or modify 
  6: !   it under the terms of the GNU General Public License as published by 
  7: !   the Free Software Foundation; either version 2 of the License, or 
  8: !   (at your option) any later version. 
  9: ! 
 10: !   PATHSAMPLE is distributed in the hope that it will be useful, 
 11: !   but WITHOUT ANY WARRANTY; without even the implied warranty of 
 12: !   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
 13: !   GNU General Public License for more details. 
 14: ! 
 15: !   You should have received a copy of the GNU General Public License 
 16: !   along with this program; if not, write to the Free Software 
 17: !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA 
 18: ! 
 19:  
 20: SUBROUTINE WAIT_FOR_FILE(FILENAME,SLEEPTIME,NTRIES) 
 21:  
 22: ! nagfor needs a module to recognise SLEEP 
 23: #ifdef NAGFOR 
 24:   USE F90_UNIX_PROC 
 25: #endif 
 26:  
 27: ! subroutine to check if the FILENAME file exists NTRIES times, SLEEPing SLEEPTIME seconds between checks 
 28: ! if the file does not exist after all checks are done, STOP the code with an error. 
 29: IMPLICIT NONE 
 30: INTEGER, INTENT(IN)          :: NTRIES, SLEEPTIME 
 31: INTEGER                      :: TRY 
 32: CHARACTER(LEN=*), INTENT(IN) :: FILENAME 
 33: LOGICAL                      :: THERE 
 34:  
 35: ! set the existence flag to .FALSE. 
 36: THERE=.FALSE. 
 37:  
 38: ! check to see if the file has been created NTRIES times  
 39: DO TRY=1, NTRIES 
 40:    INQUIRE(FILE=TRIM(ADJUSTL(FILENAME)), EXIST=THERE) 
 41:    IF(THERE) THEN 
 42:       ! if the file exists, exit the loop 
 43:       ! DEBUG PRINTING 
 44:       !PRINT *,"wait_for_file> ",TRIM(ADJUSTL(FILENAME))," present, moving on" 
 45:       EXIT 
 46:    ELSE 
 47:       ! if the file doesn't exist yet, SLEEP and check again 
 48:       ! DEBUG PRINTING 
 49:       !PRINT *,"wait_for_file> ",TRIM(ADJUSTL(FILENAME))," not present, SLEEPing for ",SLEEPTIME 
 50:       CALL SLEEP(SLEEPTIME) 
 51:    ENDIF 
 52: ENDDO 
 53:  
 54: ! if the file is still not present, STOP the program with a helpful error 
 55: IF (.NOT.THERE) THEN  
 56:    PRINT *,"wait_for_file> ERROR: file ",TRIM(ADJUSTL(FILENAME))," not created correctly" 
 57:    STOP 
 58: ENDIF 
 59:  
 60: RETURN 
 61: END SUBROUTINE WAIT_FOR_FILE 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0