Utility Routines(nrutil.c) 947 void free_submatrix(float **b,long nrl,long nrh,long ncl,long nch) / free a submatrix allocated by submatrix()+/ free((FREE_ARG)(b+nrl-NR_END)); void free_convert_matrix(float **b,long nrl,long nrh,long ncl,long nch) /free a matrix allocated by convert_matrix()/ free((FREE_ARG)(b+nrl-NR_END)); Permission is void free_f3tensor(float **t,long nrl,long nrh,long ncl,long nch, long ndl,long ndh) /*free a float f3tensor allocated by f3tensor()*/ free((FREE_ARG)(t [nrl][ncl]+ndl-NR_END)) free((FREE_ARG)(t [nrl]+ncl-NR_END)); free((FREE_ARG) (t+nrl-NR_END)); http://w.nr.com or call 1-800-872-7423(North America only),orsend email to directcustserv@cambridge.org (outside North America). granted for internet users to make one paper copy for their own Copyright(C)1988-1992 by Cambridge University Press.Programs Copyright(C)1988-1992 by Numerical Recipes Sample page from NUMERICAL RECIPES IN C:THE ART OF SCIENTIFIC COMPUTING (ISBN 0-521-43108-5) Software.Utility Routines (nrutil.c) 947 Permission is granted for internet users to make one paper copy for their own personal use. Further reproduction, or any copyin Copyright (C) 1988-1992 by Cambridge University Press. Programs Copyright (C) 1988-1992 by Numerical Recipes Software. Sample page from NUMERICAL RECIPES IN C: THE ART OF SCIENTIFIC COMPUTING (ISBN 0-521-43108-5) g of machine￾readable files (including this one) to any server computer, is strictly prohibited. To order Numerical Recipes books or CDROMs, visit website http://www.nr.com or call 1-800-872-7423 (North America only), or send email to directcustserv@cambridge.org (outside North America). void free_submatrix(float **b, long nrl, long nrh, long ncl, long nch) /* free a submatrix allocated by submatrix() */ { free((FREE_ARG) (b+nrl-NR_END)); } void free_convert_matrix(float **b, long nrl, long nrh, long ncl, long nch) /* free a matrix allocated by convert_matrix() */ { free((FREE_ARG) (b+nrl-NR_END)); } void free_f3tensor(float ***t, long nrl, long nrh, long ncl, long nch, long ndl, long ndh) /* free a float f3tensor allocated by f3tensor() */ { free((FREE_ARG) (t[nrl][ncl]+ndl-NR_END)); free((FREE_ARG) (t[nrl]+ncl-NR_END)); free((FREE_ARG) (t+nrl-NR_END)); }