added loop construct to acc pragma. needed for use with PGI compiler. Works