hdiff output

r31549/disconnectionDPS.f90 2016-11-30 14:30:07.538561030 +0000 r31548/disconnectionDPS.f90 2016-11-30 14:30:07.790564396 +0000
1703:                  IF (.NOT. CHOOSECOLOURST) THEN1703:                  IF (.NOT. CHOOSECOLOURST) THEN
1704:                   R2=(MARKNODE(I,K)/FLOAT(NMINTR))*10      1704:                   R2=(MARKNODE(I,K)/FLOAT(NMINTR))*10      
1705:                   IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'1705:                   IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
1706:                   IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 1706:                   IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
1707:                   IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'1707:                   IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
1708:                   IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'1708:                   IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
1709:                   IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'1709:                   IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
1710:                   IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'1710:                   IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
1711:                  ELSE1711:                  ELSE
1712:                   IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red1712:                   IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red
1713:                   IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green1713:                   IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green
1714:                   IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue1714:                   IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue
1715:                   IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta1715:                   IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta
1716:                   IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange1716:                   IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange
1717:                   IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'1717:                   IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'
1718:                   IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black1718:                   IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black
1719:                   IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  1719:                   IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  
1720:                   IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  1720:                   IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  
1721:                  ENDIF1721:                  ENDIF
1722:                  WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'1722:                  WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'
1723:                  WRITE (20, '(A)') '0 0 0 setrgbcolor'1723:                  WRITE (20, '(A)') '0 0 0 setrgbcolor'
1724:                ELSE1724:                ELSE
1808:                   IF (.NOT. CHOOSECOLOURST) THEN1808:                   IF (.NOT. CHOOSECOLOURST) THEN
1809:                    R2=(MARKNODE(I,K)/FLOAT(NMINTR))*101809:                    R2=(MARKNODE(I,K)/FLOAT(NMINTR))*10
1810:                    IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'1810:                    IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
1811:                    IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 1811:                    IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
1812:                    IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'1812:                    IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
1813:                    IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'1813:                    IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
1814:                    IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'1814:                    IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
1815:                    IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'1815:                    IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
1816:                   ELSE1816:                   ELSE
1817:                    IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red1817:                    IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red
1818:                    IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green1818:                    IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green
1819:                    IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue1819:                    IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue
1820:                    IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta1820:                    IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta
1821:                    IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange1821:                    IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange
1822:                    IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'1822:                    IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'
1823:                    IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black1823:                    IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black
1824:                    IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  1824:                    IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  
1825:                    IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  1825:                    IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  
1826:                   ENDIF1826:                   ENDIF
1827:  1827:  
1828: !                 IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor'1828: !                 IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor'
1829: !                 IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor'1829: !                 IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor'
1986:                    IF (.NOT. CHOOSECOLOURST) THEN1986:                    IF (.NOT. CHOOSECOLOURST) THEN
1987:                     R2=(MARKNODE(I,K)/FLOAT(NMINTR))*10      1987:                     R2=(MARKNODE(I,K)/FLOAT(NMINTR))*10      
1988:                     IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'1988:                     IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
1989:                     IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 1989:                     IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
1990:                     IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'1990:                     IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
1991:                     IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'1991:                     IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
1992:                     IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'1992:                     IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
1993:                     IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'1993:                     IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
1994:                    ELSE1994:                    ELSE
1995:                     IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red1995:                     IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red
1996:                     IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green1996:                     IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green
1997:                     IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue1997:                     IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue
1998:                     IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta1998:                     IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta
1999:                     IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange1999:                     IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange
2000:                     IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'2000:                     IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'
2001:                     IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black2001:                     IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black
2002:                     IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  2002:                     IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  
2003:                     IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  2003:                     IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  
2004:                    ENDIF2004:                    ENDIF
2005:                    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'2005:                    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'
2006:                  ENDIF2006:                  ENDIF
2007:               ELSE IF (TRVALT) THEN ! otherwise DPMARKNODE is not allocated2007:               ELSE IF (TRVALT) THEN ! otherwise DPMARKNODE is not allocated
2038:                    IF (.NOT. CHOOSECOLOURST) THEN2038:                    IF (.NOT. CHOOSECOLOURST) THEN
2039:                     R2=(MARKNODE(I,K)/FLOAT(NMINTR))*102039:                     R2=(MARKNODE(I,K)/FLOAT(NMINTR))*10
2040:                     IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'2040:                     IF (R2.LE.1.AND.R2.GT.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
2041:                     IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 2041:                     IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
2042:                     IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'2042:                     IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
2043:                     IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'2043:                     IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
2044:                     IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'2044:                     IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
2045:                     IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'2045:                     IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
2046:                    ELSE2046:                    ELSE
2047:                     IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red2047:                     IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red
2048:                     IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green2048:                     IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green
2049:                     IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue2049:                     IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue
2050:                     IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta2050:                     IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magenta
2051:                     IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange2051:                     IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange
2052:                     IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'2052:                     IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor'
2053:                     IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black2053:                     IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black
2054:                     IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  2054:                     IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  
2055:                     IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  2055:                     IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  
2056:                    ENDIF2056:                    ENDIF
2057:     2057:     
2058: !                   IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor'2058: !                   IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor'
2059: !                   IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor'2059: !                   IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor'
2622:    INTEGER :: I2622:    INTEGER :: I
2623: 2623: 
2624: !  Definitions.2624: !  Definitions.
2625:    WRITE (20, '(4(A, /), (A,2I5, /), 18(A, /), A)') '%!PS-Adobe-3.0 EPSF-3.0', &2625:    WRITE (20, '(4(A, /), (A,2I5, /), 18(A, /), A)') '%!PS-Adobe-3.0 EPSF-3.0', &
2626:       & '%% Creator: disconnection.f90', &2626:       & '%% Creator: disconnection.f90', &
2627:       & '%% Minima: ' // TRIM(file_min), &2627:       & '%% Minima: ' // TRIM(file_min), &
2628:       & '%% Transition states: ' // TRIM(file_ts), &2628:       & '%% Transition states: ' // TRIM(file_ts), &
2629:       & '%%BoundingBox: 0 0 ',PAGE_X,PAGE_Y, &2629:       & '%%BoundingBox: 0 0 ',PAGE_X,PAGE_Y, &
2630:       & '/ls {lineto stroke} def', &2630:       & '/ls {lineto stroke} def', &
2631:       & '/mt {moveto} def', &2631:       & '/mt {moveto} def', &
2632:       & '1.5 setlinewidth', &2632:       & '1.0 setlinewidth', &
2633:       & '/swidth { 30 mul } def', &2633:       & '/swidth { 30 mul } def', &
2634:       & '/dpi { 30 div } def', &2634:       & '/dpi { 30 div } def', &
2635:       & '/Rez 1000 dpi def % calc lines per point for fill', &2635:       & '/Rez 1000 dpi def % calc lines per point for fill', &
2636:       & '/Step 1 Rez div def', &2636:       & '/Step 1 Rez div def', &
2637:       & '/StartRGB { /B1 exch def /S1 exch def /H1 exch def', &2637:       & '/StartRGB { /B1 exch def /S1 exch def /H1 exch def', &
2638:       & '          } def', &2638:       & '          } def', &
2639:       & '/EndRGB { /B2 exch def /S2 exch def /H2 exch def', &2639:       & '/EndRGB { /B2 exch def /S2 exch def /H2 exch def', &
2640:       & '          /Steps s Step div def', &2640:       & '          /Steps s Step div def', &
2641:       & '          /Hstep H2 H1 sub Steps div def', &2641:       & '          /Hstep H2 H1 sub Steps div def', &
2642:       & '          /Sstep S2 S1 sub Steps div def', &2642:       & '          /Sstep S2 S1 sub Steps div def', &
2658:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x1, y2, ' ls'2658:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x1, y2, ' ls'
2659:    X2 = X1 + TICK_WIDTH*22659:    X2 = X1 + TICK_WIDTH*2
2660:    X1 = X1 - TICK_WIDTH*22660:    X1 = X1 - TICK_WIDTH*2
2661:    Y1 = Y_POS(1.0D0)2661:    Y1 = Y_POS(1.0D0)
2662:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'2662:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'
2663:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'2663:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'
2664:    Y1 = Y_POS(1.0D0*(N_LEVELS-NDELTASB-1)/(N_LEVELS-1))2664:    Y1 = Y_POS(1.0D0*(N_LEVELS-NDELTASB-1)/(N_LEVELS-1))
2665:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'2665:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'
2666:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'2666:    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y1, ' ls'
2667:    WRITE (20, '(A)') '0.0 0.0 0.0 setrgbcolor'2667:    WRITE (20, '(A)') '0.0 0.0 0.0 setrgbcolor'
2668:    WRITE (20, '(A)') '1.5 setlinewidth'2668:    WRITE (20, '(A)') '1.0 setlinewidth'
2669:    WRITE (20, '(A, I2, A)') &2669:    WRITE (20, '(A, I2, A)') &
2670:       & '/Times-Roman findfont ', font_size, ' scalefont setfont'2670:       & '/Times-Roman findfont ', font_size, ' scalefont setfont'
2671:    X1 = X1 + TICK_WIDTH*42671:    X1 = X1 + TICK_WIDTH*4
2672:    Y1 = Y_POS(1.0D0-1.0D0*NDELTASB/(2*N_LEVELS-2)) - 5.0D02672:    Y1 = Y_POS(1.0D0-1.0D0*NDELTASB/(2*N_LEVELS-2)) - 5.0D0
2673:    WRITE (20, '(2F7.2, A)') &2673:    WRITE (20, '(2F7.2, A)') &
2674:       & X1, Y1, ' mt (epsilon) show'2674:       & X1, Y1, ' mt (epsilon) show'
2675: ELSE2675: ELSE
2676: !  Vertical energy axis.2676: !  Vertical energy axis.
2677:    X1 = MARGIN_X + SCALE_WIDTH - 10.0D02677:    X1 = MARGIN_X + SCALE_WIDTH - 10.0D0
2678:    Y1 = Y_POS(0.0D0)2678:    Y1 = Y_POS(0.0D0)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0