| |
| | [No title] |
 | | character (len = 80) file_name integer i integer ierror integer iunit integer nx integer ny real pi real x(n) real xmax real xmaxg real xmin real xming real y(n) real ymax real ymaxg real ymin real yming ! |
 | | xmin = 0.0E+00 ymin = 0.0E+00 xmax = 4.0E+00 * pi () ymax = +1.0E+00 call ps_page_head (xmin, ymin, xmax, ymax) xming = xmin xmaxg = xmax nx = 21 yming = -1.0E+00 ymaxg = +1.0E+00 ny = 5 call ps_grid_cartesian (xming, xmaxg, nx, yming, ymaxg, ny) call ps_page_tail ! |
 | | xming = xmin xmaxg = xmax nx = 21 yming = ymin ymaxg = ymax ny = 11 call ps_grid_cartesian (xming, xmaxg, nx, yming, ymaxg, ny) call ps_page_tail call ps_file_tail call ps_file_close (iunit) write (*, '(a)') ' ' write (*, '(a)') ' Normal end of TEST04' return end subroutine test05 ! |
| orion.math.iastate.edu /burkardt/g_src/ps_write/ps_write_prb.f90 (1222 words) |
|