home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / pgplot_1 / Examples / f77 / PGDEMO12 < prev    next >
Text File  |  1996-05-14  |  1KB  |  38 lines
  1.       PROGRAM PGDE12
  2. C-----------------------------------------------------------------------
  3. C Demonstration program for PGPLOT: use of PGPAP to change the
  4. C size of the view surface.
  5. C
  6. C
  7. C Note that PGPAP must be called either immediately after PGOPEN or
  8. C immediately before PGPAGE, and it affects all subsequent pages until
  9. C the next call to PGPAP. (In the following code, PGENV calls PGPAGE.)
  10. C-----------------------------------------------------------------------
  11.       INTEGER PGOPEN
  12.  
  13.       WRITE (*,*) 'Demonstration of routine PGPAP to change the size of'
  14.       WRITE (*,*) 'the view surface'
  15.       WRITE (*,*)
  16.  
  17.       IF (PGOPEN('?') .LE. 0) STOP
  18.  
  19.       WRITE (*,*) 'First page: size is 7 x 3.5 inch'
  20.  
  21.       CALL PGPAP(7.0,0.5)
  22.       CALL PGENV(0.0,1.0,0.0,2.0,0,0)
  23.       CALL PGLAB('x','y','1')
  24.  
  25.       WRITE (*,*) 'Second page: size to 6 x 6 inch'
  26.  
  27.       CALL PGPAP(6.0,1.0)
  28.       CALL PGENV(0.0,1.0,0.0,2.0,0,0)
  29.       CALL PGLAB('x','y','2')
  30.  
  31.       WRITE (*,*) 'Third page: same size as second'
  32.  
  33.       CALL PGENV(0.0,1.0,0.0,2.0,0,0)
  34.       CALL PGLAB('x','y','3')
  35.  
  36.       CALL PGCLOS
  37.       END
  38.