blob: 0740e2ee9779266f3ba7f6fc8132d8f5f66dc378 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "im2interpdef.h"
# MSIFREE -- Procedure to deallocate the interpolant descriptor structure.
procedure msifree (msi)
pointer msi # pointer to the interpolant descriptor structure
errchk mfree
begin
# free coefficient array
if (MSI_COEFF(msi) != NULL)
call mfree (MSI_COEFF(msi), TY_REAL)
if (MSI_LTABLE(msi) != NULL)
call mfree (MSI_LTABLE(msi), TY_REAL)
# free interpolant descriptor
call mfree (msi, TY_STRUCT)
end
|
