gstat源代码

数据插值工具，对从事科研工作的人员有用。

/*
 * angle.c 
 */
#ifndef lint  
static const char *rcs_id = 
 “$Header: /users/pcrtree/src/libs/csf/RCS/angle.cv 2.0 1996/05/23 13:16:26 cees Exp $“;
#endif

/********/
/* USES */
/********/

/* libs ext. <> our ““  */
#include “csf.h“
#include “csfimpl.h“

/* M_PI */
#include  

#ifndef M_PI
# define M_PI        （（double）3.14159265358979323846）
#endif

/* put new angle 
 * RputAngle changes the angle 
 * of the map.
 * returns new angle or -1 in case of an error.
 *
 * Merrno
 * NOACCESS
 * BAD_ANGLE
 */
REAL8 RputAngle（
	MAP *map    /* map handle */
	REAL8 angle） /* new angle */
{
	CHECKHANDLE_GOTO（map error）;
	if（! WRITE_ENABLE（map））
	{
		 M_ERROR（NOACCESS）;
		 goto error;
	}
	if （（0.5*-M_PI） >= angle || angle >= （0.5*M_PI））
	{
		 M_ERROR（BAD_ANGLE）;
		 goto error;
	}
	map->raster.angle = angle;

	return（angle）;
error:	return（-1.0）;
}

/* get new angle 
 * RgetAngle returns the angle 
 * of the map.
 * returns a

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件       18520  1999-07-05 09:23  gstat-2.1.0\COPYING
     文件        1128  1999-07-02 05:04  gstat-2.1.0\csf\makefile.in
     文件          36  1997-08-29 10:22  gstat-2.1.0\csf\config.hin
     文件         886  1996-07-03 06:08  gstat-2.1.0\csf\_getcell.c
     文件         806  1996-07-03 06:08  gstat-2.1.0\csf\_getrow.c
     文件        1313  1996-07-03 06:08  gstat-2.1.0\csf\_gsomece.c
     文件        1108  1996-07-03 06:08  gstat-2.1.0\csf\_putcell.c
     文件        1084  1996-07-03 06:08  gstat-2.1.0\csf\_rputrow.c
     文件        1109  1996-07-03 06:08  gstat-2.1.0\csf\angle.c
     文件         688  1996-07-03 06:08  gstat-2.1.0\csf\attravai.c
     文件         976  1996-07-03 06:08  gstat-2.1.0\csf\attrsize.c
     文件        1830  1996-07-03 06:08  gstat-2.1.0\csf\cellsize.c
     文件        6701  1996-07-03 06:08  gstat-2.1.0\csf\create2.c
     文件         944  1996-07-03 06:08  gstat-2.1.0\csf\csfglob.c
     文件        8283  1996-07-03 06:08  gstat-2.1.0\csf\csfimpl.h
     文件        1232  1996-07-03 06:08  gstat-2.1.0\csf\csfsup.c
     文件        1372  1996-07-03 06:08  gstat-2.1.0\csf\delattr.c
     文件        1111  1996-07-03 06:08  gstat-2.1.0\csf\dumconv.c
     文件         717  1996-07-03 06:08  gstat-2.1.0\csf\endian.c
     文件         737  1996-07-03 06:08  gstat-2.1.0\csf\filename.c
     文件        2057  1996-07-03 06:08  gstat-2.1.0\csf\gattrblk.c
     文件         931  1996-07-03 06:08  gstat-2.1.0\csf\gattridx.c
     文件         416  1996-07-03 06:08  gstat-2.1.0\csf\gcellrep.c
     文件         810  1996-07-03 06:08  gstat-2.1.0\csf\gdattype.c
     文件        1969  1996-07-03 06:08  gstat-2.1.0\csf\getattr.c
     文件         759  1996-07-03 06:08  gstat-2.1.0\csf\getx0.c
     文件         935  1996-07-03 06:08  gstat-2.1.0\csf\gety0.c
     文件         829  1996-07-03 06:08  gstat-2.1.0\csf\ggisfid.c
     文件        1056  1996-07-03 06:08  gstat-2.1.0\csf\gmaxval.c
     文件        1060  1996-07-03 06:08  gstat-2.1.0\csf\gminval.c
     文件         830  1996-07-03 06:08  gstat-2.1.0\csf\gnrcols.c
............此处省略283个文件信息