Added Martinas code.  New Gomp function