hdiff output

r27360/disconnectionDPS.f90 2017-01-21 10:41:48.932155529 +0000 r27359/disconnectionDPS.f90 2017-01-21 10:41:49.168164690 +0000
1550:                ENDIF1550:                ENDIF
1551:             ELSE1551:             ELSE
1552:                WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'1552:                WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'
1553:             ENDIF1553:             ENDIF
1554:          ENDIF1554:          ENDIF
1555: 1234  ENDDO1555: 1234  ENDDO
1556:    ENDDO1556:    ENDDO
1557:    write(*,*) nn1557:    write(*,*) nn
1558: 1558: 
1559:    IF (COLOURFRONTT) THEN1559:    IF (COLOURFRONTT) THEN
1560:      WRITE (20, '(/, A/)') 'Coloured branches' 
1561:  
1562:      DO I = 2, N_LEVELS1560:      DO I = 2, N_LEVELS
1563:         CALL ENDPOINTS(I, END_E, END_M)1561:         CALL ENDPOINTS(I, END_E, END_M)
1564:         WRITE (20, '(/, A, I2, A, I2, /)') '% Level: ', i-1, ' to ', i1562:         WRITE (20, '(/, A, I2, A, I2, /)') '% Level: ', i-1, ' to ', i
1565:         IF (NODES(I-1) == 0) EXIT1563:         IF (NODES(I-1) == 0) EXIT
1566:         ENERGY = E_HIGH - (I-2)*DELTA_E1564:         ENERGY = E_HIGH - (I-2)*DELTA_E
1567:         Y1 = Y_POS(1.0D0*(I-2)/(N_LEVELS-1))1565:         Y1 = Y_POS(1.0D0*(I-2)/(N_LEVELS-1))
1568:         Y2 = Y_POS(1.0D0*(I-1)/(N_LEVELS-1))1566:         Y2 = Y_POS(1.0D0*(I-1)/(N_LEVELS-1))
1569:         DO J = 1, NODES(I)1567:         DO J = 1, NODES(I)
1570:            K = ORDER(I, J)1568:            K = ORDER(I, J)
1571:            X1 = (COL_0(I-1, PARENT(I,K)) + NODE_SIZE(I-1, PARENT(I,K))/2.0 - 1.0) / N_COLS1569:            X1 = (COL_0(I-1, PARENT(I,K)) + NODE_SIZE(I-1, PARENT(I,K))/2.0 - 1.0) / N_COLS
1618:                    IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red1616:                    IF (MARKNODE(I,K) ==1)  WRITE (20, '(A)') '1 0 0  setrgbcolor' !red
1619:                    IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green1617:                    IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '0 1 0 setrgbcolor'  !green
1620:                    IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue1618:                    IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '0 0 1 setrgbcolor'  !blue
1621:                    IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magneta1619:                    IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '1 0 1 setrgbcolor' !magneta
1622:                    IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange1620:                    IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor' !orange
1623:                    IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor' !scarlet1621:                    IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '1.0 0.2 0.2 setrgbcolor' !scarlet
1624:                    IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black1622:                    IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 0 0 setrgbcolor'    !black
1625:                    IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  1623:                    IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '1 0.5 1 setrgbcolor'  
1626:                    IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  1624:                    IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '1 0 0.5 setrgbcolor'  
1627:                    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'1625:                    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'
 1626:                    WRITE (20, '(A)') '0 0 0 setrgbcolor'
1628:                  ENDIF1627:                  ENDIF
1629:               ELSE IF (TRVALT) THEN ! otherwise DPMARKNODE is not allocated1628:               ELSE IF (TRVALT) THEN ! otherwise DPMARKNODE is not allocated
1630:                  IF (DPMARKNODE(I,K).GE.0.0D0) THEN1629:                  IF (DPMARKNODE(I,K).GE.0.0D0) THEN
1631:                     R2=(CSHIFT+DPMARKNODE(I,K)*CSCALE)*3.0D01630:                     R2=(CSHIFT+DPMARKNODE(I,K)*CSCALE)*3.0D0
1632:                     IF (R2.GT.3.0D0) THEN1631:                     IF (R2.GT.3.0D0) THEN
1633:                        WRITE(6,*) 'WARNING: value of DPMARKNODE is ',DPMARKNODE(I,K),' for ',i,k1632:                        WRITE(6,*) 'WARNING: value of DPMARKNODE is ',DPMARKNODE(I,K),' for ',i,k
1634:                        R2=3.0D01633:                        R2=3.0D0
1635:                     END IF1634:                     END IF
1636:                      IF (R2.LT.1.0d0.AND.R2.GE.0.0d0)  WRITE (20, '(2F7.4,A)') (2.67d0-R2)/2.67D0 ,R2/2.0D0, ' 0  setrgbcolor'1635:                      IF (R2.LT.1.0d0.AND.R2.GE.0.0d0)  WRITE (20, '(2F7.4,A)') (2.67d0-R2)/2.67D0 ,R2/2.0D0, ' 0  setrgbcolor'
1637:                      IF (R2.LT.1.5d0.AND.R2.GE.1.0d0)  WRITE (20, '(F7.4,A)')  0.625D0-(R2-1.0D0)*1.25D0, ' 0.50  0  setrgbcolor' 1636:                      IF (R2.LT.1.5d0.AND.R2.GE.1.0d0)  WRITE (20, '(F7.4,A)')  0.625D0-(R2-1.0D0)*1.25D0, ' 0.50  0  setrgbcolor' 
1638:                      IF (R2.LT.2.0d0.AND.R2.GE.1.5d0)  WRITE (20, '(A,F7.4,A)') '0 0.5 ',0.625D0+(R2-2.0d0)*1.25D0,'  setrgbcolor'1637:                      IF (R2.LT.2.0d0.AND.R2.GE.1.5d0)  WRITE (20, '(A,F7.4,A)') '0 0.5 ',0.625D0+(R2-2.0d0)*1.25D0,'  setrgbcolor'
1639:                      IF (R2.LE.3.0d0.AND.R2.GE.2.0d0)  &1638:                      IF (R2.LE.3.0d0.AND.R2.GE.2.0d0)  &
1640:     &         WRITE (20, '(A,2F7.4,A)') '0 ',(3.0d0-R2)/2.0D0, ((2.0D0-R2)-1.67d0)/(-2.67D0), '  setrgbcolor'            1639:     &         WRITE (20, '(A,2F7.4,A)') '0 ',(3.0d0-R2)/2.0D0, ((2.0D0-R2)-1.67d0)/(-2.67D0), '  setrgbcolor'            
1641: !                    IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'1640: !                    IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
1642: !                    IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 1641: !                    IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
1643: !                    IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'1642: !                    IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
1644: !                    IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'1643: !                    IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
1645: !                    IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'1644: !                    IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
1646: !                    IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'1645: !                    IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
1647:                     WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'1646:                     WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'
 1647:                     WRITE (20, '(A)') '0 0 0 setrgbcolor'
1648:                  ENDIF1648:                  ENDIF
1649:               ENDIF1649:               ENDIF
1650:            ELSE1650:            ELSE
1651: 1651: 
1652:               IF (TRMINT) THEN1652:               IF (TRMINT) THEN
1653:                  IF (MARKNODE(I,K).GT.0) THEN1653:                  IF (MARKNODE(I,K).GT.0) THEN
1654: 1654: 
1655: !   COLOURMARKER - This is where the colours are specified for nodes.1655: !   COLOURMARKER - This is where the colours are specified for nodes.
1656: !   To choose your own colours, comment the following section and use the 1656: !   To choose your own colours, comment the following section and use the 
1657: !   IF (MARKNODE(I,K) ==#) statements below, where # is the section number.1657: !   IF (MARKNODE(I,K) ==#) statements below, where # is the section number.
1678: !                   IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor'1678: !                   IF (MARKNODE(I,K) ==2)  WRITE (20, '(A)') '1 0.5 0 setrgbcolor'
1679: !                   IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '1 1 0 setrgbcolor'1679: !                   IF (MARKNODE(I,K) ==3)  WRITE (20, '(A)') '1 1 0 setrgbcolor'
1680: !                   IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '0.5 1 0 setrgbcolor'1680: !                   IF (MARKNODE(I,K) ==4)  WRITE (20, '(A)') '0.5 1 0 setrgbcolor'
1681: !                   IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '0 1 0 setrgbcolor'1681: !                   IF (MARKNODE(I,K) ==5)  WRITE (20, '(A)') '0 1 0 setrgbcolor'
1682: !                   IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '0 1 0.5 setrgbcolor'1682: !                   IF (MARKNODE(I,K) ==6)  WRITE (20, '(A)') '0 1 0.5 setrgbcolor'
1683: !                   IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 1 1 setrgbcolor'1683: !                   IF (MARKNODE(I,K) ==7)  WRITE (20, '(A)') '0 1 1 setrgbcolor'
1684: !                   IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '0 0.5 1 setrgbcolor'1684: !                   IF (MARKNODE(I,K) ==8)  WRITE (20, '(A)') '0 0.5 1 setrgbcolor'
1685: !                   IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '0 0 1 setrgbcolor'1685: !                   IF (MARKNODE(I,K) ==9)  WRITE (20, '(A)') '0 0 1 setrgbcolor'
1686: !                   IF (MARKNODE(I,K) ==10)  WRITE (20, '(A)') '0.5 0 1 setrgbcolor'1686: !                   IF (MARKNODE(I,K) ==10)  WRITE (20, '(A)') '0.5 0 1 setrgbcolor'
1687:                     WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'1687:                     WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'
 1688:                     WRITE (20, '(A)') '0 0 0 setrgbcolor'
1688:                  ENDIF1689:                  ENDIF
1689:               ELSE IF (TRVALT) THEN1690:               ELSE IF (TRVALT) THEN
1690:                  IF (DPMARKNODE(I,K).GE.0.0D0) THEN1691:                  IF (DPMARKNODE(I,K).GE.0.0D0) THEN
1691:                      R2=(CSHIFT+DPMARKNODE(I,K)*CSCALE)*3.0D01692:                      R2=(CSHIFT+DPMARKNODE(I,K)*CSCALE)*3.0D0
1692:                      IF (R2.GT.3.0D0) THEN1693:                      IF (R2.GT.3.0D0) THEN
1693:                         WRITE(6,*) 'WARNING: value of DPMARKNODE is ',DPMARKNODE(I,K),' for ',i,k1694:                         WRITE(6,*) 'WARNING: value of DPMARKNODE is ',DPMARKNODE(I,K),' for ',i,k
1694:                         R2=3.0D01695:                         R2=3.0D0
1695:                      END IF1696:                      END IF
1696:                      IF (R2.LT.1.0d0.AND.R2.GE.0.0d0)  WRITE (20, '(2F7.4,A)') (2.67d0-R2)/2.67D0 ,R2/2.0D0, ' 0  setrgbcolor'1697:                      IF (R2.LT.1.0d0.AND.R2.GE.0.0d0)  WRITE (20, '(2F7.4,A)') (2.67d0-R2)/2.67D0 ,R2/2.0D0, ' 0  setrgbcolor'
1697:                      IF (R2.LT.1.5d0.AND.R2.GE.1.0d0)  WRITE (20, '(F7.4,A)')  0.625D0-(R2-1.0D0)*1.25D0, ' 0.50  0  setrgbcolor' 1698:                      IF (R2.LT.1.5d0.AND.R2.GE.1.0d0)  WRITE (20, '(F7.4,A)')  0.625D0-(R2-1.0D0)*1.25D0, ' 0.50  0  setrgbcolor' 
1703: !                    IF (R2.LT.2.0d0.AND.R2.GE.1.0d0)  WRITE (20, '(F6.4,A)')  2.0d0-R2,' 1 0  setrgbcolor' 1704: !                    IF (R2.LT.2.0d0.AND.R2.GE.1.0d0)  WRITE (20, '(F6.4,A)')  2.0d0-R2,' 1 0  setrgbcolor' 
1704: !                    IF (R2.LT.3.0d0.AND.R2.GE.2.0d0)  WRITE (20, '(A,F6.4,A)') '0 1 ',R2-2.0d0,'  setrgbcolor'1705: !                    IF (R2.LT.3.0d0.AND.R2.GE.2.0d0)  WRITE (20, '(A,F6.4,A)') '0 1 ',R2-2.0d0,'  setrgbcolor'
1705: !                    IF (R2.LE.4.0d0.AND.R2.GE.3.0d0)  WRITE (20, '(A,F6.4,A)') '0 ',4.0d0-R2,' 1  setrgbcolor'1706: !                    IF (R2.LE.4.0d0.AND.R2.GE.3.0d0)  WRITE (20, '(A,F6.4,A)') '0 ',4.0d0-R2,' 1  setrgbcolor'
1706: !                    IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'1707: !                    IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
1707: !                    IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 1708: !                    IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
1708: !                    IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'1709: !                    IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
1709: !                    IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'1710: !                    IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
1710: !                    IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'1711: !                    IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
1711: !                    IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'1712: !                    IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
1712:                      WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'1713:                      WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'
 1714:                      WRITE (20, '(A)') '0 0 0 setrgbcolor'
1713:                  ENDIF1715:                  ENDIF
1714:               ENDIF1716:               ENDIF
1715:            ENDIF1717:            ENDIF
1716:         ENDDO1718:         ENDDO
1717:      ENDDO1719:      ENDDO
1718:    ENDIF1720:    ENDIF
1719:    IF (IDENTIFY) THEN1721:    IF (IDENTIFY) THEN
1720:       WRITE (20, '(A)') '1 0 0 setrgbcolor'1722:       WRITE (20, '(A)') '1 0 0 setrgbcolor'
1721:       WRITE (20, '(A, I2, A)') &1723:       WRITE (20, '(A, I2, A)') &
1722:          & '/Times-Roman findfont ', LABEL_SIZE, ' scalefont setfont'1724:          & '/Times-Roman findfont ', LABEL_SIZE, ' scalefont setfont'


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0