This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / j / paper.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/04/01 15:02:51 mclareni
6* Mathlib gen
7*
8*
9#include "gen/pilot.h"
10 SUBROUTINE PAPER(IMAGEW,IMAGEH)
11CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
12C PURPOSE C
13C TO DEFINE HOW LARGE PICTURES SHALL BE PRODUCED BY SUBSEQUENT C
14C CALLS TO THE SUBROUTINE CONT. C
15C USAGE C
16C CALL PAPER(IMAGEW,IMAGEH) C
17C PARAMETERS C
18C IMAGEW - THE IMAGE WIDTH IN NUMBER OF LETTERS ON A LINE C
19C IMAGEH - THE IMAGE HEIGT IN NUMBER OF LINES C
20C REMARKS C
21C IMAGEW AND IMAGEH SHOULD NOT EXEED CERTAIN MACHINE-DEPENDANT C
22C LIMITS, USUALLY 120 AND 62, RESPECTIVELY.
23C
24 COMMON /J509C1/XBL,YBL,XUR,YUR,NX(6),NY(6),LETT1,LETT2,LINE1,LINE2
25C
26 CALL J509BD
27 LETT2 = IMAGEW - 1
28 LINE2 = IMAGEH - 3
29 IF (LETT2 .GT. 119) LETT2 = 119
30 RETURN
31 END