libsim Versione 7.2.1
|
◆ vol7d_varvect_index()
Return the index of first or last element of this equal to search.
Definizione alla linea 183 del file vol7d_varvect_class.f90. 184TYPE(vol7d_varvect),intent(in) :: this
185type(vol7d_var),INTENT(in) :: search
186LOGICAL,INTENT(in),OPTIONAL :: mask(:)
187LOGICAL,INTENT(in),OPTIONAL :: back
188character(len=*),intent(inout),optional :: type
189INTEGER :: index_
190
191
192index_=0
193
194select case (optio_c(type,1))
195
196case ("d")
197 if (associated(this%d))then
199 end if
200
201case ("r")
202 if (associated(this%r))then
204 end if
205
206case ("i")
207 if (associated(this%i))then
209 end if
210
211case ("b")
212 if (associated(this%b))then
214 end if
215
216case ("c")
217 if (associated(this%c))then
219 end if
220
221case (cmiss)
222
223 if (associated(this%d))then
225 if (present(type)) type="d"
226 end if
227
228 if(index_ == 0)then
229 if (associated(this%r))then
231 if (present(type)) type="r"
232 end if
233 end if
234
235 if(index_ == 0)then
236 if (associated(this%i))then
238 if (present(type)) type="i"
239 end if
240end if
241
242 if(index_ == 0)then
243 if (associated(this%b))then
245 if (present(type)) type="b"
246 end if
247 end if
248
249 if(index_ == 0)then
250 if (associated(this%c))then
252 if (present(type)) type="c"
253 end if
254 end if
255
256 if (index_ == 0) type=cmiss
257
258case default
259
260 CALL l4f_log(l4f_error, 'variable type not contemplated: '//type)
261
262end select
263
|