libsim Versione 7.2.1
|
◆ 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
271type(vol7d_var),INTENT(in) :: search(:)
272LOGICAL,INTENT(in),OPTIONAL :: back
273character(len=*),intent(inout) :: type(:)
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
|