Function: INVMAT Purpose: INVMAT is a routine for inverting a matrix. ... Category: MATH File: invmat.shl Author: K.G. Begeman Use: INTEGER INVMAT( MATRIX , Input/Output REAL ARRAY MATDIM , Input INTEGER DECDIM ) Input INTEGER INVMAT Returns 0 on success, 1 when matrix cannot be inverted. ... MATDIM Actual size of matrix. ... DECDIM Size of MATRIX as declared in main program if MATRIX was declared as a two dimensional array. If MATRIX was declared one dimensional, DECDIM should be equal to MATDIM. ...
Function: GETDATE Purpose: Returns the current time and date as a text string. Category: UTILITY File: getdate.c Author: K.G. Begeman Use: CALL GETDATE( STRING ) Input CHARACTER*24 STRING Date and time in the form: WDY MON dd hh:mm:ss YEAR Updates: Apr 27, 1991: KGB Document created
from a specified level category : header file: gdsd_grxxx.c author: Do Kester do@guspace.rug.nl use: call gdsd_grchar( set_id, I character *(*) key , I character *(*) axes , I integer (n) grid , I integer (n) n, I integer value , O character *(*) error ) O integer set_id name to search the key in key gds_descriptor to search for axes list of defined axes ...
from a specified level category : header file: gdsd_grxxx.c author: Do Kester do@guspace.rug.nl use: call gdsd_grdble( set_id, I character *(*) key , I character *(*) axes , I integer (n) grid , I integer (n) n, I integer value , O double precision error ) O integer set_id name to search the key in key gds_descriptor to search for axes list of defined axes ...
from a specified level category : header file: gdsd_grxxx.c author: Do Kester do@guspace.rug.nl use: call gdsd_grint( set_id, I character *(*) key , I character *(*) axes , I integer (n) grid , I integer (n) n, I integer value , O integer error ) O integer set_id name to search the key in key gds_descriptor to search for axes list of defined axes ...
from a specified level category : header file: gdsd_grxxx.c author: Do Kester do@guspace.rug.nl use: call gdsd_grlog( set_id, I character *(*) key , I character *(*) axes , I integer (n) grid , I integer (n) n, I integer value , O logical error ) O integer set_id name to search the key in key gds_descriptor to search for axes list of defined axes axes which are not mentioned are undefined ...
from a specified level category : header file: gdsd_grxxx.c author: Do Kester do@guspace.rug.nl use: call gdsd_grreal( set_id, I character *(*) key , I character *(*) axes , I integer (n) grid , I integer (n) n, I integer value , O real error ) O integer set_id name to search the key in key gds_descriptor to search for axes list of defined axes axes which are not mentioned are undefined ...
Document: GDSD_GRXXX Purpose: Contains descriptor read routines. Category: HEADER File: gdsd_grxxx.c Author: D. Kester Description: Refer to separate documents. Current members are the modules gdsd_grint, gdsd_grreal, gdsd_grchar, gdsd_grlog and gdsd_grdble. Updates: Jul 15, 1991: KGB, Document created.
Name: GDS___CHECK Purpose: Condition checking and handling routine Author: J.P. Terlouw Use: CALL GDS___CHECK ( cond, code, error, exit ) cond = logical expression code = INTEGER variable, constant or expression error = INTEGER variable containing the error argument as declared exit = any of the following specifiers: *RETURN, *XWHILE, *XREPEAT, *XFOR or *procedurename Description: If 'error' < 0 , this routine calls GDS___ERROR with this value and does no further checking. ...
Document: gclib Purpose: Describes the available routines in the Gipsy C LIBrary. Category: UTILITY File: gclib.c Author: K.G. Begeman Description: The following useful C routines are available: int char2str( fchar c, char *s, int ls ) int str2char( char *s, fchar c ) fchar tofchar( char *s ) char *zadd( fchar ) Each routine has its own document! Updates: Apr 22, 1990: KGB, Document created.
... Category: FITS File: ftsd_type.c Author: K.G. Begeman Use: CHARACTER*(*) FTSD_TYPE( RECORD ) Input CHARACTER*80 FTSD_TYPE Returns: 'CHAR' : record contains characters 'INT ' : record contains integer 'LOG ' : record contains logical 'DBLE' : record contains double prec. float 'REAL' : record contains single prec. float ' ' : type could not be determined RECORD Contains FITS header record of 80 bytes long. Only the first 30 bytes are examined. ...
Subroutine: IRCO_TRANSMAT Purpose: defines transformation matrix from Euler angles Category WORLD COORDINATES, IRAS File: irco.shl Author: Do Kester Person resp.: Do Kester Address: guspace!do or rugfx4!do (uucp) Use: call irco_transmat( zold, I double precision theta, I double precision znew, I double precision mat ) O double precision array(3,3) Description: MAT is a right-handed rotation matrix with its z-axis directing to the north pole and its x-axis pointing to longitude = 0. ...
Function: FNAME Purpose: Translates GIPSY filenames to legal filenames (if necessary). Category: FILES File: fname.c Author: K.G. Begeman Use: INTEGER FNAME( INFILE , Input CHARACTER*(*) OUTFILE ) Output CHARACTER*(*) FNAME Returns -1 on error, otherwise 0. INFILE File name to be translated. OUTFILE Translated file name. ... CLOSE(UNIT=LUN) ENDIF Action: FNAME converts the input Gipsy filename to a legal filename which is understood by the Fortran open or C fopen statement. ...
Subroutine: IRCO_PROTWIST Purpose: Project points and twist angles onto a plane. ... Author: Do Kester Use: call IRCO_PROTWIST( prid, I integer, xyz , I doubleprecision array (3,N), twv, I/S doubleprecision array (3,N), x, O doubleprecision array (n), y, O doubleprecision array (n), t, O doubleprecision array (n), n I integer. ) prid a projections system number (see IRCO_PRNAME), xyz 3-dimensional coordinates of the points on the sphere, twv 3-dimensional ...
Function: fextend Purpose: Extends files to a certain number of bytes. Category: FILES File: fextend.c Author: K.G. Begeman Use: INTEGER FEXTEND( NAME , Input CHARACTER*(*) SIZE ) Input INTEGER FEXTEND Returns: 0 file extended to SIZE bytes 1 error in opening file 2 error in reporting current file size 3 error in extending file NAME Name of file to extend. If the file does not exist, it will be created. SIZE Extend the file NAME to SIZE bytes. ...
Subroutine: irco_deproject Purpose: Reconstructs celestial sphere from plane projection. Category: IRAS File: irco_deproject.c Author: Fred Lahuis Use: CALL IRCO_DEPROJECT( PRID, I integer, X, Y, I double precision array(N), XYZ, O double precision array(3*N), N) I integer. PRID a projection system number (see IRCO_PRNAME), X, Y the coordinates on the plane, XYZ corresponding coordinates on the sphere, N number of coordinates to be deprojected. ... References: IRCO_PRNAME, IRCO_PROJECT. ...
Function: OUTSIDEPTR Purpose: Indicates whether inside or outside subframe defined by INITPTR. File: initptr.c Author: K.G. Begeman Use: LOGICAL OUTSIDEPTR( IP, Output INTEGER NP ) Output INTEGER OUTSIDEPTR Returns .TRUE. when still some data outside subframe in readbuffer, else .FALSE. IP If OUTSIDEPTR .eq. TRUE., offset pointer from start of readbuffer to where first data value outside subframe can be found. ... TRUE., number of data values outside subframe in readbuffer starting at IP. ...
Subroutine: ARITHC Purpose: Do an arithmetic operation on a real constant and a real array and store the result in a second one. ... Category: ARRAY File: arithc.c Author: K.G. Begeman Use: CALL ARITHC( CONSTANT, input real OP, input character ARRAY1, input real array ARRAY2, output real array NUMBER ) input integer CONSTANT constant. ... Example: Add 10.0 to 100 elements of array A and store the result in B. CALL ARITH(10.0,'+',A,B,100) Updates: Jul 21, 1989: KGB, original document. ...