removed 'u' from the calc_p kernel arguments and fixed answer given by fortran CG to an acceptable level