/* @(#)zmstat.fc 17.1.1.1 (ES0-DMD) 01/25/02 17:40:37 */ /*=========================================================================== 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 ===========================================================================*/ /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Fortran -> C conversion routine for ZMSTAT ------------------------------------------------------------------------*/ #include #include SUBROUTINE NSORT(array,size,nmed,fmedian) float *array; fint2c *size; fint2c *nmed; float *fmedian; { array --; (void) Newsort(array,*size,*nmed,fmedian); } SUBROUTINE ZMSTAT(imno,area,naxpix,start,step,rbins,formstr,defaul) fint2c *imno; CHARACTER area; fint2c *naxpix; double *start; double *step; float *rbins; CHARACTER formstr; CHARACTER defaul; { (void) Zstats(*imno,STRIPPED_STRING(area),naxpix,rbins, STRIPPED_STRING(formstr),STRIPPED_STRING(defaul)); }