Subroutine openmp_error(k,l) ! .. Implicit None Statement .. Implicit None ! .. Scalar Arguments .. Integer, Intent (In) :: k, l ! .. Local Scalars .. Integer :: foo ! .. Executable Statements .. Continue !$Omp Parallel Default (None), If (k==0 .And. l==0), Private (foo) foo=0 !$Omp End Parallel Return End Subroutine openmp_error