1 /* filld.f -- translated by f2c (version 19980913).
2 You must link the resulting object file with the libraries:
3 -lf2c -lm (in that order)
4 */
5
6 #include "f2c.h"
7
8 /* $Procedure FILLD ( Fill a double precision array ) */
filld_(doublereal * value,integer * ndim,doublereal * array)9 /* Subroutine */ int filld_(doublereal *value, integer *ndim, doublereal *
10 array)
11 {
12 /* System generated locals */
13 integer i__1;
14
15 /* Local variables */
16 integer i__;
17
18 /* $ Abstract */
19
20 /* Fill a double precision array with a specified value. */
21
22 /* $ Disclaimer */
23
24 /* THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE */
25 /* CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. */
26 /* GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE */
27 /* ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE */
28 /* PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" */
29 /* TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY */
30 /* WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A */
31 /* PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC */
32 /* SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE */
33 /* SOFTWARE AND RELATED MATERIALS, HOWEVER USED. */
34
35 /* IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA */
36 /* BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT */
37 /* LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, */
38 /* INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, */
39 /* REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE */
40 /* REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. */
41
42 /* RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF */
43 /* THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY */
44 /* CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE */
45 /* ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. */
46
47 /* $ Required_Reading */
48
49 /* None. */
50
51 /* $ Keywords */
52
53 /* ARRAY, ASSIGNMENT */
54
55 /* $ Declarations */
56 /* $ Brief_I/O */
57
58 /* VARIABLE I/O DESCRIPTION */
59 /* -------- --- ------------------------------------------------------ */
60 /* VALUE I Double precision value to be placed in all the */
61 /* elements of ARRAY. */
62 /* NDIM I The number of elements in ARRAY. */
63 /* ARRAY O Double precision array which is to be filled. */
64
65 /* $ Detailed_Input */
66
67 /* VALUE is the value to be assigned to the array elements */
68 /* 1 through NDIM. */
69
70 /* NDIM is the number of elements in the array. */
71
72 /* $ Detailed_Output */
73
74 /* ARRAY is a double precision array whose elements are to be */
75 /* set to VALUE. */
76
77 /* $ Parameters */
78
79 /* None. */
80
81 /* $ Particulars */
82
83 /* None. */
84
85 /* $ Examples */
86
87 /* Let VALUE = 1.0D0 */
88 /* NDIM = 4 */
89
90 /* then the contents of ARRAY are: */
91
92 /* ARRAY (1) = 1.0D0 */
93 /* ARRAY (2) = 1.0D0 */
94 /* ARRAY (3) = 1.0D0 */
95 /* ARRAY (4) = 1.0D0 */
96
97 /* $ Restrictions */
98
99 /* None. */
100
101 /* $ Exceptions */
102
103 /* Error free. */
104
105 /* 1) If NDIM < 1 the array is not modified. */
106
107 /* $ Files */
108
109 /* None. */
110
111 /* $ Author_and_Institution */
112
113 /* W.M. Owen (JPL) */
114
115 /* $ Literature_References */
116
117 /* None. */
118
119 /* $ Version */
120
121 /* - SPICELIB Version 1.0.1, 10-MAR-1992 (WLT) */
122
123 /* Comment section for permuted index source lines was added */
124 /* following the header. */
125
126 /* - SPICELIB Version 1.0.0, 31-JAN-1990 (WMO) */
127
128 /* -& */
129 /* $ Index_Entries */
130
131 /* fill a d.p. array */
132
133 /* -& */
134
135 /* Local variables */
136
137 i__1 = *ndim;
138 for (i__ = 1; i__ <= i__1; ++i__) {
139 array[i__ - 1] = *value;
140 }
141 return 0;
142 } /* filld_ */
143
144