Index multiple non-adjacent elements of a Fortran array

Question

Is there a way in Fortran to access many elements of an array without using a loop?

For example given array of 100 elements

real(100) :: a

can I do something like this to access elements 1,4,7,54,81 that do not follow a regular step?

a(1,4,7,54,81)= 3.21423

Answer 1

you could use a vector subscript: a( (/1,4,7,54,81/) )= 3.21423