File: tpclose.x

package info (click to toggle)
iraf 2.18.1-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 86,000 kB
  • sloc: ansic: 115,890; fortran: 74,576; lisp: 18,888; yacc: 5,642; sh: 961; lex: 596; makefile: 509; asm: 159; csh: 54; xml: 33; sed: 4
file content (21 lines) | stat: -rw-r--r-- 450 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
include	"template.h"

# TP_CLOSE -- Close the group template expansion routines

# Free the dynamic memory used to store the group template structure
#
# B.Simon	28-Feb-89	Original
# B.Simon	21-Aug-91	Changed template structure

procedure tp_close (ptr)

pointer	ptr		# u: Pointer to list of file names
#--
errchk mfree

begin
	call mfree (TP_ROOTPTR(ptr), TY_CHAR)
	call mfree (TP_SECTPTR(ptr), TY_CHAR)
	call mfree (ptr, TY_STRUCT)
	ptr = NULL
end