MPI_WTIME is not giving me speedup as required

Question

Program Main
implicit none
include \'mpif.h\'
!Define parameters
integer::my_rank,p2,n2,ierr,source
integer, parameter :: n=3,m=3,o=m*n
real(kind=8) aaa(n),ffffd(n),bbb(n)