~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to examples/f95/x07f.f90

• browse files at revision 4
• compare with another revision
• download diff
• download tarball
• view history from revision 4

Show diffs side-by-side

added

removed

examples/f95/x07f.f90

 

1

!      $Id: x07f.f90,v 1.1 2006/05/16 20:24:12 airwin Exp $

 

2

!      Displays the plotter symbols for PLSYM

 

3

!

 

4

!      Copyright (C) 2004  Alan W. Irwin

 

5

!

 

6

!      This file is part of PLplot.

 

7

!

 

8

!      PLplot is free software; you can redistribute it and/or modify

 

9

!      it under the terms of the GNU General Library Public License as

 

10

!      published by the Free Software Foundation; either version 2 of the

 

11

!      License, or (at your option) any later version.

 

12

!

 

13

!      PLplot is distributed in the hope that it will be useful,

 

14

!      but WITHOUT ANY WARRANTY; without even the implied warranty of

 

15

!      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 

16

!      GNU Library General Public License for more details.

 

17

!

 

18

!      You should have received a copy of the GNU Library General Public

 

19

!      License along with PLplot; if not, write to the Free Software

 

20

!      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA

 

21

 

 

22

      use plplot

 

23

      implicit none

 

24

 

 

25

      character*4 text

 

26

 

 

27

      integer i, j, k, l, base(17)

 

28

      data base /   0, 200, 500, 600, 700, 800, 900, &

 

29

        2000,2100,2200,2300,2400,2500,2600, &

 

30

        2700,2800,2900 /

 

31

      real(kind=plflt), dimension(1:1) ::  x, y

 

32

!      Process command-line arguments

 

33

      call plparseopts(PL_PARSE_FULL)

 

34

 

 

35

!      Full sized page for display

 

36

 

 

37

      call plinit()

 

38

      call plfontld(1)

 

39

      do l=1,17

 

40

        call pladv(0)

 

41

 

 

42

        call plcol0(2)

 

43

 

 

44

!        Set up viewport and window

 

45

 

 

46

        call plvpor(0.15_plflt, 0.95_plflt, 0.1_plflt, 0.9_plflt)

 

47

        call plwind(0.0_plflt, 1.0_plflt, 0.0_plflt, 1.0_plflt)

 

48

 

 

49

!        Draw the grid using plbox

 

50

 

 

51

        call plbox('bcg', 0.1_plflt, 0,'bcg', 0.1_plflt, 0)

 

52

        call plcol0(15)

 

53

 

 

54

!        Write the digits below the frame

 

55

 

 

56

        do  i=0,9

 

57

          write (text,'(i1)') i

 

58

          call plmtex('b', 1.5_plflt, (0.1_plflt*i+0.05_plflt), &

 

59

                      0.5_plflt, text)

 

60

        enddo

 

61

        k=0

 

62

        do i=0,9

 

63

 

 

64

!          Write the digits to the left of the frame

 

65

 

 

66

          write (text,'(i4)') base(l)+10*i

 

67

          call plmtex('lv', 1.0_plflt, (0.95_plflt-0.1_plflt*i), &

 

68

            1.0_plflt, text)

 

69

          do j=0,9

 

70

            x=0.1_plflt*j+0.05_plflt

 

71

            y=0.95_plflt-0.1_plflt*i

 

72

 

 

73

!            Display the symbols

 

74

 

 

75

            call plsym(x,y,base(l)+k)

 

76

            k=k+1

 

77

          enddo

 

78

        enddo

 

79

 

 

80

        call plmtex('t', 1.5_plflt, 0.5_plflt, 0.5_plflt, &

 

81

          'PLplot Example 7 - PLSYM symbols')

 

82

      enddo

 

83

      call plend

 

84

      end

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1