This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / j / paper.F
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)
11 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
12 C   PURPOSE                                                            C
13 C     TO DEFINE HOW LARGE PICTURES SHALL BE PRODUCED BY SUBSEQUENT     C
14 C     CALLS TO THE SUBROUTINE CONT.                                    C
15 C   USAGE                                                              C
16 C     CALL PAPER(IMAGEW,IMAGEH)                                        C
17 C   PARAMETERS                                                         C
18 C     IMAGEW - THE IMAGE WIDTH IN NUMBER OF LETTERS ON A LINE          C
19 C     IMAGEH - THE IMAGE HEIGT IN NUMBER OF LINES                      C
20 C   REMARKS                                                            C
21 C     IMAGEW AND IMAGEH SHOULD NOT EXEED CERTAIN MACHINE-DEPENDANT     C
22 C     LIMITS,  USUALLY 120 AND 62, RESPECTIVELY.
23 C
24       COMMON /J509C1/XBL,YBL,XUR,YUR,NX(6),NY(6),LETT1,LETT2,LINE1,LINE2
25 C
26       CALL J509BD
27       LETT2 = IMAGEW - 1
28       LINE2 = IMAGEH - 3
29       IF (LETT2 .GT. 119)  LETT2 = 119
30       RETURN
31       END