$lnpam[$i][$j] = log( $matrix[$i][$j]  || 1e-300);
 

##</code><code>##

  $lnpam[$i][$j] = $matrix[$i][$j]  ? log( $matrix[$i][$j]) : -1000;