!MATERIAL¶

ವಸ್ತು ಗುಣಲಕ್ಷಣಗಳ ವ್ಯಾಖ್ಯಾನ

ವಸ್ತು ಗುಣಲಕ್ಷಣಗಳು ತಾಪಮಾನಾಧಾರಿತವಾಗಿದ್ದರೆ, ಸಂಬಂಧಿತ ಪ್ರತಿಯೊಂದು ತಾಪಮಾನಕ್ಕೆ ಕೋಷ್ಟಕ ರೂಪದಲ್ಲಿ ಇನ್‌ಪುಟ್ ನೀಡಬಹುದು.

1ನೇ ಸಾಲು

!MATERIAL, NAME=<name> [, ಐಚ್ಛಿಕ ಪರಿಮಿತಿ]

ಪರಿಮಿತಿ
`NAME`	ವಸ್ತುವಿನ ಹೆಸರು (ಕಡ್ಡಾಯ)
`ITEM`	ವಸ್ತು ಗುಣಲಕ್ಷಣ ಅಂಶಗಳ ಸಂಖ್ಯೆ (ಐಚ್ಛಿಕ; ಬಿಟ್ಟರೆ "1" ಆಗುತ್ತದೆ)
`INPUT`	ಬಾಹ್ಯ ಫೈಲ್ ಹೆಸರು (ಐಚ್ಛಿಕ)

ಪರಿಮಿತಿ ಹೆಸರು	ಪರಿಮಿತಿ ಮೌಲ್ಯ	ವಿವರಣೆ
`NAME`	<name>	ವಸ್ತುವಿನ ಹೆಸರು
`ITEM`	<ITEMnum>	ಬಳಕೆದಾರ ವ್ಯಾಖ್ಯಾನಿಸಿದ ವಸ್ತು ಗುಣಲಕ್ಷಣ ಅಂಶಗಳ ಸಂಖ್ಯೆ
`INPUT`	<filename>	ಬಾಹ್ಯ ಫೈಲ್ ಹೆಸರು (ಐಚ್ಛಿಕ); 2ನೇ ಹಾಗೂ ನಂತರದ ಸಾಲುಗಳ ಜೊತೆಯಲ್ಲಿಯೂ ಬಳಸಬಹುದು

2ನೇ ಮತ್ತು ನಂತರದ ಸಾಲುಗಳು

(2ನೇ ಸಾಲು) !ITEM=1, SUBITEM=<k>
(3ನೇ ಸಾಲು) VAL1-1-1, VAL1-1-2, … VAL1-1-k, TEMP1-1
(4ನೇ ಸಾಲು) VAL1-2-1, VAL1-2-2, … VAL1-2-k, TEMP1-2
・・

(L+2ನೇ ಸಾಲು)VAL1-L-1, VAL1-L-2, … VAL1-L-k, TEMP1-L

ಕೆಳಗೆ "!ITEM=<ITEMnum>" ವರೆಗೆ ವ್ಯಾಖ್ಯಾನವನ್ನು ಪುನರಾವರ್ತಿಸಿ

ಉಪಪರಿಮಿತಿ (`!ITEM` ಗೆ ಸಂಬಂಧಿಸಿದುದು)
`SUBITEM`	ಪ್ರತಿಯೊಂದು ವಸ್ತು ಗುಣಲಕ್ಷಣ ಅಂಶದಲ್ಲಿ ವ್ಯಾಖ್ಯಾನಿಸಲಾದ ಉಪಗುಣಲಕ್ಷಣ ಅಂಶಗಳ ಸಂಖ್ಯೆ
	(ಐಚ್ಛಿಕ; ಬಿಟ್ಟರೆ "1" ಆಗುತ್ತದೆ.)

ಉಪಪರಿಮಿತಿ ಹೆಸರು	ಪರಿಮಿತಿ ಮೌಲ್ಯ	ವಿವರಣೆ
`SUBITEM`	<subITEMnum>	ಬಳಕೆದಾರ ವ್ಯಾಖ್ಯಾನಿಸಿದ ಉಪಗುಣಲಕ್ಷಣ ಅಂಶಗಳ ಸಂಖ್ಯೆ

【mನೇ ವಸ್ತು ಗುಣಲಕ್ಷಣವು ತಾಪಮಾನಾಧಾರಿತವಾಗಿರುವಾಗ】

ತಾಪಮಾನಾಧಾರಿತ ಕೋಷ್ಟಕದ ಅಂಶಗಳ ಸಂಖ್ಯೆ N ಆಗಿದ್ದರೆ, ಕೆಳಗಿನಂತೆ ಇನ್‌ಪುಟ್ ನೀಡಿ:

!ITEM=m, SUBITEM=k
VALm1-1, ..., VALm1-k, TEMPm1
VALm2-1, ..., VALm2-k, TEMPm2
...
VALmN-1, ..., VALmN-k, TEMPm-N

ಚರದ ಹೆಸರು	ಗುಣಧರ್ಮ	ವಿವರಣೆ
VALmn-k	R	ವಸ್ತು ಗುಣಲಕ್ಷಣದ ಮೌಲ್ಯ (ತಾಪಮಾನಾಧಾರಿತ)
TEMPmn	R	ಸಂಬಂಧಿತ ತಾಪಮಾನ

TEMPm1 < TEMPm2 < ... < TEMPmN ಆಗಿರಬೇಕು.

ತಾಪಮಾನವು TEMPm1 ಕ್ಕಿಂತ ಕಡಿಮೆ ಅಥವಾ ಸಮನಾಗಿದ್ದರೆ VALm1 ಅನ್ನು, TEMPmN ಕ್ಕಿಂತ ಹೆಚ್ಚು ಅಥವಾ ಸಮನಾಗಿದ್ದರೆ VALmN ಅನ್ನು ಬಳಸಲಾಗುತ್ತದೆ.

【mನೇ ವಸ್ತು ಗುಣಲಕ್ಷಣವು ತಾಪಮಾನಾಧಾರಿತವಾಗಿಲ್ಲದಾಗ】

!ITEM=m, SUBITEM=k
VALm1-1, ..., VALm1-k
VALm2-1, ..., VALm2-k
...
VALmN-1, ..., VALmN-k

ಚರದ ಹೆಸರು	ಗುಣಧರ್ಮ	ವಿವರಣೆ
VALmn-k	R	ವಸ್ತು ಗುಣಲಕ್ಷಣದ ಮೌಲ್ಯ (ತಾಪಮಾನಾಧಾರಿತವಲ್ಲ)

ಗಮನಿಸಿ:

ವಸ್ತುವಿನ ಹೆಸರುಗಳು ನಕಲಾಗಿದ್ದರೆ ದೋಷ ಉಂಟಾಗುತ್ತದೆ.

!SECTION ಆಯ್ಕೆಯಲ್ಲಿ ಉಲ್ಲೇಖಿಸಲಾದ MATERIAL ಅನ್ನು ವ್ಯಾಖ್ಯಾನಿಸದಿದ್ದರೆ ದೋಷ ಉಂಟಾಗುತ್ತದೆ.

!ELEMENT ಆಯ್ಕೆಯಲ್ಲಿ MATITEM ಪರಿಮಿತಿಯನ್ನು ಬಳಸಿ ಪ್ರತಿಯೊಂದು ಅಂಶಕ್ಕೆ ವಸ್ತು ಗುಣಲಕ್ಷಣಗಳನ್ನು ಇನ್‌ಪುಟ್ ಮಾಡಿದರೆ, ಆ ಮೌಲ್ಯಗಳಿಗೆ ಆದ್ಯತೆ ನೀಡಲಾಗುತ್ತದೆ. ಈ ಸಂದರ್ಭದಲ್ಲಿ !MATERIAL ಆಯ್ಕೆಯಿಂದ ಇನ್‌ಪುಟ್ ಮಾಡಿದ ವಸ್ತು ಗುಣಲಕ್ಷಣ ಮೌಲ್ಯಗಳನ್ನು ಬಳಸಲಾಗುವುದಿಲ್ಲ.

!ITEM=m ಉಪಆಯ್ಕೆಗಳ ಸಂಖ್ಯೆ ಮತ್ತು ITEM ಪರಿಮಿತಿಯ ಸಂಖ್ಯೆ ಹೊಂದಿಕೆಯಾಗದಿದ್ದರೆ, ಅಥವಾ ವ್ಯಾಖ್ಯಾನಿಸದ ಉಪಆಯ್ಕೆ ಇದ್ದರೆ ದೋಷ ಉಂಟಾಗುತ್ತದೆ.

!ITEM=m ಉಪಆಯ್ಕೆಗಳನ್ನು m ನ ಚಿಕ್ಕ ಮೌಲ್ಯದಿಂದ ದೊಡ್ಡ ಮೌಲ್ಯದ ಕ್ರಮದಲ್ಲೇ ಜೋಡಿಸಬೇಕೆಂಬ ಅಗತ್ಯವಿಲ್ಲ.

SUBITEM=k ಉಪಆಯ್ಕೆ ಮತ್ತು ತಾಪಮಾನ ಅವಲಂಬಿತತೆಯನ್ನು ಬಳಸುವಾಗ, ಬಿಟ್ಟಿರುವ ಮೌಲ್ಯವು "0.0" ಆಗುತ್ತದೆ.

ತಾಪಮಾನ ಅವಲಂಬಿತತೆಯನ್ನು ಬಳಸುವಾಗ, ಕಡಿಮೆ ತಾಪಮಾನದಿಂದ ಹೆಚ್ಚಿನ ತಾಪಮಾನಕ್ಕೆ ಕ್ರಮವಾಗಿ ವ್ಯಾಖ್ಯಾನಿಸಬೇಕು.

ತಾಪಮಾನ ಅವಲಂಬಿತತೆಯನ್ನು ಬಳಸುವಾಗ, ಒಂದೇ ತಾಪಮಾನವನ್ನು 2 ಬಾರಿ ಅಥವಾ ಹೆಚ್ಚು ಬಳಸಿದರೆ ದೋಷ ಉಂಟಾಗುತ್ತದೆ.

ಬಳಕೆಯ ಉದಾಹರಣೆ

!MATERIAL, NAME= STEEL, ITEM= 2
!ITEM=1 ತಾಪಮಾನ ಅವಲಂಬಿತತೆ ಇಲ್ಲ
35.0
!ITEM=2
40.0, 0.0
45.0, 100.0
50.0, 200.0

!MATERIAL, NAME= COPPER         ಅಂಶಗಳ ಸಂಖ್ಯೆ = 1 (ಡೀಫಾಲ್ಟ್ ಮೌಲ್ಯ)
!ITEM=1 ತಾಪಮಾನ ಅವಲಂಬಿತತೆ ಇಲ್ಲ
80.0

ತಪ್ಪಾದ ಬಳಕೆಯ ಉದಾಹರಣೆಗಳು

ಉದಾಹರಣೆ 1【ITEM ಪರಿಮಿತಿ ಮತ್ತು !ITEM=m ಉಪಆಯ್ಕೆಗಳ ಸಂಖ್ಯೆಗಳು ಹೊಂದಿಕೆಯಾಗುವುದಿಲ್ಲ -1】

!MATERIAL, NAME= STEEL, ITEM= 2
!ITEM=3
20.0
!ITEM=1
35.0
!ITEM= 2
40.0

ಉದಾಹರಣೆ 2【ITEM ಪರಿಮಿತಿ ಮತ್ತು !ITEM=m ಉಪಆಯ್ಕೆಗಳ ಸಂಖ್ಯೆಗಳು ಹೊಂದಿಕೆಯಾಗುವುದಿಲ್ಲ -2】

!MATERIAL, NAME= STEEL, ITEM= 3
!ITEM=3
20.0
!ITEM= 2
40.0
!MATERIAL, NAME= COPPER
...

ಸ್ಥಿತಿಸ್ಥಾಪಕ ಸ್ಥಿರ ವಿಶ್ಲೇಷಣೆ ಮತ್ತು ಮೋಡಲ್ ವಿಶ್ಲೇಷಣೆ¶

!MATERIAL, NAME=<name>, ITEM=<ITEMnum>
!ITEM=1, SUBITEM=2
<Young_modulus>, <Poisson_ratio>
!ITEM=2
<Density>
!ITEM=3
<Expansion_coeff>

ಪರಿಮಿತಿ ಹೆಸರು	ಪರಿಮಿತಿ ಮೌಲ್ಯ	ವಿವರಣೆ
NAME	<name>	ವಸ್ತುವಿನ ಹೆಸರು; !SECTION ನ MATERIAL ಗೆ ಹೊಂದುತ್ತದೆ
ITEM	<ITEMnum>	ಬಳಕೆದಾರ ವ್ಯಾಖ್ಯಾನಿಸಿದ ವಸ್ತು ಗುಣಲಕ್ಷಣ ಅಂಶಗಳ ಸಂಖ್ಯೆ (1 ಅಥವಾ ಹೆಚ್ಚು) <Young_modulus>-----ಯಂಗ್ ಮಾಡ್ಯುಲಸ್ (ಕಡ್ಡಾಯ) <Poisson_ratio>-------ಪಾಯ್ಸನ್ ಅನುಪಾತ (ಕಡ್ಡಾಯ) <Density>--------------ದ್ರವ್ಯರಾಶಿ ಸಾಂದ್ರತೆ (ITEMnum=2 ಆಗಿದ್ದರೆ ಕಡ್ಡಾಯ) < Expansion_coeff >--ರೇಖೀಯ ವಿಸ್ತರಣೆ ಗುಣಾಂಕ (ITEMnum=3 ಆಗಿದ್ದರೆ)

(ಉದಾಹರಣೆ)

!MATERIAL, NAME=M1,
ITEM=3                   --- ವಸ್ತು M1 ಗೆ 3 ವಿಧದ ಗುಣಲಕ್ಷಣ ಮೌಲ್ಯಗಳನ್ನು ವ್ಯಾಖ್ಯಾನಿಸುತ್ತದೆ
!ITEM=1, SUBITEM=2       --- !ITEM=1 ನಲ್ಲಿ ಯಂಗ್ ಮಾಡ್ಯುಲಸ್ ಮತ್ತು ಪಾಯ್ಸನ್ ಅನುಪಾತವನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಲಾಗುತ್ತದೆ (ಕಡ್ಡಾಯ)
4000.0, 0.3
!ITEM=2                  --- !ITEM=2 ನಲ್ಲಿ ದ್ರವ್ಯರಾಶಿ ಸಾಂದ್ರತೆಯನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಬೇಕು (ITEM=2 ಆಗಿದ್ದರೆ ಕಡ್ಡಾಯ)
8.0102E-0
!ITEM=3                  --- !ITEM=3 ನಲ್ಲಿ ರೇಖೀಯ ವಿಸ್ತರಣೆ ಗುಣಾಂಕವನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಬೇಕು
1.0E-5

ಗಮನಿಸಿ:

ಮೋಡಲ್ ವಿಶ್ಲೇಷಣೆಯಲ್ಲಿ ತಾಪಮಾನಾಧಾರಿತ ವಸ್ತುಗಳನ್ನು ಬಳಸಲಾಗುವುದಿಲ್ಲ.

ಉಷ್ಣ ವಹನ ವಿಶ್ಲೇಷಣೆ¶

ಲಿಂಕ್, ಸಮತಲ, ಘನ ಮತ್ತು 3-ಆಯಾಮದ ಪ್ಲೇಟ್ ಅಂಶಗಳಿಗಾಗಿ

!MATERIAL, NAME=<name>, ITEM=3
!ITEM=1, SUBITEM=2
<Density>, <Temperature>

!ITEM=2, SUBITEM=2
<Specific_heat>, <Temperature>

!ITEM=3, SUBITEM=2
<Conductivity>, <Temperature>

ಪರಿಮಿತಿ ಹೆಸರು	ಪರಿಮಿತಿ ಮೌಲ್ಯ	ವಿವರಣೆ
`NAME`	<name>	ವಸ್ತುವಿನ ಹೆಸರು; !SECTION ನ MATERIAL ಗೆ ಹೊಂದುತ್ತದೆ
`ITEM`	<ITEMnum>	ಬಳಕೆದಾರ ವ್ಯಾಖ್ಯಾನಿಸಿದ ವಸ್ತು ಗುಣಲಕ್ಷಣ ಅಂಶಗಳ ಸಂಖ್ಯೆ (ಯಾವಾಗಲೂ 3) <Density>----------ಸಾಂದ್ರತೆ <Specific_heat>----ವಿಶಿಷ್ಟ ಉಷ್ಣ <Conductivity>-----ಉಷ್ಣ ವಾಹಕತೆ <Temperature>------ತಾಪಮಾನ

(ಉದಾಹರಣೆ)

!MATERIAL, NAME=M1,
ITEM=3                   ---　ವಸ್ತು M1 ಗೆ 3 ವಿಧದ ಗುಣಲಕ್ಷಣ ಮೌಲ್ಯಗಳನ್ನು ವ್ಯಾಖ್ಯಾನಿಸುತ್ತದೆ

!ITEM=1, SUBITEM=1       ---　!ITEM=1 ನಲ್ಲಿ ಸಾಂದ್ರತೆ ಮತ್ತು ತಾಪಮಾನವನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಲಾಗುತ್ತದೆ (ಕಡ್ಡಾಯ)
7850., 300.
7790., 500.
7700., 800.

!ITEM=2, SUBITEM=1       ---　!ITEM=2 ನಲ್ಲಿ ವಿಶಿಷ್ಟ ಉಷ್ಣ ಮತ್ತು ತಾಪಮಾನವನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಲಾಗುತ್ತದೆ (ಕಡ್ಡಾಯ)
0.465, 300.
0.528, 500.
0.622, 800.

!ITEM=3                  ---　!ITEM=3 ನಲ್ಲಿ ಉಷ್ಣ ವಾಹಕತೆ ಮತ್ತು ತಾಪಮಾನವನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಲಾಗುತ್ತದೆ (ಕಡ್ಡಾಯ)
43., 300.
38.6, 500.
27.7, 800.

ಇಂಟರ್ಫೇಸ್ ಅಂಶಗಳಿಗಾಗಿ

!SECTION ಹೆಡರ್‌ನಲ್ಲಿ ವ್ಯಾಖ್ಯಾನಿಸಿ. (ವಸ್ತು ಡೇಟಾ ಅಗತ್ಯವಿಲ್ಲ)

(ಉದಾಹರಣೆ)

!SECTION, TYPE=INTERFACE, EGRP=GAP   ---　ವಿಭಾಗದ ವ್ಯಾಖ್ಯಾನ
1.0, 20.15, 8.99835E-9, 8.99835E-9

ಮೇಲಿನ !SECTION ನಲ್ಲಿ, ಇಂಟರ್ಫೇಸ್ ಅಂಶಗಳಲ್ಲಿ ಗುಂಪಿನ ಹೆಸರು=GAP ಗೆ ಸೇರಿದ ಅಂಶಗಳ ಗ್ಯಾಪ್ ಪರಿಮಿತಿಗಳನ್ನು ವ್ಯಾಖ್ಯಾನಿಸಲಾಗಿದೆ.

1ನೇ ಪರಿಮಿತಿ: ಗ್ಯಾಪ್ ಅಗಲ
2ನೇ ಪರಿಮಿತಿ: ಗ್ಯಾಪ್ ಉಷ್ಣ ವರ್ಗಾವಣಾ ಗುಣಾಂಕ
3ನೇ ಪರಿಮಿತಿ: ಗ್ಯಾಪ್ ವಿಕಿರಣ ಗುಣಾಂಕ 1
4ನೇ ಪರಿಮಿತಿ: ಗ್ಯಾಪ್ ವಿಕಿರಣ ಗುಣಾಂಕ 2

ಉಲ್ಲೇಖ¶

program TEST
use hecmw
implicit REAL*8 (A-H,O-Z)
type (hecmwT_local_mesh) :: hecMESH

!C
!C    !MATERIAL, NAME=SUS304, ITEM=3
!C    !ITEM=1, SUBITEM= 3
!C      100.0, 200.0, 300.0, 0.00
!C      101.0, 210.0, 301.0, 1.00
!C      102.0, 220.0, 302.0, 2.00
!C      103.0, 230.0, 303.0, 3.00
!C    !ITEM=3, SUBITEM= 2
!C      1000.0, , 0.00
!C      1001.0, 1., 1.00
!C      1002.0, 2., 2.00
!C      1003.0, 3., 3.00
!C    !ITEM=2
!C      5000.0
!C
!C    !MATERIAL, NAME=FEC, ITEM=2
!C    !ITEM=1, SUBITEM= 3
!C      2100.0, 2200.0, 2300.0, 0.00
!C      2101.0, 2210.0, 2301.0, 1.00
!C      2102.0, 2220.0, 2302.0, 2.00
!C      2103.0, 2230.0, 2303.0, 3.00
!C      3103.0, 3230.0, 2304.0, 4.00
!C    !ITEM=2
!C      6000.0, 10.0
!C      6500.0, 30.0
!C

hecMESH%material%n_mat = 2

nn= hecMESH%material%n_mat
allocate (hecMESH%material%mat_name(nn))

hecMESH%material%mat_name(1)= 'SUS304'
hecMESH%material%mat_name(2)= 'FEC'

nn= hecMESH%material%n_mat
allocate (hecMESH%material%mat_ITEM_index(0:nn))
hecMESH%material%mat_ITEM_index(0)= 0
hecMESH%material%mat_ITEM_index(1)= 3
hecMESH%material%mat_ITEM_index(2)= hecMESH%material%mat_ITEM_index(1) + 2

hecMESH%material%n_mat_ITEM= hecMESH%material%mat_ITEM_index(hecMESH%material%n_mat)

nn= hecMESH%material%n_mat_ITEM
allocate (hecMESH%material%mat_subITEM_index(0:nn))

hecMESH%material%mat_subITEM_index(0)= 0
hecMESH%material%mat_subITEM_index(1)= 3
hecMESH%material%mat_subITEM_index(2)= hecMESH%material%mat_subITEM_index(1) + 1
hecMESH%material%mat_subITEM_index(3)= hecMESH%material%mat_subITEM_index(2) + 2
hecMESH%material%mat_subITEM_index(4)= hecMESH%material%mat_subITEM_index(3) + 3
hecMESH%material%mat_subITEM_index(5)= hecMESH%material%mat_subITEM_index(4) + 1

hecMESH%material%n_mat_subITEM=
&        hecMESH%material%mat_subITEM_index(hecMESH%material%n_mat_ITEM)

nn= hecMESH%material%n_mat_subITEM
allocate (hecMESH%material%mat_TABLE_index(0:nn))
hecMESH%material%mat_TABLE_index( 0)= 0
hecMESH%material%mat_TABLE_index( 1)= 4
hecMESH%material%mat_TABLE_index( 2)= hecMESH%material%mat_TABLE_index( 1) + 4
hecMESH%material%mat_TABLE_index( 3)= hecMESH%material%mat_TABLE_index( 2) + 4
hecMESH%material%mat_TABLE_index( 4)= hecMESH%material%mat_TABLE_index( 3) + 1
hecMESH%material%mat_TABLE_index( 5)= hecMESH%material%mat_TABLE_index( 4) + 4
hecMESH%material%mat_TABLE_index( 6)= hecMESH%material%mat_TABLE_index( 5) + 4
hecMESH%material%mat_TABLE_index( 7)= hecMESH%material%mat_TABLE_index( 6) + 5
hecMESH%material%mat_TABLE_index( 8)= hecMESH%material%mat_TABLE_index( 7) + 5
hecMESH%material%mat_TABLE_index( 9)= hecMESH%material%mat_TABLE_index( 8) + 5
hecMESH%material%mat_TABLE_index(10)= hecMESH%material%mat_TABLE_index( 9) + 2

hecMESH%material%n_mat_TABLE=
&        hecMESH%material%mat_TABLE_index(hecMESH%material%n_mat_subITEM)

nn= hecMESH%material%n_mat_TABLE
allocate (hecMESH%material%mat_VAL (nn))
allocate (hecMESH%material%mat_TEMP(nn))

hecMESH%material%mat_VAL = 0.d0
hecMESH%material%mat_TEMP= 0.d0

hecMESH%material%mat_VAL ( 1)= 100.0d0
hecMESH%material%mat_TEMP( 1)=   0.0d0
hecMESH%material%mat_VAL ( 2)= 101.0d0
hecMESH%material%mat_TEMP( 2)=   1.0d0
hecMESH%material%mat_VAL ( 3)= 102.0d0
hecMESH%material%mat_TEMP( 3)=   2.0d0
hecMESH%material%mat_VAL ( 4)= 103.0d0
hecMESH%material%mat_TEMP( 4)=   3.0d0

hecMESH%material%mat_VAL ( 5)= 200.0d0
hecMESH%material%mat_TEMP( 5)=   0.0d0

hecMESH%material%mat_VAL (13)= 5000.0d0

hecMESH%material%mat_VAL (14)= 1000.0d0
hecMESH%material%mat_TEMP (14)=   0.0d0
hecMESH%material%mat_VAL (15)= 1001.0d0
hecMESH%material%mat_TEMP (15)=   1.0d0
hecMESH%material%mat_VAL (16)= 1002.0d0
hecMESH%material%mat_TEMP (16)=   2.0d0
hecMESH%material%mat_VAL (17)= 1003.0d0
hecMESH%material%mat_TEMP (17)=   3.0d0

hecMESH%material%mat_VAL (18)=  0.0d0
hecMESH%material%mat_TEMP (18)= 0.0d0
hecMESH%material%mat_VAL (19)=  1.0d0
hecMESH%material%mat_TEMP (19)= 1.0d0
hecMESH%material%mat_VAL (20)=  2.0d0
hecMESH%material%mat_TEMP (20)= 2.0d0
hecMESH%material%mat_VAL (21)=  3.0d0
hecMESH%material%mat_TEMP (21)= 3.0d0

hecMESH%material%mat_VAL (22)= 2100.0d0
hecMESH%material%mat_TEMP (22)=   0.0d0
hecMESH%material%mat_VAL (23)= 2101.0d0
hecMESH%material%mat_TEMP (23)=   1.0d0
hecMESH%material%mat_VAL (24)= 2102.0d0
hecMESH%material%mat_TEMP (24)=   2.0d0
hecMESH%material%mat_VAL (25)= 2103.0d0
hecMESH%material%mat_TEMP (25)=   3.0d0
hecMESH%material%mat_VAL (26)= 3103.0d0
hecMESH%material%mat_TEMP (26)=   4.0d0

write (*,'(a,i10)') '%n_mat_ITEM ', hecMESH%material%n_mat_ITEM
write (*,'(a,i10)') '%n_mat_subITEM', hecMESH%material%n_mat_subITEM
write (*,'(a,i10)') '%n_mat_TABLE ', hecMESH%material%n_mat_TABLE

end program TEST