Group: comp.lang.fortran · Group Profile · Search for Seval in comp.lang.fortran
Author: Matthias Möller
Date: Apr 24, 2007 08:02
...print *, tt1-tt0 call cpu_time(tt0) do i=1,1000 call seval(u,v,r) end do call cpu_time(tt1) print *, tt1-tt0...(size(u)) :: r r=u*v end function feval subroutine seval(u,v,r) real(dp), dimension(:), intent(in) :: u,v...), dimension(:), intent(out) :: r r=u*v end subroutine seval end program quick I compiled it both with Ifort (9.1) ...
| 
