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 2007-04-10 11:21:34 +00:00
parent 092bff57d3
commit 84eeddc6ba
1 changed files with 11 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
trunk/IO.f90
View File

@ -9,11 +9,17 @@
! function IO_open_inputFile(unit) ! function IO_open_inputFile(unit)
! function IO_hybridIA(Nast,ODFfileName) ! function IO_hybridIA(Nast,ODFfileName)
! private function hybridIA_reps(dV_V,steps,C) ! private function hybridIA_reps(dV_V,steps,C)
! function IO_stringPos(line,N) ! function IO_stringPos(line,maxN)
! function IO_stringValue(line,positions,pos) ! function IO_stringValue(line,positions,pos)
! function IO_floatValue(line,positions,pos) ! function IO_floatValue(line,positions,pos)
! function IO_intValue(line,positions,pos) ! function IO_intValue(line,positions,pos)
! function IO_lowercase(line) ! function IO_fixedStringValue(line,ends,pos)
! function IO_fixedFloatValue(line,ends,pos)
! function IO_fixedFloatNoEValue(line,ends,pos)
! function IO_fixedIntValue(line,ends,pos)
! function IO_continousTntValues(unit,maxN)
! function IO_lc(line)
! subroutine IO_lcInplace(line)
! subroutine IO_error(ID) ! subroutine IO_error(ID)
!--------------------------- !---------------------------
@ -517,32 +523,16 @@
select case (ID) select case (ID)
case (100) case (100)
msg='File material.mpie can not be opened' msg='Unable to open input file.'
case (110)
msg='File material99.mpie can not be opened'
case (120)
msg='File with c-coefficience can not be opened'
case (130)
msg='File with single orientations can not be opened'
case (200) case (200)
msg='Error reading from file material.mpie' msg='Error reading from material+texture file'
case (210)
msg='Error reading from file material99.mpie'
case (220)
msg='Error reading from file containing c-coefficiences'
case (230)
msg='Error reading from file containing single orientations'
case (300) case (300)
msg='This material can only be used with & msg='This material can only be used with &
&elements with three direct stress components' &elements with three direct stress components'
case (400) case (400)
msg='Unknown alloy number specified' msg='Unknown alloy number specified'
case (500) case (500)
msg='Unknown lattice number specified' msg='Unknown lattice type specified'
case (510)
msg='Unknown component type specified'
case (520)
msg='Unknown component symmetry specified'
case (600) case (600)
msg='Stress iteration did not converge' msg='Stress iteration did not converge'
case (700) case (700)