Context Navigation

changegrid.pro @ 325

Last change on this file since 325 was 325, checked in by pinsard, 17 years ago
modification of some headers (+some corrections) to prepare usage of the new idldoc
Property svn:eol-style set to `native` Property svn:keywords set to `Id`
File size: 698 bytes

Rev	Line
[232]	1	;+
	2	;
[163]	3	; @file_comments
[142]	4	;
[163]	5	; @categories
	6	;
	7	; @param NEWGRID
	8	;
	9	; @returns
	10	;
	11	; @uses
	12	;
	13	; @restrictions
	14	;
	15	; @examples
	16	;
	17	; @history
	18	;
	19	; @version
	20	; $Id$
	21	;
[231]	22	; @todo
	23	; seb
[163]	24	;
[231]	25	;-
[232]	26	FUNCTION changegrid, newgrid
[2]	27	;
[114]	28	compile_opt idl2, strictarrsubs
	29	;
[69]	30	@cm_4mesh
[2]	31	;
	32	;
	33	if cmpgrid(newgrid) EQ 0 then return, 0
	34	;
	35	; update the common paramaters
	36	;
	37	ccmeshparameters = newgrid
[69]	38
[2]	39	ixminmesh = newgrid.ixminmesh
	40	ixmaxmesh = newgrid.ixmaxmesh
	41	iyminmesh = newgrid.iyminmesh
	42	iymaxmesh = newgrid.iymaxmesh
	43	izminmesh = newgrid.izminmesh
	44	izmaxmesh = newgrid.izmaxmesh
	45	;
	46	; read the new file
	47	;
[69]	48	loadgrid, newgrid.filename
[2]	49	;
[13]	50	IF NOT keyword_set(key_forgetold) THEN BEGIN
	51	@updateold
	52	ENDIF
	53	;
[2]	54	return, 1
	55	end

Note: See TracBrowser for help on using the repository browser.