Routine to calculate P Wave radiation pattern.