Commit of IO
This commit is contained in:
parent
32fc32865f
commit
ab0bde576e
10
trunk/IO.f90
10
trunk/IO.f90
|
@ -565,15 +565,19 @@
|
||||||
character(len=80) msg
|
character(len=80) msg
|
||||||
|
|
||||||
select case (ID)
|
select case (ID)
|
||||||
case (100)
|
case (100)
|
||||||
msg='Unable to open input file.'
|
msg='Unable to open input file.'
|
||||||
|
case (110)
|
||||||
|
msg='No materials specified via State Variable 2.'
|
||||||
|
case (120)
|
||||||
|
msg='No textures specified via State Variable 3.'
|
||||||
case (200)
|
case (200)
|
||||||
msg='Error reading from material+texture file'
|
msg='Error reading from material+texture file'
|
||||||
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 type specified'
|
msg='Unknown lattice type specified'
|
||||||
case (600)
|
case (600)
|
||||||
|
|
Loading…
Reference in New Issue