wcslib (8.2.2)
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=11"/>
<meta name="generator" content="Doxygen 1.9.8"/>
<meta name="viewport" content="width=device-width, initial-scale=1"/>
<title>WCSLIB: wcsutil.h Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
<tbody>
<tr id="projectrow">
<td id="projectalign">
<div id="projectname">WCSLIB<span id="projectnumber"> 8.2.2</span>
</div>
</td>
</tr>
</tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.9.8 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&dn=expat.txt MIT */
var searchBox = new SearchBox("searchBox", "search/",'.html');
/* @license-end */
</script>
<script type="text/javascript" src="menudata.js"></script>
<script type="text/javascript" src="menu.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&dn=expat.txt MIT */
$(function() {
initMenu('',true,false,'search.php','Search');
$(document).ready(function() { init_search(); });
});
/* @license-end */
</script>
<div id="main-nav"></div>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:d3d9a9a6595521f9666a5e94cc830dab83b65699&dn=expat.txt MIT */
$(document).ready(function() { init_codefold(0); });
/* @license-end */
</script>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
onmouseover="return searchBox.OnSearchSelectShow()"
onmouseout="return searchBox.OnSearchSelectHide()"
onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>
<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<div id="MSearchResults">
<div class="SRPage">
<div id="SRIndex">
<div id="SRResults"></div>
<div class="SRStatus" id="Loading">Loading...</div>
<div class="SRStatus" id="Searching">Searching...</div>
<div class="SRStatus" id="NoMatches">No Matches</div>
</div>
</div>
</div>
</div>
<div id="nav-path" class="navpath">
<ul>
<li class="navelem"><a class="el" href="dir_af99bb3c152a306abd27951285ad1127.html">C</a></li> </ul>
</div>
</div><!-- top -->
<div class="header">
<div class="headertitle"><div class="title">wcsutil.h</div></div>
</div><!--header-->
<div class="contents">
<a href="wcsutil_8h.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno"> 1</span><span class="comment">/*============================================================================</span></div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno"> 2</span><span class="comment"> WCSLIB 8.2 - an implementation of the FITS WCS standard.</span></div>
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno"> 3</span><span class="comment"> Copyright (C) 1995-2023, Mark Calabretta</span></div>
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno"> 4</span><span class="comment"></span> </div>
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno"> 5</span><span class="comment"> This file is part of WCSLIB.</span></div>
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno"> 6</span><span class="comment"></span> </div>
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno"> 7</span><span class="comment"> WCSLIB is free software: you can redistribute it and/or modify it under the</span></div>
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno"> 8</span><span class="comment"> terms of the GNU Lesser General Public License as published by the Free</span></div>
<div class="line"><a id="l00009" name="l00009"></a><span class="lineno"> 9</span><span class="comment"> Software Foundation, either version 3 of the License, or (at your option)</span></div>
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno"> 10</span><span class="comment"> any later version.</span></div>
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno"> 11</span><span class="comment"></span> </div>
<div class="line"><a id="l00012" name="l00012"></a><span class="lineno"> 12</span><span class="comment"> WCSLIB is distributed in the hope that it will be useful, but WITHOUT ANY</span></div>
<div class="line"><a id="l00013" name="l00013"></a><span class="lineno"> 13</span><span class="comment"> WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS</span></div>
<div class="line"><a id="l00014" name="l00014"></a><span class="lineno"> 14</span><span class="comment"> FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for</span></div>
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno"> 15</span><span class="comment"> more details.</span></div>
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno"> 16</span><span class="comment"></span> </div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno"> 17</span><span class="comment"> You should have received a copy of the GNU Lesser General Public License</span></div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno"> 18</span><span class="comment"> along with WCSLIB. If not, see http://www.gnu.org/licenses.</span></div>
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno"> 19</span><span class="comment"></span> </div>
<div class="line"><a id="l00020" name="l00020"></a><span class="lineno"> 20</span><span class="comment"> Author: Mark Calabretta, Australia Telescope National Facility, CSIRO.</span></div>
<div class="line"><a id="l00021" name="l00021"></a><span class="lineno"> 21</span><span class="comment"> http://www.atnf.csiro.au/people/Mark.Calabretta</span></div>
<div class="line"><a id="l00022" name="l00022"></a><span class="lineno"> 22</span><span class="comment"> $Id: wcsutil.h,v 8.2.1.1 2023/11/16 10:05:57 mcalabre Exp mcalabre $</span></div>
<div class="line"><a id="l00023" name="l00023"></a><span class="lineno"> 23</span><span class="comment">*=============================================================================</span></div>
<div class="line"><a id="l00024" name="l00024"></a><span class="lineno"> 24</span><span class="comment">*</span></div>
<div class="line"><a id="l00025" name="l00025"></a><span class="lineno"> 25</span><span class="comment">* WCSLIB 8.2 - C routines that implement the FITS World Coordinate System</span></div>
<div class="line"><a id="l00026" name="l00026"></a><span class="lineno"> 26</span><span class="comment">* (WCS) standard. Refer to the README file provided with WCSLIB for an</span></div>
<div class="line"><a id="l00027" name="l00027"></a><span class="lineno"> 27</span><span class="comment">* overview of the library.</span></div>
<div class="line"><a id="l00028" name="l00028"></a><span class="lineno"> 28</span><span class="comment">*</span></div>
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno"> 29</span><span class="comment">*</span></div>
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno"> 30</span><span class="comment">* Summary of the wcsutil routines</span></div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno"> 31</span><span class="comment">* -------------------------------</span></div>
<div class="line"><a id="l00032" name="l00032"></a><span class="lineno"> 32</span><span class="comment">* Simple utility functions. With the exception of wcsdealloc(), these</span></div>
<div class="line"><a id="l00033" name="l00033"></a><span class="lineno"> 33</span><span class="comment">* functions are intended for internal use only by WCSLIB.</span></div>
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno"> 34</span><span class="comment">*</span></div>
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno"> 35</span><span class="comment">* The internal-use functions are documented here solely as an aid to</span></div>
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno"> 36</span><span class="comment">* understanding the code. They are not intended for external use - the API</span></div>
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno"> 37</span><span class="comment">* may change without notice!</span></div>
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno"> 38</span><span class="comment">*</span></div>
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno"> 39</span><span class="comment">*</span></div>
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno"> 40</span><span class="comment">* wcsdealloc() - free memory allocated by WCSLIB functions</span></div>
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno"> 41</span><span class="comment">* --------------------------------------------------------</span></div>
<div class="line"><a id="l00042" name="l00042"></a><span class="lineno"> 42</span><span class="comment">* wcsdealloc() invokes the free() system routine to free memory.</span></div>
<div class="line"><a id="l00043" name="l00043"></a><span class="lineno"> 43</span><span class="comment">* Specifically, it is intended to free memory allocated (using calloc()) by</span></div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno"> 44</span><span class="comment">* certain WCSLIB functions (e.g. wcshdo(), wcsfixi(), fitshdr()), which it is</span></div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno"> 45</span><span class="comment">* the user's responsibility to deallocate.</span></div>
<div class="line"><a id="l00046" name="l00046"></a><span class="lineno"> 46</span><span class="comment">*</span></div>
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno"> 47</span><span class="comment">* In certain situations, for example multithreading, it may be important that</span></div>
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno"> 48</span><span class="comment">* this be done within the WCSLIB sharable library's runtime environment.</span></div>
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno"> 49</span><span class="comment">*</span></div>
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno"> 50</span><span class="comment">* PLEASE NOTE: wcsdealloc() must not be used in place of the destructors for</span></div>
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno"> 51</span><span class="comment">* particular structs, such as wcsfree(), celfree(), etc.</span></div>
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno"> 52</span><span class="comment">*</span></div>
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno"> 53</span><span class="comment">* Given and returned:</span></div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno"> 54</span><span class="comment">* ptr void* Address of the allocated memory.</span></div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno"> 55</span><span class="comment">*</span></div>
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno"> 56</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno"> 57</span><span class="comment">* void</span></div>
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno"> 58</span><span class="comment">*</span></div>
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno"> 59</span><span class="comment">*</span></div>
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno"> 60</span><span class="comment">* wcsutil_strcvt() - Copy character string with padding</span></div>
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno"> 61</span><span class="comment">* -----------------------------------------------------</span></div>
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno"> 62</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno"> 63</span><span class="comment">*</span></div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno"> 64</span><span class="comment">* wcsutil_strcvt() copies one character string to another up to the specified</span></div>
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno"> 65</span><span class="comment">* maximum number of characters.</span></div>
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno"> 66</span><span class="comment">*</span></div>
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno"> 67</span><span class="comment">* If the given string is null-terminated, then the NULL character copied to</span></div>
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno"> 68</span><span class="comment">* the returned string, and all characters following it up to the specified</span></div>
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno"> 69</span><span class="comment">* maximum, are replaced with the specified substitute character, either blank</span></div>
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno"> 70</span><span class="comment">* or NULL.</span></div>
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno"> 71</span><span class="comment">*</span></div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno"> 72</span><span class="comment">* If the source string is not null-terminated and the substitute character is</span></div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno"> 73</span><span class="comment">* blank, then copy the maximum number of characters and do nothing further.</span></div>
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno"> 74</span><span class="comment">* However, if the substitute character is NULL, then the last character and</span></div>
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno"> 75</span><span class="comment">* all consecutive blank characters preceding it will be replaced with NULLs.</span></div>
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno"> 76</span><span class="comment">*</span></div>
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno"> 77</span><span class="comment">* Used by the Fortran wrapper functions in translating C strings into Fortran</span></div>
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno"> 78</span><span class="comment">* CHARACTER variables and vice versa.</span></div>
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno"> 79</span><span class="comment">*</span></div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno"> 80</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno"> 81</span><span class="comment">* n int Maximum number of characters to copy.</span></div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno"> 82</span><span class="comment">*</span></div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno"> 83</span><span class="comment">* c char Substitute character, either NULL or blank (anything</span></div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno"> 84</span><span class="comment">* other than NULL).</span></div>
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno"> 85</span><span class="comment">*</span></div>
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno"> 86</span><span class="comment">* nt int If true, then dst is of length n+1, with the last</span></div>
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno"> 87</span><span class="comment">* character always set to NULL.</span></div>
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno"> 88</span><span class="comment">*</span></div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno"> 89</span><span class="comment">* src char[] Character string to be copied. If null-terminated,</span></div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno"> 90</span><span class="comment">* then need not be of length n, otherwise it must be.</span></div>
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno"> 91</span><span class="comment">*</span></div>
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno"> 92</span><span class="comment">* Returned:</span></div>
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno"> 93</span><span class="comment">* dst char[] Destination character string, which must be long</span></div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno"> 94</span><span class="comment">* enough to hold n characters. Note that this string</span></div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno"> 95</span><span class="comment">* will not be null-terminated if the substitute</span></div>
<div class="line"><a id="l00096" name="l00096"></a><span class="lineno"> 96</span><span class="comment">* character is blank.</span></div>
<div class="line"><a id="l00097" name="l00097"></a><span class="lineno"> 97</span><span class="comment">*</span></div>
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno"> 98</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno"> 99</span><span class="comment">* void</span></div>
<div class="line"><a id="l00100" name="l00100"></a><span class="lineno"> 100</span><span class="comment">*</span></div>
<div class="line"><a id="l00101" name="l00101"></a><span class="lineno"> 101</span><span class="comment">*</span></div>
<div class="line"><a id="l00102" name="l00102"></a><span class="lineno"> 102</span><span class="comment">* wcsutil_blank_fill() - Fill a character string with blanks</span></div>
<div class="line"><a id="l00103" name="l00103"></a><span class="lineno"> 103</span><span class="comment">* ----------------------------------------------------------</span></div>
<div class="line"><a id="l00104" name="l00104"></a><span class="lineno"> 104</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00105" name="l00105"></a><span class="lineno"> 105</span><span class="comment">*</span></div>
<div class="line"><a id="l00106" name="l00106"></a><span class="lineno"> 106</span><span class="comment">* wcsutil_blank_fill() pads a character sub-string with blanks starting with</span></div>
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno"> 107</span><span class="comment">* the terminating NULL character (if any).</span></div>
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno"> 108</span><span class="comment">*</span></div>
<div class="line"><a id="l00109" name="l00109"></a><span class="lineno"> 109</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00110" name="l00110"></a><span class="lineno"> 110</span><span class="comment">* n int Length of the sub-string.</span></div>
<div class="line"><a id="l00111" name="l00111"></a><span class="lineno"> 111</span><span class="comment">*</span></div>
<div class="line"><a id="l00112" name="l00112"></a><span class="lineno"> 112</span><span class="comment">* Given and returned:</span></div>
<div class="line"><a id="l00113" name="l00113"></a><span class="lineno"> 113</span><span class="comment">* c char[] The character sub-string, which will not be</span></div>
<div class="line"><a id="l00114" name="l00114"></a><span class="lineno"> 114</span><span class="comment">* null-terminated on return.</span></div>
<div class="line"><a id="l00115" name="l00115"></a><span class="lineno"> 115</span><span class="comment">*</span></div>
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno"> 116</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno"> 117</span><span class="comment">* void</span></div>
<div class="line"><a id="l00118" name="l00118"></a><span class="lineno"> 118</span><span class="comment">*</span></div>
<div class="line"><a id="l00119" name="l00119"></a><span class="lineno"> 119</span><span class="comment">*</span></div>
<div class="line"><a id="l00120" name="l00120"></a><span class="lineno"> 120</span><span class="comment">* wcsutil_null_fill() - Fill a character string with NULLs</span></div>
<div class="line"><a id="l00121" name="l00121"></a><span class="lineno"> 121</span><span class="comment">* --------------------------------------------------------</span></div>
<div class="line"><a id="l00122" name="l00122"></a><span class="lineno"> 122</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00123" name="l00123"></a><span class="lineno"> 123</span><span class="comment">*</span></div>
<div class="line"><a id="l00124" name="l00124"></a><span class="lineno"> 124</span><span class="comment">* wcsutil_null_fill() strips trailing blanks from a string (or sub-string) and</span></div>
<div class="line"><a id="l00125" name="l00125"></a><span class="lineno"> 125</span><span class="comment">* propagates the terminating NULL character (if any) to the end of the string.</span></div>
<div class="line"><a id="l00126" name="l00126"></a><span class="lineno"> 126</span><span class="comment">*</span></div>
<div class="line"><a id="l00127" name="l00127"></a><span class="lineno"> 127</span><span class="comment">* If the string is not null-terminated, then the last character and all</span></div>
<div class="line"><a id="l00128" name="l00128"></a><span class="lineno"> 128</span><span class="comment">* consecutive blank characters preceding it will be replaced with NULLs.</span></div>
<div class="line"><a id="l00129" name="l00129"></a><span class="lineno"> 129</span><span class="comment">*</span></div>
<div class="line"><a id="l00130" name="l00130"></a><span class="lineno"> 130</span><span class="comment">* Mainly used in the C library to strip trailing blanks from FITS keyvalues.</span></div>
<div class="line"><a id="l00131" name="l00131"></a><span class="lineno"> 131</span><span class="comment">* Also used to make character strings intelligible in the GNU debugger, which</span></div>
<div class="line"><a id="l00132" name="l00132"></a><span class="lineno"> 132</span><span class="comment">* prints the rubbish following the terminating NULL character, thereby</span></div>
<div class="line"><a id="l00133" name="l00133"></a><span class="lineno"> 133</span><span class="comment">* obscuring the valid part of the string.</span></div>
<div class="line"><a id="l00134" name="l00134"></a><span class="lineno"> 134</span><span class="comment">*</span></div>
<div class="line"><a id="l00135" name="l00135"></a><span class="lineno"> 135</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno"> 136</span><span class="comment">* n int Number of characters.</span></div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno"> 137</span><span class="comment">*</span></div>
<div class="line"><a id="l00138" name="l00138"></a><span class="lineno"> 138</span><span class="comment">* Given and returned:</span></div>
<div class="line"><a id="l00139" name="l00139"></a><span class="lineno"> 139</span><span class="comment">* c char[] The character (sub-)string.</span></div>
<div class="line"><a id="l00140" name="l00140"></a><span class="lineno"> 140</span><span class="comment">*</span></div>
<div class="line"><a id="l00141" name="l00141"></a><span class="lineno"> 141</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00142" name="l00142"></a><span class="lineno"> 142</span><span class="comment">* void</span></div>
<div class="line"><a id="l00143" name="l00143"></a><span class="lineno"> 143</span><span class="comment">*</span></div>
<div class="line"><a id="l00144" name="l00144"></a><span class="lineno"> 144</span><span class="comment">*</span></div>
<div class="line"><a id="l00145" name="l00145"></a><span class="lineno"> 145</span><span class="comment">* wcsutil_all_ival() - Test if all elements an int array have a given value</span></div>
<div class="line"><a id="l00146" name="l00146"></a><span class="lineno"> 146</span><span class="comment">* -------------------------------------------------------------------------</span></div>
<div class="line"><a id="l00147" name="l00147"></a><span class="lineno"> 147</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00148" name="l00148"></a><span class="lineno"> 148</span><span class="comment">*</span></div>
<div class="line"><a id="l00149" name="l00149"></a><span class="lineno"> 149</span><span class="comment">* wcsutil_all_ival() tests whether all elements of an array of type int all</span></div>
<div class="line"><a id="l00150" name="l00150"></a><span class="lineno"> 150</span><span class="comment">* have the specified value.</span></div>
<div class="line"><a id="l00151" name="l00151"></a><span class="lineno"> 151</span><span class="comment">*</span></div>
<div class="line"><a id="l00152" name="l00152"></a><span class="lineno"> 152</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00153" name="l00153"></a><span class="lineno"> 153</span><span class="comment">* nelem int The length of the array.</span></div>
<div class="line"><a id="l00154" name="l00154"></a><span class="lineno"> 154</span><span class="comment">*</span></div>
<div class="line"><a id="l00155" name="l00155"></a><span class="lineno"> 155</span><span class="comment">* ival int Value to be tested.</span></div>
<div class="line"><a id="l00156" name="l00156"></a><span class="lineno"> 156</span><span class="comment">*</span></div>
<div class="line"><a id="l00157" name="l00157"></a><span class="lineno"> 157</span><span class="comment">* iarr const int[]</span></div>
<div class="line"><a id="l00158" name="l00158"></a><span class="lineno"> 158</span><span class="comment">* Pointer to the first element of the array.</span></div>
<div class="line"><a id="l00159" name="l00159"></a><span class="lineno"> 159</span><span class="comment">*</span></div>
<div class="line"><a id="l00160" name="l00160"></a><span class="lineno"> 160</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00161" name="l00161"></a><span class="lineno"> 161</span><span class="comment">* int Status return value:</span></div>
<div class="line"><a id="l00162" name="l00162"></a><span class="lineno"> 162</span><span class="comment">* 0: Not all equal.</span></div>
<div class="line"><a id="l00163" name="l00163"></a><span class="lineno"> 163</span><span class="comment">* 1: All equal.</span></div>
<div class="line"><a id="l00164" name="l00164"></a><span class="lineno"> 164</span><span class="comment">*</span></div>
<div class="line"><a id="l00165" name="l00165"></a><span class="lineno"> 165</span><span class="comment">*</span></div>
<div class="line"><a id="l00166" name="l00166"></a><span class="lineno"> 166</span><span class="comment">* wcsutil_all_dval() - Test if all elements a double array have a given value</span></div>
<div class="line"><a id="l00167" name="l00167"></a><span class="lineno"> 167</span><span class="comment">* ---------------------------------------------------------------------------</span></div>
<div class="line"><a id="l00168" name="l00168"></a><span class="lineno"> 168</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00169" name="l00169"></a><span class="lineno"> 169</span><span class="comment">*</span></div>
<div class="line"><a id="l00170" name="l00170"></a><span class="lineno"> 170</span><span class="comment">* wcsutil_all_dval() tests whether all elements of an array of type double all</span></div>
<div class="line"><a id="l00171" name="l00171"></a><span class="lineno"> 171</span><span class="comment">* have the specified value.</span></div>
<div class="line"><a id="l00172" name="l00172"></a><span class="lineno"> 172</span><span class="comment">*</span></div>
<div class="line"><a id="l00173" name="l00173"></a><span class="lineno"> 173</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00174" name="l00174"></a><span class="lineno"> 174</span><span class="comment">* nelem int The length of the array.</span></div>
<div class="line"><a id="l00175" name="l00175"></a><span class="lineno"> 175</span><span class="comment">*</span></div>
<div class="line"><a id="l00176" name="l00176"></a><span class="lineno"> 176</span><span class="comment">* dval int Value to be tested.</span></div>
<div class="line"><a id="l00177" name="l00177"></a><span class="lineno"> 177</span><span class="comment">*</span></div>
<div class="line"><a id="l00178" name="l00178"></a><span class="lineno"> 178</span><span class="comment">* darr const double[]</span></div>
<div class="line"><a id="l00179" name="l00179"></a><span class="lineno"> 179</span><span class="comment">* Pointer to the first element of the array.</span></div>
<div class="line"><a id="l00180" name="l00180"></a><span class="lineno"> 180</span><span class="comment">*</span></div>
<div class="line"><a id="l00181" name="l00181"></a><span class="lineno"> 181</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00182" name="l00182"></a><span class="lineno"> 182</span><span class="comment">* int Status return value:</span></div>
<div class="line"><a id="l00183" name="l00183"></a><span class="lineno"> 183</span><span class="comment">* 0: Not all equal.</span></div>
<div class="line"><a id="l00184" name="l00184"></a><span class="lineno"> 184</span><span class="comment">* 1: All equal.</span></div>
<div class="line"><a id="l00185" name="l00185"></a><span class="lineno"> 185</span><span class="comment">*</span></div>
<div class="line"><a id="l00186" name="l00186"></a><span class="lineno"> 186</span><span class="comment">*</span></div>
<div class="line"><a id="l00187" name="l00187"></a><span class="lineno"> 187</span><span class="comment">* wcsutil_all_sval() - Test if all elements a string array have a given value</span></div>
<div class="line"><a id="l00188" name="l00188"></a><span class="lineno"> 188</span><span class="comment">* ---------------------------------------------------------------------------</span></div>
<div class="line"><a id="l00189" name="l00189"></a><span class="lineno"> 189</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00190" name="l00190"></a><span class="lineno"> 190</span><span class="comment">*</span></div>
<div class="line"><a id="l00191" name="l00191"></a><span class="lineno"> 191</span><span class="comment">* wcsutil_all_sval() tests whether the elements of an array of type</span></div>
<div class="line"><a id="l00192" name="l00192"></a><span class="lineno"> 192</span><span class="comment">* char (*)[72] all have the specified value.</span></div>
<div class="line"><a id="l00193" name="l00193"></a><span class="lineno"> 193</span><span class="comment">*</span></div>
<div class="line"><a id="l00194" name="l00194"></a><span class="lineno"> 194</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00195" name="l00195"></a><span class="lineno"> 195</span><span class="comment">* nelem int The length of the array.</span></div>
<div class="line"><a id="l00196" name="l00196"></a><span class="lineno"> 196</span><span class="comment">*</span></div>
<div class="line"><a id="l00197" name="l00197"></a><span class="lineno"> 197</span><span class="comment">* sval const char *</span></div>
<div class="line"><a id="l00198" name="l00198"></a><span class="lineno"> 198</span><span class="comment">* String to be tested.</span></div>
<div class="line"><a id="l00199" name="l00199"></a><span class="lineno"> 199</span><span class="comment">*</span></div>
<div class="line"><a id="l00200" name="l00200"></a><span class="lineno"> 200</span><span class="comment">* sarr const char (*)[72]</span></div>
<div class="line"><a id="l00201" name="l00201"></a><span class="lineno"> 201</span><span class="comment">* Pointer to the first element of the array.</span></div>
<div class="line"><a id="l00202" name="l00202"></a><span class="lineno"> 202</span><span class="comment">*</span></div>
<div class="line"><a id="l00203" name="l00203"></a><span class="lineno"> 203</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00204" name="l00204"></a><span class="lineno"> 204</span><span class="comment">* int Status return value:</span></div>
<div class="line"><a id="l00205" name="l00205"></a><span class="lineno"> 205</span><span class="comment">* 0: Not all equal.</span></div>
<div class="line"><a id="l00206" name="l00206"></a><span class="lineno"> 206</span><span class="comment">* 1: All equal.</span></div>
<div class="line"><a id="l00207" name="l00207"></a><span class="lineno"> 207</span><span class="comment">*</span></div>
<div class="line"><a id="l00208" name="l00208"></a><span class="lineno"> 208</span><span class="comment">*</span></div>
<div class="line"><a id="l00209" name="l00209"></a><span class="lineno"> 209</span><span class="comment">* wcsutil_allEq() - Test for equality of a particular vector element</span></div>
<div class="line"><a id="l00210" name="l00210"></a><span class="lineno"> 210</span><span class="comment">* ------------------------------------------------------------------</span></div>
<div class="line"><a id="l00211" name="l00211"></a><span class="lineno"> 211</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00212" name="l00212"></a><span class="lineno"> 212</span><span class="comment">*</span></div>
<div class="line"><a id="l00213" name="l00213"></a><span class="lineno"> 213</span><span class="comment">* wcsutil_allEq() tests for equality of a particular element in a set of</span></div>
<div class="line"><a id="l00214" name="l00214"></a><span class="lineno"> 214</span><span class="comment">* vectors.</span></div>
<div class="line"><a id="l00215" name="l00215"></a><span class="lineno"> 215</span><span class="comment">*</span></div>
<div class="line"><a id="l00216" name="l00216"></a><span class="lineno"> 216</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00217" name="l00217"></a><span class="lineno"> 217</span><span class="comment">* nvec int The number of vectors.</span></div>
<div class="line"><a id="l00218" name="l00218"></a><span class="lineno"> 218</span><span class="comment">*</span></div>
<div class="line"><a id="l00219" name="l00219"></a><span class="lineno"> 219</span><span class="comment">* nelem int The length of each vector.</span></div>
<div class="line"><a id="l00220" name="l00220"></a><span class="lineno"> 220</span><span class="comment">*</span></div>
<div class="line"><a id="l00221" name="l00221"></a><span class="lineno"> 221</span><span class="comment">* first const double*</span></div>
<div class="line"><a id="l00222" name="l00222"></a><span class="lineno"> 222</span><span class="comment">* Pointer to the first element to test in the array.</span></div>
<div class="line"><a id="l00223" name="l00223"></a><span class="lineno"> 223</span><span class="comment">* The elements tested for equality are</span></div>
<div class="line"><a id="l00224" name="l00224"></a><span class="lineno"> 224</span><span class="comment">*</span></div>
<div class="line"><a id="l00225" name="l00225"></a><span class="lineno"> 225</span><span class="comment">= *first == *(first + nelem)</span></div>
<div class="line"><a id="l00226" name="l00226"></a><span class="lineno"> 226</span><span class="comment">= == *(first + nelem*2)</span></div>
<div class="line"><a id="l00227" name="l00227"></a><span class="lineno"> 227</span><span class="comment">= :</span></div>
<div class="line"><a id="l00228" name="l00228"></a><span class="lineno"> 228</span><span class="comment">= == *(first + nelem*(nvec-1));</span></div>
<div class="line"><a id="l00229" name="l00229"></a><span class="lineno"> 229</span><span class="comment">*</span></div>
<div class="line"><a id="l00230" name="l00230"></a><span class="lineno"> 230</span><span class="comment">* The array might be dimensioned as</span></div>
<div class="line"><a id="l00231" name="l00231"></a><span class="lineno"> 231</span><span class="comment">*</span></div>
<div class="line"><a id="l00232" name="l00232"></a><span class="lineno"> 232</span><span class="comment">= double v[nvec][nelem];</span></div>
<div class="line"><a id="l00233" name="l00233"></a><span class="lineno"> 233</span><span class="comment">*</span></div>
<div class="line"><a id="l00234" name="l00234"></a><span class="lineno"> 234</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00235" name="l00235"></a><span class="lineno"> 235</span><span class="comment">* int Status return value:</span></div>
<div class="line"><a id="l00236" name="l00236"></a><span class="lineno"> 236</span><span class="comment">* 0: Not all equal.</span></div>
<div class="line"><a id="l00237" name="l00237"></a><span class="lineno"> 237</span><span class="comment">* 1: All equal.</span></div>
<div class="line"><a id="l00238" name="l00238"></a><span class="lineno"> 238</span><span class="comment">*</span></div>
<div class="line"><a id="l00239" name="l00239"></a><span class="lineno"> 239</span><span class="comment">*</span></div>
<div class="line"><a id="l00240" name="l00240"></a><span class="lineno"> 240</span><span class="comment">* wcsutil_dblEq() - Test for equality of two arrays of type double</span></div>
<div class="line"><a id="l00241" name="l00241"></a><span class="lineno"> 241</span><span class="comment">* ----------------------------------------------------------------</span></div>
<div class="line"><a id="l00242" name="l00242"></a><span class="lineno"> 242</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00243" name="l00243"></a><span class="lineno"> 243</span><span class="comment">*</span></div>
<div class="line"><a id="l00244" name="l00244"></a><span class="lineno"> 244</span><span class="comment">* wcsutil_dblEq() tests for equality of two double-precision arrays.</span></div>
<div class="line"><a id="l00245" name="l00245"></a><span class="lineno"> 245</span><span class="comment">*</span></div>
<div class="line"><a id="l00246" name="l00246"></a><span class="lineno"> 246</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00247" name="l00247"></a><span class="lineno"> 247</span><span class="comment">* nelem int The number of elements in each array.</span></div>
<div class="line"><a id="l00248" name="l00248"></a><span class="lineno"> 248</span><span class="comment">*</span></div>
<div class="line"><a id="l00249" name="l00249"></a><span class="lineno"> 249</span><span class="comment">* tol double Tolerance for comparison of the floating-point values.</span></div>
<div class="line"><a id="l00250" name="l00250"></a><span class="lineno"> 250</span><span class="comment">* For example, for tol == 1e-6, all floating-point</span></div>
<div class="line"><a id="l00251" name="l00251"></a><span class="lineno"> 251</span><span class="comment">* values in the arrays must be equal to the first 6</span></div>
<div class="line"><a id="l00252" name="l00252"></a><span class="lineno"> 252</span><span class="comment">* decimal places. A value of 0 implies exact equality.</span></div>
<div class="line"><a id="l00253" name="l00253"></a><span class="lineno"> 253</span><span class="comment">*</span></div>
<div class="line"><a id="l00254" name="l00254"></a><span class="lineno"> 254</span><span class="comment">* arr1 const double*</span></div>
<div class="line"><a id="l00255" name="l00255"></a><span class="lineno"> 255</span><span class="comment">* The first array.</span></div>
<div class="line"><a id="l00256" name="l00256"></a><span class="lineno"> 256</span><span class="comment">*</span></div>
<div class="line"><a id="l00257" name="l00257"></a><span class="lineno"> 257</span><span class="comment">* arr2 const double*</span></div>
<div class="line"><a id="l00258" name="l00258"></a><span class="lineno"> 258</span><span class="comment">* The second array</span></div>
<div class="line"><a id="l00259" name="l00259"></a><span class="lineno"> 259</span><span class="comment">*</span></div>
<div class="line"><a id="l00260" name="l00260"></a><span class="lineno"> 260</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00261" name="l00261"></a><span class="lineno"> 261</span><span class="comment">* int Status return value:</span></div>
<div class="line"><a id="l00262" name="l00262"></a><span class="lineno"> 262</span><span class="comment">* 0: Not equal.</span></div>
<div class="line"><a id="l00263" name="l00263"></a><span class="lineno"> 263</span><span class="comment">* 1: Equal.</span></div>
<div class="line"><a id="l00264" name="l00264"></a><span class="lineno"> 264</span><span class="comment">*</span></div>
<div class="line"><a id="l00265" name="l00265"></a><span class="lineno"> 265</span><span class="comment">*</span></div>
<div class="line"><a id="l00266" name="l00266"></a><span class="lineno"> 266</span><span class="comment">* wcsutil_intEq() - Test for equality of two arrays of type int</span></div>
<div class="line"><a id="l00267" name="l00267"></a><span class="lineno"> 267</span><span class="comment">* -------------------------------------------------------------</span></div>
<div class="line"><a id="l00268" name="l00268"></a><span class="lineno"> 268</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00269" name="l00269"></a><span class="lineno"> 269</span><span class="comment">*</span></div>
<div class="line"><a id="l00270" name="l00270"></a><span class="lineno"> 270</span><span class="comment">* wcsutil_intEq() tests for equality of two int arrays.</span></div>
<div class="line"><a id="l00271" name="l00271"></a><span class="lineno"> 271</span><span class="comment">*</span></div>
<div class="line"><a id="l00272" name="l00272"></a><span class="lineno"> 272</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00273" name="l00273"></a><span class="lineno"> 273</span><span class="comment">* nelem int The number of elements in each array.</span></div>
<div class="line"><a id="l00274" name="l00274"></a><span class="lineno"> 274</span><span class="comment">*</span></div>
<div class="line"><a id="l00275" name="l00275"></a><span class="lineno"> 275</span><span class="comment">* arr1 const int*</span></div>
<div class="line"><a id="l00276" name="l00276"></a><span class="lineno"> 276</span><span class="comment">* The first array.</span></div>
<div class="line"><a id="l00277" name="l00277"></a><span class="lineno"> 277</span><span class="comment">*</span></div>
<div class="line"><a id="l00278" name="l00278"></a><span class="lineno"> 278</span><span class="comment">* arr2 const int*</span></div>
<div class="line"><a id="l00279" name="l00279"></a><span class="lineno"> 279</span><span class="comment">* The second array</span></div>
<div class="line"><a id="l00280" name="l00280"></a><span class="lineno"> 280</span><span class="comment">*</span></div>
<div class="line"><a id="l00281" name="l00281"></a><span class="lineno"> 281</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00282" name="l00282"></a><span class="lineno"> 282</span><span class="comment">* int Status return value:</span></div>
<div class="line"><a id="l00283" name="l00283"></a><span class="lineno"> 283</span><span class="comment">* 0: Not equal.</span></div>
<div class="line"><a id="l00284" name="l00284"></a><span class="lineno"> 284</span><span class="comment">* 1: Equal.</span></div>
<div class="line"><a id="l00285" name="l00285"></a><span class="lineno"> 285</span><span class="comment">*</span></div>
<div class="line"><a id="l00286" name="l00286"></a><span class="lineno"> 286</span><span class="comment">*</span></div>
<div class="line"><a id="l00287" name="l00287"></a><span class="lineno"> 287</span><span class="comment">* wcsutil_strEq() - Test for equality of two string arrays</span></div>
<div class="line"><a id="l00288" name="l00288"></a><span class="lineno"> 288</span><span class="comment">* --------------------------------------------------------</span></div>
<div class="line"><a id="l00289" name="l00289"></a><span class="lineno"> 289</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00290" name="l00290"></a><span class="lineno"> 290</span><span class="comment">*</span></div>
<div class="line"><a id="l00291" name="l00291"></a><span class="lineno"> 291</span><span class="comment">* wcsutil_strEq() tests for equality of two string arrays.</span></div>
<div class="line"><a id="l00292" name="l00292"></a><span class="lineno"> 292</span><span class="comment">*</span></div>
<div class="line"><a id="l00293" name="l00293"></a><span class="lineno"> 293</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00294" name="l00294"></a><span class="lineno"> 294</span><span class="comment">* nelem int The number of elements in each array.</span></div>
<div class="line"><a id="l00295" name="l00295"></a><span class="lineno"> 295</span><span class="comment">*</span></div>
<div class="line"><a id="l00296" name="l00296"></a><span class="lineno"> 296</span><span class="comment">* arr1 const char**</span></div>
<div class="line"><a id="l00297" name="l00297"></a><span class="lineno"> 297</span><span class="comment">* The first array.</span></div>
<div class="line"><a id="l00298" name="l00298"></a><span class="lineno"> 298</span><span class="comment">*</span></div>
<div class="line"><a id="l00299" name="l00299"></a><span class="lineno"> 299</span><span class="comment">* arr2 const char**</span></div>
<div class="line"><a id="l00300" name="l00300"></a><span class="lineno"> 300</span><span class="comment">* The second array</span></div>
<div class="line"><a id="l00301" name="l00301"></a><span class="lineno"> 301</span><span class="comment">*</span></div>
<div class="line"><a id="l00302" name="l00302"></a><span class="lineno"> 302</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00303" name="l00303"></a><span class="lineno"> 303</span><span class="comment">* int Status return value:</span></div>
<div class="line"><a id="l00304" name="l00304"></a><span class="lineno"> 304</span><span class="comment">* 0: Not equal.</span></div>
<div class="line"><a id="l00305" name="l00305"></a><span class="lineno"> 305</span><span class="comment">* 1: Equal.</span></div>
<div class="line"><a id="l00306" name="l00306"></a><span class="lineno"> 306</span><span class="comment">*</span></div>
<div class="line"><a id="l00307" name="l00307"></a><span class="lineno"> 307</span><span class="comment">*</span></div>
<div class="line"><a id="l00308" name="l00308"></a><span class="lineno"> 308</span><span class="comment">* wcsutil_setAll() - Set a particular vector element</span></div>
<div class="line"><a id="l00309" name="l00309"></a><span class="lineno"> 309</span><span class="comment">* --------------------------------------------------</span></div>
<div class="line"><a id="l00310" name="l00310"></a><span class="lineno"> 310</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00311" name="l00311"></a><span class="lineno"> 311</span><span class="comment">*</span></div>
<div class="line"><a id="l00312" name="l00312"></a><span class="lineno"> 312</span><span class="comment">* wcsutil_setAll() sets the value of a particular element in a set of vectors</span></div>
<div class="line"><a id="l00313" name="l00313"></a><span class="lineno"> 313</span><span class="comment">* of type double.</span></div>
<div class="line"><a id="l00314" name="l00314"></a><span class="lineno"> 314</span><span class="comment">*</span></div>
<div class="line"><a id="l00315" name="l00315"></a><span class="lineno"> 315</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00316" name="l00316"></a><span class="lineno"> 316</span><span class="comment">* nvec int The number of vectors.</span></div>
<div class="line"><a id="l00317" name="l00317"></a><span class="lineno"> 317</span><span class="comment">*</span></div>
<div class="line"><a id="l00318" name="l00318"></a><span class="lineno"> 318</span><span class="comment">* nelem int The length of each vector.</span></div>
<div class="line"><a id="l00319" name="l00319"></a><span class="lineno"> 319</span><span class="comment">*</span></div>
<div class="line"><a id="l00320" name="l00320"></a><span class="lineno"> 320</span><span class="comment">* Given and returned:</span></div>
<div class="line"><a id="l00321" name="l00321"></a><span class="lineno"> 321</span><span class="comment">* first double* Pointer to the first element in the array, the value</span></div>
<div class="line"><a id="l00322" name="l00322"></a><span class="lineno"> 322</span><span class="comment">* of which is used to set the others</span></div>
<div class="line"><a id="l00323" name="l00323"></a><span class="lineno"> 323</span><span class="comment">*</span></div>
<div class="line"><a id="l00324" name="l00324"></a><span class="lineno"> 324</span><span class="comment">= *(first + nelem) = *first;</span></div>
<div class="line"><a id="l00325" name="l00325"></a><span class="lineno"> 325</span><span class="comment">= *(first + nelem*2) = *first;</span></div>
<div class="line"><a id="l00326" name="l00326"></a><span class="lineno"> 326</span><span class="comment">= :</span></div>
<div class="line"><a id="l00327" name="l00327"></a><span class="lineno"> 327</span><span class="comment">= *(first + nelem*(nvec-1)) = *first;</span></div>
<div class="line"><a id="l00328" name="l00328"></a><span class="lineno"> 328</span><span class="comment">*</span></div>
<div class="line"><a id="l00329" name="l00329"></a><span class="lineno"> 329</span><span class="comment">* The array might be dimensioned as</span></div>
<div class="line"><a id="l00330" name="l00330"></a><span class="lineno"> 330</span><span class="comment">*</span></div>
<div class="line"><a id="l00331" name="l00331"></a><span class="lineno"> 331</span><span class="comment">= double v[nvec][nelem];</span></div>
<div class="line"><a id="l00332" name="l00332"></a><span class="lineno"> 332</span><span class="comment">*</span></div>
<div class="line"><a id="l00333" name="l00333"></a><span class="lineno"> 333</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00334" name="l00334"></a><span class="lineno"> 334</span><span class="comment">* void</span></div>
<div class="line"><a id="l00335" name="l00335"></a><span class="lineno"> 335</span><span class="comment">*</span></div>
<div class="line"><a id="l00336" name="l00336"></a><span class="lineno"> 336</span><span class="comment">*</span></div>
<div class="line"><a id="l00337" name="l00337"></a><span class="lineno"> 337</span><span class="comment">* wcsutil_setAli() - Set a particular vector element</span></div>
<div class="line"><a id="l00338" name="l00338"></a><span class="lineno"> 338</span><span class="comment">* --------------------------------------------------</span></div>
<div class="line"><a id="l00339" name="l00339"></a><span class="lineno"> 339</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00340" name="l00340"></a><span class="lineno"> 340</span><span class="comment">*</span></div>
<div class="line"><a id="l00341" name="l00341"></a><span class="lineno"> 341</span><span class="comment">* wcsutil_setAli() sets the value of a particular element in a set of vectors</span></div>
<div class="line"><a id="l00342" name="l00342"></a><span class="lineno"> 342</span><span class="comment">* of type int.</span></div>
<div class="line"><a id="l00343" name="l00343"></a><span class="lineno"> 343</span><span class="comment">*</span></div>
<div class="line"><a id="l00344" name="l00344"></a><span class="lineno"> 344</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00345" name="l00345"></a><span class="lineno"> 345</span><span class="comment">* nvec int The number of vectors.</span></div>
<div class="line"><a id="l00346" name="l00346"></a><span class="lineno"> 346</span><span class="comment">*</span></div>
<div class="line"><a id="l00347" name="l00347"></a><span class="lineno"> 347</span><span class="comment">* nelem int The length of each vector.</span></div>
<div class="line"><a id="l00348" name="l00348"></a><span class="lineno"> 348</span><span class="comment">*</span></div>
<div class="line"><a id="l00349" name="l00349"></a><span class="lineno"> 349</span><span class="comment">* Given and returned:</span></div>
<div class="line"><a id="l00350" name="l00350"></a><span class="lineno"> 350</span><span class="comment">* first int* Pointer to the first element in the array, the value</span></div>
<div class="line"><a id="l00351" name="l00351"></a><span class="lineno"> 351</span><span class="comment">* of which is used to set the others</span></div>
<div class="line"><a id="l00352" name="l00352"></a><span class="lineno"> 352</span><span class="comment">*</span></div>
<div class="line"><a id="l00353" name="l00353"></a><span class="lineno"> 353</span><span class="comment">= *(first + nelem) = *first;</span></div>
<div class="line"><a id="l00354" name="l00354"></a><span class="lineno"> 354</span><span class="comment">= *(first + nelem*2) = *first;</span></div>
<div class="line"><a id="l00355" name="l00355"></a><span class="lineno"> 355</span><span class="comment">= :</span></div>
<div class="line"><a id="l00356" name="l00356"></a><span class="lineno"> 356</span><span class="comment">= *(first + nelem*(nvec-1)) = *first;</span></div>
<div class="line"><a id="l00357" name="l00357"></a><span class="lineno"> 357</span><span class="comment">*</span></div>
<div class="line"><a id="l00358" name="l00358"></a><span class="lineno"> 358</span><span class="comment">* The array might be dimensioned as</span></div>
<div class="line"><a id="l00359" name="l00359"></a><span class="lineno"> 359</span><span class="comment">*</span></div>
<div class="line"><a id="l00360" name="l00360"></a><span class="lineno"> 360</span><span class="comment">= int v[nvec][nelem];</span></div>
<div class="line"><a id="l00361" name="l00361"></a><span class="lineno"> 361</span><span class="comment">*</span></div>
<div class="line"><a id="l00362" name="l00362"></a><span class="lineno"> 362</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00363" name="l00363"></a><span class="lineno"> 363</span><span class="comment">* void</span></div>
<div class="line"><a id="l00364" name="l00364"></a><span class="lineno"> 364</span><span class="comment">*</span></div>
<div class="line"><a id="l00365" name="l00365"></a><span class="lineno"> 365</span><span class="comment">*</span></div>
<div class="line"><a id="l00366" name="l00366"></a><span class="lineno"> 366</span><span class="comment">* wcsutil_setBit() - Set bits in selected elements of an array</span></div>
<div class="line"><a id="l00367" name="l00367"></a><span class="lineno"> 367</span><span class="comment">* ------------------------------------------------------------</span></div>
<div class="line"><a id="l00368" name="l00368"></a><span class="lineno"> 368</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00369" name="l00369"></a><span class="lineno"> 369</span><span class="comment">*</span></div>
<div class="line"><a id="l00370" name="l00370"></a><span class="lineno"> 370</span><span class="comment">* wcsutil_setBit() sets bits in selected elements of an array.</span></div>
<div class="line"><a id="l00371" name="l00371"></a><span class="lineno"> 371</span><span class="comment">*</span></div>
<div class="line"><a id="l00372" name="l00372"></a><span class="lineno"> 372</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00373" name="l00373"></a><span class="lineno"> 373</span><span class="comment">* nelem int Number of elements in the array.</span></div>
<div class="line"><a id="l00374" name="l00374"></a><span class="lineno"> 374</span><span class="comment">*</span></div>
<div class="line"><a id="l00375" name="l00375"></a><span class="lineno"> 375</span><span class="comment">* sel const int*</span></div>
<div class="line"><a id="l00376" name="l00376"></a><span class="lineno"> 376</span><span class="comment">* Address of a selection array of length nelem. May</span></div>
<div class="line"><a id="l00377" name="l00377"></a><span class="lineno"> 377</span><span class="comment">* be specified as the null pointer in which case all</span></div>
<div class="line"><a id="l00378" name="l00378"></a><span class="lineno"> 378</span><span class="comment">* elements are selected.</span></div>
<div class="line"><a id="l00379" name="l00379"></a><span class="lineno"> 379</span><span class="comment">*</span></div>
<div class="line"><a id="l00380" name="l00380"></a><span class="lineno"> 380</span><span class="comment">* bits int Bit mask.</span></div>
<div class="line"><a id="l00381" name="l00381"></a><span class="lineno"> 381</span><span class="comment">*</span></div>
<div class="line"><a id="l00382" name="l00382"></a><span class="lineno"> 382</span><span class="comment">* Given and returned:</span></div>
<div class="line"><a id="l00383" name="l00383"></a><span class="lineno"> 383</span><span class="comment">* array int* Address of the array of length nelem.</span></div>
<div class="line"><a id="l00384" name="l00384"></a><span class="lineno"> 384</span><span class="comment">*</span></div>
<div class="line"><a id="l00385" name="l00385"></a><span class="lineno"> 385</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00386" name="l00386"></a><span class="lineno"> 386</span><span class="comment">* void</span></div>
<div class="line"><a id="l00387" name="l00387"></a><span class="lineno"> 387</span><span class="comment">*</span></div>
<div class="line"><a id="l00388" name="l00388"></a><span class="lineno"> 388</span><span class="comment">*</span></div>
<div class="line"><a id="l00389" name="l00389"></a><span class="lineno"> 389</span><span class="comment">* wcsutil_fptr2str() - Translate pointer-to-function to string</span></div>
<div class="line"><a id="l00390" name="l00390"></a><span class="lineno"> 390</span><span class="comment">* ------------------------------------------------------------</span></div>
<div class="line"><a id="l00391" name="l00391"></a><span class="lineno"> 391</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00392" name="l00392"></a><span class="lineno"> 392</span><span class="comment">*</span></div>
<div class="line"><a id="l00393" name="l00393"></a><span class="lineno"> 393</span><span class="comment">* wcsutil_fptr2str() translates a pointer-to-function to hexadecimal string</span></div>
<div class="line"><a id="l00394" name="l00394"></a><span class="lineno"> 394</span><span class="comment">* representation for output. It is used by the various routines that print</span></div>
<div class="line"><a id="l00395" name="l00395"></a><span class="lineno"> 395</span><span class="comment">* the contents of WCSLIB structs, noting that it is not strictly legal to</span></div>
<div class="line"><a id="l00396" name="l00396"></a><span class="lineno"> 396</span><span class="comment">* type-pun a function pointer to void*. See</span></div>
<div class="line"><a id="l00397" name="l00397"></a><span class="lineno"> 397</span><span class="comment">* http://stackoverflow.com/questions/2741683/how-to-format-a-function-pointer</span></div>
<div class="line"><a id="l00398" name="l00398"></a><span class="lineno"> 398</span><span class="comment">*</span></div>
<div class="line"><a id="l00399" name="l00399"></a><span class="lineno"> 399</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00400" name="l00400"></a><span class="lineno"> 400</span><span class="comment">* fptr void(*)() Pointer to function.</span></div>
<div class="line"><a id="l00401" name="l00401"></a><span class="lineno"> 401</span><span class="comment">*</span></div>
<div class="line"><a id="l00402" name="l00402"></a><span class="lineno"> 402</span><span class="comment">* Returned:</span></div>
<div class="line"><a id="l00403" name="l00403"></a><span class="lineno"> 403</span><span class="comment">* hext char[19] Null-terminated string. Should be at least 19 bytes</span></div>
<div class="line"><a id="l00404" name="l00404"></a><span class="lineno"> 404</span><span class="comment">* in size to accomodate a 64-bit address (16 bytes in</span></div>
<div class="line"><a id="l00405" name="l00405"></a><span class="lineno"> 405</span><span class="comment">* hex), plus the leading "0x" and trailing '\0'.</span></div>
<div class="line"><a id="l00406" name="l00406"></a><span class="lineno"> 406</span><span class="comment">*</span></div>
<div class="line"><a id="l00407" name="l00407"></a><span class="lineno"> 407</span><span class="comment">* Function return value:</span></div>
<div class="line"><a id="l00408" name="l00408"></a><span class="lineno"> 408</span><span class="comment">* char * The address of hext.</span></div>
<div class="line"><a id="l00409" name="l00409"></a><span class="lineno"> 409</span><span class="comment">*</span></div>
<div class="line"><a id="l00410" name="l00410"></a><span class="lineno"> 410</span><span class="comment">*</span></div>
<div class="line"><a id="l00411" name="l00411"></a><span class="lineno"> 411</span><span class="comment">* wcsutil_double2str() - Translate double to string ignoring the locale</span></div>
<div class="line"><a id="l00412" name="l00412"></a><span class="lineno"> 412</span><span class="comment">* ---------------------------------------------------------------------</span></div>
<div class="line"><a id="l00413" name="l00413"></a><span class="lineno"> 413</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00414" name="l00414"></a><span class="lineno"> 414</span><span class="comment">*</span></div>
<div class="line"><a id="l00415" name="l00415"></a><span class="lineno"> 415</span><span class="comment">* wcsutil_double2str() converts a double to a string, but unlike sprintf() it</span></div>
<div class="line"><a id="l00416" name="l00416"></a><span class="lineno"> 416</span><span class="comment">* ignores the locale and always uses a '.' as the decimal separator. Also,</span></div>
<div class="line"><a id="l00417" name="l00417"></a><span class="lineno"> 417</span><span class="comment">* unless it includes an exponent, the formatted value will always have a</span></div>
<div class="line"><a id="l00418" name="l00418"></a><span class="lineno"> 418</span><span class="comment">* fractional part, ".0" being appended if necessary.</span></div>
<div class="line"><a id="l00419" name="l00419"></a><span class="lineno"> 419</span><span class="comment">*</span></div>
<div class="line"><a id="l00420" name="l00420"></a><span class="lineno"> 420</span><span class="comment">* Returned:</span></div>
<div class="line"><a id="l00421" name="l00421"></a><span class="lineno"> 421</span><span class="comment">* buf char * The buffer to write the string into.</span></div>
<div class="line"><a id="l00422" name="l00422"></a><span class="lineno"> 422</span><span class="comment">*</span></div>
<div class="line"><a id="l00423" name="l00423"></a><span class="lineno"> 423</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00424" name="l00424"></a><span class="lineno"> 424</span><span class="comment">* format char * The formatting directive, such as "%f". This</span></div>
<div class="line"><a id="l00425" name="l00425"></a><span class="lineno"> 425</span><span class="comment">* may be any of the forms accepted by sprintf(), but</span></div>
<div class="line"><a id="l00426" name="l00426"></a><span class="lineno"> 426</span><span class="comment">* should only include a formatting directive and</span></div>
<div class="line"><a id="l00427" name="l00427"></a><span class="lineno"> 427</span><span class="comment">* nothing else. For "%g" and "%G" formats, unless it</span></div>
<div class="line"><a id="l00428" name="l00428"></a><span class="lineno"> 428</span><span class="comment">* includes an exponent, the formatted value will always</span></div>
<div class="line"><a id="l00429" name="l00429"></a><span class="lineno"> 429</span><span class="comment">* have a fractional part, ".0" being appended if</span></div>
<div class="line"><a id="l00430" name="l00430"></a><span class="lineno"> 430</span><span class="comment">* necessary.</span></div>
<div class="line"><a id="l00431" name="l00431"></a><span class="lineno"> 431</span><span class="comment">*</span></div>
<div class="line"><a id="l00432" name="l00432"></a><span class="lineno"> 432</span><span class="comment">* value double The value to convert to a string.</span></div>
<div class="line"><a id="l00433" name="l00433"></a><span class="lineno"> 433</span><span class="comment">*</span></div>
<div class="line"><a id="l00434" name="l00434"></a><span class="lineno"> 434</span><span class="comment">*</span></div>
<div class="line"><a id="l00435" name="l00435"></a><span class="lineno"> 435</span><span class="comment">* wcsutil_str2double() - Translate string to a double, ignoring the locale</span></div>
<div class="line"><a id="l00436" name="l00436"></a><span class="lineno"> 436</span><span class="comment">* ------------------------------------------------------------------------</span></div>
<div class="line"><a id="l00437" name="l00437"></a><span class="lineno"> 437</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00438" name="l00438"></a><span class="lineno"> 438</span><span class="comment">*</span></div>
<div class="line"><a id="l00439" name="l00439"></a><span class="lineno"> 439</span><span class="comment">* wcsutil_str2double() converts a string to a double, but unlike sscanf() it</span></div>
<div class="line"><a id="l00440" name="l00440"></a><span class="lineno"> 440</span><span class="comment">* ignores the locale and always expects a '.' as the decimal separator.</span></div>
<div class="line"><a id="l00441" name="l00441"></a><span class="lineno"> 441</span><span class="comment">*</span></div>
<div class="line"><a id="l00442" name="l00442"></a><span class="lineno"> 442</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00443" name="l00443"></a><span class="lineno"> 443</span><span class="comment">* buf char * The string containing the value</span></div>
<div class="line"><a id="l00444" name="l00444"></a><span class="lineno"> 444</span><span class="comment">*</span></div>
<div class="line"><a id="l00445" name="l00445"></a><span class="lineno"> 445</span><span class="comment">* Returned:</span></div>
<div class="line"><a id="l00446" name="l00446"></a><span class="lineno"> 446</span><span class="comment">* value double * The double value parsed from the string.</span></div>
<div class="line"><a id="l00447" name="l00447"></a><span class="lineno"> 447</span><span class="comment">*</span></div>
<div class="line"><a id="l00448" name="l00448"></a><span class="lineno"> 448</span><span class="comment">*</span></div>
<div class="line"><a id="l00449" name="l00449"></a><span class="lineno"> 449</span><span class="comment">* wcsutil_str2double2() - Translate string to doubles, ignoring the locale</span></div>
<div class="line"><a id="l00450" name="l00450"></a><span class="lineno"> 450</span><span class="comment">* ------------------------------------------------------------------------</span></div>
<div class="line"><a id="l00451" name="l00451"></a><span class="lineno"> 451</span><span class="comment">* INTERNAL USE ONLY.</span></div>
<div class="line"><a id="l00452" name="l00452"></a><span class="lineno"> 452</span><span class="comment">*</span></div>
<div class="line"><a id="l00453" name="l00453"></a><span class="lineno"> 453</span><span class="comment">* wcsutil_str2double2() converts a string to a pair of doubles containing the</span></div>
<div class="line"><a id="l00454" name="l00454"></a><span class="lineno"> 454</span><span class="comment">* integer and fractional parts. Unlike sscanf() it ignores the locale and</span></div>
<div class="line"><a id="l00455" name="l00455"></a><span class="lineno"> 455</span><span class="comment">* always expects a '.' as the decimal separator.</span></div>
<div class="line"><a id="l00456" name="l00456"></a><span class="lineno"> 456</span><span class="comment">*</span></div>
<div class="line"><a id="l00457" name="l00457"></a><span class="lineno"> 457</span><span class="comment">* Given:</span></div>
<div class="line"><a id="l00458" name="l00458"></a><span class="lineno"> 458</span><span class="comment">* buf char * The string containing the value</span></div>
<div class="line"><a id="l00459" name="l00459"></a><span class="lineno"> 459</span><span class="comment">*</span></div>
<div class="line"><a id="l00460" name="l00460"></a><span class="lineno"> 460</span><span class="comment">* Returned:</span></div>
<div class="line"><a id="l00461" name="l00461"></a><span class="lineno"> 461</span><span class="comment">* value double[2] The double value, split into integer and fractional</span></div>
<div class="line"><a id="l00462" name="l00462"></a><span class="lineno"> 462</span><span class="comment">* parts, parsed from the string.</span></div>
<div class="line"><a id="l00463" name="l00463"></a><span class="lineno"> 463</span><span class="comment">*</span></div>
<div class="line"><a id="l00464" name="l00464"></a><span class="lineno"> 464</span><span class="comment">*===========================================================================*/</span></div>
<div class="line"><a id="l00465" name="l00465"></a><span class="lineno"> 465</span> </div>
<div class="line"><a id="l00466" name="l00466"></a><span class="lineno"> 466</span><span class="preprocessor">#ifndef WCSLIB_WCSUTIL</span></div>
<div class="line"><a id="l00467" name="l00467"></a><span class="lineno"> 467</span><span class="preprocessor">#define WCSLIB_WCSUTIL</span></div>
<div class="line"><a id="l00468" name="l00468"></a><span class="lineno"> 468</span> </div>
<div class="line"><a id="l00469" name="l00469"></a><span class="lineno"> 469</span><span class="preprocessor">#ifdef __cplusplus</span></div>
<div class="line"><a id="l00470" name="l00470"></a><span class="lineno"> 470</span><span class="keyword">extern</span> <span class="stringliteral">"C"</span> {</div>
<div class="line"><a id="l00471" name="l00471"></a><span class="lineno"> 471</span><span class="preprocessor">#endif</span></div>
<div class="line"><a id="l00472" name="l00472"></a><span class="lineno"> 472</span> </div>
<div class="line"><a id="l00473" name="l00473"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a6b603ff362203ad122fe67a47d10cb9a"> 473</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#a6b603ff362203ad122fe67a47d10cb9a">wcsdealloc</a>(<span class="keywordtype">void</span> *ptr);</div>
<div class="line"><a id="l00474" name="l00474"></a><span class="lineno"> 474</span> </div>
<div class="line"><a id="l00475" name="l00475"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a803812fd67b053f3084e0d40d68125f1"> 475</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#a803812fd67b053f3084e0d40d68125f1">wcsutil_strcvt</a>(<span class="keywordtype">int</span> n, <span class="keywordtype">char</span> c, <span class="keywordtype">int</span> nt, <span class="keyword">const</span> <span class="keywordtype">char</span> src[], <span class="keywordtype">char</span> dst[]);</div>
<div class="line"><a id="l00476" name="l00476"></a><span class="lineno"> 476</span> </div>
<div class="line"><a id="l00477" name="l00477"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a38322fa65b3bad54552d374d873ad037"> 477</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#a38322fa65b3bad54552d374d873ad037">wcsutil_blank_fill</a>(<span class="keywordtype">int</span> n, <span class="keywordtype">char</span> c[]);</div>
<div class="line"><a id="l00478" name="l00478"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a9d96f343fc444f8c6f1fa01367c4d765"> 478</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#a9d96f343fc444f8c6f1fa01367c4d765">wcsutil_null_fill</a> (<span class="keywordtype">int</span> n, <span class="keywordtype">char</span> c[]);</div>
<div class="line"><a id="l00479" name="l00479"></a><span class="lineno"> 479</span> </div>
<div class="line"><a id="l00480" name="l00480"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#ad6a7b226aa497d078c6dc16279417a11"> 480</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#ad6a7b226aa497d078c6dc16279417a11">wcsutil_all_ival</a>(<span class="keywordtype">int</span> nelem, <span class="keywordtype">int</span> ival, <span class="keyword">const</span> <span class="keywordtype">int</span> iarr[]);</div>
<div class="line"><a id="l00481" name="l00481"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#ab187f2189905b9f1a9102ef578a47e19"> 481</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#ab187f2189905b9f1a9102ef578a47e19">wcsutil_all_dval</a>(<span class="keywordtype">int</span> nelem, <span class="keywordtype">double</span> dval, <span class="keyword">const</span> <span class="keywordtype">double</span> darr[]);</div>
<div class="line"><a id="l00482" name="l00482"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a19b45e9365d1f01c92958fc1f1485f11"> 482</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#a19b45e9365d1f01c92958fc1f1485f11">wcsutil_all_sval</a>(<span class="keywordtype">int</span> nelem, <span class="keyword">const</span> <span class="keywordtype">char</span> *sval, <span class="keyword">const</span> <span class="keywordtype">char</span> (*sarr)[72]);</div>
<div class="line"><a id="l00483" name="l00483"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a4c7c5a686aaa39f511598b32e944ac68"> 483</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#a4c7c5a686aaa39f511598b32e944ac68">wcsutil_allEq</a> (<span class="keywordtype">int</span> nvec, <span class="keywordtype">int</span> nelem, <span class="keyword">const</span> <span class="keywordtype">double</span> *first);</div>
<div class="line"><a id="l00484" name="l00484"></a><span class="lineno"> 484</span> </div>
<div class="line"><a id="l00485" name="l00485"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#aa192ce2ee7e50735284c5748ecdd7cce"> 485</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#aa192ce2ee7e50735284c5748ecdd7cce">wcsutil_dblEq</a>(<span class="keywordtype">int</span> nelem, <span class="keywordtype">double</span> tol, <span class="keyword">const</span> <span class="keywordtype">double</span> *arr1,</div>
<div class="line"><a id="l00486" name="l00486"></a><span class="lineno"> 486</span> <span class="keyword">const</span> <span class="keywordtype">double</span> *arr2);</div>
<div class="line"><a id="l00487" name="l00487"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#aa5bbbba74625c61cc2aec6f592021239"> 487</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#aa5bbbba74625c61cc2aec6f592021239">wcsutil_intEq</a>(<span class="keywordtype">int</span> nelem, <span class="keyword">const</span> <span class="keywordtype">int</span> *arr1, <span class="keyword">const</span> <span class="keywordtype">int</span> *arr2);</div>
<div class="line"><a id="l00488" name="l00488"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#abd917d05f3d66f641a2edf11edc34137"> 488</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#abd917d05f3d66f641a2edf11edc34137">wcsutil_strEq</a>(<span class="keywordtype">int</span> nelem, <span class="keywordtype">char</span> (*arr1)[72], <span class="keywordtype">char</span> (*arr2)[72]);</div>
<div class="line"><a id="l00489" name="l00489"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#afe7f963c2038673015bbce204c4a8171"> 489</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#afe7f963c2038673015bbce204c4a8171">wcsutil_setAll</a>(<span class="keywordtype">int</span> nvec, <span class="keywordtype">int</span> nelem, <span class="keywordtype">double</span> *first);</div>
<div class="line"><a id="l00490" name="l00490"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#ab32722081f8cda184d7ada6d734c637c"> 490</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#ab32722081f8cda184d7ada6d734c637c">wcsutil_setAli</a>(<span class="keywordtype">int</span> nvec, <span class="keywordtype">int</span> nelem, <span class="keywordtype">int</span> *first);</div>
<div class="line"><a id="l00491" name="l00491"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a0d982911e7f694a751f2887ea38890e4"> 491</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#a0d982911e7f694a751f2887ea38890e4">wcsutil_setBit</a>(<span class="keywordtype">int</span> nelem, <span class="keyword">const</span> <span class="keywordtype">int</span> *sel, <span class="keywordtype">int</span> bits, <span class="keywordtype">int</span> *array);</div>
<div class="line"><a id="l00492" name="l00492"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#ab2c00908a4de5c3838a7e30de2cd8944"> 492</a></span><span class="keywordtype">char</span> *<a class="code hl_function" href="wcsutil_8h.html#ab2c00908a4de5c3838a7e30de2cd8944">wcsutil_fptr2str</a>(<span class="keywordtype">void</span> (*fptr)(<span class="keywordtype">void</span>), <span class="keywordtype">char</span> hext[19]);</div>
<div class="line"><a id="l00493" name="l00493"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a1f7aec8e3deb2a3f206f81f0cdc50843"> 493</a></span><span class="keywordtype">void</span> <a class="code hl_function" href="wcsutil_8h.html#a1f7aec8e3deb2a3f206f81f0cdc50843">wcsutil_double2str</a>(<span class="keywordtype">char</span> *buf, <span class="keyword">const</span> <span class="keywordtype">char</span> *format, <span class="keywordtype">double</span> value);</div>
<div class="line"><a id="l00494" name="l00494"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#ac0d3806fca9d81d31e345e688d832663"> 494</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#ac0d3806fca9d81d31e345e688d832663">wcsutil_str2double</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *buf, <span class="keywordtype">double</span> *value);</div>
<div class="line"><a id="l00495" name="l00495"></a><span class="lineno"><a class="line" href="wcsutil_8h.html#a858672ab9b8658db53c13b17619a7026"> 495</a></span><span class="keywordtype">int</span> <a class="code hl_function" href="wcsutil_8h.html#a858672ab9b8658db53c13b17619a7026">wcsutil_str2double2</a>(<span class="keyword">const</span> <span class="keywordtype">char</span> *buf, <span class="keywordtype">double</span> *value);</div>
<div class="line"><a id="l00496" name="l00496"></a><span class="lineno"> 496</span> </div>
<div class="line"><a id="l00497" name="l00497"></a><span class="lineno"> 497</span><span class="preprocessor">#ifdef __cplusplus</span></div>
<div class="line"><a id="l00498" name="l00498"></a><span class="lineno"> 498</span>}</div>
<div class="line"><a id="l00499" name="l00499"></a><span class="lineno"> 499</span><span class="preprocessor">#endif</span></div>
<div class="line"><a id="l00500" name="l00500"></a><span class="lineno"> 500</span> </div>
<div class="line"><a id="l00501" name="l00501"></a><span class="lineno"> 501</span><span class="preprocessor">#endif </span><span class="comment">// WCSLIB_WCSUTIL</span></div>
<div class="ttc" id="awcsutil_8h_html_a0d982911e7f694a751f2887ea38890e4"><div class="ttname"><a href="wcsutil_8h.html#a0d982911e7f694a751f2887ea38890e4">wcsutil_setBit</a></div><div class="ttdeci">void wcsutil_setBit(int nelem, const int *sel, int bits, int *array)</div><div class="ttdoc">Set bits in selected elements of an array.</div></div>
<div class="ttc" id="awcsutil_8h_html_a19b45e9365d1f01c92958fc1f1485f11"><div class="ttname"><a href="wcsutil_8h.html#a19b45e9365d1f01c92958fc1f1485f11">wcsutil_all_sval</a></div><div class="ttdeci">int wcsutil_all_sval(int nelem, const char *sval, const char(*sarr)[72])</div><div class="ttdoc">Test if all elements a string array have a given value.</div></div>
<div class="ttc" id="awcsutil_8h_html_a1f7aec8e3deb2a3f206f81f0cdc50843"><div class="ttname"><a href="wcsutil_8h.html#a1f7aec8e3deb2a3f206f81f0cdc50843">wcsutil_double2str</a></div><div class="ttdeci">void wcsutil_double2str(char *buf, const char *format, double value)</div><div class="ttdoc">Translate double to string ignoring the locale.</div></div>
<div class="ttc" id="awcsutil_8h_html_a38322fa65b3bad54552d374d873ad037"><div class="ttname"><a href="wcsutil_8h.html#a38322fa65b3bad54552d374d873ad037">wcsutil_blank_fill</a></div><div class="ttdeci">void wcsutil_blank_fill(int n, char c[])</div><div class="ttdoc">Fill a character string with blanks.</div></div>
<div class="ttc" id="awcsutil_8h_html_a4c7c5a686aaa39f511598b32e944ac68"><div class="ttname"><a href="wcsutil_8h.html#a4c7c5a686aaa39f511598b32e944ac68">wcsutil_allEq</a></div><div class="ttdeci">int wcsutil_allEq(int nvec, int nelem, const double *first)</div><div class="ttdoc">Test for equality of a particular vector element.</div></div>
<div class="ttc" id="awcsutil_8h_html_a6b603ff362203ad122fe67a47d10cb9a"><div class="ttname"><a href="wcsutil_8h.html#a6b603ff362203ad122fe67a47d10cb9a">wcsdealloc</a></div><div class="ttdeci">void wcsdealloc(void *ptr)</div><div class="ttdoc">free memory allocated by WCSLIB functions.</div></div>
<div class="ttc" id="awcsutil_8h_html_a803812fd67b053f3084e0d40d68125f1"><div class="ttname"><a href="wcsutil_8h.html#a803812fd67b053f3084e0d40d68125f1">wcsutil_strcvt</a></div><div class="ttdeci">void wcsutil_strcvt(int n, char c, int nt, const char src[], char dst[])</div><div class="ttdoc">Copy character string with padding.</div></div>
<div class="ttc" id="awcsutil_8h_html_a858672ab9b8658db53c13b17619a7026"><div class="ttname"><a href="wcsutil_8h.html#a858672ab9b8658db53c13b17619a7026">wcsutil_str2double2</a></div><div class="ttdeci">int wcsutil_str2double2(const char *buf, double *value)</div><div class="ttdoc">Translate string to doubles, ignoring the locale.</div></div>
<div class="ttc" id="awcsutil_8h_html_a9d96f343fc444f8c6f1fa01367c4d765"><div class="ttname"><a href="wcsutil_8h.html#a9d96f343fc444f8c6f1fa01367c4d765">wcsutil_null_fill</a></div><div class="ttdeci">void wcsutil_null_fill(int n, char c[])</div><div class="ttdoc">Fill a character string with NULLs.</div></div>
<div class="ttc" id="awcsutil_8h_html_aa192ce2ee7e50735284c5748ecdd7cce"><div class="ttname"><a href="wcsutil_8h.html#aa192ce2ee7e50735284c5748ecdd7cce">wcsutil_dblEq</a></div><div class="ttdeci">int wcsutil_dblEq(int nelem, double tol, const double *arr1, const double *arr2)</div><div class="ttdoc">Test for equality of two arrays of type double.</div></div>
<div class="ttc" id="awcsutil_8h_html_aa5bbbba74625c61cc2aec6f592021239"><div class="ttname"><a href="wcsutil_8h.html#aa5bbbba74625c61cc2aec6f592021239">wcsutil_intEq</a></div><div class="ttdeci">int wcsutil_intEq(int nelem, const int *arr1, const int *arr2)</div><div class="ttdoc">Test for equality of two arrays of type int.</div></div>
<div class="ttc" id="awcsutil_8h_html_ab187f2189905b9f1a9102ef578a47e19"><div class="ttname"><a href="wcsutil_8h.html#ab187f2189905b9f1a9102ef578a47e19">wcsutil_all_dval</a></div><div class="ttdeci">int wcsutil_all_dval(int nelem, double dval, const double darr[])</div><div class="ttdoc">Test if all elements a double array have a given value.</div></div>
<div class="ttc" id="awcsutil_8h_html_ab2c00908a4de5c3838a7e30de2cd8944"><div class="ttname"><a href="wcsutil_8h.html#ab2c00908a4de5c3838a7e30de2cd8944">wcsutil_fptr2str</a></div><div class="ttdeci">char * wcsutil_fptr2str(void(*fptr)(void), char hext[19])</div><div class="ttdoc">Translate pointer-to-function to string.</div></div>
<div class="ttc" id="awcsutil_8h_html_ab32722081f8cda184d7ada6d734c637c"><div class="ttname"><a href="wcsutil_8h.html#ab32722081f8cda184d7ada6d734c637c">wcsutil_setAli</a></div><div class="ttdeci">void wcsutil_setAli(int nvec, int nelem, int *first)</div><div class="ttdoc">Set a particular vector element.</div></div>
<div class="ttc" id="awcsutil_8h_html_abd917d05f3d66f641a2edf11edc34137"><div class="ttname"><a href="wcsutil_8h.html#abd917d05f3d66f641a2edf11edc34137">wcsutil_strEq</a></div><div class="ttdeci">int wcsutil_strEq(int nelem, char(*arr1)[72], char(*arr2)[72])</div><div class="ttdoc">Test for equality of two string arrays.</div></div>
<div class="ttc" id="awcsutil_8h_html_ac0d3806fca9d81d31e345e688d832663"><div class="ttname"><a href="wcsutil_8h.html#ac0d3806fca9d81d31e345e688d832663">wcsutil_str2double</a></div><div class="ttdeci">int wcsutil_str2double(const char *buf, double *value)</div><div class="ttdoc">Translate string to a double, ignoring the locale.</div></div>
<div class="ttc" id="awcsutil_8h_html_ad6a7b226aa497d078c6dc16279417a11"><div class="ttname"><a href="wcsutil_8h.html#ad6a7b226aa497d078c6dc16279417a11">wcsutil_all_ival</a></div><div class="ttdeci">int wcsutil_all_ival(int nelem, int ival, const int iarr[])</div><div class="ttdoc">Test if all elements an int array have a given value.</div></div>
<div class="ttc" id="awcsutil_8h_html_afe7f963c2038673015bbce204c4a8171"><div class="ttname"><a href="wcsutil_8h.html#afe7f963c2038673015bbce204c4a8171">wcsutil_setAll</a></div><div class="ttdeci">void wcsutil_setAll(int nvec, int nelem, double *first)</div><div class="ttdoc">Set a particular vector element.</div></div>
</div><!-- fragment --></div><!-- contents -->
<!-- start footer part -->
<hr class="footer"/><address class="footer"><small>
Generated on Wed Nov 29 2023 19:09:57 for WCSLIB by <a href="https://www.doxygen.org/index.html"><img class="footer" src="doxygen.svg" width="104" height="31" alt="doxygen"/></a> 1.9.8
</small></address>
</body>
</html>
Browse
Usage
Versions