cmp_gflops Function

function cmp_gflops(argi, argr) result(gflops)

Arguments

Type IntentOptional Attributes Name
integer(kind=ik), intent(in), optional, dimension(:) :: argi
real(kind=rk), intent(in), optional, dimension(:) :: argr

Return Value real(kind=rk)


Source Code

   function cmp_gflops(argi,argr) result(gflops)
      integer(ik), dimension(:), intent(in), optional :: argi
      real(rk),    dimension(:), intent(in), optional :: argr
      real(rk)                                        :: gflops

      gflops = real(argi(1),rk) * real(argi(2),rk) * real(argi(3),rk) * 1.0e-9_rk
   end function cmp_gflops