183FUNCTION vol7d_varvect_index(this, search, mask, back, type)
RESULT(index_)
186LOGICAL,
INTENT(in),
OPTIONAL :: mask(:)
187LOGICAL,
INTENT(in),
OPTIONAL :: back
188character(len=*),
intent(inout),
optional ::
type
194select case (optio_c(
type,1))
197 if (
associated(this%d))
then
198 index_=
index(this%d(:), search, mask, back)
202 if (
associated(this%r))
then
203 index_=
index(this%r(:), search, mask, back)
207 if (
associated(this%i))
then
208 index_=
index(this%i(:), search, mask, back)
212 if (
associated(this%b))
then
213 index_=
index(this%b(:), search, mask, back)
217 if (
associated(this%c))
then
218 index_=
index(this%c(:), search, mask, back)
223 if (
associated(this%d))
then
224 index_=
index(this%d(:), search, mask, back)
225 if (
present(type)) type=
"d"
229 if (
associated(this%r))
then
230 index_=
index(this%r(:), search, mask, back)
231 if (
present(type)) type=
"r"
236 if (
associated(this%i))
then
237 index_=
index(this%i(:), search, mask, back)
238 if (
present(type)) type=
"i"
243 if (
associated(this%b))
then
244 index_=
index(this%b(:), search, mask, back)
245 if (
present(type)) type=
"b"
250 if (
associated(this%c))
then
251 index_=
index(this%c(:), search, mask, back)
252 if (
present(type)) type=
"c"
256 if (index_ == 0) type=cmiss
260 CALL l4f_log(l4f_error,
'variable type not contemplated: '//type)