1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
*=======================================================================
* PGSBOX 8.4
*-----------------------------------------------------------------------
*
* ATTENTION!
* ----------
*
* PGCRVL is defunct.
*
* Do not use this routine - use PGSBOX instead.
* ---------------------------------------------
*
* What remains here is a driver for the more general PGSBOX routine
* which is not based on pixel coordinates.
*
* This residue of PGCRVL exists mainly for backwards compatibility.
* PGCRVL's old AXEN argument is here translated into the BLC and TRC
* arguments required by PGSBOX.
*
* New applications should use PGSBOX directly.
*
* Author: Mark Calabretta, Australia Telescope National Facility, CSIRO.
* http://www.atnf.csiro.au/people/Mark.Calabretta
* $Id: pgcrvl.f,v 8.4 2024/10/28 13:56:18 mcalabre Exp $
*=======================================================================
SUBROUTINE PGCRVL (AXEN, IDENTS, OPT, LABCTL, LABDEN, CI, GCODE,
: TIKLEN, NG1, GRID1, NG2, GRID2, DOEQ, NLFUNC, NLC, NLI, NLD,
: NLCPRM, NLIPRM, NLDPRM, NC, IC, CACHE, IERR)
*-----------------------------------------------------------------------
LOGICAL DOEQ
INTEGER AXEN(2), CI(7), GCODE(2), IC, IERR, LABCTL, LABDEN, NC,
: NG1, NG2, NLC, NLD, NLI, NLIPRM(NLI)
REAL BLC(2), TRC(2)
DOUBLE PRECISION CACHE(4,0:NC), GRID1(0:NG1), GRID2(0:NG2),
: NLDPRM(NLD), TIKLEN
CHARACTER IDENTS(3)*(*), NLCPRM(NLC)*1, OPT(2)*(*)
EXTERNAL NLFUNC
*-----------------------------------------------------------------------
BLC(1) = 0.5
BLC(2) = 0.5
TRC(1) = AXEN(1) + 0.5
TRC(2) = AXEN(2) + 0.5
CALL PGSBOX (BLC, TRC, IDENTS, OPT, LABCTL, LABDEN, CI, GCODE,
: TIKLEN, NG1, GRID1, NG2, GRID2, DOEQ, NLFUNC, NLC, NLI, NLD,
: NLCPRM, NLIPRM, NLDPRM, NC, IC, CACHE, IERR)
RETURN
END
|
