[Plplot-general] Trying plplot

[Walt B. <wal...@gm...>]

program ft_x00f

! This is a modified version of x00f.f90
! which was written by Alan Irwin

   use plplot
   implicit none

   integer, parameter :: NSIZE = 100

   real(kind=plflt), dimension(0:NSIZE) :: x, y

   real(kind=plflt) :: xmin =   0.0_plflt, &
                       xmax =   1.0_plflt, &
                       ymin =   0.0_plflt, &
                       ymax = 100.0_plflt
   integer :: i

   ! Prepare data to be plotted.
   ! x = .00, .01, .02, ..., .99, 1.00
   x = [(i, i=0,NSIZE)] / real(NSIZE)
   y = ymax * x**2

   ! Parse and process command line arguments
   call plparseopts( PL_PARSE_FULL )

   ! Initialize plplot
   call plinit( )

   ! Create a labelled box to hold the plot.
   call plenv( xmin, xmax, ymin, ymax, just=0, axis=0 )
   call pllab( "x", "y=100 x#u2#d", &
               "Simple PLplot demo of a 2D line plot" )

   ! Plot the data that was prepared above.
   call plline( x, y )

   ! Close PLplot library
   call plend( )

end program ft_x00f