diff --git a/code/IO.f90 b/code/IO.f90 index 02863b77d..96fc0f5a2 100644 --- a/code/IO.f90 +++ b/code/IO.f90 @@ -1064,9 +1064,8 @@ endfunction case (289) msg = 'Non-positive definite volume discrepancy penalty in RGC' -!* Error message when selected perturbation method is not defined case (299) - msg = 'Chosen prturbation method does not exist' + msg = 'Chosen perturbation method does not exist' case (300) msg = 'This material can only be used with elements with three direct stress components' @@ -1091,7 +1090,7 @@ endfunction write(6,'(a38)') '+------------------------------------+' write(6,'(a38)') '+ error +' write(6,'(a38)') '+ +' - write(6,*) '+ ',msg + write(6,'(a2,a)') '+ ',msg if (present(ext_msg)) write(6,*) '+ ',ext_msg if (present(e)) then if (present(i) .and. present(g)) then @@ -1104,7 +1103,7 @@ endfunction call flush(6) call quit(9000+ID) -!$OMP END CRITICAL (write2out) + !$OMP END CRITICAL (write2out) ! ABAQUS returns in some cases return diff --git a/code/mesh.f90 b/code/mesh.f90 index 97d4080fb..fd9dd9e8a 100644 --- a/code/mesh.f90 +++ b/code/mesh.f90 @@ -240,7 +240,7 @@ call mesh_build_ipAreas() call mesh_tell_statistics() - parallelExecution = (mesh_Nelems == mesh_NcpElems) ! plus potential killer from non-local constitutive + parallelExecution = (mesh_Nelems == mesh_NcpElems) ! plus potential STOP if non-local constitutive present else call IO_error(101) ! cannot open input file endif