hdiff output

r22716/disconnectionDPS.f90 2016-03-16 18:37:12.289309724 +0000 r22715/disconnectionDPS.f90 2016-03-16 18:37:12.517312067 +0000
1340:   &         WRITE (20, '(A,2F7.4,A)') '0 ',(3.0d0-R2)/2.0D0, ((2.0D0-R2)-1.67d0)/(-2.67D0), '  setrgbcolor'            1340:   &         WRITE (20, '(A,2F7.4,A)') '0 ',(3.0d0-R2)/2.0D0, ((2.0D0-R2)-1.67d0)/(-2.67D0), '  setrgbcolor'            
1341: !                  IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'1341: !                  IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
1342: !                  IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 1342: !                  IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
1343: !                  IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'1343: !                  IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
1344: !                  IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'1344: !                  IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
1345: !                  IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'1345: !                  IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
1346: !                  IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'1346: !                  IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
1347:                   WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'1347:                   WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'
1348:                   WRITE (20, '(A)') '0 0 0 setrgbcolor'1348:                   WRITE (20, '(A)') '0 0 0 setrgbcolor'
1349:                ELSE1349:                ELSE
1350:                   WRITE(6,*) 'WARNING: value of DPMARKNODE is ',DPMARKNODE(I,K),' for ',i,k1350:                  WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'
1351:                   WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls' 
1352:                ENDIF1351:                ENDIF
1353:             ELSE1352:             ELSE
1354:                WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'1353:                WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x3, y3, ' ls'
1355:             ENDIF1354:             ENDIF
1356:          ELSE1355:          ELSE
1357: 1356: 
1358:             IF (TRMINT) THEN1357:             IF (TRMINT) THEN
1359:                IF (MARKNODE(I,K).GT.0) THEN1358:                IF (MARKNODE(I,K).GT.0) THEN
1360: 1359: 
1361: ! COLOURMARKER - This is where the colours are specified for nodes.1360: ! COLOURMARKER - This is where the colours are specified for nodes.
1409: !                  IF (R2.LE.4.0d0.AND.R2.GE.3.0d0)  WRITE (20, '(A,F6.4,A)') '0 ',4.0d0-R2,' 1  setrgbcolor'1408: !                  IF (R2.LE.4.0d0.AND.R2.GE.3.0d0)  WRITE (20, '(A,F6.4,A)') '0 ',4.0d0-R2,' 1  setrgbcolor'
1410: !                  IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'1409: !                  IF (R2.LE.1.AND.R2.GE.0)  WRITE (20, '(A,F6.4,A)') '1 0 ',(1-R2)/2,'  setrgbcolor'
1411: !                  IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 1410: !                  IF (R2.LE.3.AND.R2.GT.1)  WRITE (20, '(A,F6.4,A)') '1 ',(R2-1)/2,' 0  setrgbcolor' 
1412: !                  IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'1411: !                  IF (R2.LE.5.AND.R2.GT.3)  WRITE (20, '(F6.4,A)') (5-R2)/2,' 1 0  setrgbcolor'
1413: !                  IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'1412: !                  IF (R2.LE.7.AND.R2.GT.5)  WRITE (20, '(A,F6.4,A)') '0 1 ',(R2-5)/2  ,'  setrgbcolor'
1414: !                  IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'1413: !                  IF (R2.LE.9.AND.R2.GT.7)  WRITE (20, '(A,F6.4,A)') '0 ',(9-R2)/2 ,' 1  setrgbcolor'
1415: !                  IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'1414: !                  IF (R2.LE.10.AND.R2.GT.9)  WRITE (20, '(F6.4,A)') (R2-9)/2 ,' 0 1  setrgbcolor'
1416:                    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'1415:                    WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'
1417:                    WRITE (20, '(A)') '0 0 0 setrgbcolor'1416:                    WRITE (20, '(A)') '0 0 0 setrgbcolor'
1418:                ELSE1417:                ELSE
1419:                   WRITE(6,*) 'WARNING: value of DPMARKNODE is ',DPMARKNODE(I,K),' for ',i,k 
1420:                   WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'1418:                   WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'
1421:                ENDIF1419:                ENDIF
1422:             ELSE1420:             ELSE
1423:                WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'1421:                WRITE (20, '(2F7.2, A, 2F7.2, A)') x1, y1, ' mt ', x2, y2, ' ls'
1424:             ENDIF1422:             ENDIF
1425:          ENDIF1423:          ENDIF
1426: 1234  ENDDO1424: 1234  ENDDO
1427:    ENDDO1425:    ENDDO
1428:    write(*,*) nn1426:    write(*,*) nn
1429: 1427: 
1580:      & '1.0 swidth 1.5 swidth lineto', &1578:      & '1.0 swidth 1.5 swidth lineto', &
1581:      & 'stroke', &1579:      & 'stroke', &
1582:      & '0.7 swidth 2.25 swidth moveto', &1580:      & '0.7 swidth 2.25 swidth moveto', &
1583:      & '1.0 swidth 2.25 swidth lineto', &1581:      & '1.0 swidth 2.25 swidth lineto', &
1584:      & 'stroke', &1582:      & 'stroke', &
1585:      & '%Numbers for scale', &1583:      & '%Numbers for scale', &
1586:      & '/Times-Roman findfont 12 scalefont setfont', &1584:      & '/Times-Roman findfont 12 scalefont setfont', &
1587:      & '0.0 swidth 3.40 swidth moveto', &1585:      & '0.0 swidth 3.40 swidth moveto', &
1588:      & '(Order Parameter) show', &1586:      & '(Order Parameter) show', &
1589:      & '/Times-Roman findfont 10 scalefont setfont'1587:      & '/Times-Roman findfont 10 scalefont setfont'
1590:       WRITE (20, '(4((A, /), (A2, F7.2, A, /)), (A, /), (A2, F7.2, A)) ') &1588:       WRITE (20, '(4((A, /), (A2, F7.2, A, /)), (A, /), (A1, F7.2, A)) ') &
1591:      & '1.2 swidth -0.04 swidth moveto', &1589:      & '1.2 swidth -0.04 swidth moveto', &
1592:      & '( ', TRMIN+0.00/CSCALE, ' ) show', &1590:      & '( ', TRMIN+0.00/CSCALE, ' ) show', &
1593:      & '1.2 swidth 0.71 swidth moveto', &1591:      & '1.2 swidth 0.71 swidth moveto', &
1594:      & '( ', TRMIN+0.25/CSCALE, ' ) show', &1592:      & '( ', TRMIN+0.25/CSCALE, ' ) show', &
1595:      & '1.2 swidth 1.46 swidth moveto', &1593:      & '1.2 swidth 1.46 swidth moveto', &
1596:      & '( ', TRMIN+0.50/CSCALE, ' ) show', &1594:      & '( ', TRMIN+0.50/CSCALE, ' ) show', &
1597:      & '1.2 swidth 2.21 swidth moveto', &1595:      & '1.2 swidth 2.21 swidth moveto', &
1598:      & '( ', TRMIN+0.75/CSCALE, ' ) show', &1596:      & '( ', TRMIN+0.75/CSCALE, ' ) show', &
1599:      & '1.2 swidth 2.96 swidth moveto', &1597:      & '1.3 swidth 2.90 swidth moveto', &
1600:      & '( ', TRMIN+1.00/CSCALE, ' ) show'1598:      & '( ', TRMIN+1.00/CSCALE, ' ) show'
1601:    END IF1599:    END IF
1602: 1600: 
1603:    WRITE (20, '(/, A)') 'showpage'1601:    WRITE (20, '(/, A)') 'showpage'
1604:    CLOSE (20)1602:    CLOSE (20)
1605:    WRITE (6, '(A, /)') 'Done.'1603:    WRITE (6, '(A, /)') 'Done.'
1606:    DEALLOCATE(DJWBASIN,TSEN)1604:    DEALLOCATE(DJWBASIN,TSEN)
1607: 1605: 
1608: !   CALL SYSTEM('ps2pdf tree.ps tree.pdf')1606: !   CALL SYSTEM('ps2pdf tree.ps tree.pdf')
1609: 1607: 


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0