blob: 90a506d7df8b45335eb0813f7eaa17ca9059d2d5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include <smw.h>
# SMW_CTFREE -- Free a spectral SMW coordinate transform pointer.
procedure smw_ctfree (ct)
pointer ct # SMW CT pointer
int i
begin
if (ct == NULL)
return
do i = 0, SMW_NCT(ct)-1
call mw_ctfree (SMW_CT(ct,i))
call mw_ctfree (SMW_CTL(ct))
call mfree (ct, TY_STRUCT)
end
|
