Head

Head function returns the first element of array.

Calling example:

a = HEAD(b) !! a = b(1)

program main
use easifemBase
implicit none

real(dfp) :: avec(10)

call random_number(avec)

call OK(head(avec) .APPROXEQ. avec(1), "Head:" )

end program main