added a missing exclamation mark in front of an $OMP directive

This commit is contained in:
Christoph Kords 2010-05-18 08:07:55 +00:00
parent d96780967b
commit 19b6fae88b
1 changed files with 1 additions and 1 deletions

View File

@ -2836,7 +2836,7 @@ subroutine mesh_marc_count_cpSizes (unit)
mesh_HomogMicro(mesh_element(3,i),mesh_element(4,i)) + 1 ! count combinations of homogenization and microstructure
enddo
$OMP CRITICAL (write2out)
!$OMP CRITICAL (write2out)
! write(6,*)
! write(6,*) 'Input Parser: IP COORDINATES'