223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

small polishing

This commit is contained in:
Philip Eisenlohr 2010-02-18 10:12:45 +00:00
parent 9c63005c8f
commit c3cd75c2c2
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
code/IO.f90
View File

@ -1064,9 +1064,8 @@ endfunction
case (289) case (289)
msg = 'Non-positive definite volume discrepancy penalty in RGC' msg = 'Non-positive definite volume discrepancy penalty in RGC'
!* Error message when selected perturbation method is not defined
case (299) case (299)
msg = 'Chosen prturbation method does not exist' msg = 'Chosen perturbation method does not exist'
case (300) case (300)
msg = 'This material can only be used with elements with three direct stress components' 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)') '+------------------------------------+'
write(6,'(a38)') '+ error +' write(6,'(a38)') '+ error +'
write(6,'(a38)') '+ +' write(6,'(a38)') '+ +'
write(6,*) '+ ',msg write(6,'(a2,a)') '+ ',msg
if (present(ext_msg)) write(6,*) '+ ',ext_msg if (present(ext_msg)) write(6,*) '+ ',ext_msg
if (present(e)) then if (present(e)) then
if (present(i) .and. present(g)) then if (present(i) .and. present(g)) then
@ -1104,7 +1103,7 @@ endfunction
call flush(6) call flush(6)
call quit(9000+ID) call quit(9000+ID)
!$OMP END CRITICAL (write2out) !$OMP END CRITICAL (write2out)
! ABAQUS returns in some cases ! ABAQUS returns in some cases
return return

2
code/mesh.f90
View File

@ -240,7 +240,7 @@
call mesh_build_ipAreas() call mesh_build_ipAreas()
call mesh_tell_statistics() 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 else
call IO_error(101) ! cannot open input file call IO_error(101) ! cannot open input file
endif endif