/* @(#)std.fc 17.1.1.1 (ESO-DMD) 01/25/02 17:34:08 */ /*=========================================================================== 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 Massachusetts Ave, Cambridge, MA 02139, USA. Correspondence 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 ===========================================================================*/ /*++++++++++++++++++++++++ STD.FC +++++++++++++++++++++++++++++++++++++++ .LANGUAGE C .IDENTIFICATION Module STD.FC .COMMENTS Module contains layer between the descriptor related FORTRAN STxxxx interfaces and the SC_interfaces written in (hopefully independent) C .AUTHOR K. Banse ESO - Garching .KEYWORDS standard interfaces. .ENVIRONMENT FORTRAN and C standards .VERSION [1.00] 871207: created from SXFTOC.C 011129 last modif -----------------------------------------------------------------------------*/ #include #include SUBROUTINE STDRDC(no,descr,noelm,felem,maxvals,actvals,values,dunit,dnull,status) fint2c *no; /* IN : no. of data frame */ CHARACTER descr; /* IN : descriptor name */ fint2c *noelm; /* IN : no. of "elements" in type, i.e. CHAR*noelm */ fint2c *felem; /* IN : position of 1st element to be accessed */ fint2c *maxvals; /* IN : max. no. of values to be returned */ fint2c *actvals; /* OUT: actual no. of values returned */ CHARACTER values; /* OUT: array for descriptor data */ fint2c *dunit; /* OUT: address of unit pointer */ fint2c *dnull; /* OUT: no. of null values, will be applied, if not -1*/ fint2c *status; { *status = SCDRDC(*no,STRIPPED_STRING(descr),*noelm,*felem, *maxvals,actvals,CHAR_LOC(values),dunit,dnull); } SUBROUTINE STDRDD(no,descr,felem,maxvals,actvals,values,dunit,dnull,status) fint2c *no; /* IN : no. of data frame */ CHARACTER descr; /* IN : descriptor name */ fint2c *felem; /* IN : position of 1st element to be accessed */ fint2c *maxvals; /* IN : max. no. of values to be returned */ fint2c *actvals; /* OUT: actual no. of values returned */ double *values; /* OUT: array of type 'type' buffer for descrip. data */ fint2c *dunit; /* OUT: address of unit pointer */ fint2c *dnull; /* OUT: no. of null values, will be applied, if not -1*/ fint2c *status; { *status = SCDRDD(*no,STRIPPED_STRING(descr),*felem, *maxvals,actvals,values,dunit,dnull); } SUBROUTINE STDRDH(no,descr,felem,maxvals,actvals,values,total,status) fint2c *no; /* IN : no. of data frame */ CHARACTER descr; /* IN : descriptor name */ fint2c *felem; /* IN : position of 1st element to be accessed */ fint2c *maxvals; /* IN : max. no. of values to be returned */ fint2c *actvals; /* OUT: actual no. of values returned */ CHARACTER values; /* OUT: array for descriptor data */ fint2c *total; /* OUT: total size of help text*/ fint2c *status; { *status = SCDRDH(*no,STRIPPED_STRING(descr),*felem, *maxvals,actvals,CHAR_LOC(values),total); } SUBROUTINE STDRDI(no,descr,felem,maxvals,actvals,values,dunit,dnull,status) fint2c *no; /* IN : no. of data frame */ CHARACTER descr; /* IN : descriptor name */ fint2c *felem; /* IN : position of 1st element to be accessed */ fint2c *maxvals; /* IN : max. no. of values to be returned */ fint2c *actvals; /* OUT: actual no. of values returned */ fint2c *values; /* OUT: array of type 'type' buffer for descrip. data */ fint2c *dunit; /* OUT: address of unit pointer */ fint2c *dnull; /* OUT: no. of null values, will be applied, if not -1*/ fint2c *status; { *status = SCDRDI(*no,STRIPPED_STRING(descr),*felem, *maxvals,actvals,values,dunit,dnull); } SUBROUTINE STDRDR(no,descr,felem,maxvals,actvals,values,dunit,dnull,status) fint2c *no; /* IN : no. of data frame */ CHARACTER descr; /* IN : descriptor name */ fint2c *felem; /* IN : position of 1st element to be accessed */ fint2c *maxvals; /* IN : max. no. of values to be returned */ fint2c *actvals; /* OUT: actual no. of values returned */ float *values; /* OUT: array of type 'type' buffer for descrip. data */ fint2c *dunit; /* OUT: address of unit pointer */ fint2c *dnull; /* OUT: no. of null values, will be applied, if not -1*/ fint2c *status; { *status = SCDRDR(*no,STRIPPED_STRING(descr),*felem, *maxvals,actvals,values,dunit,dnull); } SUBROUTINE STDRDL(no,descr,felem,maxvals,actvals,values,dunit,dnull,status) fint2c *no; /* IN : no. of data frame */ CHARACTER descr; /* IN : descriptor name */ fint2c *felem; /* IN : position of 1st element to be accessed */ fint2c *maxvals; /* IN : max. no. of values to be returned */ fint2c *actvals; /* OUT: actual no. of values returned */ fint2c *values; /* OUT: array of type 'type' buffer for descrip. data */ fint2c *dunit; /* OUT: address of unit pointer */ fint2c *dnull; /* OUT: no. of null values, will be applied, if not -1*/ fint2c *status; { *status = SCDRDL(*no,STRIPPED_STRING(descr),*felem, *maxvals,actvals,values,dunit,dnull); } SUBROUTINE STDRDZ(no,dirsize,direlem,status) fint2c *no; /* IN : no. of data frame */ fint2c *dirsize; /* OUT : no. of chars used by descr-directory */ fint2c *direlem; /* OUT : no. of descr. (incl directory) */ fint2c *status; { *status = SCDRDZ(*no,dirsize,direlem); }