libsim Versione 7.2.6
|
◆ vol7d_varvect_indexvect()
Return the index of first or last element of this equal to search.
Definizione alla linea 269 del file vol7d_varvect_class.f90. 270TYPE(vol7d_varvect),intent(in) :: this !< object to search in
271type(vol7d_var),INTENT(in) :: search(:) !< what to search
272LOGICAL,INTENT(in),OPTIONAL :: back !< if \a .TRUE. search from the end
273character(len=*),intent(inout) :: type(:) !< type of vector found ("d","r","i","b","c")
274INTEGER :: index_(SIZE(search))
275
276integer :: i
277
278do i =1 ,size(search)
279 index_(i) = vol7d_varvect_index(this, search(i), back=back, type=type(i))
280end do
281
|