/* @(#)iir.fc 17.1.1.1 (ES0-DMD) 01/25/02 17:34:16 */ /*=========================================================================== Copyright (C) 1995 European Southern Observatory (ESO) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, MA 02139, USA. Corresponding concerning ESO-MIDAS should be addressed as follows: Internet e-mail: midas@eso.org Postal address: European Southern Observatory Data Management Division Karl-Schwarzschild-Strasse 2 D 85748 Garching bei Muenchen GERMANY ===========================================================================*/ #include ROUTINE IIRINR(dsplay,chan,colour,xa,ya,xb,yb,roid,idst) fint2c *dsplay; fint2c *chan; fint2c *colour; fint2c *xa; fint2c *ya; fint2c *xb; fint2c *yb; fint2c *roid; fint2c *idst; { *idst = IIRINR_C(*dsplay,*chan,*colour,*xa,*ya,*xb,*yb,roid); } ROUTINE IIRRRI(dsplay,chan,roid,xa,ya,xb,yb,memo,idst) fint2c *dsplay; fint2c *chan; fint2c *roid; fint2c *xa; fint2c *ya; fint2c *xb; fint2c *yb; fint2c *memo; fint2c *idst; { *idst = IIRRRI_C(*dsplay,*chan,*roid,xa,ya,xb,yb,memo); } ROUTINE IIRWRI(dsplay,chan,roid,xa,ya,xb,yb,idst) fint2c *dsplay; fint2c *chan; fint2c *roid; fint2c *xa; fint2c *ya; fint2c *xb; fint2c *yb; fint2c *idst; { *idst = IIRWRI_C(*dsplay,*chan,*roid,*xa,*ya,*xb,*yb); } ROUTINE IIRSRV(dsplay,roid,vis,idst) fint2c *dsplay; fint2c *roid; fint2c *vis; fint2c *idst; { *idst = IIRSRV_C(*dsplay,*roid,*vis); } ROUTINE IICINR(dsplay,chan,colour,xc,yc,rad1,rad2,rad3,roid,idst) fint2c *dsplay; fint2c *chan; fint2c *colour; fint2c *xc; fint2c *yc; fint2c *rad1; fint2c *rad2; fint2c *rad3; fint2c *roid; fint2c *idst; { *idst = IICINR_C(*dsplay,*chan,*colour,*xc,*yc,*rad1,*rad2,*rad3,roid); } ROUTINE IICRRI(dsplay,chan,roid,xc,yc,rad1,rad2,rad3,memo,idst) fint2c *dsplay; fint2c *chan; fint2c *roid; fint2c *xc; fint2c *yc; fint2c *rad1; fint2c *rad2; fint2c *rad3; fint2c *memo; fint2c *idst; { *idst = IICRRI_C(*dsplay,*chan,*roid,xc,yc,rad1,rad2,rad3,memo); } ROUTINE IICWRI(dsplay,chan,roid,xc,yc,rad1,rad2,rad3,idst) fint2c *dsplay; fint2c *chan; fint2c *roid; fint2c *xc; fint2c *yc; fint2c *rad1; fint2c *rad2; fint2c *rad3; fint2c *idst; { *idst = IICWRI_C(*dsplay,*chan,*roid,*xc,*yc,*rad1,*rad2,*rad3); }