Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/gammainc.cc @ 10154:40dfc0c99116

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DLD-FUNCTIONS/*.cc: untabify
author John W. Eaton <jwe@octave.org>
date Wed, 20 Jan 2010 17:33:41 -0500
parents 09da0bd91412
children d0ce5e973937
comparison
equal deleted inserted replaced
10153:2c28f9d0360f 10154:40dfc0c99116
73 octave_value x_arg = args(0); 73 octave_value x_arg = args(0);
74 octave_value a_arg = args(1); 74 octave_value a_arg = args(1);
75 75
76 // FIXME Can we make a template version of the duplicated code below 76 // FIXME Can we make a template version of the duplicated code below
77 if (x_arg.is_single_type () || a_arg.is_single_type ()) 77 if (x_arg.is_single_type () || a_arg.is_single_type ())
78 { 78 {
79 if (x_arg.is_scalar_type ()) 79 if (x_arg.is_scalar_type ())
80 { 80 {
81 float x = x_arg.float_value (); 81 float x = x_arg.float_value ();
82 82
83 if (! error_state) 83 if (! error_state)
84 { 84 {
85 if (a_arg.is_scalar_type ()) 85 if (a_arg.is_scalar_type ())
86 { 86 {
87 float a = a_arg.float_value (); 87 float a = a_arg.float_value ();
88 88
89 if (! error_state) 89 if (! error_state)
90 retval = gammainc (x, a); 90 retval = gammainc (x, a);
91 } 91 }
92 else 92 else
93 { 93 {
94 FloatNDArray a = a_arg.float_array_value (); 94 FloatNDArray a = a_arg.float_array_value ();
95 95
96 if (! error_state) 96 if (! error_state)
97 retval = gammainc (x, a); 97 retval = gammainc (x, a);
98 } 98 }
99 } 99 }
100 } 100 }
101 else 101 else
102 { 102 {
103 FloatNDArray x = x_arg.float_array_value (); 103 FloatNDArray x = x_arg.float_array_value ();
104 104
105 if (! error_state) 105 if (! error_state)
106 { 106 {
107 if (a_arg.is_scalar_type ()) 107 if (a_arg.is_scalar_type ())
108 { 108 {
109 float a = a_arg.float_value (); 109 float a = a_arg.float_value ();
110 110
111 if (! error_state) 111 if (! error_state)
112 retval = gammainc (x, a); 112 retval = gammainc (x, a);
113 } 113 }
114 else 114 else
115 { 115 {
116 FloatNDArray a = a_arg.float_array_value (); 116 FloatNDArray a = a_arg.float_array_value ();
117 117
118 if (! error_state) 118 if (! error_state)
119 retval = gammainc (x, a); 119 retval = gammainc (x, a);
120 } 120 }
121 } 121 }
122 } 122 }
123 } 123 }
124 else 124 else
125 { 125 {
126 if (x_arg.is_scalar_type ()) 126 if (x_arg.is_scalar_type ())
127 { 127 {
128 double x = x_arg.double_value (); 128 double x = x_arg.double_value ();
129 129
130 if (! error_state) 130 if (! error_state)
131 { 131 {
132 if (a_arg.is_scalar_type ()) 132 if (a_arg.is_scalar_type ())
133 { 133 {
134 double a = a_arg.double_value (); 134 double a = a_arg.double_value ();
135 135
136 if (! error_state) 136 if (! error_state)
137 retval = gammainc (x, a); 137 retval = gammainc (x, a);
138 } 138 }
139 else 139 else
140 { 140 {
141 NDArray a = a_arg.array_value (); 141 NDArray a = a_arg.array_value ();
142 142
143 if (! error_state) 143 if (! error_state)
144 retval = gammainc (x, a); 144 retval = gammainc (x, a);
145 } 145 }
146 } 146 }
147 } 147 }
148 else 148 else
149 { 149 {
150 NDArray x = x_arg.array_value (); 150 NDArray x = x_arg.array_value ();
151 151
152 if (! error_state) 152 if (! error_state)
153 { 153 {
154 if (a_arg.is_scalar_type ()) 154 if (a_arg.is_scalar_type ())
155 { 155 {
156 double a = a_arg.double_value (); 156 double a = a_arg.double_value ();
157 157
158 if (! error_state) 158 if (! error_state)
159 retval = gammainc (x, a); 159 retval = gammainc (x, a);
160 } 160 }
161 else 161 else
162 { 162 {
163 NDArray a = a_arg.array_value (); 163 NDArray a = a_arg.array_value ();
164 164
165 if (! error_state) 165 if (! error_state)
166 retval = gammainc (x, a); 166 retval = gammainc (x, a);
167 } 167 }
168 } 168 }
169 } 169 }
170 } 170 }
171 } 171 }
172 else 172 else
173 print_usage (); 173 print_usage ();
174 174
175 return retval; 175 return retval;