function Bprime=GetBprime_vert(pentaelem,gauss_coord);
%GETBPRIME_VERT - compute the Bprime matrix for vertical velocity of diagnostic
%
%   This matrix corresponds exactly to the nodeal functions at gaussian point
%
%   Usage:
%      Bprime=GetBprime_vert(pentaelem,gauss_coord)
%
%   See also GETB_VERT, CREATEKMATRIX, GETNODALFUNCTIONS

%Get nodals functions in basic coordinate system: 
Bprime=GetNodalFunctions(pentaelem,gauss_coord);
