Update to Fortran.  No results output.  Problem likely in mate and-or swap