1 #include "csf.h"
2 #include "csfimpl.h"
3 
4 
5 /* change the x value of upper left co-ordinate
6  * RputXUL changes the x value of upper left co-ordinate.
7  * returns the new x value of upper left co-ordinate or 0
8  * case of an error.
9  *
10  * Merrno
11  * NOACCESS
12  */
RputXUL(MAP * map,REAL8 xUL)13 REAL8 RputXUL(
14 	MAP *map, /* map handle */
15 	REAL8 xUL) /* new x value of top left co-ordinate */
16 {
17 	CHECKHANDLE_GOTO(map, error);
18 	if(! WRITE_ENABLE(map))
19 	{
20 		M_ERROR(NOACCESS);
21 		goto error;
22 	}
23 	map->raster.xUL = xUL;
24 	return(xUL);
25 error:  return(0);
26 }
27