initial code OpenACC