hdiff output

r25548/disconnectionDPS.f90 2017-01-21 10:41:47.920116133 +0000 r25547/disconnectionDPS.f90 2017-01-21 10:41:48.144124862 +0000
134: ! Specifies the name of a list of numbers of minima, one per line.  Minima on134: ! Specifies the name of a list of numbers of minima, one per line.  Minima on
135: ! this list are included on the graph.  Minima preceded with a minus sign are135: ! this list are included on the graph.  Minima preceded with a minus sign are
136: ! removed from the graph.  This process is executed after the commands136: ! removed from the graph.  This process is executed after the commands
137: ! MONOTONIC, LOWEST and EXCLUDEALL have been executed, thereby making it137: ! MONOTONIC, LOWEST and EXCLUDEALL have been executed, thereby making it
138: ! possible to override them for particular minima.  Examples: 1. To remove138: ! possible to override them for particular minima.  Examples: 1. To remove
139: ! certain minima from a full plot, just specify PICK and a list of negative139: ! certain minima from a full plot, just specify PICK and a list of negative
140: ! minima numbers.  2. To include only specific minima, use EXCLUDEALL and140: ! minima numbers.  2. To include only specific minima, use EXCLUDEALL and
141: ! PICK plus a list of positive minima numbers.  All basin analysis includes141: ! PICK plus a list of positive minima numbers.  All basin analysis includes
142: ! the full sample and is performed before minima are removed or added back in.142: ! the full sample and is performed before minima are removed or added back in.
143: !143: !
144: ! PS_PAGE_X 
145: ! PS_PAGE_Y 
146: ! Set the dimensions of the output Postscript file. 
147: ! 
148: ! NOSPLIT144: ! NOSPLIT
149: ! By default, every minimum is indicated by its own branch, which splits off145: ! By default, every minimum is indicated by its own branch, which splits off
150: ! from the parent basin even if the minimum and its lowest transition state do146: ! from the parent basin even if the minimum and its lowest transition state do
151: ! not straddle an energy level in the basin analysis. This is to avoid it being147: ! not straddle an energy level in the basin analysis. This is to avoid it being
152: ! dependent on precisely where the levels are placed (bulk shifting of the levels148: ! dependent on precisely where the levels are placed (bulk shifting of the levels
153: ! would cause some branch ends to appear or disappear rather than change node149: ! would cause some branch ends to appear or disappear rather than change node
154: ! if this were not the case). The NOSPLIT option turns this feature off, so that150: ! if this were not the case). The NOSPLIT option turns this feature off, so that
155: ! if two minima are separated by a barrier lower than the level above their own151: ! if two minima are separated by a barrier lower than the level above their own
156: ! energy, they are grouped together. This option should probably never be used.152: ! energy, they are grouped together. This option should probably never be used.
157: !153: !
1744:       CASE ('MONOTONIC')1740:       CASE ('MONOTONIC')
1745:          MONOTONIC = .TRUE.1741:          MONOTONIC = .TRUE.
1746:       CASE ('NCONNMIN')1742:       CASE ('NCONNMIN')
1747:          CALL GET_INTEGER(NCONNMIN)1743:          CALL GET_INTEGER(NCONNMIN)
1748:       CASE ('NOBARRIERS')1744:       CASE ('NOBARRIERS')
1749:          BARRIERS = .FALSE.1745:          BARRIERS = .FALSE.
1750:       CASE ('NOSPLIT')1746:       CASE ('NOSPLIT')
1751:          SPLIT = .FALSE.1747:          SPLIT = .FALSE.
1752:       CASE ('PICK')1748:       CASE ('PICK')
1753:          CALL GET_STRING(FILE_PICK)1749:          CALL GET_STRING(FILE_PICK)
1754:       CASE ('PS_PAGE_X') 
1755:          CALL GET_INTEGER(PAGE_X) 
1756:       CASE ('PS_PAGE_Y') 
1757:          CALL GET_INTEGER(PAGE_Y) 
1758:       CASE ('TRMIN')1750:       CASE ('TRMIN')
1759:          TRMINT = .TRUE.1751:          TRMINT = .TRUE.
1760:          CALL GET_INTEGER(NDUMMY)1752:          CALL GET_INTEGER(NDUMMY)
1761:          CALL GET_INTEGER(MINRANGE)1753:          CALL GET_INTEGER(MINRANGE)
1762:          IF (NDUMMY.eq.1) THEN1754:          IF (NDUMMY.eq.1) THEN
1763:          WRITE (6, '(I6, A)') ndummy, ' set of minima will be traced in colour'1755:          WRITE (6, '(I6, A)') ndummy, ' set of minima will be traced in colour'
1764:          ELSE1756:          ELSE
1765:          WRITE (6, '(I6, A)') ndummy, ' sets of minima will be traced in colour'1757:          WRITE (6, '(I6, A)') ndummy, ' sets of minima will be traced in colour'
1766:          ENDIF1758:          ENDIF
1767:          ALLOCATE(MINTRS(1:MINRANGE))1759:          ALLOCATE(MINTRS(1:MINRANGE))
1927:    IMPLICIT NONE1919:    IMPLICIT NONE
1928: 1920: 
1929:    DOUBLE PRECISION :: X1, X2, Y1, Y2, X_POS, Y_POS1921:    DOUBLE PRECISION :: X1, X2, Y1, Y2, X_POS, Y_POS
1930:    DOUBLE PRECISION, PARAMETER :: TICK_WIDTH=3.0D01922:    DOUBLE PRECISION, PARAMETER :: TICK_WIDTH=3.0D0
1931:    INTEGER :: I1923:    INTEGER :: I
1932: 1924: 
1933: !  Definitions.1925: !  Definitions.
1934:    WRITE (20, '(22(A, /), A)') '%!PS-Adobe-3.0 EPSF-3.0', &1926:    WRITE (20, '(22(A, /), A)') '%!PS-Adobe-3.0 EPSF-3.0', &
1935:       & '%% Creator: disconnection.f90', &1927:       & '%% Creator: disconnection.f90', &
1936:       & '%% Minima: ' // TRIM(file_min), &1928:       & '%% Minima: ' // TRIM(file_min), &
1937:       & '%% Transition states: ' // TRIM(file_ts)1929:       & '%% Transition states: ' // TRIM(file_ts), &
1938:    WRITE (20, '(A,2I5)') '%%BoundingBox: 0 0 ',PAGE_X,PAGE_Y1930:       & '%%BoundingBox: 0 0 593 809', &
1939:    WRITE (20, '(22(A, /), A)')  '/ls {lineto stroke} def', &1931:       & '/ls {lineto stroke} def', &
1940:       & '/mt {moveto} def', &1932:       & '/mt {moveto} def', &
1941:       & '0.1 setlinewidth', &1933:       & '0.1 setlinewidth', &
1942:       & '/swidth { 30 mul } def', &1934:       & '/swidth { 30 mul } def', &
1943:       & '/dpi { 30 div } def', &1935:       & '/dpi { 30 div } def', &
1944:       & '/Rez 1000 dpi def % calc lines per point for fill', &1936:       & '/Rez 1000 dpi def % calc lines per point for fill', &
1945:       & '/Step 1 Rez div def', &1937:       & '/Step 1 Rez div def', &
1946:       & '/StartRGB { /B1 exch def /S1 exch def /H1 exch def', &1938:       & '/StartRGB { /B1 exch def /S1 exch def /H1 exch def', &
1947:       & '          } def', &1939:       & '          } def', &
1948:       & '/EndRGB { /B2 exch def /S2 exch def /H2 exch def', &1940:       & '/EndRGB { /B2 exch def /S2 exch def /H2 exch def', &
1949:       & '          /Steps s Step div def', &1941:       & '          /Steps s Step div def', &


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0