hdiff output

r27754/disconnectionDPS.f90 2017-01-21 10:41:51.576257784 +0000 r27753/disconnectionDPS.f90 2017-01-21 10:41:51.836267797 +0000
 96: ! you can pick the number of minima correspondig to that node from the node_numbers file, 96: ! you can pick the number of minima correspondig to that node from the node_numbers file,
 97: ! produced by using the keyword DUMPNUMBERS... (and then print any branch of the graph separately) 97: ! produced by using the keyword DUMPNUMBERS... (and then print any branch of the graph separately)
 98: ! 98: !
 99: ! IDENTIFY_NODE_SIZE <max_min2> 99: ! IDENTIFY_NODE_SIZE <max_min2>
100: ! If present, the nodes are labelled with number of minima corresponding to that node. 100: ! If present, the nodes are labelled with number of minima corresponding to that node. 
101: ! The label is only printed if the number of minima below that node is smaller than <max_min2>101: ! The label is only printed if the number of minima below that node is smaller than <max_min2>
102: !102: !
103: ! IDMIN <min>103: ! IDMIN <min>
104: ! Label this minimum on the graph. Repeat to label more than one minimum.104: ! Label this minimum on the graph. Repeat to label more than one minimum.
105: !105: !
106: ! IDMINFILE <file> 
107: ! Label the minima specified in file in the same way as IDMIN. 
108: ! Can use the same file as for PICK to label selected minima, e.g. using min.include 
109: ! and PERSIST keyword in PATHSAMPLE 
110: ! 
111: ! LABELFORMAT <fmt>106: ! LABELFORMAT <fmt>
112: ! Specifies the Fortran format string for the energy level labels. The default107: ! Specifies the Fortran format string for the energy level labels. The default
113: ! is F6.1.108: ! is F6.1.
114: !109: !
115: ! LABELSIZE <n>110: ! LABELSIZE <n>
116: ! Set the size of the fonts in case of the labels (for IDENTIFY, IDENTIFY_NODE ...)111: ! Set the size of the fonts in case of the labels (for IDENTIFY, IDENTIFY_NODE ...)
117: ! Default is 10 pt.112: ! Default is 10 pt.
118: !113: !
119: ! LETTER114: ! LETTER
120: ! If present, the graph is formatted for American letter paper rather than115: ! If present, the graph is formatted for American letter paper rather than
498:    DOUBLE PRECISION :: TSBARTHRESH=1.0D100493:    DOUBLE PRECISION :: TSBARTHRESH=1.0D100
499:    DOUBLE PRECISION :: CSCALE=1.0D0 494:    DOUBLE PRECISION :: CSCALE=1.0D0 
500:    DOUBLE PRECISION :: CSHIFT=0.0D0 495:    DOUBLE PRECISION :: CSHIFT=0.0D0 
501:    DOUBLE PRECISION :: DJWSCALE=1.0D0 496:    DOUBLE PRECISION :: DJWSCALE=1.0D0 
502:    DOUBLE PRECISION :: TRMIN=0.0D0497:    DOUBLE PRECISION :: TRMIN=0.0D0
503:    DOUBLE PRECISION :: TRMAX=1.0D0498:    DOUBLE PRECISION :: TRMAX=1.0D0
504:    DOUBLE PRECISION :: BENERGY=1.0D100 499:    DOUBLE PRECISION :: BENERGY=1.0D100 
505:    DOUBLE PRECISION :: TRSCALEX=90.0500:    DOUBLE PRECISION :: TRSCALEX=90.0
506:    DOUBLE PRECISION :: TRSCALEY=50.0501:    DOUBLE PRECISION :: TRSCALEY=50.0
507:    CHARACTER(LEN=120) :: FILE_MIN, FILE_PICK, FILE_TS, FILE_WEIGHTS, &    502:    CHARACTER(LEN=120) :: FILE_MIN, FILE_PICK, FILE_TS, FILE_WEIGHTS, &    
508:       FILE_TRACE, FILE_IDMIN503:       FILE_TRACE
509:    CHARACTER(LEN=10) :: LAB_FMT504:    CHARACTER(LEN=10) :: LAB_FMT
510:    LOGICAL :: BARRIERS, CENTRE_GMIN, DUMP_NUMBERS, DUMP_SIZES, EXCLUDEALL, &505:    LOGICAL :: BARRIERS, CENTRE_GMIN, DUMP_NUMBERS, DUMP_SIZES, EXCLUDEALL, &
511:       IDENTIFY, MONOTONIC, SPLIT, WEIGHTS,ZEROGM506:       IDENTIFY, MONOTONIC, SPLIT, WEIGHTS,ZEROGM
512:    LOGICAL :: ORDER_BY_SIZE507:    LOGICAL :: ORDER_BY_SIZE
513:    LOGICAL :: ORDER_BY_ENERGY508:    LOGICAL :: ORDER_BY_ENERGY
514:    LOGICAL :: IDENTIFY_NODE=.FALSE.509:    LOGICAL :: IDENTIFY_NODE=.FALSE.
515:    LOGICAL :: IDENTIFY_NODE_SIZE=.FALSE.510:    LOGICAL :: IDENTIFY_NODE_SIZE=.FALSE.
516:    LOGICAL :: IDMINT=.FALSE.511:    LOGICAL :: IDMINT=.FALSE.
517:    LOGICAL :: TRMINT=.FALSE.512:    LOGICAL :: TRMINT=.FALSE.
518:    LOGICAL :: TRPRINT=.FALSE.513:    LOGICAL :: TRPRINT=.FALSE.
1922: END PROGRAM DISCONNECTION1917: END PROGRAM DISCONNECTION
1923: !................................................................................!1918: !................................................................................!
1924: ! Subroutines 1919: ! Subroutines 
1925: ! READ_OPTIONS1920: ! READ_OPTIONS
1926: SUBROUTINE READ_OPTIONS1921: SUBROUTINE READ_OPTIONS
1927:    USE KEYWORDS1922:    USE KEYWORDS
1928:    USE PAGE1923:    USE PAGE
1929:    USE VARS1924:    USE VARS
1930:    IMPLICIT NONE1925:    IMPLICIT NONE
1931:    CHARACTER(LEN=50) :: KEYWORD1926:    CHARACTER(LEN=50) :: KEYWORD
1932:    INTEGER ERR, NDUMMY, I4, NDUMMY2, J11927:    INTEGER ERR, NDUMMY, I4
1933:    INTEGER, ALLOCATABLE :: SAVEID(:)1928:    INTEGER, ALLOCATABLE :: SAVEID(:)
1934:    LOGICAL :: SUCCESS1929:    LOGICAL :: SUCCESS
1935: 1930: 
1936:    BARRIERS = .TRUE.1931:    BARRIERS = .TRUE.
1937:    CENTRE_GMIN = .FALSE.1932:    CENTRE_GMIN = .FALSE.
1938:    ORDER_BY_SIZE = .FALSE.1933:    ORDER_BY_SIZE = .FALSE.
1939:    ORDER_BY_energy = .FALSE.1934:    ORDER_BY_energy = .FALSE.
1940:    DELTA_E = 0.0D01935:    DELTA_E = 0.0D0
1941:    DUMP_NUMBERS = .FALSE.1936:    DUMP_NUMBERS = .FALSE.
1942:    DUMP_SIZES = .FALSE.1937:    DUMP_SIZES = .FALSE.
2003:          IDMINT = .TRUE.1998:          IDMINT = .TRUE.
2004:          CALL GET_INTEGER(NDUMMY)1999:          CALL GET_INTEGER(NDUMMY)
2005:          ALLOCATE(SAVEID(NMINID))2000:          ALLOCATE(SAVEID(NMINID))
2006:          SAVEID(1:NMINID)=MINIDS(1:NMINID)2001:          SAVEID(1:NMINID)=MINIDS(1:NMINID)
2007:          DEALLOCATE(MINIDS)2002:          DEALLOCATE(MINIDS)
2008:          ALLOCATE(MINIDS(1:NMINID+1))2003:          ALLOCATE(MINIDS(1:NMINID+1))
2009:          MINIDS(1:NMINID)=SAVEID(1:NMINID)2004:          MINIDS(1:NMINID)=SAVEID(1:NMINID)
2010:          MINIDS(NMINID+1)=NDUMMY2005:          MINIDS(NMINID+1)=NDUMMY
2011:          NMINID=NMINID+12006:          NMINID=NMINID+1
2012:          DEALLOCATE(SAVEID)2007:          DEALLOCATE(SAVEID)
2013:       CASE ('IDMINFILE') 
2014:          IDMINT = .TRUE. 
2015:          CALL GET_STRING(FILE_IDMIN) 
2016:          OPEN (UNIT=20,FILE=TRIM(FILE_IDMIN),STATUS='OLD') 
2017:          NDUMMY2=0 
2018:          DO 
2019:            READ(20,*,END=531) NDUMMY 
2020:            NDUMMY2=NDUMMY2+1 
2021:          ENDDO 
2022: 531      CONTINUE 
2023:          REWIND(20) 
2024:          ALLOCATE(SAVEID(NMINID)) 
2025:          SAVEID(1:NMINID)=MINIDS(1:NMINID) 
2026:          DEALLOCATE(MINIDS) 
2027:          ALLOCATE(MINIDS(1:NMINID+NDUMMY2)) 
2028:          MINIDS(1:NMINID)=SAVEID(1:NMINID) 
2029:          DO J1=1,NDUMMY2 
2030:            READ(20,*) MINIDS(NMINID+J1) 
2031:          ENDDO 
2032:          CLOSE(20) 
2033:          NMINID=NMINID+NDUMMY2 
2034:    2008:    
2035:       CASE ('LABELFORMAT')2009:       CASE ('LABELFORMAT')
2036:          CALL GET_STRING(LAB_FMT)2010:          CALL GET_STRING(LAB_FMT)
2037:       CASE ('LABELSIZE')2011:       CASE ('LABELSIZE')
2038:          CALL GET_INTEGER(LABEL_SIZE)2012:          CALL GET_INTEGER(LABEL_SIZE)
2039:       CASE ('LETTER')2013:       CASE ('LETTER')
2040:          PAGE_X = 6122014:          PAGE_X = 612
2041:          PAGE_Y = 7922015:          PAGE_Y = 792
2042:       CASE ('LEVELS')2016:       CASE ('LEVELS')
2043:          CALL GET_INTEGER(N_LEVELS)2017:          CALL GET_INTEGER(N_LEVELS)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0