SDC-IC_Mat_Lib.mac

		!	######################################################################################################	!
		!																											!
		!	 Copyright 2019 F4E | European Joint Undertaking for ITER and the Development                         	!
		!	 of Fusion Energy (‘Fusion for Energy’). Licensed under the EUPL, Version 1.2                         	!
		!	 or - as soon they will be approved by the European Commission - subsequent versions                  	!
		!	 of the EUPL (the “Licence”). You may not use this work except in compliance                          	!
		!	 with the Licence. You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl.html       	!
		!	 Unless required by applicable law or agreed to in writing, software distributed                      	!
		!	 under the Licence is distributed on an “AS IS” basis, WITHOUT WARRANTIES                             	!
		!	 OR CONDITIONS OF ANY KIND, either express or implied. See the Licence permissions                    	!
		!	 and limitations under the Licence.                                                                   	!
		!																											!
		!	######################################################################################################	!


! MATLIB,MAT_NAME,MAT_NUMB,PROP1,PROP2,PROP3....
! Defines a material included in the Structural Design Criteria for ITER In-vessel Components (SDC-IC), Appendix A - Material Design Limit Data

! MAT_NAME - material name as indicated below under the title "List of materials". Only needed if MAT_NUMB is not supplied
! MAT_NUMB - material number as indicated below under the title "List of materials". Only needed if MAT_NAME is not supplied
! PROP1,PROP2,...,PROP17 - Properties of the material with the tags indicated below the title "List of properties available" and subsection "List of properties available for each material"

!!!!!!!!!!!!!!!!!!!!		How to use this macro	!!!!!!!!!!!!!!!!!!!!

!! List of steps

	! The macro can be called as an usual ANSYS macro with the command *USE, Name, ARG1, ARG2, ARG3, ARG4,
	! The list of steps for the use of the macro it's explained below.
	
	! 1) Select MAT_NAME or MAT_NUMB corresponding to the desired material. Both variables are specified below in the 
	!	section with the title "List of materials" . Only one of the two variables is needed, the other can be left blank.
	!	MAT_NAME input variable has to be a string parameter. MAT_NUMB input variable has to be a scalar parameter
	!	The numbers of the material are fixed and this can't be changed.
	!	Only one material can be defined for each execution of the macro.
	
	
	! 2) Select the desired properties to be defined in material model. The name of the properties is specified below in the 
	!	section "List of properties available" under the title "List of properties available for each material". 
	!	General information about the properties can be found in the same section under the title "Properties for the material model" and "Other properties".
	
	
	!	There are two type of properties that can be defined: Properties for the material model and Other properties.
	!	The properties for the material model are included in the material model that ANSYS use to describe the behaviour of the material.
	!	The Other properties are properties not included in the material model but which may be used for post-processing tasks
	!	The input properties parameters have to be string parameters.
	! 	Up to 17 properties can be defined in each run of the macro. The combination of the properties has to be coherent. If some properties are not compatible
	!	an ANSYS error will be raised.
	
	!	The numbers of the materials already defined are stored in the variables MAT_TAG, which allows an easy usage of the material (Material assignment, modifications in the material model ...)
	!	The MAT_TAG variables are specified below in the section with the title "List of materials"
	
	!! Examples of use

	! The three lines below produce the same output
		! *USE, MATLIB.mac,'304L Stainless Steel',,'EX','C','ALPX','PRXY','KXX','DENS','MISO'
		! *USE, MATLIB.mac,,101,'EX', 'ALPX','PRXY','KXX','DENS','MISO'
		! *USE, MATLIB.mac,'304L Stainless Steel',101,'EX','ALPX','PRXY','KXX','DENS','MISO'
		
	! Defining material model properties and other properties
		! *USE, MATLIB.mac,,107,'ALPX','PRXY','KXX','DENS','BISO','SY_MIN_107','SU_MIN_107'
	
	

!!!!!!!!!!!!!!!!!!!		List of materials		!!!!!!!!!!!!!!!!!!!       

	! MAT_NUMB  - 			MAT_NAME					- 		MAT_TAG				!
	!																				!
	!   101		- 		304L Stainless Steel			- 		MAT_SS304			!
	!   102 	- 		316L Stainless Steel			- 		MAT_SS316			!
	!   103 	- 		316L (N-IG) Stainless Steel		- 		MAT_SS316_NIG		!
	!   104 	- 		GRADE 660 Stainless Steel		- 		MAT_SS660			!
	!   105 	- 		XM-19 Steel						- 		MAT_XM19			!
	!   106 	- 		Alloy 625						- 		MAT_ALLOY625		!
	!   107 	- 		Ti-6Al-4V Alloy					- 		MAT_TI64			!
	!   108 	- 		Pure Copper						- 		MAT_CU				!
	!   109 	- 		Copper-Chromium-Zirconium Alloy	- 		MAT_CUCRZR			!
	!   110 	- 		Dispersion-Strengthened Copper	- 		MAT_CUAL25=110		!
	!   111 	- 		Aluminium-Nickel Bronze			- 		MAT_ALNIBRZ			!
	!   112 	- 		Alloy 718						- 		MAT_INCONEL718		!
	!   113 	- 		Beryllium						- 		MAT_BERYLLIUM		!
	!   114 	- 		Tungsten						- 		MAT_TUNGSTEN		!
	!   115 	- 		CFC EU Grade					- 		MAT_CFC_EU			!
	!   116 	- 		CFC CX-2002U Grade				- 		MAT_CFC_CX			!

	
	
!!!!!!!!!!!!!!!!!!!			List of properties available		!!!!!!!!!!!!!!!!!!!

!! Properties for the material model

	! ALPX- Mean,average or secant coefficient of thermal expansion
	! CTEX- Instantaneous coefficient of thermal expansion
	! EX- Young Modulus
	! PRXY- Poisson's ratio
	! DENS- Mass density
	! KXX- Conductivity
	! C- Specific heat
	! MELAS- Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
	! BISO- Isotropic hardening plasticity. Bilinear stress-strain curves.
	! MISO- Isotropic hardening plasticity. Multilinear stress-strain curves.
	! BKIN- Kinematic hardening plasticity. Bilinear stress-strain curves.
	! KINH- Kinematic hardening plasticity. Multilinear stress-strain curves.

!! Other properties

	! SY_MIN - Minimum yield strength
	! SY_AV - Average yield strength
	! SU_MIN - Minimum tensile strength
	! SU_AV - Average tensile strength
	! SY_IRR_MIN - Minimum yield strength. Material irradiated
	! SY_IRR_AV - Average yield strength. Material irradiated
	! SU_IRR_MIN - Minimum tensile strength. Material irradiated
	! SU_IRR_AV - Average tensile strength. Material irradiated
	! ETOT_MIN - Minimum total elongation
	! ETOT_AV - Average total elongation
	! EUNIF_MIN - Minimum uniform elongation
	! EUNIF_AV - Average uniform elongation
	! ETOT_IRR_MIN - Minimum total elongation. Material irradiated
	! ETOT_IRR_AV - Average total elongation. Material irradiated
	! EUNIF_IRR_MIN - Minimum uniform elongation. Material irradiated
	! EUNIF_IRR_AV - Average uniform elongation. Material irradiated
	! STRAIN_RUPT_MIN - Minimum true strain at rupture
	! STRAIN_RUPT_AV - Average true strain at rupture
	! SM - Allowable stress intensity
	! SMB - Design stress intensity for bolt materials
	! SE_IRR - Allowable stress for the primary plus secondary membrane stress intensity dependent on temperature and neutron fluence. A value of 9.99E+020 indicates that there is no limit for that Dose and Temperature.
	! FATIGUE_STRAIN - Fatigue curves for unirradiated material. Number of cycles - Strain amplitude (Strain/2). !! Linear interpolation between cycles can´t be done !!
	! FATIGUE_STRESS - Fatigue curves for unirradiated material. Number of cycles - Stress amplitude (Stress/2). !! Linear interpolation between cycles can´t be done !!
	! K_CYCL - Coefficient for cyclic stress - strain curves
	! m - Coefficient for cyclic stress - strain curves
	! K_v - Coefficient for cyclic stress - strain curves
	! K_e - Coefficient for cyclic stress - strain curves
	
!! List of properties available for each material

	! 101 - 304L Stainless Steel 
		! Material model properties: ALPX, CTEX, EX, PRXY, DENS, KXX, C, MELAS ,BISO, MISO, BKIN, KINH
		! Other properties: SY_MIN_101, SY_AV_101, SU_MIN_101, SM_101, FATIGUE_STRAIN_101, K_101, m_101, K_e_101, K_v_101 

	! 102 - 316L Stainless Steel 
		! Material model properties: ALPX, CTEX, EX, PRXY, DENS, KXX, C, MELAS ,BISO, MISO, BKIN, KINH 
		! Other properties: SY_MIN_PIP_FORG_102, SY_AV_PIP_FORG_102, SY_MIN_FLAT_102, SY_AV_FLAT_102, SU_MIN_PIP_102, SU_MIN_FLAT_102,SM_102, FATIGUE_STRAIN_102, K_102, m_102, K_e_102, K_v_102 

	! 103 - 316L (N-IG) Stainless Steel  
		! Material model properties: ALPX, CTEX, EX, PRXY, DENS, KXX, C, MELAS ,BISO, MISO, BKIN, KINH 
		! Other properties: SY_MIN_103, SY_AV_103, SU_MIN_103, SU_AV_103, EUNIF_MIN_103, EUNIF_IRR_MIN_103, EUNIF_AV_103, EUNIF_IRR_AV_103, ETOT_AV_103, ETOT_IRR_AV_103, STRAIN_RUPT_AV_103, SM_103, SE_IRR_103, FATIGUE_STRAIN_103, K_103, m_103, K_e_103, K_v_103 

	! 104 - GRADE 660 Stainless Steel 
		! Material model properties: ALPX, CTEX, EX, PRXY, DENS, KXX, C, MELAS ,BISO, MISO, BKIN, KINH
		! Other properties: SY_MIN_104, SY_AV_104, SU_MIN_104, SU_AV_104, ETOT_AV_104, STRAIN_RUPT_AV_104, SM_STRUCTURAL_104, SMB_NONLEAKTIGHT_JOINTS_104, SMB_LEAKTIGHT_JOINTS_104, FATIGUE_STRESS_104

	! 105 - XM-19 Steel
		! Material model properties: ALPX, CTEX, EX, PRXY, DENS, KXX, C, MELAS, BISO, MISO, BKIN, KINH
		! Other properties: SY_MIN_105, SU_MIN_105, SM_105, SMB_NONLEAKTIGHT_JOINTS_105, SMB_LEAKTIGHT_JOINTS_105, FATIGUE_STRESS_105

	! 106 - Alloy 625
		! Material model properties: ALPX, EX, PRXY, DENS, KXX, C
		! Other properties: SY_MIN_106, SU_MIN_106, SM_106 

	! 107 - Ti-6Al-4V Alloy
		! Material model properties: ALPX, EX, PRXY, DENS, KXX, C, MELAS ,BISO, MISO, BKIN, KINH
		! Other properties: SY_MIN_107, SY_AV_107, SU_MIN_107, SU_AV_107, EUNIF_MIN_107, ETOT_MIN_107, STRAIN_RUPT_AV_107, SM_107, SE_107

	! 108 - Pure Copper
		! Material model properties: ALPX, EX, PRXY, DENS, KXX, C, MELAS_TUBE, MELAS_PLATE, MELAS_ROD ,BISO_TUBE, BISO_PLATE, BISO_ROD, MISO_TUBE, MISO_PLATE, MISO_ROD, BKIN_TUBE, BKIN_PLATE, BKIN_ROD, KINH_TUBE, KINH_PLATE, KINH_ROD 
		! Other properties: SY_MIN_PLATE_108, SY_MIN_TUBE_108, SY_MIN_ROD_108, SU_MIN_108, EUNIF_AV_108, ETOT_AV_108, STRAIN_RUPT_AV_108, SM_PLATE_108, SM_TUBE_108, SM_ROD_108, FATIGUE_STRAIN_108

	! 109 - Copper-Chromium-Zirconium Alloy
		! Material model properties: ALPX, CTEX, EX, PRXY, DENS, KXX, C, MELAS_B, MELAS_C ,BISO_B, BISO_C, MISO_B, MISO_C, BKIN_B, BKIN_C, KINH_B, KINH_C 
		! Other properties: SY_MIN_A_109, SY_IRR_MIN_A_109, SY_MIN_B_109, SY_AV_B_109, SY_IRR_MIN_B_109, SY_MIN_C_109, SU_MIN_A_109, SU_IRR_MIN_A_109, SU_MIN_B_109, SU_AV_B_109, SU_IRR_MIN_B_109, SU_IRR_AV_B_109, SU_MIN_C_109, SU_IRR_MIN_C_109, STRAIN_RUPT_A_AV_109, STRAIN_RUPT_B_AV_109, STRAIN_RUPT_C_AV_109, SM_A_109, SM_IRR_A_109, SE_IRR_A_109, SM_B_109, SM_IRR_B_109, SE_IRR_B_109, SM_C_109, FATIGUE_STRAIN_109, K_e_109, K_v_109 

	! 110 - Dispersion-Strengthened Copper
		! Material model properties: ALPX, CTEX, EX, PRXY, DENS, KXX, C
		! Other properties: SY_MIN_110, SY_IRR_MIN_110,SY_AV_110, SY_IRR_AV_110, SU_MIN_110, SU_IRR_MIN_110, SU_AV_110, SU_IRR_AV_110, EUNIF_AV_110, EUNIF_IRR_MIN_110, STRAIN_RUPT_AV_110, SM_110, SM_IRR_110, FATIGUE_STRAIN_110

	! 111 - Aluminium-Nickel Bronze
		! Material model properties: ALPX, EX, PRXY, DENS, KXX, C, MELAS_BAR, MELAS_PLATE, MELAS_FORG ,BISO_BAR, BISO_PLATE, BISO_FORG, MISO_BAR, MISO_PLATE, MISO_FORG, BKIN_BAR, BKIN_PLATE, BKIN_FORG, KINH_BAR, KINH_PLATE, KINH_FORG
		! Other properties: SY_MIN_BAR_111, SY_MIN_PLATE_111, SY_MIN_FORG_111, SU_MIN_111, EUNIF_MIN_111, EUNIF_AV_111, EUNIF_IRR_MIN_111, ETOT_MIN_111, ETOT_AV_111, ETOT_IRR_MIN_111, STRAIN_RUPT_MIN_111, SM_BAR_111, SM_PLATE_111, SM_FORG_111, FATIGUE_STRAIN_111

	! 112 - Alloy 718
		! Material model properties: ALPX, EX, PRXY, DENS, KXX, C, MELAS ,BISO, MISO, BKIN, KINH
		! Other properties: SY_MIN_112, SY_AV_112, SU_MIN_BOLT_112, SU_MIN_PLATE_112, SU_AV_112, EUNIF_AV_112, ETOT_AV_112, STRAIN_RUPT_AV_112, SM_PLATE_STRUCTURAL_112, SM_BAR_FORG_STRUCTURAL_112, SMB_BAR_NONLEAKTIGHT_JOINTS_112, SMB_BAR_LEAKTIGHT_JOINTS_112, SM_IRR_PLATE_STRUCTURAL_112, SMB_IRR_BAR_NONLEAKTIGHT_JOINTS_112, SMB_IRR_BAR_LEAKTIGHT_JOINTS_112, FATIGUE_STRESS_112 

	! 113 - Beryllium
		! Material model properties: ALPX, EX, PRXY, DENS, KXX, C
		! Other properties: SY_AV_113, SU_AV_113, EUNIF_AV_113, ETOT_AV_113

	! 114 - Tungsten
		! Material model properties: ALPX, EX, PRXY, DENS, KXX, C
		! Other properties: SY_STRESSRELIEVED_AV_114, SY_RECRISTALIZED_AV_114, SU_STRESSRELIEVED_AV_114, SU_RECRISTALIZED_AV_114, EUNIF_AV_114, ETOT_STRESSRELIEVED_AV_114, ETOT_ANNEALED_AV_114, STRAIN_RUPT_AV_114

	! 115 - CFC EU Grade
		! Material model properties: ALPX, ALPY, ALPZ, PRXZ, PRXY, PRYZ, DENS, KXX, KYY, KZZ, C

	! 116 - CFC CX-2002U Grade
		! Material model properties: DENS, KXX, KYY, KZZ, C

		

!!!!!!!!!!!!!!!!!!!!		Reference documents			!!!!!!!!!!!!!!!!!!!!

!! In-vessel Components, SDC-IC
	! IDM UID	ITER_D_222RHC v3.0
	! Version created On/ Version/ Status	12 Sep 2012/ 3.0/ Approved
	
!! Appendix A, Materials Design Limit Data
	! IDM UID	ITER_D_222RLN v3.2
	! Version created On/ Version/ Status	18 Sep 2012/ 3.2/ Approved

! Author: Miguel Gonzalez Fernandez
! Organization: Fusion For Energy

/PREP7

MAT_NAME=ARG1
MAT_NUMBER=ARG2

! Materials and material numbers are stored in arrays MATNAMES_ARRAY and MATNUMBERS_ARRAY

NUM_MAT=16
MATNAMES_ARRAY=
MATNUMBERS_ARRAY=
PROP_ARRAY=

*dim,MATNAMES_ARRAY,string,40,NUM_MAT
MATNAMES_ARRAY(1,1)='304L Stainless Steel'
MATNAMES_ARRAY(1,2)='316L Stainless Steel'
MATNAMES_ARRAY(1,3)='316L (N-IG) Stainless Steel'
MATNAMES_ARRAY(1,4)='GRADE 660 Stainless Steel'
MATNAMES_ARRAY(1,5)='XM-19 Steel'
MATNAMES_ARRAY(1,6)='Alloy 625'
MATNAMES_ARRAY(1,7)='Ti-6Al-4V Alloy'
MATNAMES_ARRAY(1,8)='Pure Copper'
MATNAMES_ARRAY(1,9)='Copper-Chromium-Zirconium Alloy'
MATNAMES_ARRAY(1,10)='Dispersion-Strengthened Copper'
MATNAMES_ARRAY(1,11)='Aluminium-Nickel Bronze'
MATNAMES_ARRAY(1,12)='Alloy 718'
MATNAMES_ARRAY(1,13)='Beryllium'
MATNAMES_ARRAY(1,14)='Tungsten'
MATNAMES_ARRAY(1,15)='CFC EU Grade'
MATNAMES_ARRAY(1,16)='CFC CX-2002U Grade'

*dim,MATNUMBERS_ARRAY,array,NUM_MAT
MATNUMBERS_ARRAY(1)=101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116

! If only the number of the material is supplied,the material name MAT_NAME is calculated with the given number

*get,MAT_NAME_TYPE,parm,ARG1,type
*if,MAT_NAME_TYPE,eq,0,then
	*do,I,1,NUM_MAT,1
		*if,MATNUMBERS_ARRAY(I),eq,MAT_NUMBER,then
			IDX=I
			*exit
		*endif
	*enddo
	MAT_NAME=MATNAMES_ARRAY(1,IDX)
*endif

! Create parameter NUM_PROP to store the number of properties supplied, wich
! is used in the *DO loops for properties selection inside each material  

ARG_INIT=3
*do,I,ARG_INIT,19,1
	*if,I,lt,10,then
		*get,ARGUMENT_TYPE,parm,ARG%I%,type
	*else
		*get,ARGUMENT_TYPE,parm,AR%I%,type
	*endif
	*if,ARGUMENT_TYPE,eq,0,or,ARGUMENT_TYPE,eq,-1,then
		*exit
	*endif
	NUM_PROP=I-ARG_INIT+1
*enddo


! Main body of the material macro.The material and the right properties are selected
! according with input parameters

*if,NUM_PROP,gt,0,then

	! Create string array to store the properties given in the macro input parameters
	! for later property selection 
	*dim,PROP_ARRAY,string,40,NUM_PROP
	*do,I,1,NUM_PROP,1
		INDX=I+ARG_INIT-1
		*if,INDX,lt,10,then
			PROP_ARRAY(1,I)=ARG%INDX%
		*else
			PROP_ARRAY(1,I)=AR%INDX%
		*endif
	*enddo
	
	! If - else structure in order to select the rigth material and properties,
	! comparing the material number MAT_NUMBER or the material name MAT_NAME with
	! the arrays in which all the material numbers and names are stored, MATNUMBERS_ARRAY and MATNAMES_ARRAY respectively
	
	!------------------------------------------------------------------------------
	! Material 101. 304L Stainless Steel.
	! SDC-IC A.S01 Austenitic steel - 304L (EN grade numbers 1.4307, 1.4306)
	!------------------------------------------------------------------------------
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,1),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(1),then
	
		! Define the material tag (MAT_TAG)
		MAT_SS304=101
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
				mptemp,  21, 1000.0, 
				mpdata, ALPX,   101,    1, 1.53e-05, 1.55e-05, 1.59e-05, 1.62e-05, 1.66e-05, 
				mpdata, ALPX,   101,    6, 1.69e-05, 1.72e-05, 1.75e-05, 1.78e-05, 1.8e-05, 
				mpdata, ALPX,   101,    11, 1.83e-05, 1.85e-05, 1.87e-05, 1.89e-05, 1.9e-05, 
				mpdata, ALPX,   101,    16, 1.92e-05, 1.93e-05, 1.95e-05, 1.96e-05, 1.97e-05, 
				mpdata, ALPX,   101,    21, 1.97e-05, 
			*endif
		
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
				mptemp,  21, 1000.0, 
				mpdata, CTEX,   101,    1, 1.53e-05, 1.57e-05, 1.65e-05, 1.71e-05, 1.78e-05, 
				mpdata, CTEX,   101,    6, 1.83e-05, 1.89e-05, 1.93e-05, 1.98e-05, 2.01e-05, 
				mpdata, CTEX,   101,    11, 2.05e-05, 2.07e-05, 2.1e-05, 2.11e-05, 2.13e-05, 
				mpdata, CTEX,   101,    16, 2.13e-05, 2.14e-05, 2.13e-05, 2.13e-05, 
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
				mptemp
				mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
				mptemp,  6, 300.0, 350.0, 400.0, 450.0, 500.0, 
				mptemp,  11, 550.0, 600.0, 650.0, 700.0, 
				mpdata, EX,   101,    1, 200.0e9, 193.0e9, 189.0e9, 185.0e9, 180.0e9, 
				mpdata, EX,   101,    6, 176.0e9, 172.0e9, 168.0e9, 164.0e9, 159.0e9, 
				mpdata, EX,   101,    11, 155.0e9, 151.0e9, 147.0e9, 142.0e9, 
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
				mp, PRXY, 101, 0.3
			*endif

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 
				mpdata, DENS,   101,    1, 7930.0, 7919.0, 7899.0, 7879.0, 7858.0, 
				mpdata, DENS,   101,    6, 7837.0, 7815.0, 7793.0, 7770.0, 7747.0, 
				mpdata, DENS,   101,    11, 7724.0, 7701.0, 7677.0, 7654.0, 7630.0, 
				mpdata, DENS,   101,    16, 7606.0, 7582.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 
				mpdata, KXX,   101,    1, 14.28, 14.73, 15.48, 16.23, 16.98, 
				mpdata, KXX,   101,    6, 17.74, 18.49, 19.24, 19.99, 20.74, 
				mpdata, KXX,   101,    11, 21.49, 22.24, 22.99, 23.74, 24.49, 
				mpdata, KXX,   101,    16, 25.25, 26.0, 
			*endif
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 
				mpdata, C,   101,    1, 472.0, 485.0, 501.0, 512.0, 522.0, 
				mpdata, C,   101,    6, 530.0, 538.0, 546.0, 556.0, 567.0, 
				mpdata, C,   101,    11, 578.0, 590.0, 601.0, 610.0, 615.0, 
				mpdata, C,   101,    16, 615.0, 607.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
				tb, MELAS, 101, 5, 14
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001, 20000000.0
				tbpt, , 0.0002, 40000000.0
				tbpt, , 0.0003001, 60000000.0
				tbpt, , 0.0004014, 80000000.0
				tbpt, , 0.0005107, 100100000.0
				tbpt, , 0.0006544, 120100000.0
				tbpt, , 0.0009146, 140100000.0
				tbpt, , 0.0015034, 160200000.0
				tbpt, , 0.0029031, 180500000.0
				tbpt, , 0.0061022, 201200000.0
				tbpt, , 0.012963, 222900000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001036, 20000000.0
				tbpt, , 0.0002073, 40000000.0
				tbpt, , 0.0003116, 60000000.0
				tbpt, , 0.0004246, 80000000.0
				tbpt, , 0.0005918, 100100000.0
				tbpt, , 0.0009946, 120100000.0
				tbpt, , 0.0021924, 140300000.0
				tbpt, , 0.0056284, 160900000.0
				tbpt, , 0.014545, 182600000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001081, 20000000.0
				tbpt, , 0.0002163, 40000000.0
				tbpt, , 0.0003292, 60000000.0
				tbpt, , 0.0004957, 80000000.0
				tbpt, , 0.001001, 100100000.0
				tbpt, , 0.0029749, 120400000.0
				tbpt, , 0.009882, 141400000.0
				tbpt, , 0.017595, 152700000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000568, 10000000.0
				tbpt, , 0.0001136, 20000000.0
				tbpt, , 0.0001705, 30000000.0
				tbpt, , 0.0002278, 40000000.0
				tbpt, , 0.0002883, 50000000.0
				tbpt, , 0.0003623, 60000000.0
				tbpt, , 0.0004819, 70000000.0
				tbpt, , 0.0007305, 80100000.0
				tbpt, , 0.0012973, 90100000.0
				tbpt, , 0.0025721, 100300000.0
				tbpt, , 0.0052941, 110600000.0
				tbpt, , 0.010773, 121300000.0
				tbpt, , 0.0211871, 132800000.0
				tbtemp, 400
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000595, 10000000.0
				tbpt, , 0.000119, 20000000.0
				tbpt, , 0.0001787, 30000000.0
				tbpt, , 0.0002397, 40000000.0
				tbpt, , 0.0003095, 50000000.0
				tbpt, , 0.0004174, 60000000.0
				tbpt, , 0.0006539, 70000000.0
				tbpt, , 0.0012535, 80100000.0
				tbpt, , 0.0027488, 90200000.0
				tbpt, , 0.0062313, 100600000.0
				tbpt, , 0.0137547, 111500000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
				tb, BISO, 101, 5, 2,
				tbtemp, 20   
				tbdata, , 180e6, 61800373  
				tbtemp, 100  
				tbdata,, 145e6,34243803  
				tbtemp, 200  
				tbdata,, 118e6, 22092872  
				tbtemp, 300  
				tbdata,, 100e6, 17459038  
				tbtemp, 400  
				tbdata,, 89e6, 19353256
			*endif
		
		! Isotropic hardening plasticity. Multilinear stress-strain curves..
			*if,PROP_ARRAY(1,I),eq,'MISO',then
				tb, PLASTIC, 101, 5, 4, MISO
				tbtemp, 20
				tbpt, , 0.002869, 180000000.0
				tbpt, , 0.0061022, 201200000.0
				tbpt, , 0.012963, 222900000.0
				tbtemp, 100
				tbpt, , 0.002976, 145000000.0
				tbpt, , 0.0056284, 160900000.0
				tbpt, , 0.014545, 182600000.0
				tbtemp, 200
				tbpt, , 0.0027415, 118000000.0
				tbpt, , 0.009882, 141400000.0
				tbpt, , 0.017595, 152700000.0
				tbtemp, 300
				tbpt, , 0.002535, 100000000.0
				tbpt, , 0.0052941, 110600000.0
				tbpt, , 0.010773, 121300000.0
				tbpt, , 0.0211871, 132800000.0
				tbtemp, 400
				tbpt, , 0.0025711, 89000000.0
				tbpt, , 0.0062313, 100600000.0
				tbpt, , 0.0137547, 111500000.0
			*endif

		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
				tb, BKIN, 101, 5, 2,
				tbtemp, 20   
				tbdata, , 180e6, 61800373  
				tbtemp, 100  
				tbdata,, 145e6,34243803  
				tbtemp, 200  
				tbdata,, 118e6, 22092872  
				tbtemp, 300  
				tbdata,, 100e6, 17459038  
				tbtemp, 400  
				tbdata,, 89e6, 19353256
			*endif	

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
				tb, PLASTIC, 101, 5, 4, KINH
				tbtemp, 20
				tbpt, , 0.002869, 180000000.0
				tbpt, , 0.0061022, 201200000.0
				tbpt, , 0.012963, 222900000.0
				tbtemp, 100
				tbpt, , 0.002976, 145000000.0
				tbpt, , 0.0056284, 160900000.0
				tbpt, , 0.014545, 182600000.0
				tbtemp, 200
				tbpt, , 0.0027415, 118000000.0
				tbpt, , 0.009882, 141400000.0
				tbpt, , 0.017595, 152700000.0
				tbtemp, 300
				tbpt, , 0.002535, 100000000.0
				tbpt, , 0.0052941, 110600000.0
				tbpt, , 0.010773, 121300000.0
				tbpt, , 0.0211871, 132800000.0
				tbtemp, 400
				tbpt, , 0.0025711, 89000000.0
				tbpt, , 0.0062313, 100600000.0
				tbpt, , 0.0137547, 111500000.0
			*endif
			
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_101',then
				*dim, SY_MIN_101, table, 11,,, TEMP
				*taxis, SY_MIN_101(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_MIN_101(10), 1, 500.0, 550.0, 
				SY_MIN_101(1)=180000000.0, 145000000.0, 130000000.0, 118000000.0, 108000000.0, 100000000.0, 94000000.0, 89000000.0, 85000000.0, 81000000.0, 80000000.0,
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_101',then
				*dim, SY_AV_101, table, 11,,, TEMP
				*taxis, SY_AV_101(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_AV_101(10), 1, 500.0, 550.0, 
				SY_AV_101(1)=225000000.0, 181250000.0, 162500000.0, 147500000.0, 135000000.0, 125000000.0, 117500000.0, 111250000.0, 106250000.0, 101250000.0, 100000000.0, 
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_101',then	
				*dim, SU_MIN_101, table, 9,,, TEMP
				*taxis, SU_MIN_101(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				SU_MIN_101(1)=460000000.0, 410000000.0, 380000000.0, 360000000.0, 350000000.0, 340000000.0, 340000000.0, 337000000.0, 331000000.0,
			*endif
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_101',then
			
			*endif
		
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_101',then
				*dim, SM_101, table, 11,,, TEMP
				*taxis, SM_101(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SM_101(10), 1, 500.0, 550.0, 
				SM_101(1)=120000000.0, 120000000.0, 117000000.0, 106000000.0, 97000000.0, 90000000.0, 85000000.0, 80000000.0, 76500000.0, 73000000.0, 72000000.0, 
			*endif
			
		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_101',then
				*dim, FATIGUE_STRAIN_101, table, 20,2,, N,TEMP
				*taxis, FATIGUE_STRAIN_101(1,1), 1, 1.00E+01, 2.00E+01, 4.00E+01, 1.00E+02, 2.00E+02, 4.00E+02, 1.00E+03, 2.00E+03, 4.00E+03, 
				*taxis, FATIGUE_STRAIN_101(10,1), 1, 1.00E+04, 2.00E+04, 4.00E+04, 1.00E+05, 2.00E+05, 4.00E+05, 1.00E+06, 5.00E+06, 1.00E+07, 5.00E+07,
				*taxis, FATIGUE_STRAIN_101(20,1), 1, 1.00E+08
				*taxis, FATIGUE_STRAIN_101(1,1), 2, 20, 450,
				FATIGUE_STRAIN_101(1,1)= 4.291E-02, 2.755E-02, 1.931E-02, 1.331E-02, 1.057E-02, 0.863E-02, 0.698E-02, 0.59E-02, 0.498E-02, 0.399E-02, 0.341E-02,
				FATIGUE_STRAIN_101(12,1)=0.301E-02, 0.267E-02, 0.25E-02, 0.238E-02, 0.225E-02, 0.203E-02, 0.192E-02, 0.169E-02, 0.165E-02
				FATIGUE_STRAIN_101(1,2)=2.552E-02, 1.931E-02, 1.485E-02, 1.08E-02, 0.869E-02, 0.715E-02, 0.578E-02, 0.488E-02, 0.412E-02, 0.33E-02, 0.282E-02, 
				FATIGUE_STRAIN_101(12,2)= 0.249E-02, 0.221E-02, 0.207E-02, 0.197E-02, 0.186E-02, 0.168E-02, 0.159E-02, 0.14E-02, 0.136E-02
			*endif	
		! K - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_101',then
				*dim,K_101,table, 3,,,TEMP
				*taxis, K_101(1), 1, 20, 300, 550
				K_101(1)= 711.9E+06, 638.7E+06, 638.7E+06
			*endif
			
		! m - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'m_101',then
				*dim,m_101,table, 3,,,TEMP
				*taxis, m_101(1), 1, 20, 300, 550
				m_101(1)= 0.351, 0.31, 0.31
			*endif
			
		! K_e - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_e_101',then
				*dim, K_e_101, table,7 ,14 ,, TEMP,STRESS
				*taxis, K_e_101(1,1), 1, 20, 300, 350, 400, 450, 500, 550
				*taxis, K_e_101(1,1), 2, 100E+06, 200E+06, 300E+06, 400E+06, 500E+06, 600E+06, 700E+06, 800E+06, 900E+06, 
				*taxis, K_e_101(1,10), 2, 1000E+06, 1100E+06, 1200E+06, 1300E+06, 1400E+06
				K_e_101(1,1)= 1.04, 1.02, 1.02, 1.02, 1.02, 1.02, 1.02
				K_e_101(1,2)= 1.12, 1.09, 1.09, 1.09, 1.09, 1.09, 1.08
				K_e_101(1,3)= 1.21, 1.19, 1.18, 1.18, 1.18, 1.17, 1.17
				K_e_101(1,4)= 1.3, 1.28, 1.28, 1.27, 1.27, 1.27, 1.26
				K_e_101(1,5)= 1.39, 1.38, 1.37, 1.37, 1.36, 1.36, 1.35
				K_e_101(1,6)= 1.47, 1.47, 1.47, 1.46, 1.45, 1.45, 1.44
				K_e_101(1,7)= 1.55, 1.56, 1.56, 1.55, 1.54, 1.54, 1.53
				K_e_101(1,8)= 1.62, 1.65, 1.64, 1.64, 1.63, 1.62, 1.61
				K_e_101(1,9)= 1.7, 1.73, 1.73, 1.72, 1.71, 1.7, 1.69
				K_e_101(1,10)= 1.77, 1.81, 1.81, 1.8, 1.79, 1.78, 1.77
				K_e_101(1,11)= 1.83, 1.89, 1.88, 1.87, 1.86, 1.85, 1.84
				K_e_101(1,12)= 1.9, 1.97, 1.96, 1.95, 1.94, 1.93, 1.92
				K_e_101(1,13)= 1.96, 2.04, 2.03, 2.02, 2.01, 2, 1.99
				K_e_101(1,14)= 2.02, 2.11, 2.1, 2.09, 2.08, 2.07, 2.06
			*endif	
			
		! K_v - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_v_101',then	
				*dim, K_v_101, table,7 ,14 ,, TEMP,STRESS
				*taxis, K_v_101(1,1), 1, 20, 300, 350, 400, 450, 500, 550
				*taxis, K_v_101(1,1), 2, 100E+06, 200E+06, 300E+06, 400E+06, 500E+06, 600E+06, 700E+06, 800E+06, 900E+06, 
				*taxis, K_v_101(1,10), 2, 1000E+06, 1100E+06, 1200E+06, 1300E+06, 1400E+06
				K_v_101(1,1)=  1.03, 1.02, 1.02, 1.02, 1.02, 1.02, 1.02
				K_v_101(1,2)=  1.08, 1.06, 1.06, 1.06, 1.06, 1.06, 1.06
				K_v_101(1,3)=  1.13, 1.12, 1.11, 1.11, 1.11, 1.11, 1.11
				K_v_101(1,4)=  1.17, 1.16, 1.16, 1.16, 1.16, 1.15, 1.15
				K_v_101(1,5)=  1.2, 1.2, 1.2, 1.2, 1.19, 1.19, 1.19
				K_v_101(1,6)=  1.23, 1.23, 1.23, 1.23, 1.23, 1.22, 1.22
				K_v_101(1,7)=  1.26, 1.26, 1.26, 1.25, 1.25, 1.25, 1.25
				K_v_101(1,8)=  1.28, 1.28, 1.28, 1.28, 1.27, 1.27, 1.27
				K_v_101(1,9)=  1.3, 1.3, 1.3, 1.3, 1.29, 1.29, 1.29
				K_v_101(1,10)= 1.31, 1.32, 1.32, 1.31, 1.31, 1.31, 1.31
				K_v_101(1,11)= 1.32, 1.33, 1.33, 1.33, 1.33, 1.33, 1.32
				K_v_101(1,12)= 1.34, 1.35, 1.34, 1.34, 1.34, 1.34, 1.34
				K_v_101(1,13)= 1.35, 1.36, 1.36, 1.35, 1.35, 1.35, 1.35
				K_v_101(1,14)= 1.36, 1.37, 1.37, 1.36, 1.36, 1.36, 1.36
			*endif
		*enddo
	*endif
	
   	!------------------------------------------------------------------------------
	! Material 102. 316L Stainless Steel. 
	! SDC-IC A.S02 Austenitic steel - 316L (EN grade numbers 1.4404, 1.4435)
	!------------------------------------------------------------------------------
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,2),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(2),then
		
		! Define the material tag (MAT_TAG)
		MAT_SS316=102
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
				mptemp,  21, 1000.0, 
				mpdata, ALPX,   102,    1, 1.53e-05, 1.55e-05, 1.59e-05, 1.62e-05, 1.66e-05, 
				mpdata, ALPX,   102,    6, 1.69e-05, 1.72e-05, 1.75e-05, 1.78e-05, 1.8e-05, 
				mpdata, ALPX,   102,    11, 1.83e-05, 1.85e-05, 1.87e-05, 1.89e-05, 1.9e-05, 
				mpdata, ALPX,   102,    16, 1.92e-05, 1.93e-05, 1.95e-05, 1.96e-05, 1.97e-05, 
				mpdata, ALPX,   102,    21, 1.97e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
				mptemp,  21, 1000.0, 
				mpdata, CTEX,   102,    1, 1.53e-05, 1.57e-05, 1.65e-05, 1.71e-05, 1.78e-05, 
				mpdata, CTEX,   102,    6, 1.83e-05, 1.89e-05, 1.93e-05, 1.98e-05, 2.01e-05, 
				mpdata, CTEX,   102,    11, 2.05e-05, 2.07e-05, 2.1e-05, 2.11e-05, 2.13e-05, 
				mpdata, CTEX,   102,    16, 2.13e-05, 2.14e-05, 2.13e-05, 2.13e-05, 
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
                mptemp,  6, 300.0, 350.0, 400.0, 450.0, 500.0, 
                mptemp,  11, 550.0, 600.0, 650.0, 700.0, 
                mpdata, EX,   102,    1, 200.0e9, 193.0e9, 189.0e9, 185.0e9, 180.0e9, 
                mpdata, EX,   102,    6, 176.0e9, 172.0e9, 168.0e9, 164.0e9, 159.0e9, 
                mpdata, EX,   102,    11, 155.0e9, 151.0e9, 147.0e9, 142.0e9, 
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 102, 0.3
			*endif

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 
                mpdata, DENS,   102,    1, 7930.0, 7919.0, 7899.0, 7879.0, 7858.0, 
                mpdata, DENS,   102,    6, 7837.0, 7815.0, 7793.0, 7770.0, 7747.0, 
                mpdata, DENS,   102,    11, 7724.0, 7701.0, 7677.0, 7654.0, 7630.0, 
                mpdata, DENS,   102,    16, 7606.0, 7582.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 
                mpdata, KXX,   102,    1, 14.28, 14.73, 15.48, 16.23, 16.98, 
                mpdata, KXX,   102,    6, 17.74, 18.49, 19.24, 19.99, 20.74, 
                mpdata, KXX,   102,    11, 21.49, 22.24, 22.99, 23.74, 24.49, 
                mpdata, KXX,   102,    16, 25.25, 26.0, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 
                mpdata, C,   102,    1, 472.0, 485.0, 501.0, 512.0, 522.0, 
                mpdata, C,   102,    6, 530.0, 538.0, 546.0, 556.0, 567.0, 
                mpdata, C,   102,    11, 578.0, 590.0, 601.0, 610.0, 615.0, 
                mpdata, C,   102,    16, 615.0, 607.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
				tb, MELAS, 102, 5, 16
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001, 20000000.0
				tbpt, , 0.0002, 40000000.0
				tbpt, , 0.0003, 60000000.0
				tbpt, , 0.0004008, 80000000.0
				tbpt, , 0.0005066, 100100000.0
				tbpt, , 0.0006336, 120100000.0
				tbpt, , 0.0008326, 140100000.0
				tbpt, , 0.0012349, 160200000.0
				tbpt, , 0.002139, 180400000.0
				tbpt, , 0.0041581, 200800000.0
				tbpt, , 0.0084526, 221900000.0
				tbpt, , 0.0170658, 244100000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001036, 20000000.0
				tbpt, , 0.0002072, 40000000.0
				tbpt, , 0.0003111, 60000000.0
				tbpt, , 0.0004176, 80000000.0
				tbpt, , 0.0005414, 100100000.0
				tbpt, , 0.0007399, 120100000.0
				tbpt, , 0.0011906, 140200000.0
				tbpt, , 0.0023532, 160400000.0
				tbpt, , 0.0052689, 181000000.0
				tbpt, , 0.0120611, 202400000.0
				tbpt, , 0.0180475, 213800000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001081, 20000000.0
				tbpt, , 0.0002162, 40000000.0
				tbpt, , 0.0003256, 60000000.0
				tbpt, , 0.0004492, 80000000.0
				tbpt, , 0.0006626, 100100000.0
				tbpt, , 0.0012661, 120200000.0
				tbpt, , 0.0031852, 140400000.0
				tbpt, , 0.0088007, 161400000.0
				tbpt, , 0.0144829, 172500000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000568, 10000000.0
				tbpt, , 0.0001136, 20000000.0
				tbpt, , 0.0001704, 30000000.0
				tbpt, , 0.0002274, 40000000.0
				tbpt, , 0.000285, 50000000.0
				tbpt, , 0.0003454, 60000000.0
				tbpt, , 0.0004156, 70000000.0
				tbpt, , 0.0005133, 80000000.0
				tbpt, , 0.0006788, 90100000.0
				tbpt, , 0.0009953, 100100000.0
				tbpt, , 0.0016214, 110200000.0
				tbpt, , 0.0028401, 120300000.0
				tbpt, , 0.0051301, 130700000.0
				tbpt, , 0.0092637, 141300000.0
				tbpt, , 0.0164322, 152500000.0
				tbtemp, 400
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000595, 10000000.0
				tbpt, , 0.000119, 20000000.0
				tbpt, , 0.0001786, 30000000.0
				tbpt, , 0.0002384, 40000000.0
				tbpt, , 0.0002997, 50000000.0
				tbpt, , 0.0003679, 60000000.0
				tbpt, , 0.0004591, 70000000.0
				tbpt, , 0.0006153, 80000000.0
				tbpt, , 0.0009323, 90100000.0
				tbpt, , 0.0016067, 100200000.0
				tbpt, , 0.0030131, 110300000.0
				tbpt, , 0.0058181, 120700000.0
				tbpt, , 0.0111427, 131500000.0
				tbpt, , 0.0207729, 142900000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
				tb, BISO, 102, 5, 2,
				tbtemp, 20   
				tbdata, , 190e6, 42674920.28 
				tbtemp, 100  
				tbdata,, 165e6, 34025091.91
				tbtemp, 200  
				tbdata,, 127e6, 28412862.8 
				tbtemp, 300  
				tbdata,, 113e6, 23690231.83
				tbtemp, 400  
				tbdata,, 103e6, 18356062.57
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
				tb, PLASTIC, 102, 5, 4, MISO
				tbtemp, 20
				tbpt, , 0.003089, 190000000.0
				tbpt, , 0.0041581, 200800000.0
				tbpt, , 0.0084526, 221900000.0
				tbpt, , 0.0170658, 244100000.0
				tbtemp, 100
				tbpt, , 0.0030043, 165000000.0
				tbpt, , 0.0052689, 181000000.0
				tbpt, , 0.0120611, 202400000.0
				tbpt, , 0.0180475, 213800000.0
				tbtemp, 200
				tbpt, , 0.0028622, 137000000.0
				tbpt, , 0.0088007, 161400000.0
				tbpt, , 0.0144829, 172500000.0
				tbtemp, 300
				tbpt, , 0.0026832, 119000000.0
				tbpt, , 0.0051301, 130700000.0
				tbpt, , 0.0092637, 141300000.0
				tbpt, , 0.0164322, 152500000.0
				tbtemp, 400
				tbpt, , 0.0026928, 108000000.0
				tbpt, , 0.0058181, 120700000.0
				tbpt, , 0.0111427, 131500000.0
				tbpt, , 0.0207729, 142900000.0
			*endif

		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
				tb, BKIN, 102, 5, 2,
				tbtemp, 20   
				tbdata, , 190e6, 42674920.28 
				tbtemp, 100  
				tbdata,, 165e6, 34025091.91
				tbtemp, 200  
				tbdata,, 127e6, 28412862.8 
				tbtemp, 300  
				tbdata,, 113e6, 23690231.83
				tbtemp, 400  
				tbdata,, 103e6, 18356062.57
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
				tb, KINH, 102, 5, 16
				tbtemp, 20
				tbpt, , 0.003089, 190000000.0
				tbpt, , 0.0041581, 200800000.0
				tbpt, , 0.0084526, 221900000.0
				tbpt, , 0.0170658, 244100000.0
				tbtemp, 100
				tbpt, , 0.0030043, 165000000.0
				tbpt, , 0.0052689, 181000000.0
				tbpt, , 0.0120611, 202400000.0
				tbpt, , 0.0180475, 213800000.0
				tbtemp, 200
				tbpt, , 0.0028622, 137000000.0
				tbpt, , 0.0088007, 161400000.0
				tbpt, , 0.0144829, 172500000.0
				tbtemp, 300
				tbpt, , 0.0026832, 119000000.0
				tbpt, , 0.0051301, 130700000.0
				tbpt, , 0.0092637, 141300000.0
				tbpt, , 0.0164322, 152500000.0
				tbtemp, 400
				tbpt, , 0.0026928, 108000000.0
				tbpt, , 0.0058181, 120700000.0
				tbpt, , 0.0111427, 131500000.0
				tbpt, , 0.0207729, 142900000.0
			*endif

		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_PIP_FORG_102',then
				*dim, SY_MIN_PIP_FORG_102, table, 11,,, TEMP
				*taxis, SY_MIN_PIP_FORG_102(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_MIN_PIP_FORG_102(10), 1, 500.0, 550.0, 
				SY_MIN_PIP_FORG_102(1)=190000000.0, 165000000.0, 150000000.0, 137000000.0, 127000000.0, 119000000.0, 113000000.0, 108000000.0, 103000000.0, 100000000.0, 98000000.0, 	
			*endif

			*if,PROP_ARRAY(1,I),eq,'SY_MIN_FLAT_102',then
				*dim, SY_MIN_FLAT_102, table, 11,,, TEMP
				*taxis, SY_MIN_FLAT_102(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_MIN_FLAT_102(10), 1, 500.0, 550.0, 
				SY_MIN_FLAT_102(1)=220000000.0, 166000000.0, 152000000.0, 137000000.0, 127000000.0, 118000000.0, 113000000.0, 108000000.0, 103000000.0, 100000000.0, 98000000.0, 			
			*endif
			
		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_PIP_FORG_102',then
				*dim, SY_AV_PIP_FORG_102, table, 11,,, TEMP
				*taxis, SY_AV_PIP_FORG_102(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_AV_PIP_FORG_102(10), 1, 500.0, 550.0, 
				SY_AV_PIP_FORG_102(1)=243200000.0, 211200000.0, 192000000.0, 175360000.0, 162560000.0, 152320000.0, 144640000.0, 138240000.0, 131840000.0, 128000000.0, 125440000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SY_AV_FLAT_102',then
				*dim, SY_AV_FLAT_102, table, 11,,, TEMP
				*taxis, SY_AV_FLAT_102(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_AV_FLAT_102(10), 1, 500.0, 550.0, 
				SY_AV_FLAT_102(1)=281600000.0, 212480000.0, 194560000.0, 175360000.0, 162560000.0, 151040000.0, 144640000.0, 138240000.0, 131840000.0, 128000000.0, 125440000.0, 
			*endif
			
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_PIP_102',then
				*dim, SU_MIN_PIP_102, table, 9,,, TEMP
				*taxis, SU_MIN_PIP_102(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 500.0, 
				SU_MIN_PIP_102(1)=490000000.0, 430000000.0, 410000000.0, 390000000.0, 385000000.0, 380000000.0, 380000000.0, 380000000.0,380000000.0,
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_FLAT_102',then
				*dim, SU_MIN_FLAT_102, table, 9,,, TEMP
				*taxis, SU_MIN_FLAT_102(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 500.0,  
				SU_MIN_FLAT_102(1)=520000000.0, 430000000.0, 410000000.0, 390000000.0, 385000000.0, 380000000.0, 380000000.0, 380000000.0, 380000000.0,
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_102',then
				
			*endif			
		
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_102',then
				*dim, SM_102, table, 12,,, TEMP
				*taxis, SM_102(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_102(10), 1, 450.0, 500.0, 550.0, 
				SM_102(1)=127000000.0, 127000000.0, 127000000.0, 127000000.0, 123000000.0, 114000000.0, 107000000.0, 102000000.0, 97000000.0, 93000000.0, 90000000.0, 
				SM_102(12)=88000000.0, 
			*endif
			
		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_102',then
				*dim, FATIGUE_STRAIN_102, table, 20,6,, N,TEMP
				*taxis, FATIGUE_STRAIN_102(1,1), 1, 1.00E+01, 2.00E+01, 4.00E+01, 1.00E+02, 2.00E+02, 4.00E+02, 1.00E+03, 2.00E+03, 4.00E+03, 
				*taxis, FATIGUE_STRAIN_102(10,1), 1, 1.00E+04, 2.00E+04, 4.00E+04, 1.00E+05, 2.00E+05, 4.00E+05, 1.00E+06, 5.00E+06, 1.00E+07, 5.00E+07,
				*taxis, FATIGUE_STRAIN_102(20,1), 1, 1.00E+08
				*taxis, FATIGUE_STRAIN_102(1,1), 2, 20, 450, 500, 550, 600, 650
				FATIGUE_STRAIN_102(1,1)= 4.291E-02, 2.755E-02, 1.931E-02, 1.331E-02, 1.057E-02, 0.863E-02, 0.698E-02, 0.59E-02, 0.498E-02, 0.399E-02, 0.341E-02,
				FATIGUE_STRAIN_102(12,1)=0.301E-02, 0.267E-02, 0.25E-02, 0.238E-02, 0.225E-02, 0.203E-02, 0.192E-02, 0.169E-02, 0.165E-02
				FATIGUE_STRAIN_102(1,2)=2.552E-02, 1.931E-02, 1.485E-02, 1.08E-02, 0.869E-02, 0.715E-02, 0.578E-02, 0.488E-02, 0.412E-02, 0.33E-02, 0.282E-02, 
				FATIGUE_STRAIN_102(12,2)= 0.249E-02, 0.221E-02, 0.207E-02, 0.197E-02, 0.186E-02, 0.168E-02, 0.159E-02, 0.14E-02, 0.136E-02
				FATIGUE_STRAIN_102(1,3)= 2.459E-02, 1.841E-02, 1.403E-02, 1.007E-02, 0.805E-02, 0.659E-02, 0.532E-02, 0.449E-02, 0.38E-02, 0.304E-02, 0.26E-02, 
				FATIGUE_STRAIN_102(12,3)= 0.229E-02, 0.203E-02, 0.19E-02, 0.181E-02, 0.171E-02, 0.154E-02, 0.146E-02, 0.129E-02, 0.125E-02
				FATIGUE_STRAIN_102(1,4)= 2.361E-02, 1.748E-02, 1.316E-02, 0.933E-02, 0.741E-02, 0.605E-02, 0.487E-02, 0.412E-02, 0.348E-02, 0.278E-02, 0.238E-02, 
				FATIGUE_STRAIN_102(12,4)= 0.21E-02, 0.186E-02, 0.174E-02, 0.166E-02, 0.157E-02, 0.141E-02, 0.134E-02, 0.118E-02, 0.115E-02
				FATIGUE_STRAIN_102(1,5)= 2.26E-02, 1.652E-02, 1.231E-02, 0.859E-02, 0.678E-02, 0.552E-02, 0.445E-02, 0.376E-02, 0.317E-02, 0.254E-02, 0.217E-02, 
				FATIGUE_STRAIN_102(12,5)= 0.192E-02, 0.17E-02, 0.159E-02, 0.151E-02, 0.143E-02, 0.129E-02, 0.122E-02, 0.108E-02, 0.105E-02
				FATIGUE_STRAIN_102(1,6)= 2.155E-02, 1.553E-02, 1.139E-02, 0.787E-02, 0.618E-02, 0.502E-02, 0.404E-02, 0.342E-02, 0.289E-02, 0.231E-02, 0.198E-02, 
				FATIGUE_STRAIN_102(12,6)= 0.174E-02, 0.154E-02, 0.145E-02, 0.138E-02, 0.13E-02, 0.117E-02, 0.111E-02, 0.098E-02, 0.095E-02
			*endif	
		! K - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_102',then
				*dim,K_102,table, 4,,,TEMP
				*taxis, K_102(1), 1, 20, 300, 550, 600
				K_102(1)= 711.9E+06, 638.7E+06, 638.7E+06, 628.2E+06
			*endif
			
		! m - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'m_102',then
				*dim,m_102,table, 4,,,TEMP
				*taxis, m_102(1), 1, 20, 300, 550, 600
				m_102(1)= 0.351, 0.31, 0.31, 0.248
			*endif
			
		! K_e - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_e_102',then
				*dim, K_e_102, table,8 ,14 ,, TEMP,STRESS
				*taxis, K_e_102(1,1), 1, 20, 300, 350, 400, 450, 500, 550, 600
				*taxis, K_e_102(1,1), 2, 100E+06, 200E+06, 300E+06, 400E+06, 500E+06, 600E+06, 700E+06, 800E+06, 900E+06, 
				*taxis, K_e_102(1,10), 2, 1000E+06, 1100E+06, 1200E+06, 1300E+06, 1400E+06
				K_e_102(1,1)= 1.04, 1.02, 1.02, 1.02, 1.02, 1.02, 1.02, 1.01
				K_e_102(1,2)= 1.12, 1.09, 1.09, 1.09, 1.09, 1.09, 1.08, 1.04
				K_e_102(1,3)= 1.21, 1.19, 1.18, 1.18, 1.18, 1.17, 1.17, 1.1
				K_e_102(1,4)= 1.3, 1.28, 1.28, 1.27, 1.27, 1.27, 1.26, 1.19
				K_e_102(1,5)= 1.39, 1.38, 1.37, 1.37, 1.36, 1.36, 1.35, 1.28
				K_e_102(1,6)= 1.47, 1.47, 1.47, 1.46, 1.45, 1.45, 1.44, 1.38
				K_e_102(1,7)= 1.55, 1.56, 1.56, 1.55, 1.54, 1.54, 1.53, 1.48
				K_e_102(1,8)= 1.62, 1.65, 1.64, 1.64, 1.63, 1.62, 1.61, 1.57
				K_e_102(1,9)= 1.7, 1.73, 1.73, 1.72, 1.71, 1.7, 1.69, 1.66
				K_e_102(1,10)= 1.77, 1.81, 1.81, 1.8, 1.79, 1.78, 1.77, 1.75
				K_e_102(1,11)= 1.83, 1.89, 1.88, 1.87, 1.86, 1.85, 1.84, 1.84
				K_e_102(1,12)= 1.9, 1.97, 1.96, 1.95, 1.94, 1.93, 1.92, 1.92
				K_e_102(1,13)= 1.96, 2.04, 2.03, 2.02, 2.01, 2, 1.99, 2.01
				K_e_102(1,14)= 2.02, 2.11, 2.1, 2.09, 2.08, 2.07, 2.06, 2.09
			*endif	
			
		! K_v - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_v_102',then	
				*dim, K_v_102, table,8 ,14 ,, TEMP,STRESS
				*taxis, K_v_102(1,1), 1, 20, 300, 350, 400, 450, 500, 550, 600
				*taxis, K_v_102(1,1), 2, 100E+06, 200E+06, 300E+06, 400E+06, 500E+06, 600E+06, 700E+06, 800E+06, 900E+06, 
				*taxis, K_v_102(1,10), 2, 1000E+06, 1100E+06, 1200E+06, 1300E+06, 1400E+06
				K_v_102(1,1)=  1.03, 1.02, 1.02, 1.02, 1.02, 1.02, 1.02, 1
				K_v_102(1,2)=  1.08, 1.06, 1.06, 1.06, 1.06, 1.06, 1.06, 1.03
				K_v_102(1,3)=  1.13, 1.12, 1.11, 1.11, 1.11, 1.11, 1.11, 1.07
				K_v_102(1,4)=  1.17, 1.16, 1.16, 1.16, 1.16, 1.15, 1.15, 1.12
				K_v_102(1,5)=  1.2, 1.2, 1.2, 1.2, 1.19, 1.19, 1.19, 1.16
				K_v_102(1,6)=  1.23, 1.23, 1.23, 1.23, 1.23, 1.22, 1.22, 1.2
				K_v_102(1,7)=  1.26, 1.26, 1.26, 1.25, 1.25, 1.25, 1.25, 1.23
				K_v_102(1,8)=  1.28, 1.28, 1.28, 1.28, 1.27, 1.27, 1.27, 1.25
				K_v_102(1,9)=  1.3, 1.3, 1.3, 1.3, 1.29, 1.29, 1.29, 1.28
				K_v_102(1,10)= 1.31, 1.32, 1.32, 1.31, 1.31, 1.31, 1.31, 1.3
				K_v_102(1,11)= 1.32, 1.33, 1.33, 1.33, 1.33, 1.33, 1.32, 1.32
				K_v_102(1,12)= 1.34, 1.35, 1.34, 1.34, 1.34, 1.34, 1.34, 1.33
				K_v_102(1,13)= 1.35, 1.36, 1.36, 1.35, 1.35, 1.35, 1.35, 1.35
				K_v_102(1,14)= 1.36, 1.37, 1.37, 1.36, 1.36, 1.36, 1.36, 1.36
			*endif			
		*enddo
	*endif
    
	!------------------------------------------------------------------------------
	!Material 103. 316L (N-IG) Stainless Steel. 
	!SDC-IC A.S03 Austenitic steel - 316L(N)-IG
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,3),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(3),then

		! Define the material tag (MAT_TAG)
		MAT_SS316_NIG=103
	
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
				mptemp,  21, 1000.0, 
				mpdata, ALPX,   103,    1, 1.53e-05, 1.55e-05, 1.59e-05, 1.62e-05, 1.66e-05, 
				mpdata, ALPX,   103,    6, 1.69e-05, 1.72e-05, 1.75e-05, 1.78e-05, 1.8e-05, 
				mpdata, ALPX,   103,    11, 1.83e-05, 1.85e-05, 1.87e-05, 1.89e-05, 1.9e-05, 
				mpdata, ALPX,   103,    16, 1.92e-05, 1.93e-05, 1.95e-05, 1.96e-05, 1.97e-05, 
				mpdata, ALPX,   103,    21, 1.97e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
				mptemp,  21, 1000.0, 
				mpdata, CTEX,   103,    1, 1.53e-05, 1.57e-05, 1.65e-05, 1.71e-05, 1.78e-05, 
				mpdata, CTEX,   103,    6, 1.83e-05, 1.89e-05, 1.93e-05, 1.98e-05, 2.01e-05, 
				mpdata, CTEX,   103,    11, 2.05e-05, 2.07e-05, 2.1e-05, 2.11e-05, 2.13e-05, 
				mpdata, CTEX,   103,    16, 2.13e-05, 2.14e-05, 2.13e-05, 2.13e-05, 
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
				mptemp
				mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
				mptemp,  6, 300.0, 350.0, 400.0, 450.0, 500.0, 
				mptemp,  11, 550.0, 600.0, 650.0, 700.0, 
				mpdata, EX,   103,    1, 200.0e9, 193.0e9, 189.0e9, 185.0e9, 180.0e9, 
				mpdata, EX,   103,    6, 176.0e9, 172.0e9, 168.0e9, 164.0e9, 159.0e9, 
				mpdata, EX,   103,    11, 155.0e9, 151.0e9, 147.0e9, 142.0e9, 
			*endif	
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
				mp, PRXY, 103, 0.3
			*endif		

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 
				mpdata, DENS,   103,    1, 7930.0, 7919.0, 7899.0, 7879.0, 7858.0, 
				mpdata, DENS,   103,    6, 7837.0, 7815.0, 7793.0, 7770.0, 7747.0, 
				mpdata, DENS,   103,    11, 7724.0, 7701.0, 7677.0, 7654.0, 7630.0, 
				mpdata, DENS,   103,    16, 7606.0, 7582.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 
				mpdata, KXX,   103,    1, 14.28, 14.73, 15.48, 16.23, 16.98, 
				mpdata, KXX,   103,    6, 17.74, 18.49, 19.24, 19.99, 20.74, 
				mpdata, KXX,   103,    11, 21.49, 22.24, 22.99, 23.74, 24.49, 
				mpdata, KXX,   103,    16, 25.25, 26.0, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 
				mpdata, C,   103,    1, 472.0, 485.0, 501.0, 512.0, 522.0, 
				mpdata, C,   103,    6, 530.0, 538.0, 546.0, 556.0, 567.0, 
				mpdata, C,   103,    11, 578.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
				tb, MELAS, 103, 5, 16
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001, 20000000.0
				tbpt, , 0.00019998, 40000000.0
				tbpt, , 0.00029997, 60000000.0
				tbpt, , 0.00040017, 80000000.0
				tbpt, , 0.00050169, 100100000.0
				tbpt, , 0.00060899, 120100000.0
				tbpt, , 0.00073585, 140100000.0
				tbpt, , 0.00091795, 160100000.0
				tbpt, , 0.00123647, 180200000.0
				tbpt, , 0.00185861, 200400000.0
				tbpt, , 0.00310245, 220700000.0
				tbpt, , 0.00553481, 241300000.0
				tbpt, , 0.01011009, 262600000.0
				tbpt, , 0.0136499, 273700000.0
				tbpt, , 0.01835381, 285200000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00010362, 20000000.0
				tbpt, , 0.00020724, 40000000.0
				tbpt, , 0.00031101, 60000000.0
				tbpt, , 0.00041665, 80000000.0
				tbpt, , 0.00053417, 100100000.0
				tbpt, , 0.00070333, 120100000.0
				tbpt, , 0.0010469, 140100000.0
				tbpt, , 0.00188265, 160300000.0
				tbpt, , 0.00393173, 180700000.0
				tbpt, , 0.00866941, 201700000.0
				tbpt, , 0.01284091, 212700000.0
				tbpt, , 0.01885783, 224200000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001081, 20000000.0
				tbpt, , 0.00021622, 40000000.0
				tbpt, , 0.00032511, 60000000.0
				tbpt, , 0.00044314, 80000000.0
				tbpt, , 0.00061886, 100100000.0
				tbpt, , 0.00104509, 120100000.0
				tbpt, , 0.0023167, 140300000.0
				tbpt, , 0.00596784, 161000000.0
				tbpt, , 0.00964978, 171600000.0
				tbpt, , 0.01544222, 191900000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.00011363, 20000000.0
				tbpt, , 0.00022731, 40010000.0
				tbpt, , 0.00034324, 60020000.0
				tbpt, , 0.0004852, 80040000.0
				tbpt, , 0.00079155, 100080000.0
				tbpt, , 0.00181118, 120220000.0
				tbpt, , 0.00523363, 140730000.0
				tbpt, , 0.01537932, 162480000.0
				tbtemp, 400
				tbpt, , 0.000, 0.0
				tbpt, , 0.000119, 20002380.0
				tbpt, , 0.0002382, 40009530.0
				tbpt, , 0.0003628, 60021770.0
				tbpt, , 0.0005499, 80044000.0
				tbpt, , 0.0011312, 100113180.0
				tbpt, , 0.0034216, 120411300.0
				tbpt, , 0.0114473, 141611830.0
				tbpt, , 0.0204031, 153091890.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
				tb, BISO, 103, 5, 2,
				tbtemp, 20   
				tbdata, , 220e6, 42291310
				tbtemp, 100  
				tbdata,, 172e6, 29143581  
				tbtemp, 200  
				tbdata,, 144e6, 39312728  
				tbtemp, 300  
				tbdata,, 128e6, 31146495
				tbtemp, 400  
				tbdata,, 116e6, 19244819
			*endif
		
		! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
				tb, PLASTIC, 103, 5, 5, MISO
				tbtemp, 20
				tbpt, , 0.0030596, 220000000.0
				tbpt, , 0.00553481, 241300000.0
				tbpt, , 0.01011009, 262600000.0
				tbpt, , 0.0136499, 273700000.0
				tbpt, , 0.01835381, 285200000.0
				tbtemp, 100
				tbpt, , 0.00305786, 172000000.0
				tbpt, , 0.00393173, 180700000.0
				tbpt, , 0.00866941, 201700000.0
				tbpt, , 0.01284091, 212700000.0
				tbpt, , 0.01885783, 224200000.0
				tbtemp, 200
				tbpt, , 0.00296932, 144000000.0
				tbpt, , 0.00596784, 161000000.0
				tbpt, , 0.00964978, 171600000.0
				tbpt, , 0.01544222, 191900000.0
				tbtemp, 300
				tbpt, , 0.00310941, 128000000.0
				tbpt, , 0.00523363, 140730000.0
				tbpt, , 0.01537932, 162480000.0
				tbtemp, 400
				tbpt, , 0.0029238, 116000000.0
				tbpt, , 0.0034216, 120411300.0
				tbpt, , 0.0114473, 141611830.0
				tbpt, , 0.0204031, 153091890.0
			*endif

		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
				tb, BKIN, 103, 5, 2,
				tbtemp, 20   
				tbdata, , 220e6, 42291310
				tbtemp, 100  
				tbdata,, 172e6, 29143581  
				tbtemp, 200  
				tbdata,, 144e6, 39312728  
				tbtemp, 300  
				tbdata,, 128e6, 31146495
				tbtemp, 400  
				tbdata,, 116e6, 19244819
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
				tb, PLASTIC, 103, 5, 5, KINH
				tbtemp, 20
				tbpt, , 0.0030596, 220000000.0
				tbpt, , 0.00553481, 241300000.0
				tbpt, , 0.01011009, 262600000.0
				tbpt, , 0.0136499, 273700000.0
				tbpt, , 0.01835381, 285200000.0
				tbtemp, 100
				tbpt, , 0.00305786, 172000000.0
				tbpt, , 0.00393173, 180700000.0
				tbpt, , 0.00866941, 201700000.0
				tbpt, , 0.01284091, 212700000.0
				tbpt, , 0.01885783, 224200000.0
				tbtemp, 200
				tbpt, , 0.00296932, 144000000.0
				tbpt, , 0.00596784, 161000000.0
				tbpt, , 0.00964978, 171600000.0
				tbpt, , 0.01544222, 191900000.0
				tbtemp, 300
				tbpt, , 0.00310941, 128000000.0
				tbpt, , 0.00523363, 140730000.0
				tbpt, , 0.01537932, 162480000.0
				tbtemp, 400
				tbpt, , 0.0029238, 116000000.0
				tbpt, , 0.0034216, 120411300.0
				tbpt, , 0.0114473, 141611830.0
				tbpt, , 0.0204031, 153091890.0
			*endif

		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_103',then
				*dim, SY_MIN_103, table, 28,,, TEMP
				*taxis, SY_MIN_103(1), 1, 20.0, 50.0, 75.0, 100.0, 125.0, 150.0, 175.0, 200.0, 225.0, 
				*taxis, SY_MIN_103(10), 1, 250.0, 275.0, 300.0, 325.0, 350.0, 375.0, 400.0, 425.0, 450.0, 475.0, 
				*taxis, SY_MIN_103(20), 1, 500.0, 525.0, 550.0, 575.0, 600.0, 625.0, 650.0, 675.0, 700.0, 
				SY_MIN_103(1)=220000000.0, 195000000.0, 182000000.0, 172000000.0, 164000000.0, 156000000.0, 150000000.0, 144000000.0, 139000000.0, 135000000.0, 131000000.0, 
				SY_MIN_103(12)=128000000.0, 124000000.0, 121000000.0, 119000000.0, 116000000.0, 114000000.0, 112000000.0, 110000000.0, 109000000.0, 108000000.0, 107000000.0, 106000000.0, 
				SY_MIN_103(24)=105000000.0, 105000000.0, 104000000.0, 103000000.0, 102000000.0, 
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_103',then
				*dim, SY_AV_103, table, 28,,, TEMP
				*taxis, SY_AV_103(1), 1, 20.0, 50.0, 75.0, 100.0, 125.0, 150.0, 175.0, 200.0, 225.0, 
				*taxis, SY_AV_103(10), 1, 250.0, 275.0, 300.0, 325.0, 350.0, 375.0, 400.0, 425.0, 450.0, 475.0, 
				*taxis, SY_AV_103(20), 1, 500.0, 525.0, 550.0, 575.0, 600.0, 625.0, 650.0, 675.0, 700.0, 
				SY_AV_103(1)=281600000.0, 249600000.0, 232960000.0, 220160000.0, 209920000.0, 199680000.0, 192000000.0, 184320000.0, 177920000.0, 172800000.0, 167680000.0, 
				SY_AV_103(12)=163840000.0, 158720000.0, 154880000.0, 152320000.0, 148480000.0, 145920000.0, 143360000.0, 140800000.0, 139520000.0, 138240000.0, 136960000.0, 135680000.0, 
				SY_AV_103(24)=134400000.0, 134400000.0, 133120000.0, 131840000.0, 130560000.0, 
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_103',then
				*dim, SU_MIN_103, table, 26,,, TEMP
				*taxis, SU_MIN_103(1), 1, 20.0, 50.0, 75.0, 100.0, 125.0, 150.0, 175.0, 200.0, 225.0, 
				*taxis, SU_MIN_103(10), 1, 250.0, 275.0, 300.0, 325.0, 350.0, 375.0, 400.0, 425.0, 450.0, 475.0, 
				*taxis, SU_MIN_103(20), 1, 500.0, 525.0, 550.0, 575.0, 600.0, 625.0, 650.0, 
				SU_MIN_103(1)=525000000.0, 496000000.0, 472000000.0, 458000000.0, 447000000.0, 437000000.0, 431000000.0, 425000000.0, 420000000.0, 415000000.0, 412000000.0, 
				SU_MIN_103(12)=410000000.0, 408000000.0, 407000000.0, 406000000.0, 404000000.0, 401000000.0, 398000000.0, 394000000.0, 389000000.0, 382000000.0, 374000000.0, 364000000.0, 
				SU_MIN_103(24)=352000000.0, 337000000.0, 320000000.0,
			*endif
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_103',then
				*dim, SU_AV_103, table, 26,,, TEMP
				*taxis, SU_AV_103(1), 1, 20.0, 50.0, 75.0, 100.0, 125.0, 150.0, 175.0, 200.0, 225.0, 
				*taxis, SU_AV_103(10), 1, 250.0, 275.0, 300.0, 325.0, 350.0, 375.0, 400.0, 425.0, 450.0, 475.0, 
				*taxis, SU_AV_103(20), 1, 500.0, 525.0, 550.0, 575.0, 600.0, 625.0, 650.0, 
				SU_AV_103(1)=583800000.0, 551552000.0, 524864000.0, 509296000.0, 497064000.0, 485944000.0, 479272000.0, 472600000.0, 467040000.0, 461480000.0, 458144000.0, 
				SU_AV_103(12)=455920000.0, 453696000.0, 452584000.0, 451472000.0, 449248000.0, 445912000.0, 442576000.0, 438128000.0, 432568000.0, 424784000.0, 415888000.0, 404768000.0, 
				SU_AV_103(24)=391424000.0, 374744000.0, 355840000.0, 
			*endif	
		
		! Minimum uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_MIN_103',then
				*dim, EUNIF_MIN_103, table, 9,,, TEMP,
				*taxis, EUNIF_MIN_103(1), 1, 20.0, 50, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0
				EUNIF_MIN_103(1)= 0.36, 0.317, 0.262, 0.225, 0.204, 0.194, 0.192, 0.195, 0.199
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'EUNIF_IRR_MIN_103',then
				*dim, EUNIF_IRR_MIN_103, table, 9, 11,, TEMP, D
				*taxis, EUNIF_IRR_MIN_103(1,1), 1, 20.0, 50, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0
				*taxis, EUNIF_IRR_MIN_103(1,1), 2, 0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 
				*taxis, EUNIF_IRR_MIN_103(1,10), 2, 4.5, 5
				EUNIF_IRR_MIN_103(1,1)= 0.36, 0.317, 0.262, 0.225, 0.204, 0.194, 0.192, 0.195, 0.199
				EUNIF_IRR_MIN_103(1,2)= 0.285, 0.252, 0.205, 0.168, 0.14, 0.123, 0.116, 0.119, 0.131
				EUNIF_IRR_MIN_103(1,3)= 0.263, 0.23, 0.182, 0.144, 0.116, 0.098, 0.09, 0.092, 0.104
				EUNIF_IRR_MIN_103(1,4)= 0.242, 0.208, 0.16, 0.121, 0.093, 0.074, 0.066, 0.067, 0.079
				EUNIF_IRR_MIN_103(1,5)= 0.223, 0.189, 0.139, 0.10, 0.071, 0.052, 0.043, 0.043, 0.054
				EUNIF_IRR_MIN_103(1,6)= 0.205, 0.17, 0.12, 0.08, 0.051, 0.031, 0.021, 0.021, 0.031
				EUNIF_IRR_MIN_103(1,7)= 0.188, 0.153, 0.102, 0.062, 0.031, 0.011, 0.001, 0.001, 0.001
				EUNIF_IRR_MIN_103(1,8)= 0.173, 0.137, 0.086, 0.045, 0.014, 0.001, 0.001, 0.001, 0.001,
				EUNIF_IRR_MIN_103(1,9)= 0.158, 0.123, 0.071, 0.029, 0.001, 0.001, 0.001, 0.001, 0.001
				EUNIF_IRR_MIN_103(1,10)= 0.146, 0.109, 0.057, 0.014, 0.001, 0.001, 0.001, 0.001, 0.001
				EUNIF_IRR_MIN_103(1,11)= 0.134, 0.098, 0.044, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001
			*endif
		! Average uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_AV_103',then
				*dim, EUNIF_AV_103, table, 9,,, TEMP
				*taxis, EUNIF_AV_103(1), 1, 20.0, 50, 100.0, 150, 200.0, 250, 300.0, 350, 400.0
				EUNIF_AV_103(1)=4.76E-01, 4.33E-01, 3.78E-01, 3.41E-01, 3.20E-01, 3.10E-01, 3.08E-01, 3.11E-01, 3.14E-01
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'EUNIF_IRR_AV_103',then
				*dim, EUNIF_IRR_AV_103, table, 9,10,, TEMP,D
				*taxis, EUNIF_IRR_AV_103(1,1), 1, 20.0, 50, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0
				*taxis, EUNIF_IRR_AV_103(1,1), 2, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 
				*taxis, EUNIF_IRR_AV_103(1,10), 2, 5
				EUNIF_IRR_AV_103(1,1) = 0.40101375, 0.36786375, 0.32061375, 0.28336375, 0.25611375, 0.23886375, 0.23161375, 0.23436375, 0.24711375
				EUNIF_IRR_AV_103(1,2) = 0.378899,   0.345359,   0.297459,   0.259559,   0.231659,   0.213759,   0.205859,   0.207959,   0.220059
				EUNIF_IRR_AV_103(1,3) = 0.35811875, 0.32418875, 0.27563875, 0.23708875, 0.20853875, 0.18998875, 0.18143875, 0.18288875, 0.19433875 
				EUNIF_IRR_AV_103(1,4) = 0.338673,   0.304353,   0.255153,   0.215953,   0.186753,   0.167553,   0.158353,   0.159153,   0.169953 
				EUNIF_IRR_AV_103(1,5) = 0.32056175, 0.28585175, 0.23600175, 0.19615175, 0.16630175, 0.14645175, 0.13660175, 0.13675175, 0.14690175
				EUNIF_IRR_AV_103(1,6) = 0.303785,   0.268685,   0.218185,   0.177685,   0.147185,   0.126685,   0.116185,   0.115685,   0.125185
				EUNIF_IRR_AV_103(1,7) = 0.28834275, 0.25285275, 0.20170275, 0.16055275, 0.12940275, 0.10825275, 0.09710275, 0.09595275, 0.10480275
				EUNIF_IRR_AV_103(1,8) = 0.274235,   0.238355,   0.186555,   0.144755,   0.112955,   0.091155,   0.079355,   0.077555,   0.085755,
				EUNIF_IRR_AV_103(1,9) = 0.26146175, 0.22519175, 0.17274175, 0.13029175, 0.09784175, 0.07539175, 0.06294175, 0.06049175, 0.06804175
				EUNIF_IRR_AV_103(1,10)= 0.250023,   0.213363,   0.160263,   0.117163,   0.084063,   0.060963,   0.047863,   0.044763,   0.051663
			*endif

		! Average total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_AV_103',then
				*dim, ETOT_AV_103, table, 9,,, TEMP
				*taxis, ETOT_AV_103(1), 1, 20.0, 50, 100.0, 150, 200.0, 250, 300.0, 350, 400.0
				ETOT_AV_103(1)=6.38E-01, 6.02E-01, 5.49E-01, 5.05E-01, 4.71E-01, 4.46E-01, 4.28E-01, 4.18E-01, 4.15E-01
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'ETOT_IRR_AV_103',then
				*dim, ETOT_IRR_AV_103, table, 9,10,, TEMP,D
				*taxis, ETOT_IRR_AV_103(1,1), 1, 20.0, 50, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0
				*taxis, ETOT_IRR_AV_103(1,1), 2, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 
				*taxis, ETOT_IRR_AV_103(1,10), 2, 5
				ETOT_IRR_AV_103(1,1)= 54.03955E-2, 50.27005E-2, 44.78755E-2, 40.30505E-2, 36.82255E-2, 34.34005E-2, 32.85755E-2, 32.37505E-2, 32.89255E-2
				ETOT_IRR_AV_103(1,2)= 51.9403E-2, 48.0883E-2, 42.4683E-2, 37.8483E-2, 34.2283E-2, 31.6083E-2, 29.9883E-2, 29.3683E-2, 29.7483E-2
				ETOT_IRR_AV_103(1,3)= 49.99025E-2, 46.05575E-2, 40.29825E-2, 35.54075E-2, 31.78325E-2, 29.02575E-2, 27.26825E-2, 26.51075E-2, 26.75325E-2
				ETOT_IRR_AV_103(1,4)= 48.1894E-2, 44.1724E-2, 38.2774E-2, 33.3824E-2, 29.4874E-2, 26.5924E-2, 24.6974E-2, 23.8024E-2, 23.9074E-2
				ETOT_IRR_AV_103(1,5)= 46.53775E-2, 42.43825E-2, 36.40575E-2, 31.37325E-2, 27.34075E-2, 24.30825E-2, 22.27575E-2, 21.24325E-2, 21.21075E-2
				ETOT_IRR_AV_103(1,6)= 45.0353E-2, 40.8533E-2, 34.6833E-2, 29.5133E-2, 25.3433E-2, 22.1733E-2, 20.0033E-2, 18.8333E-2, 18.6633E-2
				ETOT_IRR_AV_103(1,7)= 43.68205E-2, 39.41755E-2, 33.11005E-2, 27.80255E-2, 23.49505E-2, 20.18755E-2, 17.88005E-2, 16.57255E-2, 16.26505E-2
				ETOT_IRR_AV_103(1,8)= 42.478E-2, 38.131E-2, 31.686E-2, 26.241E-2, 21.796E-2, 18.351E-2, 15.906E-2, 14.461E-2, 14.016E-2
				ETOT_IRR_AV_103(1,9)= 41.42315E-2, 36.99365E-2, 30.41115E-2, 24.82865E-2, 20.24615E-2, 16.66365E-2, 14.08115E-2, 12.49865E-2, 11.91615E-2
				ETOT_IRR_AV_103(1,10)= 40.5175E-2, 36.0055E-2, 29.2855E-2, 23.5655E-2, 18.8455E-2, 15.1255E-2, 12.4055E-2, 10.6855E-2, 9.9655E-2
			*endif			
		
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_AV_103',then
				*dim, STRAIN_RUPT_AV_103, table, 12,,, TEMP
				*taxis, STRAIN_RUPT_AV_103(1), 1, 20.0, 50, 100.0, 150, 200.0, 250, 300.0, 350, 400.0
				*taxis, STRAIN_RUPT_AV_103(10), 1, 450, 500, 550
				STRAIN_RUPT_AV_103(1)= 1.72, 1.86, 1.96, 1.90, 1.73, 1.514, 1.35, 1.2, 1.1, 1.04, 1.05, 1.14
			*endif
		 
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_103',then	
				*dim, SM_103, table, 27,,, TEMP
				*taxis, SM_103(1), 1, 20.0, 50.0, 75.0, 100.0, 125.0, 150.0, 175.0, 200.0, 225.0, 
				*taxis, SM_103(10), 1, 250.0, 275.0, 300.0, 325.0, 350.0, 375.0, 400.0, 425.0, 450.0, 475.0, 
				*taxis, SM_103(20), 1, 500.0, 525.0, 550.0, 575.0, 600.0, 625.0, 650.0, 675.0, 
				SM_103(1)=147000000.0, 147000000.0, 147000000.0, 147000000.0, 147000000.0, 141000000.0, 135000000.0, 130000000.0, 125000000.0, 121000000.0, 118000000.0, 
				SM_103(12)=115000000.0, 112000000.0, 109000000.0, 107000000.0, 105000000.0, 103000000.0, 101000000.0, 99000000.0, 97000000.0, 97000000.0, 96000000.0, 96000000.0, 
				SM_103(24)=95000000.0, 94000000.0, 94000000.0, 93000000.0,
			*endif
			
		! Allowable stress intensity: Se
			*if,PROP_ARRAY(1,I),eq,'SE_IRR_103',then
				*dim, SE_IRR_103, table, 11,8,, D,TEMP
				*taxis, SE_IRR_103(1,1), 1, 0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 
				*taxis, SE_IRR_103(10,1), 1, 4.5, 5
				*taxis, SE_IRR_103(1,1), 2, 20, 50, 100, 150, 200, 250, 300, 350
				SE_IRR_103(1,1)= 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20
				SE_IRR_103(1,2)= 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 936E+06, 846E+06
				SE_IRR_103(1,3)= 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 9.99E+20, 865E+06, 736E+06, 615E+06, 503E+06, 398E+06
				SE_IRR_103(1,4)= 9.99E+20, 9.99E+20, 9.99E+20, 1000E+06, 835E+06, 678E+06, 536E+06, 402E+06, 276E+06, 205E+06, 205E+06
				SE_IRR_103(1,5)= 9.99E+20, 9.99E+20, 932E+06, 760E+06, 594E+06, 444E+06, 292E+06, 210E+06, 212E+06, 213E+06, 215E+06
				SE_IRR_103(1,6)= 9.99E+20, 940E+06, 765E+06, 595E+06, 438E+06, 287E+06, 209E+06, 214E+06, 218E+06, 221E+06, 224E+06
				SE_IRR_103(1,7)= 9.99E+20, 871E+06, 694E+06, 527E+06, 366E+06, 211E+06, 209E+06, 214E+06, 218E+06, 221E+06, 224E+06
				SE_IRR_103(1,8)= 9.99E+20, 877E+06, 696E+06, 527E+06, 363E+06, 211E+06, 209E+06, 214E+06, 218E+06, 221E+06, 224E+06
			*endif	
			
		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_103',then
				*dim, FATIGUE_STRAIN_103, table, 20,6,, N,TEMP
				*taxis, FATIGUE_STRAIN_103(1,1), 1, 1.00E+01, 2.00E+01, 4.00E+01, 1.00E+02, 2.00E+02, 4.00E+02, 1.00E+03, 2.00E+03, 4.00E+03, 
				*taxis, FATIGUE_STRAIN_103(10,1), 1, 1.00E+04, 2.00E+04, 4.00E+04, 1.00E+05, 2.00E+05, 4.00E+05, 1.00E+06, 5.00E+06, 1.00E+07, 5.00E+07,
				*taxis, FATIGUE_STRAIN_103(20,1), 1, 1.00E+08
				*taxis, FATIGUE_STRAIN_103(1,1), 2, 20, 450, 500, 550, 600, 650
				FATIGUE_STRAIN_103(1,1)= 4.291E-02, 2.755E-02, 1.931E-02, 1.331E-02, 1.057E-02, 0.863E-02, 0.698E-02, 0.59E-02, 0.498E-02, 0.399E-02, 0.341E-02,
				FATIGUE_STRAIN_103(12,1)=0.301E-02, 0.267E-02, 0.25E-02, 0.238E-02, 0.225E-02, 0.203E-02, 0.192E-02, 0.169E-02, 0.165E-02
				FATIGUE_STRAIN_103(1,2)=2.552E-02, 1.931E-02, 1.485E-02, 1.08E-02, 0.869E-02, 0.715E-02, 0.578E-02, 0.488E-02, 0.412E-02, 0.33E-02, 0.282E-02, 
				FATIGUE_STRAIN_103(12,2)= 0.249E-02, 0.221E-02, 0.207E-02, 0.197E-02, 0.186E-02, 0.168E-02, 0.159E-02, 0.14E-02, 0.136E-02
				FATIGUE_STRAIN_103(1,3)= 2.459E-02, 1.841E-02, 1.403E-02, 1.007E-02, 0.805E-02, 0.659E-02, 0.532E-02, 0.449E-02, 0.38E-02, 0.304E-02, 0.26E-02, 
				FATIGUE_STRAIN_103(12,3)= 0.229E-02, 0.203E-02, 0.19E-02, 0.181E-02, 0.171E-02, 0.154E-02, 0.146E-02, 0.129E-02, 0.125E-02
				FATIGUE_STRAIN_103(1,4)= 2.361E-02, 1.748E-02, 1.316E-02, 0.933E-02, 0.741E-02, 0.605E-02, 0.487E-02, 0.412E-02, 0.348E-02, 0.278E-02, 0.238E-02, 
				FATIGUE_STRAIN_103(12,4)= 0.21E-02, 0.186E-02, 0.174E-02, 0.166E-02, 0.157E-02, 0.141E-02, 0.134E-02, 0.118E-02, 0.115E-02
				FATIGUE_STRAIN_103(1,5)= 2.26E-02, 1.652E-02, 1.231E-02, 0.859E-02, 0.678E-02, 0.552E-02, 0.445E-02, 0.376E-02, 0.317E-02, 0.254E-02, 0.217E-02, 
				FATIGUE_STRAIN_103(12,5)= 0.192E-02, 0.17E-02, 0.159E-02, 0.151E-02, 0.143E-02, 0.129E-02, 0.122E-02, 0.108E-02, 0.105E-02
				FATIGUE_STRAIN_103(1,6)= 2.155E-02, 1.553E-02, 1.139E-02, 0.787E-02, 0.618E-02, 0.502E-02, 0.404E-02, 0.342E-02, 0.289E-02, 0.231E-02, 0.198E-02, 
				FATIGUE_STRAIN_103(12,6)= 0.174E-02, 0.154E-02, 0.145E-02, 0.138E-02, 0.13E-02, 0.117E-02, 0.111E-02, 0.098E-02, 0.095E-02
			*endif
			
		! K - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_103',then
				*dim,K_103,table, 4,,,TEMP
				*taxis, K_103(1), 1, 20, 450, 600, 650
				K_103(1)= 798.3E+06, 722E+06, 722E+06, 679E+06
			*endif
			
		! m - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'m_103',then
				*dim,m_103,table, 4,,,TEMP
				*taxis, m_103(1), 1, 20, 450, 600, 650
				m_103(1)= 0.3387, 0.3025, 0.3025, 0.2365
			*endif
			
		! K_e - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_e_103',then
				*dim, K_e_103, table,6 ,10 ,, TEMP,STRESS
				*taxis, K_e_103(1,1), 1, 20, 450, 500, 550, 600, 650
				*taxis, K_e_103(1,1), 2, 100E+06, 200E+06, 300E+06, 400E+06, 500E+06, 600E+06, 700E+06, 800E+06, 900E+06, 
				*taxis, K_e_103(1,10), 2, 1000E+06
				K_e_103(1,1)=  1.02, 1.01, 1.01, 1.01, 1.01, 1
				K_e_103(1,2)=  1.08, 1.06, 1.06, 1.06, 1.05, 1.02
				K_e_103(1,3)=  1.15, 1.12, 1.12, 1.12, 1.12, 1.07
				K_e_103(1,4)=  1.23, 1.2, 1.2, 1.19, 1.19, 1.14
				K_e_103(1,5)=  1.3, 1.28, 1.27, 1.27, 1.27, 1.22
				K_e_103(1,6)=  1.37, 1.36, 1.35, 1.35, 1.34, 1.31
				K_e_103(1,7)=  1.45, 1.43, 1.43, 1.42, 1.42, 1.39
				K_e_103(1,8)=  1.51, 1.51, 1.5, 1.5, 1.49, 1.48
				K_e_103(1,9)=  1.58, 1.58, 1.58, 1.57, 1.56, 1.57
				K_e_103(1,10)= 1.64, 1.65, 1.65, 1.64, 1.63, 1.65
			*endif	
			
		! K_v - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_v_103',then	
				*dim, K_v_103, table,6 ,10 ,, TEMP,STRESS
				*taxis, K_v_103(1,1), 1, 20, 450, 500, 550, 600, 650
				*taxis, K_v_103(1,1), 2, 100E+06, 200E+06, 300E+06, 400E+06, 500E+06, 600E+06, 700E+06, 800E+06, 900E+06, 
				*taxis, K_v_103(1,10), 2, 1000E+06
				K_v_103(1,1)=  1.02, 1.01, 1.01, 1.01, 1.01, 1
				K_v_103(1,2)=  1.06, 1.04, 1.04, 1.04, 1.04, 1.02
				K_v_103(1,3)=  1.1, 1.08, 1.08, 1.08, 1.08, 1.05
				K_v_103(1,4)=  1.14, 1.12, 1.12, 1.12, 1.12, 1.09
				K_v_103(1,5)=  1.17, 1.16, 1.16, 1.15, 1.15, 1.13
				K_v_103(1,6)=  1.2, 1.19, 1.19, 1.19, 1.18, 1.17
				K_v_103(1,7)=  1.22, 1.22, 1.22, 1.21, 1.21, 1.2
				K_v_103(1,8)=  1.25, 1.24, 1.24, 1.24, 1.24, 1.23
				K_v_103(1,9)=  1.26, 1.26, 1.26, 1.26, 1.26, 1.25
				K_v_103(1,10)= 1.28, 1.28, 1.28, 1.28, 1.27, 1.27
			*endif	
			
		*enddo	
	*endif
	
    !------------------------------------------------------------------------------
	!Material 104. GRADE 660 Stainless Steel. 
	!SDC-IC A.S04 Precipitation hardened steel – grade 660
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,4),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(4),then

		! Define the material tag (MAT_TAG)
		MAT_SS660=104
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion		
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 
				mpdata, ALPX,   104,    1, 1.47e-05, 1.5e-05, 1.54e-05, 1.57e-05, 1.6e-05, 
				mpdata, ALPX,   104,    6, 1.63e-05, 1.65e-05, 1.66e-05, 1.68e-05, 1.7e-05, 
				mpdata, ALPX,   104,    11, 1.72e-05, 1.73e-05, 1.75e-05, 1.77e-05, 1.79e-05, 
				mpdata, ALPX,   104,    16, 1.81e-05, 1.83e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 
				mpdata, CTEX,   104,    1, 1.47e-05, 1.52e-05, 1.6e-05, 1.65e-05, 1.69e-05, 
				mpdata, CTEX,   104,    6, 1.73e-05, 1.76e-05, 1.78e-05, 1.81e-05, 1.84e-05, 
				mpdata, CTEX,   104,    11, 1.88e-05, 1.92e-05, 1.96e-05, 2e-05, 2.05e-05, 
				mpdata, CTEX,   104,    16, 2.09e-05, 2.14e-05, 
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
                mptemp,  6, 500.0, 600.0, 
                mpdata, EX,   104,    1, 201.0e9, 196.0e9, 189.0e9, 181.0e9, 174.0e9, 
                mpdata, EX,   104,    6, 165.0e9, 156.0e9,
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 104, 0.31
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
                mptemp,  6, 500.0, 600.0, 700.0, 800.0, 
                mpdata, DENS,   104,    1, 7920.0, 7891.0, 7852.0, 7810.0, 7768.0, 
                mpdata, DENS,   104,    6, 7724.0, 7679.0, 7631.0, 7581.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
                mptemp,  6, 500.0, 600.0, 700.0, 800.0, 
                mpdata, KXX,   104,    1, 14.1, 15.4, 16.8, 18.3, 19.7, 
                mpdata, KXX,   104,    6, 21.2, 22.6, 23.9, 25.2, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 
                mpdata, C,   104,    1, 497.0, 506.0, 519.0, 529.0, 536.0, 
                mpdata, C,   104,    6, 545.0, 554.0, 562.0, 570.0, 580.0, 
                mpdata, C,   104,    11, 588.0, 593.0, 599.0, 603.0, 610.0, 
                mpdata, C,   104,    16, 622.0,
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
				tb, MELAS, 104, 8, 15
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00025, 50000000.0
				tbpt, , 0.00049, 100000000.0
				tbpt, , 0.00074, 150000000.0
				tbpt, , 0.00099, 200000000.0
				tbpt, , 0.00124, 250000000.0
				tbpt, , 0.00148, 300000000.0
				tbpt, , 0.00173, 351000000.0
				tbpt, , 0.00198, 401000000.0
				tbpt, , 0.00226, 451000000.0
				tbpt, , 0.00266, 501000000.0
				tbpt, , 0.00351, 552000000.0
				tbpt, , 0.00588, 604000000.0
				tbpt, , 0.01285, 658000000.0
				tbpt, , 0.214, 1110000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00026, 50000000.0
				tbpt, , 0.00051, 100000000.0
				tbpt, , 0.00077, 150000000.0
				tbpt, , 0.00102, 200000000.0
				tbpt, , 0.00127, 250000000.0
				tbpt, , 0.00153, 300000000.0
				tbpt, , 0.00179, 351000000.0
				tbpt, , 0.00205, 401000000.0
				tbpt, , 0.00236, 451000000.0
				tbpt, , 0.00284, 501000000.0
				tbpt, , 0.00393, 552000000.0
				tbpt, , 0.00685, 604000000.0
				tbpt, , 0.01489, 660000000.0
				tbpt, , 0.20, 1042000000.0
				tbtemp, 150
				tbpt, , 0.000, 0.0
				tbpt, , 0.00026, 50000000.0
				tbpt, , 0.00052, 100000000.0
				tbpt, , 0.00078, 150000000.0
				tbpt, , 0.00104, 200000000.0
				tbpt, , 0.0013, 250000000.0
				tbpt, , 0.00156, 300000000.0
				tbpt, , 0.00182, 351000000.0
				tbpt, , 0.0021, 401000000.0
				tbpt, , 0.00242, 451000000.0
				tbpt, , 0.00296, 501000000.0
				tbpt, , 0.00423, 552000000.0
				tbpt, , 0.00773, 605000000.0
				tbpt, , 0.01746, 661000000.0
				tbpt, , 0.19, 1007000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00026, 50000000.0
				tbpt, , 0.00053, 100000000.0
				tbpt, , 0.00079, 150000000.0
				tbpt, , 0.00106, 200000000.0
				tbpt, , 0.00132, 250000000.0
				tbpt, , 0.00159, 300000000.0
				tbpt, , 0.00185, 351000000.0
				tbpt, , 0.00213, 401000000.0
				tbpt, , 0.00248, 451000000.0
				tbpt, , 0.00308, 502000000.0
				tbpt, , 0.00458, 553000000.0
				tbpt, , 0.0088, 605000000.0
				tbpt, , 0.0206, 664000000.0
				tbpt, , 0.18, 978000000.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00027, 50000000.0
				tbpt, , 0.00054, 100000000.0
				tbpt, , 0.00081, 150000000.0
				tbpt, , 0.00108, 200000000.0
				tbpt, , 0.00135, 250000000.0
				tbpt, , 0.00162, 300000000.0
				tbpt, , 0.00189, 351000000.0
				tbpt, , 0.00218, 401000000.0
				tbpt, , 0.00255, 451000000.0
				tbpt, , 0.00324, 502000000.0
				tbpt, , 0.00501, 553000000.0
				tbpt, , 0.01013, 606000000.0
				tbpt, , 0.17, 951000000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.00028, 50000000.0
				tbpt, , 0.00055, 100000000.0
				tbpt, , 0.00083, 150000000.0
				tbpt, , 0.0011, 200000000.0
				tbpt, , 0.00138, 250000000.0
				tbpt, , 0.00166, 300000000.0
				tbpt, , 0.00194, 351000000.0
				tbpt, , 0.00224, 401000000.0
				tbpt, , 0.00264, 451000000.0
				tbpt, , 0.00344, 502000000.0
				tbpt, , 0.00561, 553000000.0
				tbpt, , 0.01199, 607000000.0
				tbpt, , 0.16, 925000000.0
				tbtemp, 350
				tbpt, , 0.000, 0.0
				tbpt, , 0.00028, 50000000.0
				tbpt, , 0.00056, 100000000.0
				tbpt, , 0.00084, 150000000.0
				tbpt, , 0.00112, 200000000.0
				tbpt, , 0.0014, 250000000.0
				tbpt, , 0.00168, 301000000.0
				tbpt, , 0.00197, 351000000.0
				tbpt, , 0.00228, 401000000.0
				tbpt, , 0.00272, 451000000.0
				tbpt, , 0.00366, 502000000.0
				tbpt, , 0.00634, 553000000.0
				tbpt, , 0.01433, 609000000.0
				tbpt, , 0.15, 901000000.0
				tbtemp, 400
				tbpt, , 0.000, 0.0
				tbpt, , 0.00029, 50000000.0
				tbpt, , 0.00057, 100000000.0
				tbpt, , 0.00086, 150000000.0
				tbpt, , 0.00115, 200000000.0
				tbpt, , 0.00144, 250000000.0
				tbpt, , 0.00172, 301000000.0
				tbpt, , 0.00202, 351000000.0
				tbpt, , 0.00234, 401000000.0
				tbpt, , 0.00283, 451000000.0
				tbpt, , 0.00396, 502000000.0
				tbpt, , 0.00729, 554000000.0
				tbpt, , 0.01735, 611000000.0
				tbpt, , 0.143, 877000000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
				tb, BISO, 104, 5, 2,
				tbtemp, 20   
				tbdata, , 585e6, 26509572.9
				tbtemp, 100  
				tbdata,, 573e6, 24991074.62
				tbtemp, 200  
				tbdata,, 558e6, 24227568.12
				tbtemp, 300  
				tbdata,, 540e6, 24094824.79
				tbtemp, 400  
				tbdata,, 522e6, 26970655.93
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
				tb, PLASTIC, 104, 8, 4, MISO
				tbtemp, 20
				tbpt, , 0.005014, 585000000.0
				tbpt, , 0.00588, 604000000.0
				tbpt, , 0.01285, 658000000.0
				tbpt, , 0.214, 1110000000.0
				tbtemp, 100
				tbpt, , 0.00511, 573000000.0
				tbpt, , 0.00685, 604000000.0
				tbpt, , 0.01489, 660000000.0
				tbpt, , 0.20, 1042000000.0
				tbtemp, 150
				tbpt, , 0.005122, 565500000.0
				tbpt, , 0.00773, 605000000.0
				tbpt, , 0.01746, 661000000.0
				tbpt, , 0.19, 1007000000.0
				tbtemp, 200
				tbpt, , 0.004986, 558000000.0
				tbpt, , 0.0088, 605000000.0
				tbpt, , 0.0206, 664000000.0
				tbpt, , 0.18, 978000000.0
				tbtemp, 250
				tbpt, , 0.00446, 549000000.0
				tbpt, , 0.01013, 606000000.0
				tbpt, , 0.17, 951000000.0
				tbtemp, 300
				tbpt, , 0.00456, 540000000.0
				tbpt, , 0.00561, 553000000.0
				tbpt, , 0.01199, 607000000.0
				tbpt, , 0.16, 925000000.0
				tbtemp, 350
				tbpt, , 0.00613, 549000000.0
				tbpt, , 0.01433, 609000000.0
				tbpt, , 0.15, 901000000.0
				tbtemp, 400
				tbpt, , 0.00524, 522000000.0
				tbpt, , 0.00729, 554000000.0
				tbpt, , 0.01735, 611000000.0
				tbpt, , 0.143, 877000000.0
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
				tb, BKIN, 104, 5, 2,
				tbtemp, 20   
				tbdata, , 585e6, 26509572.9
				tbtemp, 100  
				tbdata,, 573e6, 24991074.62
				tbtemp, 200  
				tbdata,, 558e6, 24227568.12
				tbtemp, 300  
				tbdata,, 540e6, 24094824.79
				tbtemp, 400  
				tbdata,, 522e6, 26970655.93
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
				tb, PLASTIC, 104, 8, 4, KINH
				tbtemp, 20
				tbpt, , 0.005014, 585000000.0
				tbpt, , 0.00588, 604000000.0
				tbpt, , 0.01285, 658000000.0
				tbpt, , 0.214, 1110000000.0
				tbtemp, 100
				tbpt, , 0.00511, 573000000.0
				tbpt, , 0.00685, 604000000.0
				tbpt, , 0.01489, 660000000.0
				tbpt, , 0.20, 1042000000.0
				tbtemp, 150
				tbpt, , 0.005122, 565500000.0
				tbpt, , 0.00773, 605000000.0
				tbpt, , 0.01746, 661000000.0
				tbpt, , 0.19, 1007000000.0
				tbtemp, 200
				tbpt, , 0.004986, 558000000.0
				tbpt, , 0.0088, 605000000.0
				tbpt, , 0.0206, 664000000.0
				tbpt, , 0.18, 978000000.0
				tbtemp, 250
				tbpt, , 0.00446, 549000000.0
				tbpt, , 0.01013, 606000000.0
				tbpt, , 0.17, 951000000.0
				tbtemp, 300
				tbpt, , 0.00456, 540000000.0
				tbpt, , 0.00561, 553000000.0
				tbpt, , 0.01199, 607000000.0
				tbpt, , 0.16, 925000000.0
				tbtemp, 350
				tbpt, , 0.00613, 549000000.0
				tbpt, , 0.01433, 609000000.0
				tbpt, , 0.15, 901000000.0
				tbtemp, 400
				tbpt, , 0.00524, 522000000.0
				tbpt, , 0.00729, 554000000.0
				tbpt, , 0.01735, 611000000.0
				tbpt, , 0.143, 877000000.0
			*endif
		
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_104',then
				*dim, SY_MIN_104, table, 6,,, TEMP
				*taxis, SY_MIN_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 
				SY_MIN_104(1)=585000000.0, 573000000.0, 558000000.0, 540000000.0, 522000000.0, 501000000.0,
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_104',then
				*dim, SY_AV_104, table, 6,,, TEMP
				*taxis, SY_AV_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 
				SY_AV_104(1)=686000000.0, 671000000.0, 652000000.0, 632000000.0, 611000000.0, 586000000.0, 
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_104',then
				*dim, SU_MIN_104, table, 6,,, TEMP
				*taxis, SU_MIN_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 
				SU_MIN_104(1)=896000000.0, 853000000.0, 817000000.0, 789000000.0, 760000000.0, 721000000.0, 
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_104',then
				*dim, SU_AV_104, table, 6,,, TEMP
				*taxis, SU_AV_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 
				SU_AV_104(1)=986000000.0, 939000000.0, 899000000.0, 868000000.0, 836000000.0, 793000000.0, 
			*endif	
		
		! Average total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_AV_104',then
				*dim, ETOT_AV_104, table, 7,,, TEMP
				*taxis, ETOT_AV_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 600.0  
				ETOT_AV_104(1)=0.241, 0.219, 0.193, 0.169, 0.145, 0.121, 0.096
			*endif
		
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_AV_104',then
				*dim, STRAIN_RUPT_AV_104, table, 7,,, TEMP
				*taxis, STRAIN_RUPT_AV_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 600.0
				STRAIN_RUPT_AV_104(1)= 0.45, 0.58, 0.65, 0.63, 0.53, 0.39, 0.24
			*endif
			
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_STRUCTURAL_104',then
				*dim, SM_STRUCTURAL_104, table, 6,,, TEMP
				*taxis, SM_STRUCTURAL_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 
				SM_STRUCTURAL_104(1)=299000000.0, 299000000.0, 299000000.0, 292000000.0, 281000000.0, 267000000.0, 
			*endif
		
		! Design stress intensity for bolt material: Smb	
			*if,PROP_ARRAY(1,I),eq,'SMB_NONLEAKTIGHT_JOINTS_104',then
				*dim, SMB_NONLEAKTIGHT_JOINTS_104, table, 6,,, TEMP
				*taxis, SMB_NONLEAKTIGHT_JOINTS_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 
				SMB_NONLEAKTIGHT_JOINTS_104(1)=299000000.0, 299000000.0, 299000000.0, 292000000.0, 281000000.0, 267000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SMB_LEAKTIGHT_JOINTS_104',then
				*dim, SMB_LEAKTIGHT_JOINTS_104, table, 6,,, TEMP
				*taxis, SMB_LEAKTIGHT_JOINTS_104(1), 1, 20.0, 100.0, 200.0, 300.0, 400.0, 500.0, 
				SMB_LEAKTIGHT_JOINTS_104(1)=195000000.0, 191000000.0, 186000000.0, 180000000.0, 174000000.0, 167000000.0, 
			*endif

		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRESS_104',then
				*dim, FATIGUE_STRESS_104, table, 17,2 ,, N, TEMP
				*taxis, FATIGUE_STRESS_104(1,1), 1, 1.00E+01, 2.00E+01, 5.00E+01, 1.00E+02, 2.00E+02, 5.00E+02, 1.00E+03, 2.00E+03, 5.00E+03, 
				*taxis, FATIGUE_STRESS_104(10,1), 1, 1.00E+04, 1.20E+04, 2.00E+04, 5.00E+04, 1.00E+05, 2.00E+05, 5.00E+05, 1.00E+06
				*taxis, FATIGUE_STRESS_104(1,1), 2, 20, 371
				FATIGUE_STRESS_104(1,1)= 2.90E+09, 2.21E+09, 1.59E+09, 1.21E+09, 9.31E+08, 6.90E+08, 5.38E+08, 4.27E+08, 3.38E+08, 3.03E+08, 2.96E+08,
				FATIGUE_STRESS_104(12,1)=  2.48E+08, 2.00E+08, 1.79E+08, 1.65E+08, 1.52E+08, 1.38E+08
				FATIGUE_STRESS_104(1,2)= 2.90E+09, 2.21E+09, 1.59E+09, 1.21E+09, 9.31E+08, 6.90E+08, 5.38E+08, 4.27E+08, 3.38E+08, 3.03E+08, 2.96E+08,
				FATIGUE_STRESS_104(12,2)=  2.48E+08, 2.00E+08, 1.79E+08, 1.65E+08, 1.52E+08, 1.38E+08				
			*endif	
			
		*enddo
	*endif
	
    
    !------------------------------------------------------------------------------
	!Material 105. XM-19 Steel. 
	!SDC-IC A.S05 Austenitic steel - XM-19
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,5),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(5),then
	
		! Define the material tag (MAT_TAG)
		MAT_XM19=105
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 
				mpdata, ALPX,   105,    1, 1.47e-05, 1.5e-05, 1.54e-05, 1.57e-05, 1.6e-05, 
				mpdata, ALPX,   105,    6, 1.63e-05, 1.65e-05, 1.66e-05, 1.68e-05, 1.7e-05, 
				mpdata, ALPX,   105,    11, 1.72e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 
				mpdata, CTEX,   105,    1, 1.47e-05, 1.52e-05, 1.6e-05, 1.65e-05, 1.69e-05, 
				mpdata, CTEX,   105,    6, 1.73e-05, 1.76e-05, 1.78e-05, 1.81e-05, 1.84e-05, 
				mpdata, CTEX,   105,    11, 1.88e-05, 
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, EX,   105,    1, 195.0e9, 193.0e9, 189.0e9, 186.0e9, 183.0e9, 
                mpdata, EX,   105,    6, 179.0e9, 176.0e9, 172.0e9, 169.0e9, 165.0e9, 
                mpdata, EX,   105,    11, 160.0e9, 
			*endif	
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 105, 0.31
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, DENS,   105,    1, 7880.0, 7869.0, 7851.0, 7832.0, 7812.0, 
                mpdata, DENS,   105,    6, 7792.0, 7771.0, 7750.0, 7729.0, 7707.0, 
                mpdata, DENS,   105,    11, 7685.0,
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, KXX,   105,    1, 11.1, 11.6, 12.5, 13.3, 14.2, 
                mpdata, KXX,   105,    6, 15.0, 15.9, 16.7, 17.5, 18.4, 
                mpdata, KXX,   105,    11, 19.2,
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, C,   105,    1, 475.0, 488.0, 507.0, 523.0, 537.0, 
                mpdata, C,   105,    6, 549.0, 560.0, 570.0, 578.0, 586.0, 
                mpdata, C,   105,    11, 594.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
				tb, MELAS, 105, 5, 20
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.000002564, 50000000.0
				tbpt, , 0.000005129, 100000000.0
				tbpt, , 0.000007708, 150000000.0
				tbpt, , 0.0000104, 200000000.0
				tbpt, , 0.00001361, 250000000.0
				tbpt, , 0.00001863, 300000000.0
				tbpt, , 0.00002913, 350000000.0
				tbpt, , 0.00005904, 400000000.0
				tbpt, , 0.000178, 450000000.0
				tbpt, , 0.0004399, 500000000.0
				tbpt, , 0.0006531, 550000000.0
				tbpt, , 0.0008491, 600000000.0
				tbpt, , 0.001072, 650000000.0
				tbpt, , 0.00133, 700000000.0
				tbpt, , 0.001626, 750000000.0
				tbpt, , 0.001964, 800000000.0
				tbpt, , 0.002345, 850000000.0
				tbpt, , 0.002773, 900000000.0
				tbpt, , 0.00305376, 930000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.000002632, 50000000.0
				tbpt, , 0.000005269, 100000000.0
				tbpt, , 0.000007994, 150000000.0
				tbpt, , 0.00001126, 200000000.0
				tbpt, , 0.00001669, 250000000.0
				tbpt, , 0.00002924, 300000000.0
				tbpt, , 0.00007005, 350000000.0
				tbpt, , 0.0002397, 400000000.0
				tbpt, , 0.0005307, 450000000.0
				tbpt, , 0.0007552, 500000000.0
				tbpt, , 0.0009822, 550000000.0
				tbpt, , 0.001244, 600000000.0
				tbpt, , 0.001546, 650000000.0
				tbpt, , 0.001892, 700000000.0
				tbpt, , 0.002284, 750000000.0
				tbpt, , 0.002724, 800000000.0
				tbpt, , 0.003215, 850000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.000002733, 50000000.0
				tbpt, , 0.000005488, 100000000.0
				tbpt, , 0.000008525, 150000000.0
				tbpt, , 0.00001308, 200000000.0
				tbpt, , 0.00002327, 250000000.0
				tbpt, , 0.00005532, 300000000.0
				tbpt, , 0.0001981, 350000000.0
				tbpt, , 0.0005118, 400000000.0
				tbpt, , 0.0007634, 450000000.0
				tbpt, , 0.001009, 500000000.0
				tbpt, , 0.001292, 550000000.0
				tbpt, , 0.001619, 600000000.0
				tbpt, , 0.001993, 650000000.0
				tbpt, , 0.002417, 700000000.0
				tbpt, , 0.002893, 750000000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.000002842, 50000000.0
				tbpt, , 0.00000574, 100000000.0
				tbpt, , 0.000009217, 150000000.0
				tbpt, , 0.00001546, 200000000.0
				tbpt, , 0.0000318, 250000000.0
				tbpt, , 0.00009363, 300000000.0
				tbpt, , 0.000337, 350000000.0
				tbpt, , 0.0006469, 400000000.0
				tbpt, , 0.0008957, 450000000.0
				tbpt, , 0.001166, 500000000.0
				tbpt, , 0.001478, 550000000.0
				tbpt, , 0.001835, 600000000.0
				tbpt, , 0.00224, 650000000.0
				tbpt, , 0.002696, 700000000.0
				tbtemp, 400
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000296, 50000000.0
				tbpt, , 0.00000601, 100000000.0
				tbpt, , 0.000009913, 150000000.0
				tbpt, , 0.00001772, 200000000.0
				tbpt, , 0.00004024, 250000000.0
				tbpt, , 0.000136, 300000000.0
				tbpt, , 0.0004394, 350000000.0
				tbpt, , 0.0007327, 400000000.0
				tbpt, , 0.0009911, 450000000.0
				tbpt, , 0.001282, 500000000.0
				tbpt, , 0.001618, 550000000.0
				tbpt, , 0.002002, 600000000.0
				tbpt, , 0.002435, 650000000.0
				tbpt, , 0.00292, 700000000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
				tb, BISO, 105, 5, 2,
				tbtemp, 20   
				tbdata, , 380e6, 1.77e9 
				tbtemp, 100  
				tbdata,, 321e6, 1.73e9
				tbtemp, 200  
				tbdata,, 282e6, 1.59e9
				tbtemp, 300  
				tbdata,, 260e6, 1.69e9
				tbtemp, 400  
				tbdata,, 247e6, 1.56e9
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
				tb, PLASTIC, 105, 5, 13,MISO
				tbtemp, 20
				tbpt, , 0.0000471, 380000000.0
				tbpt, , 0.00005904, 400000000.0
				tbpt, , 0.000178, 450000000.0
				tbpt, , 0.0004399, 500000000.0
				tbpt, , 0.0006531, 550000000.0
				tbpt, , 0.0008491, 600000000.0
				tbpt, , 0.001072, 650000000.0
				tbpt, , 0.00133, 700000000.0
				tbpt, , 0.001626, 750000000.0
				tbpt, , 0.001964, 800000000.0
				tbpt, , 0.002345, 850000000.0
				tbpt, , 0.002773, 900000000.0
				tbpt, , 0.00305376, 930000000.0
				tbtemp, 100
				tbpt, , 0.0000464, 321000000.0
				tbpt, , 0.00007005, 350000000.0
				tbpt, , 0.0002397, 400000000.0
				tbpt, , 0.0005307, 450000000.0
				tbpt, , 0.0007552, 500000000.0
				tbpt, , 0.0009822, 550000000.0
				tbpt, , 0.001244, 600000000.0
				tbpt, , 0.001546, 650000000.0
				tbpt, , 0.001892, 700000000.0
				tbpt, , 0.002284, 750000000.0
				tbpt, , 0.002724, 800000000.0
				tbpt, , 0.003215, 850000000.0
				tbtemp, 200
				tbpt, , 0.0000438, 282000000.0
				tbpt, , 0.00005532, 300000000.0
				tbpt, , 0.0001981, 350000000.0
				tbpt, , 0.0005118, 400000000.0
				tbpt, , 0.0007634, 450000000.0
				tbpt, , 0.001009, 500000000.0
				tbpt, , 0.001292, 550000000.0
				tbpt, , 0.001619, 600000000.0
				tbpt, , 0.001993, 650000000.0
				tbpt, , 0.002417, 700000000.0
				tbpt, , 0.002893, 750000000.0
				tbtemp, 300
				tbpt, , 0.0000442, 260000000.0
				tbpt, , 0.00009363, 300000000.0
				tbpt, , 0.000337, 350000000.0
				tbpt, , 0.0006469, 400000000.0
				tbpt, , 0.0008957, 450000000.0
				tbpt, , 0.001166, 500000000.0
				tbpt, , 0.001478, 550000000.0
				tbpt, , 0.001835, 600000000.0
				tbpt, , 0.00224, 650000000.0
				tbpt, , 0.002696, 700000000.0
				tbtemp, 400
				tbpt, , 0.0000389, 247000000.0
				tbpt, , 0.000136, 300000000.0
				tbpt, , 0.0004394, 350000000.0
				tbpt, , 0.0007327, 400000000.0
				tbpt, , 0.0009911, 450000000.0
				tbpt, , 0.001282, 500000000.0
				tbpt, , 0.001618, 550000000.0
				tbpt, , 0.002002, 600000000.0
				tbpt, , 0.002435, 650000000.0
				tbpt, , 0.00292, 700000000.0
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
				tb, BKIN, 105, 5, 2,
				tbtemp, 20   
				tbdata, , 380e6, 1.77e9 
				tbtemp, 100  
				tbdata,, 321e6, 1.73e9
				tbtemp, 200  
				tbdata,, 282e6, 1.59e9
				tbtemp, 300  
				tbdata,, 260e6, 1.69e9
				tbtemp, 400  
				tbdata,, 247e6, 1.56e9			
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
				tb, PLASTIC, 105, 5, 13, KINH
				tbtemp, 20
				tbpt, , 0.0000471, 380000000.0
				tbpt, , 0.00005904, 400000000.0
				tbpt, , 0.000178, 450000000.0
				tbpt, , 0.0004399, 500000000.0
				tbpt, , 0.0006531, 550000000.0
				tbpt, , 0.0008491, 600000000.0
				tbpt, , 0.001072, 650000000.0
				tbpt, , 0.00133, 700000000.0
				tbpt, , 0.001626, 750000000.0
				tbpt, , 0.001964, 800000000.0
				tbpt, , 0.002345, 850000000.0
				tbpt, , 0.002773, 900000000.0
				tbpt, , 0.00305376, 930000000.0
				tbtemp, 100
				tbpt, , 0.0000464, 321000000.0
				tbpt, , 0.00007005, 350000000.0
				tbpt, , 0.0002397, 400000000.0
				tbpt, , 0.0005307, 450000000.0
				tbpt, , 0.0007552, 500000000.0
				tbpt, , 0.0009822, 550000000.0
				tbpt, , 0.001244, 600000000.0
				tbpt, , 0.001546, 650000000.0
				tbpt, , 0.001892, 700000000.0
				tbpt, , 0.002284, 750000000.0
				tbpt, , 0.002724, 800000000.0
				tbpt, , 0.003215, 850000000.0
				tbtemp, 200
				tbpt, , 0.0000438, 282000000.0
				tbpt, , 0.00005532, 300000000.0
				tbpt, , 0.0001981, 350000000.0
				tbpt, , 0.0005118, 400000000.0
				tbpt, , 0.0007634, 450000000.0
				tbpt, , 0.001009, 500000000.0
				tbpt, , 0.001292, 550000000.0
				tbpt, , 0.001619, 600000000.0
				tbpt, , 0.001993, 650000000.0
				tbpt, , 0.002417, 700000000.0
				tbpt, , 0.002893, 750000000.0
				tbtemp, 300
				tbpt, , 0.0000442, 260000000.0
				tbpt, , 0.00009363, 300000000.0
				tbpt, , 0.000337, 350000000.0
				tbpt, , 0.0006469, 400000000.0
				tbpt, , 0.0008957, 450000000.0
				tbpt, , 0.001166, 500000000.0
				tbpt, , 0.001478, 550000000.0
				tbpt, , 0.001835, 600000000.0
				tbpt, , 0.00224, 650000000.0
				tbpt, , 0.002696, 700000000.0
				tbtemp, 400
				tbpt, , 0.0000389, 247000000.0
				tbpt, , 0.000136, 300000000.0
				tbpt, , 0.0004394, 350000000.0
				tbpt, , 0.0007327, 400000000.0
				tbpt, , 0.0009911, 450000000.0
				tbpt, , 0.001282, 500000000.0
				tbpt, , 0.001618, 550000000.0
				tbpt, , 0.002002, 600000000.0
				tbpt, , 0.002435, 650000000.0
				tbpt, , 0.00292, 700000000.0
			*endif
		
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_105',then
				*dim, SY_MIN_105, table, 10,,, TEMP
				*taxis, SY_MIN_105(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_MIN_105(10), 1, 500.0, 
				SY_MIN_105(1)=380000000.0, 321000000.0, 298000000.0, 282000000.0, 270000000.0, 260000000.0, 253000000.0, 247000000.0, 241000000.0, 236000000.0, 
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_105',then
		
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_105',then
				*dim, SU_MIN_105, table, 10,,, TEMP
				*taxis, SU_MIN_105(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SU_MIN_105(10), 1, 500.0, 
				SU_MIN_105(1)=690000000.0, 621000000.0, 590000000.0, 572000000.0, 561000000.0, 552000000.0, 545000000.0, 536000000.0, 526000000.0, 513000000.0, 
			*endif
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_105',then
			
			*endif				

		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_105',then
				*dim, SM_105, table, 10,,, TEMP
				*taxis, SM_105(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SM_105(10), 1, 500.0, 
				SM_105(1)=230000000.0, 207000000.0, 197000000.0, 191000000.0, 187000000.0, 184000000.0, 182000000.0, 179000000.0, 175000000.0, 171000000.0,
			*endif
		
		! Design stress intensity for bolt material: Smb	
			*if,PROP_ARRAY(1,I),eq,'SMB_NONLEAKTIGHT_JOINTS_105',then
				*dim, SMB_NONLEAKTIGHT_JOINTS_105, table, 10,,, TEMP
				*taxis, SMB_NONLEAKTIGHT_JOINTS_105(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SMB_NONLEAKTIGHT_JOINTS_105(10), 1, 500.0, 
				SMB_NONLEAKTIGHT_JOINTS_105(1)=230000000.0, 207000000.0, 197000000.0, 188000000.0, 180000000.0, 173000000.0, 169000000.0, 165000000.0, 161000000.0, 157000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SMB_LEAKTIGHT_JOINTS_105',then
				*dim, SMB_LEAKTIGHT_JOINTS_105, table, 10,,, TEMP
				*taxis, SMB_LEAKTIGHT_JOINTS_105(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SMB_LEAKTIGHT_JOINTS_105(10), 1, 500.0, 
				SMB_LEAKTIGHT_JOINTS_105(1)=127000000.0, 107000000.0, 99000000.0, 94000000.0, 90000000.0, 87000000.0, 85000000.0, 82000000.0, 80000000.0, 79000000.0, 
			*endif
			
		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRESS_105',then
				*dim, FATIGUE_STRESS_105, table, 23,2,, N, TEMP
				*taxis, FATIGUE_STRESS_105(1,1), 1, 1.00E+01, 2.00E+01, 5.00E+01, 1.00E+02, 2.00E+02, 5.00E+02, 1.00E+03, 2.00E+03, 5.00E+03,
				*taxis, FATIGUE_STRESS_105(10,1), 1, 1.00E+04, 2.00E+04, 5.00E+04, 1.00E+05, 2.00E+05, 5.00E+05, 1.00E+06, 2.00E+06, 5.00E+06, 1.00E+07,
				*taxis, FATIGUE_STRESS_105(20,1), 1, 1.00E+08, 1.00E+09, 1.00E+10, 1.00E+11
				*taxis, FATIGUE_STRESS_105(1,1), 2, 20, 427
				FATIGUE_STRESS_105(1,1)= 4881000000, 3530000000, 2379000000, 1800000000, 1386000000, 1020000000, 820000000, 669000000, 524000000, 441000000, 383000000, 
				FATIGUE_STRESS_105(12,1)= 319000000, 281000000, 248000000, 214000000, 194000000, 185000000, 177000000, 173000000, 166000000, 165000000, 164000000,
				FATIGUE_STRESS_105(23,1)= 163000000
				FATIGUE_STRESS_105(1,2)= 4881000000, 3530000000, 2379000000, 1800000000, 1386000000, 1020000000, 820000000, 669000000, 524000000, 441000000, 383000000, 
				FATIGUE_STRESS_105(12,2)= 319000000, 281000000, 248000000, 214000000, 194000000, 185000000, 177000000, 173000000, 166000000, 165000000, 164000000,
				FATIGUE_STRESS_105(23,2)= 163000000				
			*endif	
			
		*enddo
	*endif
    
    !------------------------------------------------------------------------------
	!Material 106. Alloy 625. 
	!SDC-IC A.S11 Alloy 625
	!------------------------------------------------------------------------------
	
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,6),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(6),then
			
		! Define the material tag (MAT_TAG)
		MAT_ALLOY625=106		
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
				mptemp,  6, 300.0, 350.0, 400.0, 
				mpdata, ALPX,   106,    1, 1.2e-05, 1.28e-05, 1.3e-05, 1.32e-05, 1.32e-05, 
				mpdata, ALPX,   106,    6, 1.33e-05, 1.34e-05, 1.35e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then

			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
                mptemp,  6, 300.0, 350.0, 400.0, 
                mpdata, EX,   106,    1, 207.0e9, 202.0e9, 199.0e9, 197.0e9, 194.0e9, 
                mpdata, EX,   106,    6, 191.0e9, 189.0e9, 186.0e9, 
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 106, 0.31
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp, 1, 20.0
                mpdata, DENS, 106, 1, 8440 
			*endif
			
		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
                mptemp,  6, 300.0, 350.0, 400.0, 
                mpdata, KXX,   106,    1, 9.8, 10.9, 11.7, 12.4, 13.2, 
                mpdata, KXX,   106,    6, 13.9, 14.7, 15.4, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
                mpdata, C,   106,    1, 407.0, 419.0, 447.0, 475.0, 499.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
			
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
			
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
			
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
			
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MKIN',then

			*endif

		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_106',then
				*dim, SY_MIN_106, table, 10,,, TEMP
				*taxis, SY_MIN_106(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_MIN_106(10), 1, 500.0, 
				SY_MIN_106(1)=414000000.0, 397000000.0, 387000000.0, 377000000.0, 367000000.0, 358000000.0, 350000000.0, 343000000.0, 338000000.0, 333000000.0, 
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_106',then
		
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_106',then
				*dim, SU_MIN_106, table, 10,,, TEMP
				*taxis, SU_MIN_106(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SU_MIN_106(10), 1, 500.0, 
				SU_MIN_106(1)=827000000.0, 782000000.0, 760000000.0, 737000000.0, 725000000.0, 714000000.0, 702000000.0, 691000000.0, 679000000.0, 666000000.0, 
			*endif
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_106',then
			
			*endif	
			
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_106',then
				*dim, SM_106, table, 10,,, TEMP
				*taxis, SM_106(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SM_106(10), 1, 500.0, 
				SM_106(1)=276000000.0, 265000000.0, 258000000.0, 251000000.0, 245000000.0, 239000000.0, 233000000.0, 229000000.0, 225000000.0, 222000000.0
			*endif
			
		*enddo
	*endif
    
	!------------------------------------------------------------------------------
	!Material 107. Ti-6Al-4V Alloy. 
	!SDC-IC A.S20 Titanium alloy - Ti-6Al-4V
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,7),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(7),then
	
		! Define the material tag (MAT_TAG)
		MAT_TI64=107
	
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 
				mpdata, ALPX,   107,    1, 8.68e-06, 8.79e-06, 8.98e-06, 9.16e-06, 9.33e-06, 
				mpdata, ALPX,   107,    6, 9.49e-06, 9.64e-06, 9.77e-06, 9.89e-06, 1e-05, 
				mpdata, ALPX,   107,    11, 1.009e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
			
			*endif
		
		! Young Modulus
		 	*if,PROP_ARRAY(1,I),eq,'EX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 
				mpdata, EX,   107,    1, 116.5e9, 113.7e9, 110.0e9, 106.4e9, 102.8e9, 
				mpdata, EX,   107,    6, 99.1e9, 95.4e9, 91.7e9, 88.0e9, 
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
				mp, PRXY, 107, 0.31
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 
				mpdata, DENS,   107,    1, 4421.0, 4416.0, 4408.0, 4401.0, 4393.0, 
				mpdata, DENS,   107,    6, 4385.0, 4378.0, 4370.0, 4362.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 600.0, 
				mpdata, KXX,   107,    1, 7.3, 7.4, 7.7, 8.2, 8.7, 
				mpdata, KXX,   107,    6, 9.4, 10.1, 10.9, 11.6, 12.3, 
				mpdata, KXX,   107,    11, 13.0, 14.1,
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 600.0, 
				mpdata, C,   107,    1, 560.0, 557.0, 557.0, 561.0, 569.0, 
				mpdata, C,   107,    6, 581.0, 595.0, 613.0, 632.0, 654.0, 
				mpdata, C,   107,    11, 676.0, 724.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
				tb, MELAS, 107, 4, 20
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000171674, 20000000.0
				tbpt, , 0.00000515021, 60000000.0
				tbpt, , 0.0000103, 120000000.0
				tbpt, , 0.0000137, 160000000.0
				tbpt, , 0.0000172, 200000000.0
				tbpt, , 0.0000223, 260000000.0
				tbpt, , 0.0000292, 340000000.0
				tbpt, , 0.0000326, 380000000.0
				tbpt, , 0.0000361, 420000000.0
				tbpt, , 0.0000412, 480000000.0
				tbpt, , 0.0000446, 520000000.0
				tbpt, , 0.0000481, 560000000.0
				tbpt, , 0.0000515, 600000000.0
				tbpt, , 0.0000549, 640000000.0
				tbpt, , 0.0000601, 700000000.0
				tbpt, , 0.0000675, 780000000.0
				tbpt, , 0.0000974, 860000000.0
				tbpt, , 0.0002009, 900000000.0
				tbpt, , 0.0003545, 920000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000181818, 20000000.0
				tbpt, , 0.00000363636, 40000000.0
				tbpt, , 0.00000909091, 100000000.0
				tbpt, , 0.0000127, 140000000.0
				tbpt, , 0.0000164, 180000000.0
				tbpt, , 0.0000218, 240000000.0
				tbpt, , 0.0000255, 280000000.0
				tbpt, , 0.0000327, 360000000.0
				tbpt, , 0.0000364, 400000000.0
				tbpt, , 0.0000418, 460000000.0
				tbpt, , 0.0000455, 500000000.0
				tbpt, , 0.0000491, 540000000.0
				tbpt, , 0.0000564, 620000000.0
				tbpt, , 0.000064, 680000000.0
				tbpt, , 0.0000859, 720000000.0
				tbpt, , 0.000114, 760000000.0
				tbpt, , 0.0002134, 800000000.0
				tbpt, , 0.0003209, 820000000.0
				tbpt, , 0.0005022, 840000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000194553, 20000000.0
				tbpt, , 0.00000389105, 40000000.0
				tbpt, , 0.00000972763, 100000000.0
				tbpt, , 0.0000136, 140000000.0
				tbpt, , 0.0000175, 180000000.0
				tbpt, , 0.0000233, 240000000.0
				tbpt, , 0.0000272, 280000000.0
				tbpt, , 0.0000311, 320000000.0
				tbpt, , 0.000035, 360000000.0
				tbpt, , 0.0000389, 400000000.0
				tbpt, , 0.0000448, 460000000.0
				tbpt, , 0.0000489, 500000000.0
				tbpt, , 0.0000543, 540000000.0
				tbpt, , 0.0000683, 580000000.0
				tbpt, , 0.0001631, 620000000.0
				tbpt, , 0.0004, 680000000.0
				tbpt, , 0.0006101, 720000000.0
				tbpt, , 0.000926, 760000000.0
				tbpt, , 0.0011366, 780000000.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000201816, 20000000.0
				tbpt, , 0.00000605449, 60000000.0
				tbpt, , 0.0000121, 120000000.0
				tbpt, , 0.0000161, 160000000.0
				tbpt, , 0.0000202, 200000000.0
				tbpt, , 0.0000262, 260000000.0
				tbpt, , 0.0000303, 300000000.0
				tbpt, , 0.0000343, 340000000.0
				tbpt, , 0.0000383, 380000000.0
				tbpt, , 0.0000424, 420000000.0
				tbpt, , 0.0000494, 480000000.0
				tbpt, , 0.0000585, 520000000.0
				tbpt, , 0.0000964, 560000000.0
				tbpt, , 0.0002768, 600000000.0
				tbpt, , 0.0004309, 640000000.0
				tbpt, , 0.0007806, 700000000.0
				tbpt, , 0.0009475, 720000000.0
				tbpt, , 0.0011465, 740000000.0
				tbpt, , 0.0013827, 760000000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
				tb, BISO, 107, 4, 2,
				tbtemp, 20   
				tbdata, , 828e6, 3649635036
				tbtemp, 100  
				tbdata,, 718e6, 2882536632
				tbtemp, 200  
				tbdata,, 591e6, 1722158439
				tbtemp, 250  
				tbdata,, 547e6, 1675296984
			*endif
		
		! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
				tb, PLASTIC, 107, 4, 8,MISO
				tbtemp, 20
				tbpt, , 0.00008598, 828000000.0
				tbpt, , 0.0000974, 860000000.0
				tbpt, , 0.0002009, 900000000.0
				tbpt, , 0.0003545, 920000000.0
				tbtemp, 100
				tbpt, , 0.00008435, 718000000.0
				tbpt, , 0.000114, 760000000.0
				tbpt, , 0.0002134, 800000000.0
				tbpt, , 0.0003209, 820000000.0
				tbpt, , 0.0005022, 840000000.0
				tbtemp, 200
				tbpt, , 0.00008101, 591000000.0
				tbpt, , 0.0001631, 620000000.0
				tbpt, , 0.0004, 680000000.0
				tbpt, , 0.0006101, 720000000.0
				tbpt, , 0.000926, 760000000.0
				tbpt, , 0.0011366, 780000000.0
				tbtemp, 250
				tbpt, , 0.0000789, 547000000.0
				tbpt, , 0.0000964, 560000000.0
				tbpt, , 0.0002768, 600000000.0
				tbpt, , 0.0004309, 640000000.0
				tbpt, , 0.0007806, 700000000.0
				tbpt, , 0.0009475, 720000000.0
				tbpt, , 0.0011465, 740000000.0
				tbpt, , 0.0013827, 760000000.0
			*endif

		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
				tb, BKIN, 107, 4, 2,
				tbtemp, 20   
				tbdata, , 828e6, 3649635036
				tbtemp, 100  
				tbdata,, 718e6, 2882536632
				tbtemp, 200  
				tbdata,, 591e6, 1722158439
				tbtemp, 250  
				tbdata,, 547e6, 1675296984
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
				tb, PLASTIC, 107, 4, 8,KINH
				tbtemp, 20
				tbpt, , 0.00008598, 828000000.0
				tbpt, , 0.0000974, 860000000.0
				tbpt, , 0.0002009, 900000000.0
				tbpt, , 0.0003545, 920000000.0
				tbtemp, 100
				tbpt, , 0.00008435, 718000000.0
				tbpt, , 0.000114, 760000000.0
				tbpt, , 0.0002134, 800000000.0
				tbpt, , 0.0003209, 820000000.0
				tbpt, , 0.0005022, 840000000.0
				tbtemp, 200
				tbpt, , 0.00008101, 591000000.0
				tbpt, , 0.0001631, 620000000.0
				tbpt, , 0.0004, 680000000.0
				tbpt, , 0.0006101, 720000000.0
				tbpt, , 0.000926, 760000000.0
				tbpt, , 0.0011366, 780000000.0
				tbtemp, 250
				tbpt, , 0.0000789, 547000000.0
				tbpt, , 0.0000964, 560000000.0
				tbpt, , 0.0002768, 600000000.0
				tbpt, , 0.0004309, 640000000.0
				tbpt, , 0.0007806, 700000000.0
				tbpt, , 0.0009475, 720000000.0
				tbpt, , 0.0011465, 740000000.0
				tbpt, , 0.0013827, 760000000.0
			*endif
			
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_107',then
				*dim, SY_MIN_107, table, 11,,, TEMP
				*taxis, SY_MIN_107(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_107(10), 1, 450.0, 500.0, 
				SY_MIN_107(1)=828000000.0, 789000000.0, 718000000.0, 649000000.0, 591000000.0, 547000000.0, 518000000.0, 501000000.0, 486000000.0, 464000000.0, 419000000.0, 
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_107',then
				*dim, SY_AV_107, table, 11,,, TEMP
				*taxis, SY_AV_107(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_AV_107(10), 1, 450.0, 500.0, 
				SY_AV_107(1)=862000000.0, 821000000.0, 747000000.0, 676000000.0, 615000000.0, 570000000.0, 540000000.0, 521000000.0, 506000000.0, 483000000.0, 436000000.0, 
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_107',then
				*dim, SU_MIN_107, table, 11,,, TEMP
				*taxis, SU_MIN_107(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SU_MIN_107(10), 1, 450.0, 500.0, 
				SU_MIN_107(1)=895000000.0, 863000000.0, 805000000.0, 750000000.0, 702000000.0, 667000000.0, 643000000.0, 626000000.0, 609000000.0, 578000000.0, 520000000.0, 
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_107',then
				*dim, SU_AV_107, table, 11,,, TEMP
				*taxis, SU_AV_107(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SU_AV_107(10), 1, 450.0, 500.0, 
				SU_AV_107(1)=970000000.0, 936000000.0, 873000000.0, 813000000.0, 762000000.0, 723000000.0, 697000000.0, 679000000.0, 660000000.0, 627000000.0, 564000000.0, 
			*endif				
		
		! Minimum uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_MIN_107',then
				*dim, EUNIF_MIN_107, table, 10,,, TEMP
				*taxis, EUNIF_MIN_107(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, EUNIF_MIN_107(10), 1, 450.0, 
				EUNIF_MIN_107(1)=4.05E-2, 4.34E-2, 4.82E-2, 5.28E-2, 5.71E-2, 6.13E-2, 6.52E-2, 6.88E-2, 7.23E-2, 7.55E-2, 
			*endif
		
		! Minimum total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_MIN_107',then
				*dim, ETOT_MIN_107, table, 11,,, TEMP
				*taxis, ETOT_MIN_107(1), 1, 20.0, 50, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis,  ETOT_MIN_107(10), 1, 450.0, 500.0  
				ETOT_MIN_107(1)= 10.026E-2, 11.234E-2, 12.126E-2, 11.996E-2, 11.282E-2, 10.420E-2, 9.848E-2, 10.002E-2, 11.320E-2, 14.238E-2, 19.194E-2
			*endif
		
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_AV_107',then
				*dim, STRAIN_RUPT_AV_107, table, 11,,, TEMP
				*taxis, STRAIN_RUPT_AV_107(1), 1, 20.0, 50, 100.0, 150, 200.0, 250, 300.0, 350, 400.0
				*taxis, STRAIN_RUPT_AV_107(10), 1, 450, 500
				STRAIN_RUPT_AV_107(1)= 28.9E-2, 38E-2, 47.3E-2, 54.1E-2, 59.7E-2, 64.6E-2, 69E-2, 73E-2, 76.8E-2, 80.3E-2, 83.7E-2,
			*endif
			
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_107',then
				*dim, SM_107, table, 11,,, TEMP
				*taxis, SM_107(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_107(10), 1, 450.0, 500.0, 
				SM_107(1)=298000000.0, 298000000.0, 298000000.0, 278000000.0, 260000000.0, 247000000.0, 238000000.0, 232000000.0, 225000000.0, 214000000.0, 193000000.0, 
			*endif
			
		! Allowable stress intensity: Se
			*if,PROP_ARRAY(1,I),eq,'SE_IRR_107',then
				*dim, SE_IRR_107, table, 2,11,, D,TEMP
				*taxis, SE_IRR_107(1,1), 1, 0, 0.4
				*taxis, SE_IRR_107(1,1), 2, 20, 50, 100, 150, 200, 250, 300, 350, 400, 450, 500
				SE_IRR_107(1,1)= 398000000, 399000000, 398000000, 395000000, 393000000, 393000000, 394000000, 395000000, 394000000, 388000000, 371000000
			*endif	
			
		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_107',then
				*dim, FATIGUE_STRAIN_107, table, 14,2,, N, TEMP
				*taxis, FATIGUE_STRAIN_107(1,1), 1, 5.00E+00, 1.00E+01, 2.00E+01, 4.00E+01, 1.00E+02, 2.00E+02, 4.00E+02, 1.00E+03, 2.00E+03, 
				*taxis, FATIGUE_STRAIN_107(10,1), 1, 4.00E+03, 1.00E+04, 2.00E+04, 4.00E+04, 1.00E+05
				*taxis, FATIGUE_STRAIN_107(1,1), 2, 50, 350
				FATIGUE_STRAIN_107(1,1)= 0.031705131, 0.025334228, 0.020447875, 0.016700143, 0.013051218, 0.011027058, 0.009474569, 0.007963011, 0.007124507, 0.006481392, 0.005855233, 
				FATIGUE_STRAIN_107(12,1)= 0.005507885, 0.005241476, 0.004982091
				FATIGUE_STRAIN_107(1,2)= 0.031705131, 0.025334228, 0.020447875, 0.016700143, 0.013051218, 0.011027058, 0.009474569, 0.007963011, 0.007124507, 0.006481392, 0.005855233, 
				FATIGUE_STRAIN_107(12,2)= 0.005507885, 0.005241476, 0.004982091				
			*endif	
			
		*enddo	
	*endif
	
    !------------------------------------------------------------------------------
	!Material 108. Pure copper. 
	!SDC-IC A.S30 Pure copper
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,8),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(8),then

		! Define the material tag (MAT_TAG)
		MAT_CU=108
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
				mptemp,  16, 750.0, 800.0, 850.0, 900.0, 
				mpdata, ALPX,   108,    1, 1.67e-05, 1.7e-05, 1.72e-05, 1.75e-05, 1.77e-05, 
				mpdata, ALPX,   108,    6, 1.78e-05, 1.8e-05, 1.81e-05, 1.82e-05, 1.84e-05, 
				mpdata, ALPX,   108,    11, 1.85e-05, 1.865e-05, 1.88e-05, 1.897e-05, 1.914e-05, 
				mpdata, ALPX,   108,    16, 1.934e-05, 1.955e-05, 1.978e-05, 2.005e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
			
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 
                mpdata, EX,   108,    1, 117.0e9, 116.0e9, 114.0e9, 112.0e9, 110.0e9, 
                mpdata, EX,   108,    6, 108.0e9, 105.0e9, 102.0e9, 98.0e9, 
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 108, 0.33
			*endif		

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 850.0, 900.0, 
                mpdata, DENS,   108,    1, 8940.0, 8926.0, 8903.0, 8879.0, 8854.0, 
                mpdata, DENS,   108,    6, 8829.0, 8802.0, 8774.0, 8744.0, 8713.0, 
                mpdata, DENS,   108,    11, 8681.0, 8647.0, 8612.0, 8575.0, 8536.0, 
                mpdata, DENS,   108,    16, 8495.0, 8453.0, 8409.0, 8363.0,
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
                mptemp,  21, 1000.0, 
                mpdata, KXX,   108,    1, 401.0, 398.0, 395.0, 391.0, 388.0, 
                mpdata, KXX,   108,    6, 384.0, 381.0, 378.0, 374.0, 371.0, 
                mpdata, KXX,   108,    11, 367.0, 364.0, 360.0, 357.0, 354.0, 
                mpdata, KXX,   108,    16, 350.0, 347.0, 344.0, 340.0, 337.0, 
                mpdata, KXX,   108,    21, 334.0, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
                mptemp,  21, 1000.0, 
                mpdata, C,   108,    1, 388.0, 390.0, 394.0, 398.0, 401.0, 
                mpdata, C,   108,    6, 406.0, 410.0, 415.0, 419.0, 424.0, 
                mpdata, C,   108,    11, 430.0, 435.0, 441.0, 447.0, 453.0, 
                mpdata, C,   108,    16, 459.0, 466.0, 472.0, 479.0, 487.0, 
                mpdata, C,   108,    21, 494.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS_TUBE',then
				tb, MELAS, 108, 6, 18
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000855, 1000000.0
				tbpt, , 0.00004274, 5000000.0
				tbpt, , 0.00008547, 10000000.0
				tbpt, , 0.00012821, 15000000.0
				tbpt, , 0.00017095, 20000000.0
				tbpt, , 0.00021377, 25000000.0
				tbpt, , 0.00025709, 30000000.0
				tbpt, , 0.00030286, 35000000.0
				tbpt, , 0.000358, 40000000.0
				tbpt, , 0.00044351, 45000000.0
				tbpt, , 0.00061502, 50000000.0
				tbpt, , 0.00100553, 55000000.0
				tbpt, , 0.00190721, 60000000.0
				tbpt, , 0.00391888, 65000000.0
				tbpt, , 0.00819805, 70000000.0
				tbpt, , 0.0168739, 75000000.0
				tbpt, , 0.03369876, 80000000.0
				tbtemp, 50
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000862, 1000000.0
				tbpt, , 0.0000431, 5000000.0
				tbpt, , 0.00008621, 10000000.0
				tbpt, , 0.00012931, 15000000.0
				tbpt, , 0.00017244, 20000000.0
				tbpt, , 0.00021586, 25000000.0
				tbpt, , 0.00026116, 30000000.0
				tbpt, , 0.00031558, 35000000.0
				tbpt, , 0.00040504, 40000000.0
				tbpt, , 0.00060791, 45000000.0
				tbpt, , 0.00113202, 50000000.0
				tbpt, , 0.00247414, 55000000.0
				tbpt, , 0.00572564, 60000000.0
				tbpt, , 0.01312317, 65000000.0
				tbpt, , 0.02899041, 70000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000877, 1000000.0
				tbpt, , 0.00004386, 5000000.0
				tbpt, , 0.00008772, 10000000.0
				tbpt, , 0.00013158, 15000000.0
				tbpt, , 0.00017552, 20000000.0
				tbpt, , 0.00022027, 25000000.0
				tbpt, , 0.00027041, 30000000.0
				tbpt, , 0.00034656, 35000000.0
				tbpt, , 0.00052268, 40000000.0
				tbpt, , 0.00102236, 45000000.0
				tbpt, , 0.0024386, 50000000.0
				tbpt, , 0.00618869, 55000000.0
				tbpt, , 0.01538648, 60000000.0
				tbpt, , 0.03641338, 65000000.0
				tbtemp, 150
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000893, 1000000.0
				tbpt, , 0.00004464, 5000000.0
				tbpt, , 0.00008929, 10000000.0
				tbpt, , 0.00013393, 15000000.0
				tbpt, , 0.0001787, 20000000.0
				tbpt, , 0.00022474, 25000000.0
				tbpt, , 0.00027923, 30000000.0
				tbpt, , 0.00037446, 35000000.0
				tbpt, , 0.00062632, 40000000.0
				tbpt, , 0.00138515, 45000000.0
				tbpt, , 0.00358005, 50000000.0
				tbpt, , 0.00943166, 55000000.0
				tbpt, , 0.02381878, 60000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000909, 1000000.0
				tbpt, , 0.00004545, 5000000.0
				tbpt, , 0.00009091, 10000000.0
				tbpt, , 0.00013637, 15000000.0
				tbpt, , 0.00018203, 20000000.0
				tbpt, , 0.00022972, 25000000.0
				tbpt, , 0.00029088, 30000000.0
				tbpt, , 0.00041714, 35000000.0
				tbpt, , 0.00079352, 40000000.0
				tbpt, , 0.00197957, 45000000.0
				tbpt, , 0.00545908, 50000000.0
				tbpt, , 0.01477853, 55000000.0
				tbpt, , 0.03772958, 60000000.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000935, 1000000.0
				tbpt, , 0.00004673, 5000000.0
				tbpt, , 0.00009346, 10000000.0
				tbpt, , 0.00014023, 15000000.0
				tbpt, , 0.00018789, 20000000.0
				tbpt, , 0.00024501, 25000000.0
				tbpt, , 0.00036484, 30000000.0
				tbpt, , 0.00078749, 35000000.0
				tbpt, , 0.00237383, 40000000.0
				tbpt, , 0.00772703, 45000000.0
				tbpt, , 0.02375035, 50000000.0
			*endif

			*if,PROP_ARRAY(1,I),eq,'MELAS_PLATE',then
				tb, MELAS, 108, 6, 18
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000855, 1000000.0
				tbpt, , 0.00004274, 5000000.0
				tbpt, , 0.00008547, 10000000.0
				tbpt, , 0.00012821, 15000000.0
				tbpt, , 0.00017095, 20000000.0
				tbpt, , 0.00021377, 25000000.0
				tbpt, , 0.00025662, 30000000.0
				tbpt, , 0.00030029, 35000000.0
				tbpt, , 0.00034685, 40000000.0
				tbpt, , 0.00040277, 45000000.0
				tbpt, , 0.00048521, 50000000.0
				tbpt, , 0.00063516, 55000000.0
				tbpt, , 0.00094271, 60000000.0
				tbpt, , 0.00159246, 65000000.0
				tbpt, , 0.00294127, 70000000.0
				tbtemp, 50
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000862, 1000000.0
				tbpt, , 0.0000431, 5000000.0
				tbpt, , 0.00008621, 10000000.0
				tbpt, , 0.00012931, 15000000.0
				tbpt, , 0.00017244, 20000000.0
				tbpt, , 0.00021561, 25000000.0
				tbpt, , 0.00025662, 30000000.0
				tbpt, , 0.00030543, 35000000.0
				tbpt, , 0.00036095, 40000000.0
				tbpt, , 0.00044682, 45000000.0
				tbpt, , 0.0006187, 50000000.0
				tbpt, , 0.00100958, 55000000.0
				tbpt, , 0.00191163, 60000000.0
				tbpt, , 0.00392367, 65000000.0
				tbpt, , 0.00820321, 70000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000877, 1000000.0
				tbpt, , 0.00004386, 5000000.0
				tbpt, , 0.00008772, 10000000.0
				tbpt, , 0.00013158, 15000000.0
				tbpt, , 0.00017546, 20000000.0
				tbpt, , 0.00021958, 25000000.0
				tbpt, , 0.00026524, 30000000.0
				tbpt, , 0.00031839, 35000000.0
				tbpt, , 0.00040027, 40000000.0
				tbpt, , 0.00057516, 45000000.0
				tbpt, , 0.00101355, 50000000.0
				tbpt, , 0.00212286, 55000000.0
				tbpt, , 0.00479826, 60000000.0
				tbpt, , 0.01087424, 65000000.0
				tbpt, , 0.0238971 , 70000000.0
				tbtemp, 150
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000893, 1000000.0
				tbpt, , 0.00004464, 5000000.0
				tbpt, , 0.00008929, 10000000.0
				tbpt, , 0.00013393, 15000000.0
				tbpt, , 0.00017861, 20000000.0
				tbpt, , 0.00022363, 25000000.0
				tbpt, , 0.00027097, 30000000.0
				tbpt, , 0.00032946, 35000000.0
				tbpt, , 0.00043082, 40000000.0
				tbpt, , 0.00067096, 45000000.0
				tbpt, , 0.00130419, 50000000.0
				tbpt, , 0.00293838, 55000000.0
				tbpt, , 0.00690899, 60000000.0
				tbpt, , 0.01595289, 65000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000909, 1000000.0
				tbpt, , 0.00004545, 5000000.0
				tbpt, , 0.00009091, 10000000.0
				tbpt, , 0.00013637, 15000000.0
				tbpt, , 0.00018189, 20000000.0
				tbpt, , 0.00022806, 25000000.0
				tbpt, , 0.00027856, 30000000.0
				tbpt, , 0.00034999, 35000000.0
				tbpt, , 0.00050181, 40000000.0
				tbpt, , 0.00091386, 45000000.0
				tbpt, , 0.00206307, 50000000.0
				tbpt, , 0.00508931, 55000000.0
				tbpt, , 0.01249694, 60000000.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000926, 1000000.0
				tbpt, , 0.0000463, 5000000.0
				tbpt, , 0.00009259, 10000000.0
				tbpt, , 0.0001389, 15000000.0
				tbpt, , 0.00018545, 20000000.0
				tbpt, , 0.00023459, 25000000.0
				tbpt, , 0.0003009, 30000000.0
				tbpt, , 0.00045009, 35000000.0
				tbpt, , 0.00091783, 40000000.0
				tbpt, , 0.00241667, 45000000.0
				tbpt, , 0.00683623, 50000000.0
				tbpt, , 0.01869295, 55000000.0
			*endif

			*if,PROP_ARRAY(1,I),eq,'MELAS_ROD',then
				tb, MELAS, 108, 6, 18
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000855, 1000000.0
				tbpt, , 0.00004274, 5000000.0
				tbpt, , 0.00008547, 10000000.0
				tbpt, , 0.00012821, 15000000.0
				tbpt, , 0.00017097, 20000000.0
				tbpt, , 0.00021402, 25000000.0
				tbpt, , 0.00025895, 30000000.0
				tbpt, , 0.00031301, 35000000.0
				tbpt, , 0.00040209, 40000000.0
				tbpt, , 0.00060459, 45000000.0
				tbpt, , 0.00112834, 50000000.0
				tbpt, , 0.00247009, 55000000.0
				tbpt, , 0.00572122, 60000000.0
				tbpt, , 0.01311838, 65000000.0
				tbpt, , 0.02898525, 70000000.0
				tbtemp, 50
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000862, 1000000.0
				tbpt, , 0.0000431, 5000000.0
				tbpt, , 0.00008621, 10000000.0
				tbpt, , 0.00012931, 15000000.0
				tbpt, , 0.00017252, 20000000.0
				tbpt, , 0.00021674, 25000000.0
				tbpt, , 0.00026768, 30000000.0
				tbpt, , 0.00035111, 35000000.0
				tbpt, , 0.00055938, 40000000.0
				tbpt, , 0.00117174, 45000000.0
				tbpt, , 0.00292875, 50000000.0
				tbpt, , 0.00760041, 55000000.0
				tbpt, , 0.01907548, 60000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000877, 1000000.0
				tbpt, , 0.00004386, 5000000.0
				tbpt, , 0.00008772, 10000000.0
				tbpt, , 0.00013159, 15000000.0
				tbpt, , 0.00017571, 20000000.0
				tbpt, , 0.00022241, 25000000.0
				tbpt, , 0.00028628, 30000000.0
				tbpt, , 0.00043304, 35000000.0
				tbpt, , 0.00089834, 40000000.0
				tbpt, , 0.00239474, 45000000.0
				tbpt, , 0.00681187, 50000000.0
				tbpt, , 0.01866614, 55000000.0
				tbtemp, 150
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000893, 1000000.0
				tbpt, , 0.00004464, 5000000.0
				tbpt, , 0.00008929, 10000000.0
				tbpt, , 0.00013393, 15000000.0
				tbpt, , 0.00017901, 20000000.0
				tbpt, , 0.00022835, 25000000.0
				tbpt, , 0.00030598, 30000000.0
				tbpt, , 0.00052029, 35000000.0
				tbpt, , 0.00125983, 40000000.0
				tbpt, , 0.00369951, 45000000.0
				tbpt, , 0.01095508, 50000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000909, 1000000.0
				tbpt, , 0.00004545, 5000000.0
				tbpt, , 0.00009091, 10000000.0
				tbpt, , 0.0001364, 15000000.0
				tbpt, , 0.00018256, 20000000.0
				tbpt, , 0.00023594, 25000000.0
				tbpt, , 0.00033711, 30000000.0
				tbpt, , 0.00066906, 35000000.0
				tbpt, , 0.00188793, 40000000.0
				tbpt, , 0.00597768, 45000000.0
				tbpt, , 0.01819961, 50000000.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00000926, 1000000.0
				tbpt, , 0.0000463, 5000000.0
				tbpt, , 0.00009259, 10000000.0
				tbpt, , 0.00013899, 15000000.0
				tbpt, , 0.00018749, 20000000.0
				tbpt, , 0.00025828, 25000000.0
				tbpt, , 0.00047691, 30000000.0
				tbpt, , 0.0014094, 35000000.0
				tbpt, , 0.00508525, 40000000.0
				tbpt, , 0.01764125, 45000000.0
			*endif			
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO_TUBE',then
				tb, BISO, 108, 6, 2,
				tbtemp, 20   
				tbdata, , 62e6, 6290980
				tbtemp, 50  
				tbdata,, 55e6, 5656904
				tbtemp, 100  
				tbdata,, 50e6, 4415040
				tbtemp, 150  
				tbdata,, 48e6, 4941021
				tbtemp, 200  
				tbdata,, 46e6, 4195803
				tbtemp, 250  
				tbdata,, 40e6, 4678030
			*endif

			*if,PROP_ARRAY(1,I),eq,'BISO_PLATE',then
				tb, BISO, 108, 6, 2,
				tbtemp, 20   
				tbdata, , 69e6, 37069713 
				tbtemp, 50  
				tbdata,, 62e6, 15894259
				tbtemp, 100  
				tbdata,, 56e6, 6888874
				tbtemp, 150  
				tbdata,, 54e6, 7683731
				tbtemp, 200  
				tbdata,, 51e6, 9584172
				tbtemp, 250  
				tbdata,, 45e6, 6143910
			*endif

			*if,PROP_ARRAY(1,I),eq,'BISO_ROD',then
				tb, BISO, 108, 6, 2,
				tbtemp, 20   
				tbdata, , 55e6, 5657141
				tbtemp, 50  
				tbdata,, 49e6, 6193204
				tbtemp, 100  
				tbdata,, 45e6, 6145753
				tbtemp, 150  
				tbdata,, 43e6, 10314329
				tbtemp, 200  
				tbdata,, 41e6, 6130576
				tbtemp, 250  
				tbdata,, 37e6, 6160727
			*endif
        			
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO_TUBE',then
				tb, PLASTIC, 108, 6, 4, MISO
				tbtemp, 20
				tbpt, , 0.00271, 62000000.0
				tbpt, , 0.00819805, 70000000.0
				tbpt, , 0.0168739, 75000000.0
				tbpt, , 0.03369876, 80000000.0
				tbtemp, 50
				tbpt, , 0.00247414, 55000000.0
				tbpt, , 0.00572564, 60000000.0
				tbpt, , 0.01312317, 65000000.0
				tbpt, , 0.02899041, 70000000.0
				tbtemp, 100
				tbpt, , 0.0024386, 50000000.0
				tbpt, , 0.00618869, 55000000.0
				tbpt, , 0.01538648, 60000000.0
				tbpt, , 0.03641338, 65000000.0
				tbtemp, 150
				tbpt, , 0.00240, 48000000.0
				tbpt, , 0.00358005, 50000000.0
				tbpt, , 0.00943166, 55000000.0
				tbpt, , 0.02381878, 60000000.0
				tbtemp, 200
				tbpt, , 0.00268, 46000000.0
				tbpt, , 0.00545908, 50000000.0
				tbpt, , 0.01477853, 55000000.0
				tbpt, , 0.03772958, 60000000.0
				tbtemp, 250
				tbpt, , 0.00237383, 40000000.0
				tbpt, , 0.00772703, 45000000.0
				tbpt, , 0.02375035, 50000000.0
			*endif

			*if,PROP_ARRAY(1,I),eq,'MISO_PLATE',then
				tb, PLASTIC, 108, 6, 4, MISO
				tbtemp, 20
				tbpt, , 0.00267, 69000000.0
				tbpt, , 0.00294127, 70000000.0
				tbtemp, 50
				tbpt, , 0.00272, 62000000.0
				tbpt, , 0.00392367, 65000000.0
				tbpt, , 0.00820321, 70000000.0
				tbtemp, 100
				tbpt, , 0.00266, 56000000.0
				tbpt, , 0.00479826, 60000000.0
				tbpt, , 0.01087424, 65000000.0
				tbpt, , 0.0238971,  70000000.0
				tbtemp, 150
				tbpt, , 0.00268, 54000000.0
				tbpt, , 0.00293838, 55000000.0
				tbpt, , 0.00690899, 60000000.0
				tbpt, , 0.01595289, 65000000.0
				tbtemp, 200
				tbpt, , 0.00267, 51000000.0
				tbpt, , 0.00508931, 55000000.0
				tbpt, , 0.01249694, 60000000.0
				tbtemp, 250
				tbpt, , 0.00241667, 45000000.0
				tbpt, , 0.00683623, 50000000.0
				tbpt, , 0.01869295, 55000000.0
			*endif

			*if,PROP_ARRAY(1,I),eq,'MISO_ROD',then
				tb, PLASTIC, 108, 6, 4, MISO
				tbtemp, 20
				tbpt, , 0.00247009, 55000000.0
				tbpt, , 0.00572122, 60000000.0
				tbpt, , 0.01311838, 65000000.0
				tbpt, , 0.02898525, 70000000.0
				tbtemp, 50
				tbpt, , 0.00257735, 49000000.0
				tbpt, , 0.00760041, 55000000.0
				tbpt, , 0.01907548, 60000000.0
				tbtemp, 100
				tbpt, , 0.00239474, 45000000.0
				tbpt, , 0.00681187, 50000000.0
				tbpt, , 0.01866614, 55000000.0
				tbtemp, 150
				tbpt, , 0.00272364, 43000000.0
				tbpt, , 0.00369951, 45000000.0
				tbpt, , 0.01095508, 50000000.0
				tbtemp, 200
				tbpt, , 0.00270588, 41000000.0
				tbpt, , 0.00597768, 45000000.0
				tbpt, , 0.01819961, 50000000.0
				tbtemp, 250
				tbpt, , 0.00287974, 37000000.0
				tbpt, , 0.00508525, 40000000.0
				tbpt, , 0.01764125, 45000000.0
			*endif	
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN_TUBE',then
				tb, BKIN, 108, 6, 2,
				tbtemp, 20   
				tbdata, , 62e6, 6290980
				tbtemp, 50  
				tbdata,, 55e6, 5656904
				tbtemp, 100  
				tbdata,, 50e6, 4415040
				tbtemp, 150  
				tbdata,, 48e6, 4941021
				tbtemp, 200  
				tbdata,, 46e6, 4195803
				tbtemp, 250  
				tbdata,, 40e6, 4678030
			*endif

			*if,PROP_ARRAY(1,I),eq,'BKIN_PLATE',then
				tb, BKIN, 108, 6, 2,
				tbtemp, 20   
				tbdata, , 69e6, 37069713 
				tbtemp, 50  
				tbdata,, 62e6, 15894259
				tbtemp, 100  
				tbdata,, 56e6, 6888874
				tbtemp, 150  
				tbdata,, 54e6, 7683731
				tbtemp, 200  
				tbdata,, 51e6, 9584172
				tbtemp, 250  
				tbdata,, 45e6, 6143910
			*endif

			*if,PROP_ARRAY(1,I),eq,'BKIN_ROD',then
				tb, BKIN, 108, 6, 2,
				tbtemp, 20   
				tbdata, , 55e6, 5657141
				tbtemp, 50  
				tbdata,, 49e6, 6193204
				tbtemp, 100  
				tbdata,, 45e6, 6145753
				tbtemp, 150  
				tbdata,, 43e6, 10314329
				tbtemp, 200  
				tbdata,, 41e6, 6130576
				tbtemp, 250  
				tbdata,, 37e6, 6160727
			*endif
		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH_TUBE',then
				tb, PLASTIC, 108, 6, 4, KINH
				tbtemp, 20
				tbpt, , 0.00271, 62000000.0
				tbpt, , 0.00819805, 70000000.0
				tbpt, , 0.0168739, 75000000.0
				tbpt, , 0.03369876, 80000000.0
				tbtemp, 50
				tbpt, , 0.00247414, 55000000.0
				tbpt, , 0.00572564, 60000000.0
				tbpt, , 0.01312317, 65000000.0
				tbpt, , 0.02899041, 70000000.0
				tbtemp, 100
				tbpt, , 0.0024386, 50000000.0
				tbpt, , 0.00618869, 55000000.0
				tbpt, , 0.01538648, 60000000.0
				tbpt, , 0.03641338, 65000000.0
				tbtemp, 150
				tbpt, , 0.00240, 48000000.0
				tbpt, , 0.00358005, 50000000.0
				tbpt, , 0.00943166, 55000000.0
				tbpt, , 0.02381878, 60000000.0
				tbtemp, 200
				tbpt, , 0.00268, 46000000.0
				tbpt, , 0.00545908, 50000000.0
				tbpt, , 0.01477853, 55000000.0
				tbpt, , 0.03772958, 60000000.0
				tbtemp, 250
				tbpt, , 0.00237383, 40000000.0
				tbpt, , 0.00772703, 45000000.0
				tbpt, , 0.02375035, 50000000.0
			*endif

			*if,PROP_ARRAY(1,I),eq,'KINH_PLATE',then
				tb, PLASTIC, 108, 6, 4, KINH
				tbtemp, 20
				tbpt, , 0.00267, 69000000.0
				tbpt, , 0.00294127, 70000000.0
				tbtemp, 50
				tbpt, , 0.00272, 62000000.0
				tbpt, , 0.00392367, 65000000.0
				tbpt, , 0.00820321, 70000000.0
				tbtemp, 100
				tbpt, , 0.00266, 56000000.0
				tbpt, , 0.00479826, 60000000.0
				tbpt, , 0.01087424, 65000000.0
				tbpt, , 0.0238971,  70000000.0
				tbtemp, 150
				tbpt, , 0.00268, 54000000.0
				tbpt, , 0.00293838, 55000000.0
				tbpt, , 0.00690899, 60000000.0
				tbpt, , 0.01595289, 65000000.0
				tbtemp, 200
				tbpt, , 0.00267, 51000000.0
				tbpt, , 0.00508931, 55000000.0
				tbpt, , 0.01249694, 60000000.0
				tbtemp, 250
				tbpt, , 0.00241667, 45000000.0
				tbpt, , 0.00683623, 50000000.0
				tbpt, , 0.01869295, 55000000.0
			*endif

			*if,PROP_ARRAY(1,I),eq,'KINH_ROD',then
				tb, PLASTIC, 108, 6, 4, KINH
				tbtemp, 20
				tbpt, , 0.00247009, 55000000.0
				tbpt, , 0.00572122, 60000000.0
				tbpt, , 0.01311838, 65000000.0
				tbpt, , 0.02898525, 70000000.0
				tbtemp, 50
				tbpt, , 0.00257735, 49000000.0
				tbpt, , 0.00760041, 55000000.0
				tbpt, , 0.01907548, 60000000.0
				tbtemp, 100
				tbpt, , 0.00239474, 45000000.0
				tbpt, , 0.00681187, 50000000.0
				tbpt, , 0.01866614, 55000000.0
				tbtemp, 150
				tbpt, , 0.00272364, 43000000.0
				tbpt, , 0.00369951, 45000000.0
				tbpt, , 0.01095508, 50000000.0
				tbtemp, 200
				tbpt, , 0.00270588, 41000000.0
				tbpt, , 0.00597768, 45000000.0
				tbpt, , 0.01819961, 50000000.0
				tbtemp, 250
				tbpt, , 0.00287974, 37000000.0
				tbpt, , 0.00508525, 40000000.0
				tbpt, , 0.01764125, 45000000.0
			*endif	
			
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_PLATE_108',then
				*dim, SY_MIN_PLATE_108, table, 11,,, TEMP
				*taxis, SY_MIN_PLATE_108(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_PLATE_108(10), 1, 450.0, 500.0, 
				SY_MIN_PLATE_108(1)=69000000.0, 62000000.0, 56000000.0, 54000000.0, 51000000.0, 45000000.0, 43000000.0, 40000000.0, 37000000.0, 34000000.0, 32000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SY_MIN_TUBE_108',then
				*dim, SY_MIN_TUBE_108, table, 11,,, TEMP
				*taxis, SY_MIN_TUBE_108(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_TUBE_108(10), 1, 450.0, 500.0, 
				SY_MIN_TUBE_108(1)=62000000.0, 55000000.0, 50000000.0, 48000000.0, 46000000.0, 40000000.0, 37000000.0, 35000000.0, 33000000.0, 30000000.0, 28000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SY_MIN_ROD_108',then
				*dim, SY_MIN_ROD_108, table, 11,,, TEMP
				*taxis, SY_MIN_ROD_108(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_ROD_108(10), 1, 450.0, 500.0, 
				SY_MIN_ROD_108(1)=55000000.0, 49000000.0, 45000000.0, 43000000.0, 41000000.0, 37000000.0, 35000000.0, 32000000.0, 30000000.0, 28000000.0, 26000000.0, 
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_108',then
		
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_108',then
				*dim, SU_MIN_108, table, 11,,, TEMP
				*taxis, SU_MIN_108(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SU_MIN_108(10), 1, 450.0, 500.0, 
				SU_MIN_108(1)=200000000.0, 192000000.0, 178000000.0, 165000000.0, 152000000.0, 139000000.0, 127000000.0, 116000000.0, 104000000.0, 93000000.0, 83000000.0, 
			*endif
		
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_108',then
			
			*endif
		
		! Average uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_AV_108',then
				*dim, EUNIF_AV_108, table, 12,,, TEMP
				*taxis, EUNIF_AV_108(1), 1, 20.0, 50, 100.0, 200.0, 300.0, 400.0, 500.0, 600.0, 700.0,
				*taxis, EUNIF_AV_108(10), 1, 800.0, 900.0, 950.0 
				EUNIF_AV_108(1)= 5.09E-01, 4.88E-01, 4.55E-01, 3.92E-01, 3.34E-01, 2.81E-01, 2.32E-01, 1.89E-01, 1.50E-01, 1.16E-01, 8.71E-02
				EUNIF_AV_108(10)= 7.45E-02
			*endif
			
		! Average total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_AV_108',then
				*dim, ETOT_AV_108, table, 12,,, TEMP
				*taxis, ETOT_AV_108(1), 1, 20.0, 50, 100.0, 200.0, 300.0, 400.0, 500.0, 600.0, 700.0,
				*taxis, ETOT_AV_108(10), 1, 800.0, 900.0, 950.0 
				ETOT_AV_108(1)= 6.11E-01, 5.86E-01, 5.47E-01, 4.80E-01, 4.26E-01, 3.84E-01, 3.57E-01, 3.42E-01, 3.40E-01, 3.52E-01, 3.76E-01
				ETOT_AV_108(10)= 3.93E-01
			*endif
		
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_AV_108',then
				*dim, STRAIN_RUPT_AV_108, table, 3,,, TEMP
				*taxis, STRAIN_RUPT_AV_108(1), 1, 20, 100, 250
				STRAIN_RUPT_AV_108(1)= 1.20, 1.20, 1.39
			*endif
		
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_PLATE_108',then
				*dim, SM_PLATE_108, table, 11,,, TEMP
				*taxis, SM_PLATE_108(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_PLATE_108(10), 1, 450.0, 500.0, 
				SM_PLATE_108(1)=46000000.0, 41000000.0, 37000000.0, 36000000.0, 34000000.0, 30000000.0, 29000000.0, 27000000.0, 25000000.0, 23000000.0, 21000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SM_TUBE_108',then
				*dim, SM_TUBE_108, table, 11,,, TEMP
				*taxis, SM_TUBE_108(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_TUBE_108(10), 1, 450.0, 500.0, 
				SM_TUBE_108(1)=41000000.0, 37000000.0, 33000000.0, 32000000.0, 31000000.0, 26000000.0, 25000000.0, 23000000.0, 22000000.0, 20000000.0, 19000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SM_ROD_108',then
				*dim, SM_ROD_108, table, 11,,, TEMP
				*taxis, SM_ROD_108(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_ROD_108(10), 1, 450.0, 500.0, 
				SM_ROD_108(1)=37000000.0, 33000000.0, 30000000.0, 28000000.0, 27000000.0, 24000000.0, 23000000.0, 22000000.0, 20000000.0, 19000000.0, 17000000.0, 
			*endif
			
			! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_108',then
				*dim, FATIGUE_STRAIN_108, table, 20,2,, N,TEMP
				*taxis, FATIGUE_STRAIN_108(1,1), 1, 1.00E+01, 2.00E+01, 4.00E+01, 1.00E+02, 2.00E+02, 4.00E+02, 1.00E+03, 2.00E+03, 4.00E+03,
				*taxis, FATIGUE_STRAIN_108(10,1), 1, 1.00E+04, 2.00E+04, 4.00E+04, 1.00E+05, 2.00E+05, 4.00E+05, 1.00E+06, 5.00E+06, 1.00E+07, 
				*taxis, FATIGUE_STRAIN_108(19,1), 1, 5.00E+07, 1.00E+08
				*taxis, FATIGUE_STRAIN_108(1,1), 2, 20, 300
				FATIGUE_STRAIN_108(1,1)= 2.70E-02, 1.90E-02, 1.35E-02, 8.80E-03, 6.60E-03, 5.00E-03, 3.70E-03, 3.00E-03, 2.50E-03, 2.10E-03, 1.80E-03, 
				FATIGUE_STRAIN_108(12,1)= 1.50E-03, 1.20E-03, 1.00E-03, 9.00E-04, 8.00E-04, 7.00E-04, 6.00E-04, 5.50E-04, 5.00E-04
				FATIGUE_STRAIN_108(1,2)= 2.70E-02, 1.90E-02, 1.35E-02, 8.80E-03, 6.60E-03, 5.00E-03, 3.70E-03, 3.00E-03, 2.50E-03, 2.10E-03, 1.80E-03, 
				FATIGUE_STRAIN_108(12,2)= 1.50E-03, 1.20E-03, 1.00E-03, 9.00E-04, 8.00E-04, 7.00E-04, 6.00E-04, 5.50E-04, 5.00E-04
			*endif	
			
		*enddo
	*endif
    
    !------------------------------------------------------------------------------
	!Material 109. Copper-Chromium-Zirconium Alloy.
	!SDC-IC A.S31 Copper-Chromium-Zirconium alloy – CuCrZr-IG
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,9),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(9),then

		! Define the material tag (MAT_TAG)
		MAT_CUCRZR=109
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 400.0, 450.0, 500.0, 
				mptemp,  11, 550.0, 600.0, 
				mpdata, ALPX,   109,    1, 1.67e-05, 1.7e-05, 1.73e-05, 1.75e-05, 1.77e-05, 
				mpdata, ALPX,   109,    6, 1.78e-05, 1.8e-05, 1.81e-05, 1.82e-05, 1.84e-05, 
				mpdata, ALPX,   109,    11, 1.85e-05, 1.86e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 400.0, 450.0, 500.0, 
				mptemp,  11, 550.0, 600.0, 
				mpdata, CTEX,   109,    1, 1.67e-05, 1.72e-05, 1.76e-05, 1.8e-05, 1.84e-05, 
				mpdata, CTEX,   109,    6, 1.86e-05, 1.86e-05, 
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
                mptemp,  6, 300.0, 350.0, 400.0, 450.0, 500.0, 
                mptemp,  11, 600.0, 700.0, 
                mpdata, EX,   109,    1, 127.5e9, 127.0e9, 125.0e9, 123.0e9, 121.0e9, 
                mpdata, EX,   109,    6, 118.0e9, 116.0e9, 113.0e9, 110.0e9, 106.0e9, 
                mpdata, EX,   109,    11, 95.0e9, 86.0e9,
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 109, 0.33
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, DENS,   109,    1, 8900.0, 8886.0, 8863.0, 8840.0, 8816.0, 
                mpdata, DENS,   109,    6, 8791.0, 8767.0, 8742.0, 8716.0, 8691.0, 
                mpdata, DENS,   109,    11, 8665.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, KXX,   109,    1, 318.0, 324.0, 333.0, 339.0, 343.0, 
                mpdata, KXX,   109,    6, 345.0, 346.0, 347.0, 347.0, 346.0, 
                mpdata, KXX,   109,    11, 346.0, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mpdata, C,   109,    1, 390.0, 393.0, 398.0, 402.0, 407.0, 
                mpdata, C,   109,    6, 412.0, 417.0, 422.0, 427.0, 432.0, 
                mpdata, C,   109,    11, 437.0, 442.0, 447.0, 452.0, 458.0, 
			*endif
			
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS_B',then
				tb, MELAS, 109, 7, 20
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00007968, 10000800.0
				tbpt, , 0.00039833, 50019920.0
				tbpt, , 0.0007965, 100079700.0
				tbpt, , 0.00095572, 120114700.0
				tbpt, , 0.00111492, 140156200.0
				tbpt, , 0.00127416, 160204000.0
				tbpt, , 0.00143459, 180258400.0
				tbpt, , 0.00161122, 200322500.0
				tbpt, , 0.00173579, 210364800.0
				tbpt, , 0.0019558, 220430700.0
				tbpt, , 0.00245168, 230564600.0
				tbpt, , 0.00370801, 240891600.0
				tbpt, , 0.00495814, 246217800.0
				tbpt, , 0.00696923, 251748400.0
				tbpt, , 0.01018539, 257610500.0
				tbpt, , 0.01528756, 264005300.0
				tbpt, , 0.02330388, 271248000.0
				tbpt, , 0.03575737, 279829200.0
				tbpt, , 0.05484939, 290504900.0
				tbtemp, 50
				tbpt, , 0.000, 0.0
				tbpt, , 0.00007874, 10000790.0
				tbpt, , 0.00039362, 50019690.0
				tbpt, , 0.00078709, 100078700.0
				tbpt, , 0.00094444, 120113400.0
				tbpt, , 0.00110176, 140154300.0
				tbpt, , 0.00125917, 160201600.0
				tbpt, , 0.00141861, 180255500.0
				tbpt, , 0.00160543, 200321300.0
				tbpt, , 0.00176007, 210369900.0
				tbpt, , 0.0020759, 220457200.0
				tbpt, , 0.00285751, 230658200.0
				tbpt, , 0.0049221, 241184200.0
				tbpt, , 0.00700235, 246721600.0
				tbpt, , 0.01036217, 252604000.0
				tbpt, , 0.01574239, 259046100.0
				tbpt, , 0.02427008, 266387400.0
				tbpt, , 0.03762555, 275160700.0
				tbpt, , 0.05824885, 286194300.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00008, 10000800.0
				tbpt, , 0.00039992, 50020000.0
				tbpt, , 0.00079968, 100080000.0
				tbpt, , 0.00095954, 120115200.0
				tbpt, , 0.00111938, 140156800.0
				tbpt, , 0.00127947, 160204800.0
				tbpt, , 0.00144438, 180260200.0
				tbpt, , 0.00167418, 200335100.0
				tbpt, , 0.00193407, 210406500.0
				tbpt, , 0.00257557, 220567400.0
				tbpt, , 0.00431869, 230995400.0
				tbpt, , 0.00908865, 242191200.0
				tbpt, , 0.01393533, 248438100.0
				tbpt, , 0.02176731, 255501500.0
				tbpt, , 0.03426796, 263889800.0
				tbpt, , 0.05393175, 274407300.0
				tbtemp, 150
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000813, 10000810.0
				tbpt, , 0.00040642, 50020330.0
				tbpt, , 0.00081268, 100081300.0
				tbpt, , 0.00097513, 120117100.0
				tbpt, , 0.0011376, 140159400.0
				tbpt, , 0.00130084, 160208300.0
				tbpt, , 0.00147897, 180266400.0
				tbpt, , 0.00185623, 200371600.0
				tbpt, , 0.00248963, 210523500.0
				tbpt, , 0.00429235, 220946300.0
				tbpt, , 0.00946011, 232186100.0
				tbpt, , 0.02379172, 245778500.0
				tbpt, , 0.03829749, 254564900.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00008264, 10000830.0
				tbpt, , 0.00041314, 50020660.0
				tbpt, , 0.0008261, 100082600.0
				tbpt, , 0.00099125, 120119000.0
				tbpt, , 0.00115646, 140162000.0
				tbpt, , 0.00132427, 160212000.0
				tbpt, , 0.00154028, 180277500.0
				tbpt, , 0.00240024, 200480600.0
				tbpt, , 0.00426698, 210898000.0
				tbpt, , 0.00633195, 216365700.0
				tbpt, , 0.0098976, 222188300.0
				tbpt, , 0.01598741, 228626100.0
				tbpt, , 0.02625016, 236117500.0
				tbpt, , 0.04327302, 245392400.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00008474, 10000850.0
				tbpt, , 0.00042364, 50021190.0
				tbpt, , 0.0008471, 100084700.0
				tbpt, , 0.00101644, 120122000.0
				tbpt, , 0.00118613, 140166200.0
				tbpt, , 0.00136602, 160218700.0
				tbpt, , 0.00173342, 180312300.0
				tbpt, , 0.00460257, 200922600.0
				tbpt, , 0.01159445, 212449000.0
				tbpt, , 0.01942862, 219218000.0
				tbpt, , 0.03293457, 227366200.0
				tbpt, , 0.05577651, 237906300.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000862, 10000860.0
				tbpt, , 0.00043094, 50021550.0
				tbpt, , 0.0008617, 100086200.0
				tbpt, , 0.00103399, 120124100.0
				tbpt, , 0.00120805, 140169200.0
				tbpt, , 0.00143134, 160229200.0
				tbpt, , 0.00255666, 180460800.0
				tbpt, , 0.01564498, 203153600.0
				tbpt, , 0.04818794, 220367300.0
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'MELAS_C',then
				tb, MELAS, 109, 7, 20
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00007968, 10000800.0
				tbpt, , 0.00039833, 50019920.0
				tbpt, , 0.00079788, 100079800.0
				tbpt, , 0.00097053, 120116500.0
				tbpt, , 0.00122474, 140171600.0
				tbpt, , 0.00189697, 160303800.0
				tbpt, , 0.00224296, 165370500.0
				tbpt, , 0.00272293, 170463500.0
				tbpt, , 0.00338867, 175594000.0
				tbpt, , 0.00430951, 180777400.0
				tbpt, , 0.00557729, 186034700.0
				tbpt, , 0.00731263, 191394500.0
				tbpt, , 0.0096724, 196895300.0
				tbpt, , 0.01285875, 202588400.0
				tbpt, , 0.01712947, 208541800.0
				tbpt, , 0.02280981, 214845100.0
				tbpt, , 0.03030524, 221615400.0
				tbpt, , 0.04011445, 229004600.0
				tbpt, , 0.05284144, 237209100.0
				tbtemp, 50
				tbpt, , 0.000, 0.0
				tbpt, , 0.00007874, 10000790.0
				tbpt, , 0.00039362, 50019690.0
				tbpt, , 0.00078882, 100078900.0
				tbpt, , 0.00096298, 120115600.0
				tbpt, , 0.00123926, 140173600.0
				tbpt, , 0.00203889, 160326600.0
				tbpt, , 0.00246152, 165406700.0
				tbpt, , 0.00305181, 170519600.0
				tbpt, , 0.00387456, 175679400.0
				tbpt, , 0.00501635, 180905200.0
				tbpt, , 0.00659187, 186223500.0
				tbpt, , 0.00875151, 191670100.0
				tbpt, , 0.01169058, 197293000.0
				tbpt, , 0.0156601, 203156700.0
				tbpt, , 0.02097922, 209346200.0
				tbpt, , 0.02804883, 215973600.0
				tbpt, , 0.03736582, 223185600.0
				tbpt, , 0.04953664, 231172500.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.00008, 10000800.0
				tbpt, , 0.00039992, 50020000.0
				tbpt, , 0.00080243, 100080300.0
				tbpt, , 0.00098895, 120118700.0
				tbpt, , 0.00133752, 140187400.0
				tbpt, , 0.00251616, 160403100.0
				tbpt, , 0.0031639, 165522900.0
				tbpt, , 0.00407727, 170694600.0
				tbpt, , 0.00535863, 175940300.0
				tbpt, , 0.00714459, 181290600.0
				tbpt, , 0.00961558, 186787500.0
				tbpt, , 0.01300739, 192487500.0
				tbpt, , 0.01762466, 198467300.0
				tbpt, , 0.02385632, 204828600.0
				tbpt, , 0.03219222, 211706800.0
				tbpt, , 0.04324002, 219279600.0
				tbtemp, 150
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000813, 10000810.0
				tbpt, , 0.00040642, 50020330.0
				tbpt, , 0.00081677, 100081700.0
				tbpt, , 0.00101891, 120122300.0
				tbpt, , 0.0014622, 140204900.0
				tbpt, , 0.00314027, 160503200.0
				tbpt, , 0.00408471, 165675400.0
				tbpt, , 0.00542367, 170924500.0
				tbpt, , 0.00730872, 176283700.0
				tbpt, , 0.00994162, 181798400.0
				tbpt, , 0.01358793, 187530900.0
				tbpt, , 0.01859306, 193565700.0
				tbpt, , 0.02540038, 200016500.0
				tbpt, , 0.03457081, 207035100.0
				tbpt, , 0.04680224, 214822500.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00008264, 10000830.0
				tbpt, , 0.00041314, 50020660.0
				tbpt, , 0.00083281, 100083300.0
				tbpt, , 0.00106296, 120127600.0
				tbpt, , 0.00168818, 140236500.0
				tbpt, , 0.00433479, 160695100.0
				tbpt, , 0.00585473, 165968900.0
				tbpt, , 0.00801862, 171368600.0
				tbpt, , 0.01107228, 176948400.0
				tbpt, , 0.01534138, 182782700.0
				tbpt, , 0.02125184, 188973700.0
				tbpt, , 0.02935247, 195659600.0
				tbpt, , 0.04033885, 203026900.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00008474, 10000850.0
				tbpt, , 0.00042364, 50021190.0
				tbpt, , 0.00085737, 100085800.0
				tbpt, , 0.00112627, 120135200.0
				tbpt, , 0.0020001, 140280300.0
				tbpt, , 0.00596621, 160957400.0
				tbpt, , 0.00826857, 166370000.0
				tbpt, , 0.0115521, 171975200.0
				tbpt, , 0.01618805, 177856000.0
				tbpt, , 0.02266526, 184126300.0
				tbpt, , 0.03161723, 190942600.0
				tbpt, , 0.04385013, 198516900.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.0000862, 10000860.0
				tbpt, , 0.00043094, 50021550.0
				tbpt, , 0.00087915, 100088000.0
				tbpt, , 0.00122067, 120146600.0
				tbpt, , 0.00259024, 140363100.0
				tbpt, , 0.00920505, 161479600.0
				tbpt, , 0.01307496, 167171500.0
				tbpt, , 0.01859582, 173190900.0
				tbpt, , 0.02638145, 179678200.0
				tbpt, , 0.0372298, 186827700.0
				tbpt, , 0.05215648, 194905000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO_B',then
				tb, BISO, 109, 6, 2,
				tbtemp, 20   
				tbdata, , 241e6, 9701205
				tbtemp, 50  
				tbdata,, 237e6, 8440436
				tbtemp, 100  
				tbdata,, 229e6, 8750095
				tbtemp, 150  
				tbdata,, 220e6, 9886329
				tbtemp, 200  
				tbdata,, 210e6, 8843348
				tbtemp, 300  
				tbdata,, 185e6, 8745426
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'BISO_C',then
				tb, BISO, 109, 6, 2,
				tbtemp, 20   
				tbdata, , 175e6, 12459383
				tbtemp, 50  
				tbdata,, 172e6, 13047891
				tbtemp, 100  
				tbdata,, 166e6, 13413649
				tbtemp, 150  
				tbdata,, 161e6, 12440872
				tbtemp, 200  
				tbdata,, 155e6, 11757507
				tbtemp, 300  
				tbdata,, 144e6, 11003841	
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO_B',then
				tb, PLASTIC, 109, 7, 8, MISO
				tbtemp, 20
				tbpt, , 0.00373345, 241000000.0
				tbpt, , 0.00495814, 246217800.0
				tbpt, , 0.00696923, 251748400.0
				tbpt, , 0.01018539, 257610500.0
				tbpt, , 0.01528756, 264005300.0
				tbpt, , 0.02330388, 271248000.0
				tbpt, , 0.03575737, 279829200.0
				tbpt, , 0.05484939, 290504900.0
				tbtemp, 50
				tbpt, , 0.0041014, 237000000.0
				tbpt, , 0.0049221, 241184200.0
				tbpt, , 0.00700235, 246721600.0
				tbpt, , 0.01036217, 252604000.0
				tbpt, , 0.01574239, 259046100.0
				tbpt, , 0.02427008, 266387400.0
				tbpt, , 0.03762555, 275160700.0
				tbpt, , 0.05824885, 286194300.0
				tbtemp, 100
				tbpt, , 0.00398514, 229000000.0
				tbpt, , 0.00908865, 242191200.0
				tbpt, , 0.01393533, 248438100.0
				tbpt, , 0.02176731, 255501500.0
				tbpt, , 0.03426796, 263889800.0
				tbpt, , 0.05393175, 274407300.0
				tbtemp, 150
				tbpt, , 0.00412868, 220000000.0
				tbpt, , 0.00946011, 232186100.0
				tbpt, , 0.02379172, 245778500.0
				tbpt, , 0.03829749, 254564900.0
				tbtemp, 200
				tbpt, , 0.00410606, 210000000.0
				tbpt, , 0.00633195, 216365700.0
				tbpt, , 0.0098976, 222188300.0
				tbpt, , 0.01598741, 228626100.0
				tbpt, , 0.02625016, 236117500.0
				tbpt, , 0.04327302, 245392400.0
				tbtemp, 250
				tbpt, , 0.00419572, 198000000.0
				tbpt, , 0.00460257, 200922600.0
				tbpt, , 0.01159445, 212449000.0
				tbpt, , 0.01942862, 219218000.0
				tbpt, , 0.03293457, 227366200.0
				tbpt, , 0.05577651, 237906300.0
				tbtemp, 300
				tbpt, , 0.00517469, 185000000.0
				tbpt, , 0.01564498, 203153600.0
				tbpt, , 0.04818794, 220367300.0
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'MISO_C',then
				tb, PLASTIC, 109, 7, 11, MISO
				tbtemp, 20
				tbpt, , 0.00331159, 175000000.0
				tbpt, , 0.00430951, 180777400.0
				tbpt, , 0.00557729, 186034700.0
				tbpt, , 0.00731263, 191394500.0
				tbpt, , 0.0096724, 196895300.0
				tbpt, , 0.01285875, 202588400.0
				tbpt, , 0.01712947, 208541800.0
				tbpt, , 0.02280981, 214845100.0
				tbpt, , 0.03030524, 221615400.0
				tbpt, , 0.04011445, 229004600.0
				tbpt, , 0.05284144, 237209100.0
				tbtemp, 50
				tbpt, , 0.00328787, 172000000.0
				tbpt, , 0.00387456, 175679400.0
				tbpt, , 0.00501635, 180905200.0
				tbpt, , 0.00659187, 186223500.0
				tbpt, , 0.00875151, 191670100.0
				tbpt, , 0.01169058, 197293000.0
				tbpt, , 0.0156601, 203156700.0
				tbpt, , 0.02097922, 209346200.0
				tbpt, , 0.02804883, 215973600.0
				tbpt, , 0.03736582, 223185600.0
				tbpt, , 0.04953664, 231172500.0
				tbtemp, 100
				tbpt, , 0.00324816, 166000000.0
				tbpt, , 0.00407727, 170694600.0
				tbpt, , 0.00535863, 175940300.0
				tbpt, , 0.00714459, 181290600.0
				tbpt, , 0.00961558, 186787500.0
				tbpt, , 0.01300739, 192487500.0
				tbpt, , 0.01762466, 198467300.0
				tbpt, , 0.02385632, 204828600.0
				tbpt, , 0.03219222, 211706800.0
				tbpt, , 0.04324002, 219279600.0
				tbtemp, 150
				tbpt, , 0.00323099, 161000000.0
				tbpt, , 0.00408471, 165675400.0
				tbpt, , 0.00542367, 170924500.0
				tbpt, , 0.00730872, 176283700.0
				tbpt, , 0.00994162, 181798400.0
				tbpt, , 0.01358793, 187530900.0
				tbpt, , 0.01859306, 193565700.0
				tbpt, , 0.02540038, 200016500.0
				tbpt, , 0.03457081, 207035100.0
				tbpt, , 0.04680224, 214822500.0
				tbtemp, 200
				tbpt, , 0.00359805, 155000000.0
				tbpt, , 0.00433479, 160695100.0
				tbpt, , 0.00585473, 165968900.0
				tbpt, , 0.00801862, 171368600.0
				tbpt, , 0.01107228, 176948400.0
				tbpt, , 0.01534138, 182782700.0
				tbpt, , 0.02125184, 188973700.0
				tbpt, , 0.02935247, 195659600.0
				tbpt, , 0.04033885, 203026900.0
				tbtemp, 250
				tbpt, , 0.00386445, 150000000.0
				tbpt, , 0.00596621, 160957400.0
				tbpt, , 0.00826857, 166370000.0
				tbpt, , 0.0115521, 171975200.0
				tbpt, , 0.01618805, 177856000.0
				tbpt, , 0.02266526, 184126300.0
				tbpt, , 0.03161723, 190942600.0
				tbpt, , 0.04385013, 198516900.0
				tbtemp, 300
				tbpt, , 0.00372951, 144000000.0
				tbpt, , 0.00920505, 161479600.0
				tbpt, , 0.01307496, 167171500.0
				tbpt, , 0.01859582, 173190900.0
				tbpt, , 0.02638145, 179678200.0
				tbpt, , 0.0372298, 186827700.0
				tbpt, , 0.05215648, 194905000.0
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN_B',then
				tb, BKIN, 109, 6, 2,
				tbtemp, 20   
				tbdata, , 241e6, 9701205
				tbtemp, 50  
				tbdata,, 237e6, 8440436
				tbtemp, 100  
				tbdata,, 229e6, 8750095
				tbtemp, 150  
				tbdata,, 220e6, 9886329
				tbtemp, 200  
				tbdata,, 210e6, 8843348
				tbtemp, 300  
				tbdata,, 185e6, 8745426
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'BKIN_C',then
				tb, BKIN, 109, 6, 2,
				tbtemp, 20   
				tbdata, , 175e6, 12459383
				tbtemp, 50  
				tbdata,, 172e6, 13047891
				tbtemp, 100  
				tbdata,, 166e6, 13413649
				tbtemp, 150  
				tbdata,, 161e6, 12440872
				tbtemp, 200  
				tbdata,, 155e6, 11757507
				tbtemp, 300  
				tbdata,, 144e6, 11003841	
			*endif
		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH_B',then
				tb, PLASTIC, 109, 7, 8, KINH
				tbtemp, 20
				tbpt, , 0.00373345, 241000000.0
				tbpt, , 0.00495814, 246217800.0
				tbpt, , 0.00696923, 251748400.0
				tbpt, , 0.01018539, 257610500.0
				tbpt, , 0.01528756, 264005300.0
				tbpt, , 0.02330388, 271248000.0
				tbpt, , 0.03575737, 279829200.0
				tbpt, , 0.05484939, 290504900.0
				tbtemp, 50
				tbpt, , 0.0041014, 237000000.0
				tbpt, , 0.0049221, 241184200.0
				tbpt, , 0.00700235, 246721600.0
				tbpt, , 0.01036217, 252604000.0
				tbpt, , 0.01574239, 259046100.0
				tbpt, , 0.02427008, 266387400.0
				tbpt, , 0.03762555, 275160700.0
				tbpt, , 0.05824885, 286194300.0
				tbtemp, 100
				tbpt, , 0.00398514, 229000000.0
				tbpt, , 0.00908865, 242191200.0
				tbpt, , 0.01393533, 248438100.0
				tbpt, , 0.02176731, 255501500.0
				tbpt, , 0.03426796, 263889800.0
				tbpt, , 0.05393175, 274407300.0
				tbtemp, 150
				tbpt, , 0.00412868, 220000000.0
				tbpt, , 0.00946011, 232186100.0
				tbpt, , 0.02379172, 245778500.0
				tbpt, , 0.03829749, 254564900.0
				tbtemp, 200
				tbpt, , 0.00410606, 210000000.0
				tbpt, , 0.00633195, 216365700.0
				tbpt, , 0.0098976, 222188300.0
				tbpt, , 0.01598741, 228626100.0
				tbpt, , 0.02625016, 236117500.0
				tbpt, , 0.04327302, 245392400.0
				tbtemp, 250
				tbpt, , 0.00419572, 198000000.0
				tbpt, , 0.00460257, 200922600.0
				tbpt, , 0.01159445, 212449000.0
				tbpt, , 0.01942862, 219218000.0
				tbpt, , 0.03293457, 227366200.0
				tbpt, , 0.05577651, 237906300.0
				tbtemp, 300
				tbpt, , 0.00517469, 185000000.0
				tbpt, , 0.01564498, 203153600.0
				tbpt, , 0.04818794, 220367300.0
			*endif

			*if,PROP_ARRAY(1,I),eq,'KINH_C',then
				tb, PLASTIC, 109, 7, 11, KINH
				tbtemp, 20
				tbpt, , 0.00331159, 175000000.0
				tbpt, , 0.00430951, 180777400.0
				tbpt, , 0.00557729, 186034700.0
				tbpt, , 0.00731263, 191394500.0
				tbpt, , 0.0096724, 196895300.0
				tbpt, , 0.01285875, 202588400.0
				tbpt, , 0.01712947, 208541800.0
				tbpt, , 0.02280981, 214845100.0
				tbpt, , 0.03030524, 221615400.0
				tbpt, , 0.04011445, 229004600.0
				tbpt, , 0.05284144, 237209100.0
				tbtemp, 50
				tbpt, , 0.00328787, 172000000.0
				tbpt, , 0.00387456, 175679400.0
				tbpt, , 0.00501635, 180905200.0
				tbpt, , 0.00659187, 186223500.0
				tbpt, , 0.00875151, 191670100.0
				tbpt, , 0.01169058, 197293000.0
				tbpt, , 0.0156601, 203156700.0
				tbpt, , 0.02097922, 209346200.0
				tbpt, , 0.02804883, 215973600.0
				tbpt, , 0.03736582, 223185600.0
				tbpt, , 0.04953664, 231172500.0
				tbtemp, 100
				tbpt, , 0.00324816, 166000000.0
				tbpt, , 0.00407727, 170694600.0
				tbpt, , 0.00535863, 175940300.0
				tbpt, , 0.00714459, 181290600.0
				tbpt, , 0.00961558, 186787500.0
				tbpt, , 0.01300739, 192487500.0
				tbpt, , 0.01762466, 198467300.0
				tbpt, , 0.02385632, 204828600.0
				tbpt, , 0.03219222, 211706800.0
				tbpt, , 0.04324002, 219279600.0
				tbtemp, 150
				tbpt, , 0.00323099, 161000000.0
				tbpt, , 0.00408471, 165675400.0
				tbpt, , 0.00542367, 170924500.0
				tbpt, , 0.00730872, 176283700.0
				tbpt, , 0.00994162, 181798400.0
				tbpt, , 0.01358793, 187530900.0
				tbpt, , 0.01859306, 193565700.0
				tbpt, , 0.02540038, 200016500.0
				tbpt, , 0.03457081, 207035100.0
				tbpt, , 0.04680224, 214822500.0
				tbtemp, 200
				tbpt, , 0.00359805, 155000000.0
				tbpt, , 0.00433479, 160695100.0
				tbpt, , 0.00585473, 165968900.0
				tbpt, , 0.00801862, 171368600.0
				tbpt, , 0.01107228, 176948400.0
				tbpt, , 0.01534138, 182782700.0
				tbpt, , 0.02125184, 188973700.0
				tbpt, , 0.02935247, 195659600.0
				tbpt, , 0.04033885, 203026900.0
				tbtemp, 250
				tbpt, , 0.00386445, 150000000.0
				tbpt, , 0.00596621, 160957400.0
				tbpt, , 0.00826857, 166370000.0
				tbpt, , 0.0115521, 171975200.0
				tbpt, , 0.01618805, 177856000.0
				tbpt, , 0.02266526, 184126300.0
				tbpt, , 0.03161723, 190942600.0
				tbpt, , 0.04385013, 198516900.0
				tbtemp, 300
				tbpt, , 0.00372951, 144000000.0
				tbpt, , 0.00920505, 161479600.0
				tbpt, , 0.01307496, 167171500.0
				tbpt, , 0.01859582, 173190900.0
				tbpt, , 0.02638145, 179678200.0
				tbpt, , 0.0372298, 186827700.0
				tbpt, , 0.05215648, 194905000.0
			*endif
			
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_A_109',then
				*dim, SY_MIN_A_109, table, 11,,, TEMP
				*taxis, SY_MIN_A_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_A_109(10), 1, 450.0, 500.0, 
				SY_MIN_A_109(1)=407000000.0, 397000000.0, 381000000.0, 365000000.0, 348000000.0, 331000000.0, 313000000.0, 294000000.0, 275000000.0, 254000000.0, 233000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SY_IRR_MIN_A_109',then
				*dim, SY_IRR_MIN_A_109, table, 6,,, TEMP
				*taxis, SY_IRR_MIN_A_109(1), 1, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0 
				SY_IRR_MIN_A_109(1)=485000000.0, 347000000.0, 375000000.0, 259000000.0, 194000000.0, 20000000.0, 
			*endif	

			*if,PROP_ARRAY(1,I),eq,'SY_MIN_B_109',then
				*dim, SY_MIN_B_109, table, 12,,, TEMP
				*taxis, SY_MIN_B_109(1), 1, 20, 50, 80, 100, 150, 200, 250, 300, 350, 
				*taxis, SY_MIN_B_109(10), 1, 400, 450, 500
				SY_MIN_B_109(1)= 241E+6, 237E+6, 232E+6, 229E+6, 220E+6, 210E+6, 198E+6, 185E+6, 171E+6, 155E+6, 138E+6, 120E+6
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SY_IRR_MIN_B_109',then
				*dim, SY_IRR_MIN_B_109, table, 6,,, TEMP
				*taxis, SY_IRR_MIN_B_109(1), 1, 80, 100, 150, 200, 250, 300
				SY_IRR_MIN_B_109(1)= 402E+6, 389E+6, 358E+6, 341E+6, 280E+6, 218E+6
			*endif	
				
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_C_109',then
				*dim, SY_MIN_C_109, table, 11,,, TEMP
				*taxis, SY_MIN_C_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_C_109(10), 1, 450.0, 500.0, 
				SY_MIN_C_109(1)= 175E+6, 172E+6, 166E+6, 161E+6, 155E+6, 150E+6, 144E+6, 139E+6, 133E+6, 127E+6, 121E+6
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_B_109',then
				*dim, SY_AV_B_109, table, 12,,, TEMP
				*taxis, SY_AV_B_109(1), 1, 20, 50, 80, 100, 150, 200, 250, 300, 350, 
				*taxis, SY_AV_B_109(10), 1, 400, 450, 500
				SY_AV_B_109(1)= 287E+6, 283E+6, 278E+6, 275E+6, 266E+6, 256E+6, 244E+6, 231E+6, 217E+6, 201E+6, 184E+6, 166E+6		
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_A_109',then
				*dim, SU_MIN_A_109, table, 11,,, TEMP
				*taxis, SU_MIN_A_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SU_MIN_A_109(10), 1, 450.0, 500.0, 
				SU_MIN_A_109(1)=452000000.0, 432000000.0, 405000000.0, 381000000.0, 361000000.0, 342000000.0, 325000000.0, 307000000.0, 287000000.0, 264000000.0, 238000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SU_IRR_MIN_A_109',then
				*dim, SU_IRR_MIN_A_109, table, 6,,, TEMP
				*taxis, SU_IRR_MIN_A_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 
				SU_IRR_MIN_A_109(1)=490000000.0, 367000000.0, 400000000.0, 283000000.0, 217000000.0, 64000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_B_109',then
				*dim, SU_MIN_B_109, table, 12,,, TEMP
				*taxis, SU_MIN_B_109(1), 1, 20, 50, 80, 100, 150, 200, 250, 300, 350, 
				*taxis, SU_MIN_B_109(10), 1, 400, 450, 500
				SU_MIN_B_109(1)= 369E+6, 356E+6, 348E+6, 336E+6, 317E+6, 297E+6, 278E+6, 259E+6, 238E+6, 216E+6, 193E+6, 167E+6
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SU_IRR_MIN_B_109',then
				*dim, SU_IRR_MIN_B_109, table, 6,,, TEMP
				*taxis, SU_IRR_MIN_B_109(1), 1, 80, 100, 150, 200, 250, 300
				SU_IRR_MIN_B_109(1)= 406E+6, 396E+6, 371E+6, 356E+6, 313E+6, 270E+6
			*endif			
			
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_C_109',then
				*dim, SU_MIN_C_109, table, 11,,, TEMP
				*taxis, SU_MIN_C_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SU_MIN_C_109(10), 1, 450.0, 500.0, 
				SU_MIN_C_109(1)=280E+6, 272E+6, 259E+6, 246E+6, 233E+6, 220E+6, 207E+6, 194E+6, 181E+6, 170E+6, 160E+6
			*endif	

			*if,PROP_ARRAY(1,I),eq,'SU_IRR_MIN_C_109',then
				*dim, SU_IRR_MIN_C_109, table, 5,,, TEMP
				*taxis, SU_IRR_MIN_C_109(1), 1, 100, 150, 200, 250, 300
				SU_IRR_MIN_C_109(1)= 319E+6, 300E+6, 292E+6, 255E+6, 218E+6
			*endif					
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_B_109',then
				*dim, SU_AV_B_109, table, 12,,, TEMP
				*taxis, SU_AV_B_109(1), 1, 20, 50, 80, 100, 150, 200, 250, 300, 350, 
				*taxis, SU_AV_B_109(10), 1, 400, 450, 500
				SU_AV_B_109(1)= 405E+6, 392E+6, 384E+6, 372E+6, 353E+6, 334E+6, 315E+6, 295E+6, 274E+6, 253E+6, 229E+6, 203E+6
			*endif	
			
			*if,PROP_ARRAY(1,I),eq,'SU_IRR_AV_B_109',then
				*dim, SU_IRR_AV_B_109, table, 6,,, TEMP
				*taxis, SU_IRR_AV_B_109(1), 1, 80, 100, 150, 200, 250, 300
				SU_IRR_AV_B_109(1)= 448E+6, 433E+6, 396E+6, 379E+6, 346E+6, 312E+6
			*endif				
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_A_AV_109',then
				*dim, STRAIN_RUPT_A_AV_109, table, 3,,, TEMP
				*taxis, STRAIN_RUPT_A_AV_109(1), 1, 20, 100, 200
				STRAIN_RUPT_A_AV_109(1)= 1.4697, 1.5141, 1.5606

			*endif
		
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_B_AV_109',then
				*dim, STRAIN_RUPT_B_AV_109, table, 3,,, TEMP
				*taxis, STRAIN_RUPT_B_AV_109(1), 1, 20, 100, 200
				STRAIN_RUPT_B_AV_109(1)= 1.2379, 1.1087, 0.9942
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_C_AV_109',then
				*dim, STRAIN_RUPT_C_AV_109, table, 3,,, TEMP
				*taxis, STRAIN_RUPT_C_AV_109(1), 1, 20, 100, 200
				STRAIN_RUPT_C_AV_109(1)= 1.2379, 1.1087, 0.9942
			*endif
		
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_A_109',then
				*dim, SM_A_109, table, 11,,, TEMP
				*taxis, SM_A_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_A_109(10), 1, 450.0, 500.0, 
				SM_A_109(1)=151000000.0, 151000000.0, 150000000.0, 141000000.0, 134000000.0, 127000000.0, 120000000.0, 114000000.0, 106000000.0, 98000000.0, 88000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SM_IRR_A_109',then
				*dim, SM_IRR_A_109, table, 9,,, TEMP
				*taxis, SM_IRR_A_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SM_IRR_A_109(1)=151000000.0, 151000000.0, 150000000.0, 141000000.0, 134000000.0, 127000000.0, 105000000.0, 80000000.0, 13000000.0, 
			*endif		

			*if,PROP_ARRAY(1,I),eq,'SM_B_109',then
				*dim, SM_B_109, table, 11,,, TEMP
				*taxis, SM_B_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_B_109(10), 1, 450.0, 500.0, 
				SM_B_109(1)= 123e6, 123e6, 123e6, 117e6, 110e6, 103e6, 96e6, 88e6, 80e6, 71e6, 62e6
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SM_IRR_B_109',then
				*dim, SM_IRR_B_109, table, 7,,, TEMP
				*taxis, SM_IRR_B_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0
				SM_IRR_B_109(1)= 123e6, 123e6, 123e6, 117e6, 110e6, 103e6, 96e6
			*endif

			*if,PROP_ARRAY(1,I),eq,'SM_C_109',then
				*dim, SM_C_109, table, 11,,, TEMP
				*taxis, SM_C_109(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_C_109(10), 1, 450.0, 500.0, 
				SM_C_109(1)= 93e6, 93e6, 93e6, 91e6, 86e6, 81e6, 77e6, 72e6, 67e6, 63e6, 59e6
			*endif
		
		! Allowable stress intensity: Se
			*if,PROP_ARRAY(1,I),eq,'SE_IRR_A_109',then
				*dim, SE_IRR_A_109, table, 6,,, TEMP
				*taxis, SE_IRR_A_109(1), 1, 150, 200, 250, 300, 350, 400 
				SE_IRR_A_109(1)=163000000.0, 122000000.0, 229000000.0, 294000000.0, 300000000.0, 516000000.0, 
			*endif	
			
			*if,PROP_ARRAY(1,I),eq,'SE_IRR_B_109',then
				*dim, SE_IRR_B_109, table, 6,,, TEMP
				*taxis, SE_IRR_B_109(1), 1, 50, 100, 150, 200, 250, 300
				SE_IRR_B_109(1)= 132e6, 124e6, 119e6, 163e6, 353e6, 449e6  
			*endif
			
		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_109',then
				*dim, FATIGUE_STRAIN_109, table, 16,2,, N,TEMP
				*taxis, FATIGUE_STRAIN_109(1,1), 1, 1.00E+01, 2.00E+01, 4.00E+01, 1.00E+02, 2.00E+02, 4.00E+02, 1.00E+03, 2.00E+03, 4.00E+03, 
				*taxis, FATIGUE_STRAIN_109(10,1), 1, 1.00E+04, 2.00E+04, 4.00E+04, 1.00E+05, 2.00E+05, 4.00E+05, 1.00E+06
				*taxis, FATIGUE_STRAIN_109(1,1), 2, 20, 350
				FATIGUE_STRAIN_109(1,1)= 2.29E-02, 1.78E-02, 1.40E-02, 1.03E-02, 8.24E-03, 6.72E-03, 5.26E-03, 4.47E-03, 3.76E-03, 3.08E-03, 2.63E-03, 
				FATIGUE_STRAIN_109(12,1)= 2.23E-03, 1.85E-03, 1.64E-03, 1.49E-03, 1.34E-03
				FATIGUE_STRAIN_109(1,2)= 2.29E-02, 1.78E-02, 1.40E-02, 1.03E-02, 8.24E-03, 6.72E-03, 5.26E-03, 4.47E-03, 3.76E-03, 3.08E-03, 2.63E-03, 
				FATIGUE_STRAIN_109(12,2)= 2.23E-03, 1.85E-03, 1.64E-03, 1.49E-03, 1.34E-03				
			*endif	
			
		! K_e - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_e_109',then
				*dim, K_e_109, table,3 ,13 ,, TEMP,STRESS
				*taxis, K_e_109(1,1), 1, 20, 200, 350
				*taxis, K_e_109(1,1), 2, 100E+06, 150E+06, 200E+06, 250E+06, 300E+06, 350E+06, 400E+06, 450E+06, 500E+06, 
				*taxis, K_e_109(1,10), 2, 550E+06, 600E+06, 650E+06, 700E+06
				K_e_109(1,1)= 1, 1, 1
				K_e_109(1,2)= 1.001, 1.002, 1.008
				K_e_109(1,3)= 1.009, 1.027, 1.074
				K_e_109(1,4)= 1.055, 1.111, 1.205
				K_e_109(1,5)= 1.146, 1.233, 1.359
				K_e_109(1,6)= 1.258, 1.367, 1.519
				K_e_109(1,7)= 1.377, 1.505, 1.68
				K_e_109(1,8)= 1.499, 1.644, 1.84
				K_e_109(1,9)= 1.622, 1.783, 1.999
				K_e_109(1,10)=1.745, 1.921, 2.156
				K_e_109(1,11)=1.867, 2.058, 2.312
				K_e_109(1,12)=1.989, 2.193, 2.466
				K_e_109(1,13)=2.109, 2.328, 2.619
			*endif	
			
		! K_v - Coefficient for cyclic stress - strain curves
			*if,PROP_ARRAY(1,I),eq,'K_v_109',then	
				*dim, K_v_109, table,3 ,13 ,, TEMP,STRESS
				*taxis, K_v_109(1,1), 1, 20, 200, 350
				*taxis, K_v_109(1,1), 2, 100E+06, 150E+06, 200E+06, 250E+06, 300E+06, 350E+06, 400E+06, 450E+06, 500E+06, 
				*taxis, K_v_109(1,10), 2, 550E+06, 600E+06, 650E+06, 700E+06
				K_v_109(1,1)= 1, 1, 1
				K_v_109(1,2)= 1, 1.001, 1.005
				K_v_109(1,3)= 1.006, 1.017, 1.041
				K_v_109(1,4)= 1.032, 1.059, 1.097
				K_v_109(1,5)= 1.074, 1.107, 1.147
				K_v_109(1,6)= 1.116, 1.149, 1.188
				K_v_109(1,7)= 1.152, 1.185, 1.221
				K_v_109(1,8)= 1.183, 1.214, 1.247
				K_v_109(1,9)= 1.21, 1.238, 1.27
				K_v_109(1,10)=1.232, 1.259, 1.288
				K_v_109(1,11)=1.251, 1.277, 1.304
				K_v_109(1,12)=1.268, 1.292, 1.318
				K_v_109(1,13)=1.283, 1.306, 1.33
			*endif				
		*enddo
	*endif
    
    !------------------------------------------------------------------------------
	!Material 110. Dispersion-Strengthened Copper. 
	!SDC-IC A.S32 Dispersion Strengthened Copper Alloy - CuAl25-IG
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,10),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(10),then
	
		! Define the material tag (MAT_TAG)
		MAT_CUAL25=110
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 
				mpdata, ALPX,   110,    1, 1.65e-05, 1.69e-05, 1.73e-05, 1.76e-05, 1.8e-05, 
				mpdata, ALPX,   110,    6, 1.83e-05, 1.86e-05, 1.89e-05, 1.91e-05, 1.94e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 
				mpdata, CTEX,   110,    1, 1.66e-05, 1.69e-05, 1.74e-05, 1.78e-05, 1.83e-05, 
				mpdata, CTEX,   110,    6, 1.87e-05, 1.91e-05, 1.96e-05, 2e-05, 2.04e-05, 
				mpdata, CTEX,   110,    11, 2.09e-05, 
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
                mptemp,  6, 300.0, 350.0, 400.0, 450.0, 500.0, 
                mpdata, EX,   110,    1, 126.0e9, 122.0e9, 120.0e9, 118.0e9, 116.0e9, 
                mpdata, EX,   110,    6, 113.0e9, 111.0e9, 108.0e9, 106.0e9, 103.0e9,
			*endif	
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, prxy, 110, 0.34
			*endif
		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, DENS,   110,    1, 8860.0, 8850.0, 8830.0, 8800.0, 8780.0, 
                mpdata, DENS,   110,    6, 8750.0, 8730.0, 8700.0, 8680.0, 8650.0, 
                mpdata, DENS,   110,    11, 8620.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, KXX,   110,    1, 345.0, 338.0, 327.0, 318.0, 310.0, 
                mpdata, KXX,   110,    6, 304.0, 299.0, 296.0, 295.0, 295.0, 
                mpdata, KXX,   110,    11, 296.0, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, C,   110,    1, 386.0, 390.0, 397.0, 404.0, 410.0, 
                mpdata, C,   110,    6, 417.0, 423.0, 429.0, 435.0, 441.0, 
                mpdata, C,   110,    11, 447.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
			
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then

			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
			
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
			
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MKIN',then

			*endif
		
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_110',then
				*dim, SY_MIN_110, table, 11,,, TEMP
				*taxis, SY_MIN_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_110(10), 1, 450.0, 500.0, 
				SY_MIN_110(1)=319000000.0, 285000000.0, 260000000.0, 235000000.0, 210000000.0, 185000000.0, 160000000.0, 135000000.0, 110000000.0, 85000000.0, 60000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SY_IRR_MIN_110',then
				*dim, SY_IRR_MIN_110, table, 7,,, TEMP
				*taxis, SY_IRR_MIN_110(1), 1, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0
				SY_IRR_MIN_110(1)=510000000.0, 451000000.0, 385000000.0, 326000000.0, 267000000.0, 226000000.0, 172000000.0, 
			*endif
			
		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_110',then
				*dim, SY_AV_110, table, 11,,, TEMP
				*taxis, SY_AV_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_AV_110(10), 1, 450.0, 500.0, 
				SY_AV_110(1)=332000000.0, 326000000.0, 314000000.0, 298000000.0, 279000000.0, 255000000.0, 228000000.0, 197000000.0, 162000000.0, 123000000.0, 80000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SY_IRR_AV_110',then
				*dim, SY_IRR_AV_110, table, 7,,, TEMP
				*taxis, SY_IRR_AV_110(1), 1, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0
				SY_IRR_AV_110(1)=551000000.0, 474000000.0, 408000000.0, 344000000.0, 287000000.0, 246000000.0, 213000000.0, 
			*endif
			
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_110',then
				*dim, SU_MIN_110, table, 11,,, TEMP
				*taxis, SU_MIN_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SU_MIN_110(10), 1, 450.0, 500.0, 
				SU_MIN_110(1)=407000000.0, 357000000.0, 328000000.0, 298000000.0, 269000000.0, 240000000.0, 210000000.0, 181000000.0, 151000000.0, 122000000.0, 92000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SU_IRR_MIN_110',then
				*dim, SU_IRR_MIN_110, table, 7,,, TEMP
				*taxis, SU_IRR_MIN_110(1), 1, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0
				SU_IRR_MIN_110(1)=538000000.0, 467000000.0, 400000000.0, 344000000.0, 287000000.0, 244000000.0, 177000000.0, 
			*endif		
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_110',then
				*dim, SU_AV_110, table, 11,,, TEMP
				*taxis, SU_AV_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SU_AV_110(10), 1, 450.0, 500.0, 
				SU_AV_110(1)=423000000.0, 410000000.0, 386000000.0, 362000000.0, 336000000.0, 308000000.0, 279000000.0, 249000000.0, 218000000.0, 185000000.0, 150000000.0, 
			*endif	
			
			*if,PROP_ARRAY(1,I),eq,'SU_IRR_AV_110',then
				*dim, SU_IRR_AV_110, table, 7,,, TEMP
				*taxis, SU_IRR_AV_110(1), 1, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0
				SU_IRR_AV_110(1)=582000000.0, 495000000.0, 423000000.0, 367000000.0, 313000000.0, 264000000.0, 221000000.0,
			*endif			
		
		! Minimum uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_IRR_MIN_110',then
				*dim, EUNIF_IRR_MIN_110, table, 8,,, TEMP
				*taxis, EUNIF_IRR_MIN_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 
				EUNIF_IRR_MIN_110(1)=0.5E-02, 0.5E-02, 0.5E-02, 0.5E-02, 0.5E-02, 0.5E-02, 0.5E-02, 2.0E-02, 
			*endif		
			
		! Average uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_AV_110',then	
				*dim, EUNIF_AV_110, table, 11,,, TEMP
				*taxis, EUNIF_AV_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, EUNIF_AV_110(10), 1, 450.0, 500.0, 
				EUNIF_AV_110(1)=13.5E-02, 12.7E-02, 11.3E-02, 10.0E-02, 8.7E-02, 7.5E-02, 6.3E-02, 5.1E-02, 4.0E-02, 3.0E-02, 2.0E-02, 
			*endif	
		
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_AV_110',then
				*dim, STRAIN_RUPT_AV_110, table, 11,,, TEMP
				*taxis, STRAIN_RUPT_AV_110(1), 1, 20.0, 50, 100.0, 150, 200.0, 250, 300.0, 350, 400.0
				*taxis, STRAIN_RUPT_AV_110(10), 1, 450, 500
				STRAIN_RUPT_AV_110(1)= 117.915E-02, 118.460E-02, 115.164E-02, 107.100E-02, 95.320E-02, 81.049E-02, 65.378E-02, 49.135E-02, 32.875E-02, 16.943E-02, 1.535E-02
			*endif
			
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_110',then
				*dim, SM_110, table, 11,,, TEMP
				*taxis, SM_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_110(10), 1, 450.0, 500.0, 
				SM_110(1)=136000000.0, 132000000.0, 121000000.0, 110000000.0, 100000000.0, 89000000.0, 78000000.0, 67000000.0, 56000000.0, 45000000.0, 34000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SM_IRR_110',then
				*dim, SM_IRR_110, table, 8,,, TEMP
				*taxis, SM_IRR_110(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 
				SM_IRR_110(1)=136000000.0, 132000000.0, 121000000.0, 110000000.0, 100000000.0, 89000000.0, 78000000.0, 66000000.0, 
			*endif
		
		! Allowable stress intensity: Se
			*if,PROP_ARRAY(1,I),eq,'SE_IRR_110',then
				*dim, SE_IRR_110, table, 7,,, TEMP
				*taxis, SE_IRR_110(1), 1, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0 
				SE_IRR_110(1)=179000000.0, 156000000.0, 133000000.0, 115000000.0, 96000000.0, 81000000.0, 59000000.0, 
			*endif
			
		! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_110',then
				*dim, FATIGUE_STRAIN_110, table, 10,,, N,
				*taxis, FATIGUE_STRAIN_110(1,1), 1,  1.20E+01,  3.10E+01, 5.20E+01,9.40E+01,1.84E+02,4.00E+02,1.00E+03,3.07E+03,1.30E+04,
				*taxis, FATIGUE_STRAIN_110(10,1), 1, 1.00E+05,
				FATIGUE_STRAIN_110(1,1)= 6.00E-03, 5.00E-03, 4.50E-03, 4.00E-03, 3.50E-03, 3.00E-03, 2.50E-03, 2.00E-03, 1.50E-03, 1.00E-03,  
			*endif	
			
		*enddo
	*endif
    
    !------------------------------------------------------------------------------
	!Material 111. Aluminium-Nickel Bronze. 
	!SDC-IC A.S33 Aluminium-nickel bronze – Alloy UNS C63200 and CuAl10Ni5Fe4
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,11),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(11),then

		! Define the material tag (MAT_TAG)
		MAT_ALNIBRZ=111
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
				mptemp,  11, 500.0, 550.0, 600.0, 
				mpdata, ALPX,   111,    1, 1.59e-05, 1.6e-05, 1.62e-05, 1.65e-05, 1.67e-05, 
				mpdata, ALPX,   111,    6, 1.69e-05, 1.72e-05, 1.75e-05, 1.77e-05, 1.8e-05, 
				mpdata, ALPX,   111,    11, 1.83e-05, 1.86e-05, 1.89e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
			
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 
                mpdata, EX,   111,    1, 124.0e9, 124.0e9, 123.0e9, 121.0e9, 117.0e9, 
                mpdata, EX,   111,    6, 111.0e9, 104.0e9, 96.0e9, 
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 111, 0.32
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 
                mpdata, DENS,   111,    1, 7600.0, 7589.0, 7570.0, 7551.0, 7531.0, 
                mpdata, DENS,   111,    6, 7511.0, 7490.0, 7469.0, 7446.0, 7423.0, 
                mpdata, DENS,   111,    11, 7399.0, 7375.0, 7350.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, KXX,   111,    1, 40.4, 42.3, 45.8, 49.2, 52.6, 
                mpdata, KXX,   111,    6, 55.7, 58.4, 60.5, 61.9, 62.5, 
                mpdata, KXX,   111,    11, 62.0, 
			*endif		
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 400.0, 
                mpdata, C,   111,    1, 439.0, 480.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS_BAR',then
				tb, MELAS, 111, 4, 20
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.081e-05, 10000000.0
				tbpt, , 0.00000161, 20000000.0
				tbpt, , 0.00000565, 70000000.0
				tbpt, , 0.00000807, 100000000.0
				tbpt, , 0.00000968, 120000000.0
				tbpt, , 0.0000113, 140000000.0
				tbpt, , 0.00001295, 160000000.0
				tbpt, , 0.00001466, 180000000.0
				tbpt, , 0.00001758, 210000000.0
				tbpt, , 0.0000201, 230000000.0
				tbpt, , 0.00002362, 250000000.0
				tbpt, , 0.00002902, 270000000.0
				tbpt, , 0.00003782, 290000000.0
				tbpt, , 0.00006304, 320000000.0
				tbpt, , 0.00009418, 340000000.0
				tbpt, , 0.00011648, 350000000.0
				tbpt, , 0.00014479, 360000000.0
				tbpt, , 0.00018055, 370000000.0
				tbpt, , 0.00022548, 380000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.081e-05, 10000000.0
				tbpt, , 0.00000163, 20000000.0
				tbpt, , 0.00000569, 70000000.0
				tbpt, , 0.00000813, 100000000.0
				tbpt, , 0.00000976, 120000000.0
				tbpt, , 0.0000114, 140000000.0
				tbpt, , 0.00001307, 160000000.0
				tbpt, , 0.00001482, 180000000.0
				tbpt, , 0.00001788, 210000000.0
				tbpt, , 0.00002064, 230000000.0
				tbpt, , 0.00002466, 250000000.0
				tbpt, , 0.00003105, 270000000.0
				tbpt, , 0.00004169, 290000000.0
				tbpt, , 0.0000495, 300000000.0
				tbpt, , 0.00007276, 320000000.0
				tbpt, , 0.00008969, 330000000.0
				tbpt, , 0.00011144, 340000000.0
				tbpt, , 0.00017458, 360000000.0
				tbpt, , 0.00021926, 370000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.085e-05, 10000000.0
				tbpt, , 0.00000171, 20000000.0
				tbpt, , 0.00000598, 70000000.0
				tbpt, , 0.00000855, 100000000.0
				tbpt, , 0.00001026, 120000000.0
				tbpt, , 0.000012, 140000000.0
				tbpt, , 0.00001378, 160000000.0
				tbpt, , 0.00001572, 180000000.0
				tbpt, , 0.00001944, 210000000.0
				tbpt, , 0.00002324, 230000000.0
				tbpt, , 0.00002936, 250000000.0
				tbpt, , 0.00003984, 270000000.0
				tbpt, , 0.00004772, 280000000.0
				tbpt, , 0.00005814, 290000000.0
				tbpt, , 0.00007187, 300000000.0
				tbpt, , 0.00011342, 320000000.0
				tbpt, , 0.00014396, 330000000.0
				tbpt, , 0.00018337, 340000000.0
				tbpt, , 0.00023392, 350000000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.096e-05, 10000000.0
				tbpt, , 0.00000192, 20000000.0
				tbpt, , 0.00000673, 70000000.0
				tbpt, , 0.00000962, 100000000.0
				tbpt, , 0.00001059, 110000000.0
				tbpt, , 0.00001256, 130000000.0
				tbpt, , 0.00001466, 150000000.0
				tbpt, , 0.00001713, 170000000.0
				tbpt, , 0.00002298, 200000000.0
				tbpt, , 0.00002618, 210000000.0
				tbpt, , 0.00003053, 220000000.0
				tbpt, , 0.0000365, 230000000.0
				tbpt, , 0.00004476, 240000000.0
				tbpt, , 0.00005616, 250000000.0
				tbpt, , 0.00007186, 260000000.0
				tbpt, , 0.00009336, 270000000.0
				tbpt, , 0.00012258, 280000000.0
				tbpt, , 0.000162, 290000000.0
				tbpt, , 0.00021474, 300000000.0
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'MELAS_PLATE',then
				tb, MELAS, 111, 4, 20
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 8e-08, 1000000.0
				tbpt, , 0.081e-05, 10000000.0
				tbpt, , 0.00000242, 30000000.0
				tbpt, , 0.00000403, 50000000.0
				tbpt, , 0.00000565, 70000000.0
				tbpt, , 0.00000726, 90000000.0
				tbpt, , 0.00000889, 110000000.0
				tbpt, , 0.00001057, 130000000.0
				tbpt, , 0.00001242, 150000000.0
				tbpt, , 0.0000148, 170000000.0
				tbpt, , 0.0000185, 190000000.0
				tbpt, , 0.00002526, 210000000.0
				tbpt, , 0.00003855, 230000000.0
				tbpt, , 0.00004949, 240000000.0
				tbpt, , 0.0000648, 250000000.0
				tbpt, , 0.0000861, 260000000.0
				tbpt, , 0.00011545, 270000000.0
				tbpt, , 0.00015554, 280000000.0
				tbpt, , 0.0002098, 290000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 8e-08, 1000000.0
				tbpt, , 0.081e-05, 10000000.0
				tbpt, , 0.00000244, 30000000.0
				tbpt, , 0.00000407, 50000000.0
				tbpt, , 0.00000569, 70000000.0
				tbpt, , 0.00000732, 90000000.0
				tbpt, , 0.00000896, 110000000.0
				tbpt, , 0.00001067, 130000000.0
				tbpt, , 0.0000126, 150000000.0
				tbpt, , 0.00001517, 170000000.0
				tbpt, , 0.00001937, 190000000.0
				tbpt, , 0.00002736, 210000000.0
				tbpt, , 0.00003399, 220000000.0
				tbpt, , 0.00004341, 230000000.0
				tbpt, , 0.00005675, 240000000.0
				tbpt, , 0.00007549, 250000000.0
				tbpt, , 0.00010162, 260000000.0
				tbpt, , 0.00013771, 270000000.0
				tbpt, , 0.00018707, 280000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 9e-08, 1000000.0
				tbpt, , 0.085e-05, 10000000.0
				tbpt, , 0.00000256, 30000000.0
				tbpt, , 0.00000427, 50000000.0
				tbpt, , 0.00000598, 70000000.0
				tbpt, , 0.0000077, 90000000.0
				tbpt, , 0.00000944, 110000000.0
				tbpt, , 0.0000113, 130000000.0
				tbpt, , 0.00001357, 150000000.0
				tbpt, , 0.00001703, 170000000.0
				tbpt, , 0.00002353, 190000000.0
				tbpt, , 0.00002904, 200000000.0
				tbpt, , 0.00003705, 210000000.0
				tbpt, , 0.00004871, 220000000.0
				tbpt, , 0.00006554, 230000000.0
				tbpt, , 0.00008964, 240000000.0
				tbpt, , 0.00012378, 250000000.0
				tbpt, , 0.00017163, 260000000.0
				tbpt, , 0.00023797, 270000000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 1e-07, 1000000.0
				tbpt, , 0.096e-05, 10000000.0
				tbpt, , 0.00000288, 30000000.0
				tbpt, , 0.00000481, 50000000.0
				tbpt, , 0.00000673, 70000000.0
				tbpt, , 0.00000868, 90000000.0
				tbpt, , 0.00001073, 110000000.0
				tbpt, , 0.0000119, 120000000.0
				tbpt, , 0.00001328, 130000000.0
				tbpt, , 0.00001506, 140000000.0
				tbpt, , 0.00001753, 150000000.0
				tbpt, , 0.00002117, 160000000.0
				tbpt, , 0.00002672, 170000000.0
				tbpt, , 0.00003529, 180000000.0
				tbpt, , 0.00004853, 190000000.0
				tbpt, , 0.00006883, 200000000.0
				tbpt, , 0.00009954, 210000000.0
				tbpt, , 0.00014534, 220000000.0
				tbpt, , 0.00021265, 230000000.0
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'MELAS_FORG',then
				tb, MELAS, 111, 4, 34
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.0806e-06, 1000000.0
				tbpt, , 0.0806e-05, 10000000.0
				tbpt, , 0.00000242, 30000000.0
				tbpt, , 0.00000403, 50000000.0
				tbpt, , 0.00000565, 70000000.0
				tbpt, , 0.00000726, 90000000.0
				tbpt, , 0.00000888, 110000000.0
				tbpt, , 0.00001053, 130000000.0
				tbpt, , 0.00001227, 150000000.0
				tbpt, , 0.0000143, 170000000.0
				tbpt, , 0.00001705, 190000000.0
				tbpt, , 0.00002147, 210000000.0
				tbpt, , 0.00002943, 230000000.0
				tbpt, , 0.00004446, 250000000.0
				tbpt, , 0.00007275, 270000000.0
				tbpt, , 0.00009494, 280000000.0
				tbpt, , 0.00012484, 290000000.0
				tbpt, , 0.00016481, 300000000.0
				tbpt, , 0.00021783, 310000000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.0813e-06, 1000000.0
				tbpt, , 0.0813e-05, 10000000.0
				tbpt, , 0.00000163, 20000000.0
				tbpt, , 0.00000325, 40000000.0
				tbpt, , 0.00000488, 60000000.0
				tbpt, , 0.0000065, 80000000.0
				tbpt, , 0.00000813, 100000000.0
				tbpt, , 0.00000978, 120000000.0
				tbpt, , 0.0000115, 140000000.0
				tbpt, , 0.00001343, 160000000.0
				tbpt, , 0.00001594, 180000000.0
				tbpt, , 0.00001986, 200000000.0
				tbpt, , 0.00002689, 220000000.0
				tbpt, , 0.00004033, 240000000.0
				tbpt, , 0.00006614, 260000000.0
				tbpt, , 0.00008668, 270000000.0
				tbpt, , 0.00011464, 280000000.0
				tbpt, , 0.00015239, 290000000.0
				tbpt, , 0.00020293, 300000000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.0855e-06, 1000000.0
				tbpt, , 0.0855e-05, 10000000.0
				tbpt, , 0.00000256, 30000000.0
				tbpt, , 0.00000427, 50000000.0
				tbpt, , 0.00000598, 70000000.0
				tbpt, , 0.0000077, 90000000.0
				tbpt, , 0.00000942, 110000000.0
				tbpt, , 0.00001121, 130000000.0
				tbpt, , 0.00001322, 150000000.0
				tbpt, , 0.00001587, 170000000.0
				tbpt, , 0.00002016, 190000000.0
				tbpt, , 0.00002824, 210000000.0
				tbpt, , 0.00004437, 230000000.0
				tbpt, , 0.00005775, 240000000.0
				tbpt, , 0.00007653, 250000000.0
				tbpt, , 0.00010271, 260000000.0
				tbpt, , 0.00013883, 270000000.0
				tbpt, , 0.00018823, 280000000.0
				tbpt, , 0.00025515, 290000000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.0962e-06, 1000000.0
				tbpt, , 0.0962e-05, 10000000.0
				tbpt, , 0.00000288, 30000000.0
				tbpt, , 0.00000481, 50000000.0
				tbpt, , 0.00000673, 70000000.0
				tbpt, , 0.00000867, 90000000.0
				tbpt, , 0.00001066, 110000000.0
				tbpt, , 0.00001292, 130000000.0
				tbpt, , 0.0000161, 150000000.0
				tbpt, , 0.00001851, 160000000.0
				tbpt, , 0.00002195, 170000000.0
				tbpt, , 0.00002703, 180000000.0
				tbpt, , 0.00003463, 190000000.0
				tbpt, , 0.00004605, 200000000.0
				tbpt, , 0.00006309, 210000000.0
				tbpt, , 0.0000883, 220000000.0
				tbpt, , 0.00012514, 230000000.0
				tbpt, , 0.00017829, 240000000.0
				tbpt, , 0.000254, 250000000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO_BAR',then
				tb, BISO, 111, 4, 2,
				tbtemp, 20   
				tbdata,, 300e6, 4412819240
				tbtemp, 100  
				tbdata,, 293e6, 5604988440
				tbtemp, 200  
				tbdata,, 275e6, 4122011542
				tbtemp, 300  
				tbdata,, 238e6, 3529827038
			*endif

			*if,PROP_ARRAY(1,I),eq,'BISO_PLATE',then
				tb, BISO, 111, 4, 2,
				tbtemp, 20   
				tbdata,, 230e6, 3503649635
				tbtemp, 100  
				tbdata,, 225e6, 3919519206
				tbtemp, 200  
				tbdata,, 211e6, 2986263189
				tbtemp, 300  
				tbdata,, 182e6,  2819124944
			*endif

			*if,PROP_ARRAY(1,I),eq,'BISO_FORG',then
				tb, BISO, 111, 4, 2,
				tbtemp, 20   
				tbdata, , 245e6, 3844463972
				tbtemp, 100  
				tbdata,, 239e6, 3690036900
				tbtemp, 200  
				tbdata,, 225e6, 3178350890
				tbtemp, 300  
				tbdata,, 194e6, 2735105074
			*endif			
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO_BAR',then
				tb, PLASTIC, 111, 4, 8, MISO
				tbtemp, 20
				tbpt, , 0.00004419, 300000000.0
				tbpt, , 0.00006304, 320000000.0
				tbpt, , 0.00007669, 330000000.0
				tbpt, , 0.00009418, 340000000.0
				tbpt, , 0.00011648, 350000000.0
				tbpt, , 0.00014479, 360000000.0
				tbpt, , 0.00018055, 370000000.0
				tbpt, , 0.00022548, 380000000.0
				tbtemp, 100
				tbpt, , 0.00004403, 293000000.0
				tbpt, , 0.0000495, 300000000.0
				tbpt, , 0.00007276, 320000000.0
				tbpt, , 0.00008969, 330000000.0
				tbpt, , 0.00011144, 340000000.0
				tbpt, , 0.00013924, 350000000.0
				tbpt, , 0.00017458, 360000000.0
				tbpt, , 0.00021926, 370000000.0
				tbtemp, 200
				tbpt, , 0.00004378, 275000000.0
				tbpt, , 0.00004772, 280000000.0
				tbpt, , 0.00005814, 290000000.0
				tbpt, , 0.00007187, 300000000.0
				tbpt, , 0.00011342, 320000000.0
				tbpt, , 0.00014396, 330000000.0
				tbpt, , 0.00018337, 340000000.0
				tbpt, , 0.00023392, 350000000.0
				tbtemp, 300
				tbpt, , 0.00004311, 238000000.0
				tbpt, , 0.00004476, 240000000.0
				tbpt, , 0.00005616, 250000000.0
				tbpt, , 0.00007186, 260000000.0
				tbpt, , 0.00009336, 270000000.0
				tbpt, , 0.00012258, 280000000.0
				tbpt, , 0.000162, 290000000.0
				tbpt, , 0.00021474, 300000000.0			
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'MISO_PLATE',then
				tb, PLASTIC, 111, 4, 7, MISO
				tbtemp, 20
				tbpt, , 0.00003855, 230000000.0
				tbpt, , 0.00004949, 240000000.0
				tbpt, , 0.0000648, 250000000.0
				tbpt, , 0.0000861, 260000000.0
				tbpt, , 0.00011545, 270000000.0
				tbpt, , 0.00015554, 280000000.0
				tbpt, , 0.0002098, 290000000.0
				tbtemp, 100
				tbpt, , 0.0000387, 225000000.0
				tbpt, , 0.00004341, 230000000.0
				tbpt, , 0.00005675, 240000000.0
				tbpt, , 0.00007549, 250000000.0
				tbpt, , 0.00010162, 260000000.0
				tbpt, , 0.00013771, 270000000.0
				tbpt, , 0.00018707, 280000000.0
				tbtemp, 200
				tbpt, , 0.00003822, 211000000.0
				tbpt, , 0.00004871, 220000000.0
				tbpt, , 0.00006554, 230000000.0
				tbpt, , 0.00008964, 240000000.0
				tbpt, , 0.00012378, 250000000.0
				tbpt, , 0.00017163, 260000000.0
				tbpt, , 0.00023797, 270000000.0
				tbtemp, 300
				tbpt, , 0.00003794, 182000000.0
				tbpt, , 0.00004853, 190000000.0
				tbpt, , 0.00006883, 200000000.0
				tbpt, , 0.00009954, 210000000.0
				tbpt, , 0.00014534, 220000000.0
				tbpt, , 0.00021265, 230000000.0			
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'MISO_FORG',then
				tb,PLASTIC, 111, 4, 8, MISO
				tbtemp, 20
				tbpt, , 0.00004011, 245000000.0
				tbpt, , 0.00004446, 250000000.0
				tbpt, , 0.00005641, 260000000.0
				tbpt, , 0.00007275, 270000000.0
				tbpt, , 0.00009494, 280000000.0
				tbpt, , 0.00012484, 290000000.0
				tbpt, , 0.00016481, 300000000.0
				tbpt, , 0.00021783, 310000000.0
				tbtemp, 100
				tbpt, , 0.00004011, 239000000.0
				tbpt, , 0.00005117, 250000000.0
				tbpt, , 0.00006614, 260000000.0
				tbpt, , 0.00008668, 270000000.0
				tbpt, , 0.00011464, 280000000.0
				tbpt, , 0.00015239, 290000000.0
				tbpt, , 0.00020293, 300000000.0
				tbtemp, 200
				tbpt, , 0.00003964, 225000000.0
				tbpt, , 0.00004437, 230000000.0
				tbpt, , 0.00005775, 240000000.0
				tbpt, , 0.00007653, 250000000.0
				tbpt, , 0.00010271, 260000000.0
				tbpt, , 0.00013883, 270000000.0
				tbpt, , 0.00018823, 280000000.0
				tbpt, , 0.00025515, 290000000.0
				tbtemp, 300
				tbpt, , 0.0000392, 194000000.0
				tbpt, , 0.00004605, 200000000.0
				tbpt, , 0.00006309, 210000000.0
				tbpt, , 0.0000883, 220000000.0
				tbpt, , 0.00012514, 230000000.0
				tbpt, , 0.00017829, 240000000.0
				tbpt, , 0.000254, 250000000.0			
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN_BAR',then
				tb, BKIN, 111, 4, 2,
				tbtemp, 20   
				tbdata,, 300e6, 4412819240
				tbtemp, 100  
				tbdata,, 293e6, 5604988440
				tbtemp, 200  
				tbdata,, 275e6, 4122011542
				tbtemp, 300  
				tbdata,, 238e6, 3529827038
			*endif

			*if,PROP_ARRAY(1,I),eq,'BKIN_PLATE',then
				tb, BKIN, 111, 4, 2,
				tbtemp, 20   
				tbdata,, 230e6, 3503649635
				tbtemp, 100  
				tbdata,, 225e6, 3919519206
				tbtemp, 200  
				tbdata,, 211e6, 2986263189
				tbtemp, 300  
				tbdata,, 182e6,  2819124944
			*endif

			*if,PROP_ARRAY(1,I),eq,'BKIN_FORG',then
				tb, BKIN, 111, 4, 2,
				tbtemp, 20   
				tbdata, , 245e6, 3844463972
				tbtemp, 100  
				tbdata,, 239e6, 3690036900
				tbtemp, 200  
				tbdata,, 225e6, 3178350890
				tbtemp, 300  
				tbdata,, 194e6, 2735105074
			*endif	
		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH_BAR',then
				tb, PLASTIC, 111, 4, 8, KINH
				tbtemp, 20
				tbpt, , 0.00004419, 300000000.0
				tbpt, , 0.00006304, 320000000.0
				tbpt, , 0.00007669, 330000000.0
				tbpt, , 0.00009418, 340000000.0
				tbpt, , 0.00011648, 350000000.0
				tbpt, , 0.00014479, 360000000.0
				tbpt, , 0.00018055, 370000000.0
				tbpt, , 0.00022548, 380000000.0
				tbtemp, 100
				tbpt, , 0.00004403, 293000000.0
				tbpt, , 0.0000495, 300000000.0
				tbpt, , 0.00007276, 320000000.0
				tbpt, , 0.00008969, 330000000.0
				tbpt, , 0.00011144, 340000000.0
				tbpt, , 0.00013924, 350000000.0
				tbpt, , 0.00017458, 360000000.0
				tbpt, , 0.00021926, 370000000.0
				tbtemp, 200
				tbpt, , 0.00004378, 275000000.0
				tbpt, , 0.00004772, 280000000.0
				tbpt, , 0.00005814, 290000000.0
				tbpt, , 0.00007187, 300000000.0
				tbpt, , 0.00011342, 320000000.0
				tbpt, , 0.00014396, 330000000.0
				tbpt, , 0.00018337, 340000000.0
				tbpt, , 0.00023392, 350000000.0
				tbtemp, 300
				tbpt, , 0.00004311, 238000000.0
				tbpt, , 0.00004476, 240000000.0
				tbpt, , 0.00005616, 250000000.0
				tbpt, , 0.00007186, 260000000.0
				tbpt, , 0.00009336, 270000000.0
				tbpt, , 0.00012258, 280000000.0
				tbpt, , 0.000162, 290000000.0
				tbpt, , 0.00021474, 300000000.0			
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'KINH_PLATE',then
				tb, PLASTIC, 111, 4, 7, KINH
				tbtemp, 20
				tbpt, , 0.00003855, 230000000.0
				tbpt, , 0.00004949, 240000000.0
				tbpt, , 0.0000648, 250000000.0
				tbpt, , 0.0000861, 260000000.0
				tbpt, , 0.00011545, 270000000.0
				tbpt, , 0.00015554, 280000000.0
				tbpt, , 0.0002098, 290000000.0
				tbtemp, 100
				tbpt, , 0.0000387, 225000000.0
				tbpt, , 0.00004341, 230000000.0
				tbpt, , 0.00005675, 240000000.0
				tbpt, , 0.00007549, 250000000.0
				tbpt, , 0.00010162, 260000000.0
				tbpt, , 0.00013771, 270000000.0
				tbpt, , 0.00018707, 280000000.0
				tbtemp, 200
				tbpt, , 0.00003822, 211000000.0
				tbpt, , 0.00004871, 220000000.0
				tbpt, , 0.00006554, 230000000.0
				tbpt, , 0.00008964, 240000000.0
				tbpt, , 0.00012378, 250000000.0
				tbpt, , 0.00017163, 260000000.0
				tbpt, , 0.00023797, 270000000.0
				tbtemp, 300
				tbpt, , 0.00003794, 182000000.0
				tbpt, , 0.00004853, 190000000.0
				tbpt, , 0.00006883, 200000000.0
				tbpt, , 0.00009954, 210000000.0
				tbpt, , 0.00014534, 220000000.0
				tbpt, , 0.00021265, 230000000.0			
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'KINH_FORG',then
				tb,PLASTIC, 111, 4, 8, KINH
				tbtemp, 20
				tbpt, , 0.00004011, 245000000.0
				tbpt, , 0.00004446, 250000000.0
				tbpt, , 0.00005641, 260000000.0
				tbpt, , 0.00007275, 270000000.0
				tbpt, , 0.00009494, 280000000.0
				tbpt, , 0.00012484, 290000000.0
				tbpt, , 0.00016481, 300000000.0
				tbpt, , 0.00021783, 310000000.0
				tbtemp, 100
				tbpt, , 0.00004011, 239000000.0
				tbpt, , 0.00005117, 250000000.0
				tbpt, , 0.00006614, 260000000.0
				tbpt, , 0.00008668, 270000000.0
				tbpt, , 0.00011464, 280000000.0
				tbpt, , 0.00015239, 290000000.0
				tbpt, , 0.00020293, 300000000.0
				tbtemp, 200
				tbpt, , 0.00003964, 225000000.0
				tbpt, , 0.00004437, 230000000.0
				tbpt, , 0.00005775, 240000000.0
				tbpt, , 0.00007653, 250000000.0
				tbpt, , 0.00010271, 260000000.0
				tbpt, , 0.00013883, 270000000.0
				tbpt, , 0.00018823, 280000000.0
				tbpt, , 0.00025515, 290000000.0
				tbtemp, 300
				tbpt, , 0.0000392, 194000000.0
				tbpt, , 0.00004605, 200000000.0
				tbpt, , 0.00006309, 210000000.0
				tbpt, , 0.0000883, 220000000.0
				tbpt, , 0.00012514, 230000000.0
				tbpt, , 0.00017829, 240000000.0
				tbpt, , 0.000254, 250000000.0			
			*endif
		
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_BAR_111',then
				*dim, SY_MIN_BAR_111, table, 9,,, TEMP
				*taxis, SY_MIN_BAR_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SY_MIN_BAR_111(1)=300000000.0, 296000000.0, 293000000.0, 286000000.0, 275000000.0, 259000000.0, 238000000.0, 210000000.0, 175000000.0,
			*endif

			*if,PROP_ARRAY(1,I),eq,'SY_MIN_PLATE_111',then
				*dim, SY_MIN_PLATE_111, table, 9,,, TEMP
				*taxis, SY_MIN_PLATE_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SY_MIN_PLATE_111(1)=230000000.0, 227000000.0, 225000000.0, 219000000.0, 211000000.0, 199000000.0, 182000000.0, 161000000.0, 134000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SY_MIN_FORG_111',then
				*dim, SY_MIN_FORG_111, table, 9,,, TEMP
				*taxis, SY_MIN_FORG_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SY_MIN_FORG_111(1)=245000000.0, 242000000.0, 239000000.0, 233000000.0, 225000000.0, 212000000.0, 194000000.0, 172000000.0, 143000000.0, 
			*endif			

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_111',then
		
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_111',then
				*dim, SU_MIN_111, table, 9,,, TEMP
				*taxis, SU_MIN_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SU_MIN_111(1)=620000000.0, 611000000.0, 601000000.0, 585000000.0, 562000000.0, 530000000.0, 489000000.0, 439000000.0, 379000000.0, 
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_111',then
			
			*endif	
		
		! Minimum uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_MIN_111',then
				*dim, EUNIF_MIN_111, table, 7,,, TEMP
				*taxis, EUNIF_MIN_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0
				EUNIF_MIN_111(1)= 14.4E-02, 13.6E-02, 11.8E-02, 9.9E-02, 8.6E-02, 8.4E-02, 9.9E-02
			*endif

			*if,PROP_ARRAY(1,I),eq,'EUNIF_IRR_MIN_111',then
				*dim, EUNIF_IRR_MIN_111, table, 2,,, TEMP
				*taxis, EUNIF_IRR_MIN_111(1), 1, 150.0, 300.0
				EUNIF_IRR_MIN_111(1)= 9.504E-02, 8.811E-02
			*endif
		! Average uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_AV_111',then
				*dim, EUNIF_AV_111, table, 7,,, TEMP
				*taxis, EUNIF_AV_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0
				EUNIF_AV_111(1)= 15.8E-02, 15E-02, 13E-02, 10.9E-02, 9.4E-02, 9.2E-02, 10.9E-02
			*endif	
			
		! Minimum total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_MIN_111',then
				*dim, ETOT_MIN_111, table, 7,,, TEMP
				*taxis, ETOT_MIN_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0
				ETOT_MIN_111(1)= 15E-02, 14.2E-02, 12.4E-02, 10.5E-02, 9.2E-02, 9E-02, 10.5E-02
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'ETOT_IRR_MIN_111',then
				*dim, ETOT_IRR_MIN_111, table, 2,,, TEMP
				*taxis, ETOT_IRR_MIN_111(1), 1, 150.0, 300.0
				ETOT_IRR_MIN_111(1)= 10.08E-02, 9.345E-02
			*endif
			
		! Average total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_AV_111',then
				*dim, ETOT_AV_111, table, 7,,, TEMP
				*taxis, ETOT_AV_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0
				ETOT_AV_111(1)= 16.4E-02, 15.6E-02, 13.6E-02, 11.5E-02, 10E-02, 9.8E-02, 11.5E-02
			*endif
		
		! Minimum true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_MIN_111',then
				*dim, STRAIN_RUPT_MIN_111, table, 7,,, TEMP
				*taxis, STRAIN_RUPT_MIN_111(1), 1, 20.0, 50, 100.0, 150, 200.0, 250, 300.0,
				STRAIN_RUPT_MIN_111(1)= 24.8E-02, 23.6E-02, 21.1E-02, 17.4E-02, 13.9E-02, 11.7E-02, 10.5E-02
			*endif
		
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_BAR_111',then
				*dim, SM_BAR_111, table, 9,,, TEMP
				*taxis, SM_BAR_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SM_BAR_111(1)=200000000.0, 197000000.0, 195000000.0, 191000000.0, 183000000.0, 173000000.0, 159000000.0, 140000000.0, 117000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SM_PLATE_111',then
				*dim, SM_PLATE_111, table, 9,,, TEMP
				*taxis, SM_PLATE_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SM_PLATE_111(1)=153000000.0, 151000000.0, 150000000.0, 146000000.0, 141000000.0, 133000000.0, 121000000.0, 107000000.0, 89000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SM_FORG_111',then
				*dim, SM_FORG_111, table, 9,,, TEMP
				*taxis, SM_FORG_111(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				SM_FORG_111(1)=163000000.0, 161000000.0, 159000000.0, 155000000.0, 150000000.0, 141000000.0, 129000000.0, 115000000.0, 95000000.0,
			*endif
			
			! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRAIN_111',then
				*dim, FATIGUE_STRAIN_111, table, 11,3,, N,TEMP
				*taxis, FATIGUE_STRAIN_111(1,1), 1, 5.0000E+01, 1.5000E+02, 2.0000E+02, 3.0000E+02, 5.0000E+02, 1.0000E+03, 2.0000E+03, 3.0000E+03, 5.0000E+03, 
				*taxis, FATIGUE_STRAIN_111(10,1), 1, 1.0000E+04, 2.0000E+04
				*taxis, FATIGUE_STRAIN_111(1,1), 2, 20, 150, 300
				FATIGUE_STRAIN_111(1,1)= 1.5964E-02, 1.1845E-02, 1.0955E-02, 9.8147E-03, 8.5443E-03, 7.0819E-03, 5.8695E-03, 5.2593E-03, 4.5798E-03, 3.7960E-03, 3.1463E-03
				FATIGUE_STRAIN_111(1,2)=1.5964E-02, 1.1845E-02, 1.0955E-02, 9.8147E-03, 8.5443E-03, 7.0819E-03, 5.8695E-03, 5.2593E-03, 4.5798E-03, 3.7960E-03, 3.1463E-03
				FATIGUE_STRAIN_111(1,3)= 1.1304E-02, 8.5980E-03, 8.0000E-03, 7.2321E-03, 6.3681E-03, 5.3581E-03, 4.5084E-03, 4.0755E-03, 3.5885E-03, 3.0193E-03, 2.5405E-03
			*endif	
		
		*enddo
	*endif
	
    !------------------------------------------------------------------------------
	!Material 112. Alloy 718.
	!SDC-IC A.B01/S10 Alloy 718
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,12),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(12),then

		! Define the material tag (MAT_TAG)
		MAT_INCONEL718=112
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
                mptemp
				mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
				mptemp,  6, 250.0, 300.0, 350.0, 400.0, 500.0, 
				mpdata, ALPX,   112,    1, 1.28e-05, 1.29e-05, 1.3e-05, 1.32e-05, 1.34e-05, 
				mpdata, ALPX,   112,    6, 1.361e-05, 1.38e-05, 1.39e-05, 1.411e-05, 1.44e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
			
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 500.0, 
                mpdata, EX,   112,    1, 199.0e9, 198.0e9, 195.0e9, 192.0e9, 190.0e9, 
                mpdata, EX,   112,    6, 188.0e9, 185.0e9, 183.0e9, 180.0e9, 173.0e9, 
			*endif	
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 112, 0.31
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mpdata, DENS,   112,    1, 8221.0, 8211.0, 8195.0, 8179.0, 8162.0, 
                mpdata, DENS,   112,    6, 8145.0, 8128.0, 8110.0, 8093.0, 8076.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, KXX,   112,    1, 11.1, 11.6, 12.4, 13.3, 14.1, 
                mpdata, KXX,   112,    6, 15.0, 15.8, 16.7, 17.5, 18.4, 
                mpdata, KXX,   112,    11, 19.3, 
			*endif		
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 
                mpdata, C,   112,    1, 443.0, 441.0, 450.0, 466.0, 480.0, 
                mpdata, C,   112,    6, 490.0, 494.0, 495.0, 494.0, 497.0, 
                mpdata, C,   112,    11, 506.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
				tb, MELAS, 112, 9, 20
				tbtemp, 20
				tbpt, , 0.000, 0.0
				tbpt, , 0.00012499, 25003130.0
				tbpt, , 0.00024997, 50012500.0
				tbpt, , 0.00037493, 75028130.0
				tbpt, , 0.00049988, 100050000.0
				tbpt, , 0.00074972, 150112500.0
				tbpt, , 0.0009995, 200200000.0
				tbpt, , 0.00149888, 300450000.0
				tbpt, , 0.00174847, 350612500.0
				tbpt, , 0.00224747, 451012500.0
				tbpt, , 0.00249688, 501250000.0
				tbpt, , 0.00299553, 601800000.0
				tbpt, , 0.00324485, 652112600.0
				tbpt, , 0.00374533, 752814300.0
				tbpt, , 0.00400113, 803207300.0
				tbpt, , 0.00459785, 904147600.0
				tbpt, , 0.00507462, 954833100.0
				tbpt, , 0.00797913, 1058412000.0
				tbpt, , 0.01275241, 1114117000.0
				tbpt, , 0.0172328, 1144555000.0
				tbtemp, 50
				tbpt, , 0.000, 0.0
				tbpt, , 0.00012625, 25003160.0
				tbpt, , 0.00025249, 50012630.0
				tbpt, , 0.00037872, 75028410.0
				tbpt, , 0.00050492, 100050500.0
				tbpt, , 0.00075729, 150113600.0
				tbpt, , 0.00100959, 200202000.0
				tbpt, , 0.00126183, 250315700.0
				tbpt, , 0.00176612, 350618700.0
				tbpt, , 0.00201816, 400808100.0
				tbpt, , 0.00252207, 501262600.0
				tbpt, , 0.00277393, 551527800.0
				tbpt, , 0.00327762, 652133900.0
				tbpt, , 0.0035299, 702475300.0
				tbpt, , 0.00404516, 803242700.0
				tbpt, , 0.00432979, 853688300.0
				tbpt, , 0.00526217, 955012200.0
				tbpt, , 0.00643352, 1006454000.0
				tbpt, , 0.0158179, 1117538000.0
				tbpt, , 0.02208907, 1150127000.0
				tbtemp, 100
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001282, 25003210.0
				tbpt, , 0.00025638, 50012820.0
				tbpt, , 0.00038454, 75028850.0
				tbpt, , 0.00051269, 100051300.0
				tbpt, , 0.00076894, 150115400.0
				tbpt, , 0.00102512, 200205100.0
				tbpt, , 0.00153728, 300461500.0
				tbpt, , 0.00179326, 350628200.0
				tbpt, , 0.00230503, 451038500.0
				tbpt, , 0.00256082, 501282100.0
				tbpt, , 0.00307225, 601846200.0
				tbpt, , 0.00332807, 652166900.0
				tbpt, , 0.00384451, 752888900.0
				tbpt, , 0.00411638, 803299900.0
				tbpt, , 0.00486811, 904392000.0
				tbpt, , 0.00567917, 955410600.0
				tbpt, , 0.01204861, 1062728000.0
				tbpt, , 0.01641961, 1092797000.0
				tbpt, , 0.02326324, 1125890000.0
				tbtemp, 150
				tbpt, , 0.000, 0.0
				tbpt, , 0.00012953, 25003240.0
				tbpt, , 0.00025903, 50012950.0
				tbpt, , 0.00038853, 75029150.0
				tbpt, , 0.000518, 100051800.0
				tbpt, , 0.0007769, 150116600.0
				tbpt, , 0.00103573, 200207300.0
				tbpt, , 0.0012945, 250323800.0
				tbpt, , 0.0015532, 300466300.0
				tbpt, , 0.00181183, 350634700.0
				tbpt, , 0.00207039, 400829000.0
				tbpt, , 0.00232889, 451049200.0
				tbpt, , 0.00310407, 601865300.0
				tbpt, , 0.00336264, 652189400.0
				tbpt, , 0.00388708, 752921000.0
				tbpt, , 0.00416986, 803342900.0
				tbpt, , 0.00504776, 904554500.0
				tbpt, , 0.00614001, 955850900.0
				tbpt, , 0.01543677, 1066334000.0
				tbpt, , 0.02190938, 1098812000.0
				tbtemp, 200
				tbpt, , 0.000, 0.0
				tbpt, , 0.00013157, 25003290.0
				tbpt, , 0.00026312, 50013160.0
				tbpt, , 0.00039466, 75029610.0
				tbpt, , 0.00052618, 100052600.0
				tbpt, , 0.00078916, 150118400.0
				tbpt, , 0.00105208, 200210500.0
				tbpt, , 0.00131492, 250328900.0
				tbpt, , 0.0015777, 300473700.0
				tbpt, , 0.00184041, 350644700.0
				tbpt, , 0.00236562, 451065800.0
				tbpt, , 0.00262812, 501315800.0
				tbpt, , 0.00315303, 601894800.0
				tbpt, , 0.00341581, 652224100.0
				tbpt, , 0.00395152, 752969500.0
				tbpt, , 0.00424792, 803405600.0
				tbpt, , 0.00527368, 904758900.0
				tbpt, , 0.00669181, 956378500.0
				tbpt, , 0.01936111, 1070527000.0
				tbpt, , 0.028241, 1105792000.0
				tbtemp, 250
				tbpt, , 0.000, 0.0
				tbpt, , 0.00013297, 25003320.0
				tbpt, , 0.00026592, 50013300.0
				tbpt, , 0.00039886, 75029920.0
				tbpt, , 0.00053177, 100053200.0
				tbpt, , 0.00079755, 150119700.0
				tbpt, , 0.00106326, 200212800.0
				tbpt, , 0.0013289, 250332400.0
				tbpt, , 0.00159447, 300478700.0
				tbpt, , 0.00185997, 350651600.0
				tbpt, , 0.00239076, 451077100.0
				tbpt, , 0.00265605, 501329800.0
				tbpt, , 0.00318655, 601915000.0
				tbpt, , 0.00345224, 652247800.0
				tbpt, , 0.00399663, 753003500.0
				tbpt, , 0.00430522, 803451600.0
				tbpt, , 0.00547434, 904940400.0
				tbpt, , 0.00721242, 956876600.0
				tbpt, , 0.02319097, 1074635000.0
				tbpt, , 0.03442061, 1112646000.0
				tbtemp, 300
				tbpt, , 0.000, 0.0
				tbpt, , 0.00013513, 25003380.0
				tbpt, , 0.00027023, 50013510.0
				tbpt, , 0.00040532, 75030410.0
				tbpt, , 0.00054039, 100054100.0
				tbpt, , 0.00081048, 150121600.0
				tbpt, , 0.0010805, 200216200.0
				tbpt, , 0.00135044, 250337800.0
				tbpt, , 0.00162031, 300486500.0
				tbpt, , 0.0018901, 350662200.0
				tbpt, , 0.00242948, 451094600.0
				tbpt, , 0.00269906, 501351400.0
				tbpt, , 0.00323816, 601946000.0
				tbpt, , 0.00350826, 652284400.0
				tbpt, , 0.00406403, 753054200.0
				tbpt, , 0.00438543, 803516100.0
				tbpt, , 0.00568785, 905133700.0
				tbpt, , 0.00771724, 957359700.0
				tbpt, , 0.01825456, 1043883000.0
				tbpt, , 0.02668359, 1078395000.0
				tbtemp, 350
				tbpt, , 0.000, 0.0
				tbpt, , 0.0001366, 25003420.0
				tbpt, , 0.00027319, 50013660.0
				tbpt, , 0.00040975, 75030740.0
				tbpt, , 0.0005463, 100054600.0
				tbpt, , 0.00081934, 150123000.0
				tbpt, , 0.0010923, 200218600.0
				tbpt, , 0.00136519, 250341500.0
				tbpt, , 0.001638, 300491800.0
				tbpt, , 0.00191074, 350669400.0
				tbpt, , 0.002456, 451106600.0
				tbpt, , 0.00272852, 501366100.0
				tbpt, , 0.00327352, 601967300.0
				tbpt, , 0.00354667, 652309400.0
				tbpt, , 0.00411125, 753089800.0
				tbpt, , 0.00444448, 803563500.0
				tbpt, , 0.00588285, 905310200.0
				tbpt, , 0.00821433, 957835800.0
				tbpt, , 0.02046628, 1046194000.0
				tbpt, , 0.03028158, 1082282000.0
				tbtemp, 400
				tbpt, , 0.000, 0.0
				tbpt, , 0.00013888, 25003470.0
				tbpt, , 0.00027774, 50013890.0
				tbpt, , 0.00041658, 75031250.0
				tbpt, , 0.0005554, 100055600.0
				tbpt, , 0.00083299, 150125000.0
				tbpt, , 0.00111049, 200222200.0
				tbpt, , 0.00138793, 250347200.0
				tbpt, , 0.00166528, 300500000.0
				tbpt, , 0.00194256, 350680600.0
				tbpt, , 0.00249688, 451125000.0
				tbpt, , 0.00277393, 501388900.0
				tbpt, , 0.00332802, 602000100.0
				tbpt, , 0.00360584, 652348000.0
				tbpt, , 0.00418292, 753143800.0
				tbpt, , 0.00453117, 803633200.0
				tbpt, , 0.00613199, 905535700.0
				tbpt, , 0.00882067, 958416700.0
				tbpt, , 0.02309103, 1048944000.0
				tbpt, , 0.03453195, 1086892000.0
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
				tb, BISO, 112, 6, 2,
				tbtemp, 20   
				tbdata,, 1035e6, 107580798 
				tbtemp, 50   
				tbdata,, 1017e6, 91771289	
				tbtemp, 100  
				tbdata,, 991e6, 85768386
				tbtemp, 200  
				tbdata,, 957e6, 69336017
				tbtemp, 300  
				tbdata,, 938e6, 72919681
				tbtemp, 400  
				tbdata,, 924e6, 56715426	
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
				tb, PLASTIC, 112, 9, 7, MISO
				tbtemp, 20
				tbpt, , 0.00690601, 1035000000.0
				tbpt, , 0.00797913, 1058412000.0
				tbpt, , 0.00985191, 1085643000.0
				tbpt, , 0.01275241, 1114117000.0
				tbpt, , 0.0172328, 1144555000.0
				tbtemp, 50
				tbpt, , 0.00686418, 1017000000.0
				tbpt, , 0.00750624, 1032723000.0
				tbpt, , 0.00917164, 1059675000.0
				tbpt, , 0.0117699, 1087727000.0
				tbpt, , 0.0158179, 1117538000.0
				tbpt, , 0.02208907, 1150127000.0
				tbtemp, 100
				tbpt, , 0.00567917, 991000000.0
				tbpt, , 0.00751802, 1007546000.0
				tbpt, , 0.00927475, 1034551000.0
				tbpt, , 0.01204861, 1062728000.0
				tbpt, , 0.01641961, 1092797000.0
				tbpt, , 0.02326324, 1125890000.0
				tbtemp, 150	
				tbpt, , 0.00676969, 972000000.0
				tbpt, , 0.00877385, 1008812000.0
				tbpt, , 0.01134501, 1036695000.0
				tbpt, , 0.01543677, 1066334000.0
				tbpt, , 0.02190938, 1098812000.0
				tbtemp, 200
				tbpt, , 0.00669181, 957000000.0
				tbpt, , 0.00805689, 982887200.0
				tbpt, , 0.01024411, 1010297000.0
				tbpt, , 0.01375407, 1039195000.0
				tbpt, , 0.01936111, 1070527000.0
				tbpt, , 0.028241, 1105792000.0
				tbtemp, 250
				tbpt, , 0.00677067, 946000000.0
				tbpt, , 0.00721242, 956876600.0
				tbpt, , 0.00891692, 983732900.00
				tbpt, , 0.01166758, 1011736000.0
				tbpt, , 0.01609932, 1041635000.0
				tbpt, , 0.02319097, 1074635000.0
				tbpt, , 0.03442061, 1112646000.0
				tbtemp, 300
				tbpt, , 0.00680173, 938000000.0
				tbpt, , 0.00771724, 957359700.0
				tbpt, , 0.00972957, 984532600.0
				tbpt, , 0.01299022, 1013075000.0
				tbpt, , 0.01825456, 1043883000.0
				tbpt, , 0.02668359, 1078395000.0
				tbtemp, 350
				tbpt, , 0.00676769, 931000000.0
				tbpt, , 0.00821433, 957835800.0
				tbpt, , 0.01054659, 985337300.0
				tbpt, , 0.01433729, 1014441000.0
				tbpt, , 0.02046628, 1046194000.0
				tbpt, , 0.03028158, 1082282000.0
				tbtemp, 400
				tbpt, , 0.00685836, 924000000.0
				tbpt, , 0.00715915, 931646000.0
				tbpt, , 0.00882067, 958416700.0
				tbpt, , 0.01153032, 986307100.0
				tbpt, , 0.0159454, 1016073000.0
				tbpt, , 0.02309103, 1048944000.0
				tbpt, , 0.03453195, 1086892000.0		
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
				tb, BKIN, 112, 6, 2,
				tbtemp, 20   
				tbdata,, 1035e6, 107580798 
				tbtemp, 50   
				tbdata,, 1017e6, 91771289	
				tbtemp, 100  
				tbdata,, 991e6, 85768386
				tbtemp, 200  
				tbdata,, 957e6, 69336017
				tbtemp, 300  
				tbdata,, 938e6, 72919681
				tbtemp, 400  
				tbdata,, 924e6, 56715426	
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
				tb, PLASTIC, 112, 9, 7, KINH
				tbtemp, 20
				tbpt, , 0.00690601, 1035000000.0
				tbpt, , 0.00797913, 1058412000.0
				tbpt, , 0.00985191, 1085643000.0
				tbpt, , 0.01275241, 1114117000.0
				tbpt, , 0.0172328, 1144555000.0
				tbtemp, 50
				tbpt, , 0.00686418, 1017000000.0
				tbpt, , 0.00750624, 1032723000.0
				tbpt, , 0.00917164, 1059675000.0
				tbpt, , 0.0117699, 1087727000.0
				tbpt, , 0.0158179, 1117538000.0
				tbpt, , 0.02208907, 1150127000.0
				tbtemp, 100
				tbpt, , 0.00567917, 991000000.0
				tbpt, , 0.00751802, 1007546000.0
				tbpt, , 0.00927475, 1034551000.0
				tbpt, , 0.01204861, 1062728000.0
				tbpt, , 0.01641961, 1092797000.0
				tbpt, , 0.02326324, 1125890000.0
				tbtemp, 150	
				tbpt, , 0.00676969, 972000000.0
				tbpt, , 0.00877385, 1008812000.0
				tbpt, , 0.01134501, 1036695000.0
				tbpt, , 0.01543677, 1066334000.0
				tbpt, , 0.02190938, 1098812000.0
				tbtemp, 200
				tbpt, , 0.00669181, 957000000.0
				tbpt, , 0.00805689, 982887200.0
				tbpt, , 0.01024411, 1010297000.0
				tbpt, , 0.01375407, 1039195000.0
				tbpt, , 0.01936111, 1070527000.0
				tbpt, , 0.028241, 1105792000.0
				tbtemp, 250
				tbpt, , 0.00677067, 946000000.0
				tbpt, , 0.00721242, 956876600.0
				tbpt, , 0.00891692, 983732900.00
				tbpt, , 0.01166758, 1011736000.0
				tbpt, , 0.01609932, 1041635000.0
				tbpt, , 0.02319097, 1074635000.0
				tbpt, , 0.03442061, 1112646000.0
				tbtemp, 300
				tbpt, , 0.00680173, 938000000.0
				tbpt, , 0.00771724, 957359700.0
				tbpt, , 0.00972957, 984532600.0
				tbpt, , 0.01299022, 1013075000.0
				tbpt, , 0.01825456, 1043883000.0
				tbpt, , 0.02668359, 1078395000.0
				tbtemp, 350
				tbpt, , 0.00676769, 931000000.0
				tbpt, , 0.00821433, 957835800.0
				tbpt, , 0.01054659, 985337300.0
				tbpt, , 0.01433729, 1014441000.0
				tbpt, , 0.02046628, 1046194000.0
				tbpt, , 0.03028158, 1082282000.0
				tbtemp, 400
				tbpt, , 0.00685836, 924000000.0
				tbpt, , 0.00715915, 931646000.0
				tbpt, , 0.00882067, 958416700.0
				tbpt, , 0.01153032, 986307100.0
				tbpt, , 0.0159454, 1016073000.0
				tbpt, , 0.02309103, 1048944000.0
				tbpt, , 0.03453195, 1086892000.0	

			*endif
			
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_112',then
				*dim, SY_MIN_112, table, 11,,, TEMP
				*taxis, SY_MIN_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_MIN_112(10), 1, 450.0, 500.0, 
				SY_MIN_112(1)=1035000000.0, 1017000000.0, 991000000.0, 972000000.0, 957000000.0, 946000000.0, 938000000.0, 931000000.0, 924000000.0, 915000000.0, 905000000.0, 
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_112',then
				*dim, SY_AV_112, table, 11,,, TEMP
				*taxis, SY_AV_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SY_AV_112(10), 1, 450.0, 500.0, 
				SY_AV_112(1)=1117000000.0, 1098000000.0, 1071000000.0, 1049000000.0, 1034000000.0, 1022000000.0, 1013000000.0, 1005000000.0, 998000000.0, 989000000.0, 977000000.0, 
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_BOLT_112',then
				*dim, SU_MIN_BOLT_112, table, 14,,, TEMP
				*taxis, SU_MIN_BOLT_112(1), 1, 20.0, 50.0, 65.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 
				*taxis, SU_MIN_BOLT_112(10), 1, 400.0, 450.0, 500.0, 550.0, 600.0, 
				SU_MIN_BOLT_112(1)=1275000000.0, 1263000000.0, 1258000000.0, 1244000000.0, 1225000000.0, 1206000000.0, 1187000000.0, 1169000000.0, 1151000000.0, 1133000000.0, 1117000000.0, 
				SU_MIN_BOLT_112(12)=1102000000.0, 1088000000.0, 1076000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SU_MIN_PLATE_112',then
				*dim, SU_MIN_PLATE_112, table, 14,,, TEMP
				*taxis, SU_MIN_PLATE_112(1), 1, 20.0, 50.0, 65.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 
				*taxis, SU_MIN_PLATE_112(10), 1, 400.0, 450.0, 500.0, 550.0, 600.0, 
				SU_MIN_PLATE_112(1)=1241000000.0, 1230000000.0, 1224000000.0, 1212000000.0, 1193000000.0, 1174000000.0, 1156000000.0, 1137000000.0, 1120000000.0, 1104000000.0, 1088000000.0, 
				SU_MIN_PLATE_112(12)=1073000000.0, 1059000000.0, 1047000000.0, 
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_112',then
				*dim, SU_AV_112, table, 14,,, TEMP
				*taxis, SU_AV_112(1), 1, 20.0, 50.0, 65.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 
				*taxis, SU_AV_112(10), 1, 400.0, 450.0, 500.0, 550.0, 600.0, 
				SU_AV_112(1)=1402000000.0, 1390000000.0, 1383000000.0, 1369000000.0, 1348000000.0, 1327000000.0, 1306000000.0, 1285000000.0, 1266000000.0, 1247000000.0, 1229000000.0, 
				SU_AV_112(12)=1212000000.0, 1197000000.0, 1183000000.0, 
			*endif	
		
		! Average uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_AV_112',then
				*dim, EUNIF_AV_112, table, 14,,, TEMP
				*taxis, EUNIF_AV_112(1), 1, 20.0, 50.0, 65.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 
				*taxis, EUNIF_AV_112(10), 1, 400.0, 450.0, 500.0, 550.0, 600.0, 
				EUNIF_AV_112(1)=17.3E-02, 16.78E-02, 16.55E-02, 16.11E-02, 15.64E-02, 15.32E-02, 15.11E-02, 14.96E-02, 14.81E-02, 14.62E-02, 14.33E-02,
				EUNIF_AV_112(12)= 13.91E-02, 17.3E-02, 16.78E-02
			*endif
		! Average total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_AV_112',then
				*dim, ETOT_AV_112, table, 14,,, TEMP
				*taxis, ETOT_AV_112(1), 1, 20.0, 50.0, 65.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 
				*taxis, ETOT_AV_112(10), 1, 400.0, 450.0, 500.0, 550.0, 600.0, 
				ETOT_AV_112(1)=23.22E-02, 23.24E-02, 23.25E-02, 23.25E-02, 23.23E-02, 23.18E-02, 23.09E-02, 22.98E-02, 22.83E-02, 22.65E-02, 22.43E-02, 
				ETOT_AV_112(12)=22.19E-02, 21.91E-02, 21.61E-02, 
			*endif
				
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_AV_112',then	
				*dim, STRAIN_RUPT_AV_112, table, 14,,, TEMP
				*taxis, STRAIN_RUPT_AV_112(1), 1, 20.0, 50, 65, 100.0, 150, 200.0, 250, 300.0, 350.0, 
				*taxis, STRAIN_RUPT_AV_112(10), 1, 400, 450, 500, 550, 600
				STRAIN_RUPT_AV_112(1)= 43.5E-02, 44.5E-02, 45E-02, 46.1E-02, 47.4E-02, 48.5E-02, 49.4E-02, 50.1E-02, 50.6E-02, 50.8E-02, 50.8E-02, 
				STRAIN_RUPT_AV_112(12)=50.5E-02, 50.1E-02, 49.4E-02
			*endif
			
		! Allowable stress intensity: Sm
			*if,PROP_ARRAY(1,I),eq,'SM_PLATE_STRUCTURAL_112',then
				*dim, SM_PLATE_STRUCTURAL_112, table, 11,,, TEMP
				*taxis, SM_PLATE_STRUCTURAL_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_PLATE_STRUCTURAL_112(10), 1, 450.0, 500.0, 
				SM_PLATE_STRUCTURAL_112(1)=414000000.0, 414000000.0, 414000000.0, 414000000.0, 414000000.0, 414000000.0, 414000000.0, 414000000.0, 409000000.0, 403000000.0, 397000000.0, 
			*endif

			*if,PROP_ARRAY(1,I),eq,'SM_IRR_PLATE_STRUCTURAL_112',then
				*dim, SM_IRR_PLATE_STRUCTURAL_112, table, 11,,, TEMP
				*taxis, SM_IRR_PLATE_STRUCTURAL_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_IRR_PLATE_STRUCTURAL_112(10), 1, 450.0, 500.0, 
				SM_IRR_PLATE_STRUCTURAL_112(1)= 391000000, 387000000, 381000000, 376000000, 370000000, 364000000, 358000000, 353000000, 347000000, 343000000, 338000000
			*endif

			*if,PROP_ARRAY(1,I),eq,'SM_BAR_FORG_STRUCTURAL_112',then
				*dim, SM_BAR_FORG_STRUCTURAL_112, table, 11,,, TEMP
				*taxis, SM_BAR_FORG_STRUCTURAL_112 (1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SM_BAR_FORG_STRUCTURAL_112(10), 1, 450.0, 500.0, 
				SM_BAR_FORG_STRUCTURAL_112(1)=425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 420000000.0, 414000000.0, 408000000.0, 
			*endif		
		
		! Design stress intensity for bolt material: Smb	
			*if,PROP_ARRAY(1,I),eq,'SMB_BAR_NONLEAKTIGHT_JOINTS_112',then	
				*dim, SMB_BAR_NONLEAKTIGHT_JOINTS_112, table, 11,,, TEMP
				*taxis, SMB_BAR_NONLEAKTIGHT_JOINTS_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SMB_BAR_NONLEAKTIGHT_JOINTS_112(10), 1, 450.0, 500.0, 
				SMB_BAR_NONLEAKTIGHT_JOINTS_112(1)=425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 425000000.0, 420000000.0, 414000000.0, 408000000.0, 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SMB_IRR_BAR_NONLEAKTIGHT_JOINTS_112',then
				*dim, SMB_IRR_BAR_NONLEAKTIGHT_JOINTS_112, table, 11,,, TEMP
				*taxis, SMB_IRR_BAR_NONLEAKTIGHT_JOINTS_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SMB_IRR_BAR_NONLEAKTIGHT_JOINTS_112(10), 1, 450.0, 500.0, 
				SMB_IRR_BAR_NONLEAKTIGHT_JOINTS_112(1)= 401000000, 398000000, 391000000, 386000000, 380000000, 374000000, 368000000, 362000000, 357000000, 351000000, 347000000
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'SMB_BAR_LEAKTIGHT_JOINTS_112',then
				*dim, SMB_BAR_LEAKTIGHT_JOINTS_112, table, 11,,, TEMP
				*taxis, SMB_BAR_LEAKTIGHT_JOINTS_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SMB_BAR_LEAKTIGHT_JOINTS_112(10), 1, 450.0, 500.0, 
				SMB_BAR_LEAKTIGHT_JOINTS_112(1)=345000000.0, 339000000.0, 330000000.0, 324000000.0, 319000000.0, 315000000.0, 313000000.0, 310000000.0, 308000000.0, 305000000.0, 302000000.0, 
			*endif		

			*if,PROP_ARRAY(1,I),eq,'SMB_IRR_BAR_LEAKTIGHT_JOINTS_112',then
				*dim, SMB_IRR_BAR_LEAKTIGHT_JOINTS_112, table, 11,,, TEMP
				*taxis, SMB_IRR_BAR_LEAKTIGHT_JOINTS_112(1), 1, 20.0, 50.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 
				*taxis, SMB_IRR_BAR_LEAKTIGHT_JOINTS_112(10), 1, 450.0, 500.0, 
				SMB_IRR_BAR_LEAKTIGHT_JOINTS_112(1)= 293000000, 288000000, 281000000, 275000000, 271000000, 268000000, 266000000, 264000000, 262000000, 259000000, 256000000
			*endif
			
			! Fatigue curves for unirradiated material
			*if,PROP_ARRAY(1,I),eq,'FATIGUE_STRESS_112',then
				*dim, FATIGUE_STRESS_112, table, 25,5,, N,STRESS
				*taxis, FATIGUE_STRESS_112(1,1), 1, 1.00E+01, 2.00E+01, 5.00E+01, 1.00E+02, 2.00E+02, 4.00E+02, 5.00E+02, 8.00E+02, 1.00E+03,
				*taxis, FATIGUE_STRESS_112(10,1), 1, 2.00E+03, 5.00E+03, 1.00E+04, 2.00E+04, 5.00E+04, 1.00E+05, 2.00E+05, 5.00E+05, 1.00E+06,
				*taxis, FATIGUE_STRESS_112(19,1), 1, 2.00E+06, 5.00E+06, 1.00E+07, 2.00E+07, 5.00E+07, 1.00E+08, 1.00E+11 
				*taxis, FATIGUE_STRESS_112(1,1), 2, 0, 690E6, 830E6, 930E6, 1015E6
				FATIGUE_STRESS_112(1,1)= 5191, 3723, 2516, 1882, 1496, 1192, 1103, 972, 917, 758, 586,
				FATIGUE_STRESS_112(12,1)= 482, 413, 337, 296, 262, 227, 213, 199, 186, 181, 175,
				FATIGUE_STRESS_112(23,1)= 170, 169, 157 
				FATIGUE_STRESS_112(1,2)= 5191, 3723, 2516, 1882, 1496, 1192, 1103, 972, 917, 758, 586,
				FATIGUE_STRESS_112(12,2)= 482, 413, 337, 296, 262, 227, 213, 199, 186, 181, 175,
				FATIGUE_STRESS_112(23,2)= 170, 169, 157 
				FATIGUE_STRESS_112(1,3)= 5191, 3723, 2516, 1882, 1496, 1192, 1103, 972, 917, 689, 489, 
				FATIGUE_STRESS_112(12,3)= 399, 337, 275, 241, 213, 186, 172, 158, 148, 142, 139, 
				FATIGUE_STRESS_112(23,3)= 135, 135, 126
				FATIGUE_STRESS_112(1,4)= 5191, 3723, 2516, 1882, 1496, 1192, 1103, 972, 834, 579, 399, 
				FATIGUE_STRESS_112(12,4)= 330, 268, 220, 193, 172, 151, 137, 131, 120, 115, 113, 
				FATIGUE_STRESS_112(23,4)= 109, 108, 102
				FATIGUE_STRESS_112(1,5)= 5191, 3723, 2516, 1882, 1496, 1192, 1068, 786, 682, 468, 330, 
				FATIGUE_STRESS_112(12,5)= 268, 220, 186, 158, 137, 124, 110, 103, 97, 95, 91, 
				FATIGUE_STRESS_112(23,5)= 88, 87, 83	
			*endif	
		*enddo
	*endif
	
    !------------------------------------------------------------------------------
	! Material 113. Beryllium. 
	! SDC-IC A.A01 Beryllium
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,13),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(13),then
	
		! Define the material tag (MAT_TAG)
		MAT_BERYLLIUM=113
		
		*do,I,1,NUM_PROP,1
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
				mptemp,  6, 500.0, 600.0, 700.0, 800.0, 1000.0, 
				mptemp,  11, 1100.0, 1200.0, 
				mpdata, ALPX,   113,    1, 1.156e-05, 1.251e-05, 1.351e-05, 1.432e-05, 1.496e-05, 
				mpdata, ALPX,   113,    6, 1.56e-05, 1.585e-05, 1.614e-05, 1.636e-05, 1.67e-05, 
				mpdata, ALPX,   113,    11, 1.687e-05, 1.706e-05, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
			
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 150.0, 200.0, 250.0, 
                mptemp,  6, 300.0, 350.0, 400.0, 450.0, 500.0, 
                mptemp,  11, 550.0, 600.0, 650.0, 700.0, 750.0, 
                mptemp,  16, 800.0, 
                mpdata, EX,   113,    1, 306.0e9, 303.0e9, 301.0e9, 299.0e9, 297.0e9, 
                mpdata, EX,   113,    6, 294.0e9, 291.0e9, 288.0e9, 284.0e9, 281.0e9, 
                mpdata, EX,   113,    11, 277.0e9, 273.0e9, 269.0e9, 264.0e9, 259.0e9, 
                mpdata, EX,   113,    16, 255.0e9, 
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 113, 0.1
			*endif		

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
                mptemp,  6, 500.0, 600.0, 700.0, 800.0, 
                mpdata, DENS,   113,    1, 1830.0, 1825.0, 1817.0, 1808.0, 1799.0, 
                mpdata, DENS,   113,    6, 1789.0, 1779.0, 1770.0, 1760.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
                mptemp,  6, 500.0, 600.0, 700.0, 800.0, 
                mpdata, KXX,   113,    1, 200.0, 169.0, 144.0, 127.0, 116.0, 
                mpdata, KXX,   113,    6, 107.0, 100.0, 91.0, 82.0, 
			*endif		
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
                mptemp,  6, 500.0, 600.0, 700.0, 800.0, 
                mpdata, C,   113,    1, 1807.0, 2046.0, 2295.0, 2497.0, 2660.0, 
                mpdata, C,   113,    6, 2791.0, 2998.0, 2989.0, 3071.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
			
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
			
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
			
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
			
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
			
			*endif
		
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_113',then
			
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_113',then
				*dim, SY_AV_113, table, 12,,, TEMP
				*taxis, SY_AV_113(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SY_AV_113(10), 1, 500.0, 550.0, 600.0, 
				SY_AV_113(1)=249000000.0, 236000000.0, 226000000.0, 216000000.0, 205000000.0, 193000000.0, 181000000.0, 168000000.0, 154000000.0, 140000000.0, 125000000.0, 
				SY_AV_113(12)=109000000.0, 
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_113',then
			
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_113',then
				*dim, SU_AV_113, table, 12,,, TEMP
				*taxis, SU_AV_113(1), 1, 20.0, 100.0, 150.0, 200.0, 250.0, 300.0, 350.0, 400.0, 450.0, 
				*taxis, SU_AV_113(10), 1, 500.0, 550.0, 600.0, 
				SU_AV_113(1)=387000000.0, 361000000.0, 343000000.0, 324000000.0, 305000000.0, 284000000.0, 262000000.0, 240000000.0, 216000000.0, 191000000.0, 166000000.0, 
				SU_AV_113(12)=139000000.0, 
			*endif	
			
		! Average uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_AV_113',then
				*dim, EUNIF_AV_113, table, 12,,, TEMP
				*taxis, EUNIF_AV_113(1), 1, 100, 150, 200, 250, 300, 350, 400, 450, 500, 
				*taxis, EUNIF_AV_113(10), 1, 550, 600, 650, 
				EUNIF_AV_113(1)=9.67E-02, 10.82E-02, 11.26E-02, 11.14E-02, 10.57E-02, 9.7E-02, 8.64E-02, 7.53E-02, 6.5E-02, 5.68E-02, 5.2E-02,
				EUNIF_AV_113(12)= 5.19E-02,
			*endif
			
		! Average total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_AV_113',then
				*dim, ETOT_AV_113, table, 12,,, TEMP
				*taxis, ETOT_AV_113(1), 1, 100, 150, 200, 250, 300, 350, 400, 450, 500, 
				*taxis, ETOT_AV_113(10), 1, 550, 600, 650, 
				ETOT_AV_113(1)=21.4E-02, 28.7E-02, 34E-02, 37.4E-02, 39.1E-02, 39.5E-02, 38.6E-02, 36.8E-02, 34.3E-02, 31.2E-02, 27.9E-02,
				ETOT_AV_113(12)= 24.4E-02,
			*endif

		*enddo
	*endif
	
    !------------------------------------------------------------------------------
	! Material 114. Tungsten. 
	! SDC-IC A.A02 Tungsten
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,14),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(14),then

		! Define the material tag (MAT_TAG)
		MAT_TUNGSTEN=114
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 20.0, 100.0, 200.0, 300.0, 400.0, 
				mptemp,  6, 500.0, 600.0, 700.0, 800.0, 900.0, 
				mptemp,  11, 1000.0, 1200.0, 1400.0, 1600.0, 1800.0, 
				mptemp,  16, 2000.0, 2200.0, 2400.0, 2600.0, 2800.0, 
				mptemp,  21, 3000.0, 3200.0, 
				mpdata, ALPX,   114,    1, 4.5e-06, 4.5e-06, 4.53e-06, 4.58e-06, 4.63e-06, 
				mpdata, ALPX,   114,    6, 4.68e-06, 4.72e-06, 4.76e-06, 4.81e-06, 4.85e-06, 
				mpdata, ALPX,   114,    11, 4.89e-06, 4.98e-06, 5.08e-06, 5.18e-06, 5.3e-06, 
				mpdata, ALPX,   114,    16, 5.43e-06, 5.57e-06, 5.74e-06, 5.93e-06, 6.15e-06, 
				mpdata, ALPX,   114,    21, 6.4e-06, 6.67e-06, 
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
                
			*endif

		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
                mptemp,  21, 1000.0, 1100.0, 1200.0, 
                mpdata, EX,   114,    1, 398.0, 398.0, 397.0, 397.0, 396.0, 
                mpdata, EX,   114,    6, 396.0, 395.0, 394.0, 393.0, 391.0, 
                mpdata, EX,   114,    11, 390.0, 388.0, 387.0, 385.0, 383.0, 
                mpdata, EX,   114,    16, 381.0, 379.0, 376.0, 374.0, 371.0, 
                mpdata, EX,   114,    21, 368.0, 362.0, 356.0, 
			*endif	
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
                mp, PRXY, 114, 0.29
			*endif	

		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
                mptemp,  21, 1000.0, 1100.0, 1200.0, 
                mpdata, DENS,   114,    1, 19300.0, 19290.0, 19280.0, 19270.0, 19250.0, 
                mpdata, DENS,   114,    6, 19240.0, 19230.0, 19220.0, 19200.0, 19190.0, 
                mpdata, DENS,   114,    11, 19180.0, 19170.0, 19150.0, 19140.0, 19130.0, 
                mpdata, DENS,   114,    16, 19110.0, 19100.0, 19080.0, 19070.0, 19060.0, 
                mpdata, DENS,   114,    21, 19040.0, 19010.0, 18990.0, 
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
                mptemp,  21, 1000.0, 1100.0, 1200.0, 
                mpdata, KXX,   114,    1, 173.0, 170.0, 165.0, 160.0, 156.0, 
                mpdata, KXX,   114,    6, 151.0, 147.0, 143.0, 140.0, 136.0, 
                mpdata, KXX,   114,    11, 133.0, 130.0, 127.0, 125.0, 122.0, 
                mpdata, KXX,   114,    16, 120.0, 118.0, 116.0, 114.0, 112.0, 
                mpdata, KXX,   114,    21, 110.0, 108.0, 105.0, 
			*endif	
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
                mptemp
                mptemp,  1, 20.0, 50.0, 100.0, 150.0, 200.0, 
                mptemp,  6, 250.0, 300.0, 350.0, 400.0, 450.0, 
                mptemp,  11, 500.0, 550.0, 600.0, 650.0, 700.0, 
                mptemp,  16, 750.0, 800.0, 850.0, 900.0, 950.0, 
                mptemp,  21, 1000.0, 1100.0, 1200.0, 
                mpdata, C,   114,    1, 129.0, 130.0, 132.0, 133.0, 135.0, 
                mpdata, C,   114,    6, 136.0, 138.0, 139.0, 141.0, 142.0, 
                mpdata, C,   114,    11, 144.0, 145.0, 147.0, 148.0, 150.0, 
                mpdata, C,   114,    16, 151.0, 152.0, 154.0, 155.0, 156.0, 
                mpdata, C,   114,    21, 158.0, 160.0, 163.0, 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
			
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
			
			*endif
        
        ! Isotropic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'MISO',then
			
			*endif
        
		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
			
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
			
			*endif
			
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_114',then
	
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_STRESSRELIEVED_AV_114',then
				*dim, SY_STRESSRELIEVED_AV_114, table, 15,,, TEMP
				*taxis, SY_STRESSRELIEVED_AV_114(1), 1, 20.0, 50.0, 100.0, 200.0, 250.0, 300.0, 400.0, 500.0, 600.0, 
				*taxis, SY_STRESSRELIEVED_AV_114(10), 1, 700.0, 800.0, 900.0, 1000.0, 1100.0, 1200.0, 
				SY_STRESSRELIEVED_AV_114(1)=1360000000.0, 1325000000.0, 1266000000.0, 1154000000.0, 1100000000.0, 1048000000.0, 948000000.0, 854000000.0, 765000000.0, 682000000.0, 604000000.0, 
				SY_STRESSRELIEVED_AV_114(12)=532000000.0, 465000000.0, 403000000.0, 346000000.0, 
			*endif
		
			*if,PROP_ARRAY(1,I),eq,'SY_RECRISTALIZED_AV_114',then
				*dim, SY_RECRISTALIZED_AV_114, table, 13,,, TEMP
				*taxis, SY_RECRISTALIZED_AV_114(1), 1, 20.0, 50.0, 100.0, 200.0, 250.0, 300.0, 400.0, 500.0, 600.0, 
				*taxis, SY_RECRISTALIZED_AV_114(10), 1, 700.0, 800.0, 900.0, 1000.0, 
				SY_RECRISTALIZED_AV_114(1)=94000000.0, 92000000.0, 90000000.0, 88000000.0, 85000000.0, 83000000.0, 80000000.0, 78000000.0, 75000000.0, 73000000.0, 70000000.0, 
				SY_RECRISTALIZED_AV_114(12)=67000000.0, 64000000.0, 
			*endif
			
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_114',then
			
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_STRESSRELIEVED_AV_114',then
				*dim, SU_STRESSRELIEVED_AV_114, table, 15,,, TEMP
				*taxis, SU_STRESSRELIEVED_AV_114(1), 1, 20.0, 50.0, 100.0, 200.0, 250.0, 300.0, 400.0, 500.0, 600.0, 
				*taxis, SU_STRESSRELIEVED_AV_114(10), 1, 700.0, 800.0, 900.0, 1000.0, 1100.0, 1200.0, 
				SU_STRESSRELIEVED_AV_114(1)=1432000000.0, 1401000000.0, 1349000000.0, 1249000000.0, 1199000000.0, 1151000000.0, 1057000000.0, 966000000.0, 878000000.0, 794000000.0, 714000000.0, 
				SU_STRESSRELIEVED_AV_114(12)=638000000.0, 565000000.0, 497000000.0, 433000000.0, 
			*endif
	
			*if,PROP_ARRAY(1,I),eq,'SU_RECRISTALIZED_AV_114',then
				*dim, SU_RECRISTALIZED_AV_114, table, 15,,, TEMP
				*taxis, SU_RECRISTALIZED_AV_114(1), 1, 20.0, 50.0, 100.0, 200.0, 250.0, 300.0, 400.0, 500.0, 600.0, 
				*taxis, SU_RECRISTALIZED_AV_114(10), 1, 700.0, 800.0, 900.0, 1000.0, 1100.0, 1200.0, 
				SU_RECRISTALIZED_AV_114(1)=380000000.0, 380000000.0, 379000000.0, 377000000.0, 375000000.0, 371000000.0, 363000000.0, 352000000.0, 338000000.0, 322000000.0, 305000000.0, 
				SU_RECRISTALIZED_AV_114(12)=286000000.0, 266000000.0, 246000000.0, 224000000.0, 
			*endif
			
		! Average uniform elongation
			*if,PROP_ARRAY(1,I),eq,'EUNIF_AV_114',then
				*dim, EUNIF_AV_114, table, 5,,, TEMP
				*taxis, EUNIF_AV_114(1), 1, 300, 400, 500, 600, 700
				EUNIF_AV_114(1)= 1.6E-02, 1.8E-02, 1.8E-02, 1.5E-02, 1E-02
			*endif
		! Average total elongation
			*if,PROP_ARRAY(1,I),eq,'ETOT_STRESSRELIEVED_AV_114',then
				*dim, ETOT_STRESSRELIEVED_AV_114, table, 10,,, TEMP
				*taxis, ETOT_STRESSRELIEVED_AV_114(1), 1, 800, 900, 1000, 1100, 1200, 1300, 1400, 1500, 2000,
				*taxis, ETOT_STRESSRELIEVED_AV_114(10), 1, 2500
				ETOT_STRESSRELIEVED_AV_114(1)= 3E-02, 5E-02, 7E-02, 10E-02, 13E-02, 15E-02, 18E-02, 20E-02, 26E-02, 13E-02
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'ETOT_ANNEALED_AV_114',then
				*dim, ETOT_ANNEALED_AV_114, table, 13,,, TEMP
				*taxis, ETOT_ANNEALED_AV_114(1), 1, 500, 600, 700, 800, 900, 1000, 1100, 1200, 1300,
				*taxis, ETOT_ANNEALED_AV_114(10), 1, 1400, 1500, 2000, 2500
				ETOT_ANNEALED_AV_114(1)= 42E-02, 45E-02, 47E-02, 49E-02, 51E-02, 52E-02, 53E-02, 53E-02, 53E-02, 52E-02, 51E-02
				ETOT_ANNEALED_AV_114(12)= 40E-02, 17E-02
			*endif
		! Average true strain at rupture
			*if,PROP_ARRAY(1,I),eq,'STRAIN_RUPT_AV_114',then
				*dim, STRAIN_RUPT_AV_114, table, 13,,, TEMP
				*taxis, STRAIN_RUPT_AV_114(1), 1, 500, 600, 700, 800, 900, 1000, 1100, 1200, 1300, 
				*taxis, STRAIN_RUPT_AV_114(10), 1, 1400, 1500, 2000, 2500
				STRAIN_RUPT_AV_114(1)= 107E-02, 136E-02, 167E-02, 200E-02, 235E-02, 268E-02, 291E-02, 298E-02, 286E-02, 262E-02, 234E-02
				STRAIN_RUPT_AV_114(12)= 122E-02, 63E-02
			*endif
		*enddo
	*endif
    !------------------------------------------------------------------------------
	! Material 115. CFC EU Grade. 
	! SDC-IC A.A03 Carbon Fibre Composites (CFC)
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,15),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(15),then

		! Define the material tag (MAT_TAG)
		MAT_CFC_EU=115	
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
				mptemp
				mptemp,  1, 100.0, 200.0, 300.0, 400.0, 500.0, 
				mptemp,  6, 600.0, 700.0, 800.0, 900.0, 1000.0,
				mptemp,  11, 1100.0, 1200.0, 1300.0, 1400.0, 1500.0,  
				mpdata, ALPX,   115,    1, -0.339, -0.145, 0.0377, 0.2087, 0.3681,
				mpdata, ALPX,   115,    6,  0.5159, 0.6522, 0.777, 0.8902, 0.9919,
				mpdata, ALPX,   115,    11,  1.082, 1.1605, 1.2276, 1.283, 1.327,

			*endif

			*if,PROP_ARRAY(1,I),eq,'ALPY',then
				mptemp
				mptemp,  1, 100.0, 200.0, 300.0, 400.0, 500.0, 
				mptemp,  6, 600.0, 700.0, 800.0, 900.0, 1000.0,
				mptemp,  11, 1100.0, 1200.0, 1300.0, 1400.0, 1500.0,  
				mpdata, ALPY,   115,    1, -1.376, -1.177, -0.992, -0.822, -0.667,
				mpdata, ALPY,   115,    6,  -0.527, -0.401, -0.29, -0.194, -0.112,
				mpdata, ALPY,   115,    11, -0.045, 0.0069, 0.0443, 0.067, 0.075,

			*endif

			*if,PROP_ARRAY(1,I),eq,'ALPZ',then
				mptemp
				mptemp,  1, 100.0, 200.0, 300.0, 400.0, 500.0, 
				mptemp,  6, 600.0, 700.0, 800.0, 900.0, 1000.0,
				mptemp,  11, 1100.0, 1200.0, 1300.0, 1400.0, 1500.0,  
				mpdata, ALPZ,   115,    1, -0.018, 0.1649, 0.3358, 0.4949, 0.6421,
				mpdata, ALPZ,   115,    6,  0.7775, 0.9011, 1.0129, 1.1128, 1.2009,
				mpdata, ALPZ,   115,    11, 1.2772, 1.3416, 1.3942, 1.435, 1.464,

			*endif			
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
			
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
			
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
				mptemp
				mptemp, 1, 20
				mpdata, PRXY, 115, 1, 0.1
			*endif

			*if,PROP_ARRAY(1,I),eq,'PRYZ',then
				mptemp
				mptemp, 1, 20
				mpdata, PRYZ, 115, 1, 0.1
			*endif

			*if,PROP_ARRAY(1,I),eq,'PRXZ',then
				mptemp
				mptemp, 1, 20
				mpdata, PRXZ, 115, 1, 0.2
			*endif
		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
				mptemp
				mptemp, 1, 20
				mpdata, DENS, 115, 1, 1900
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
				mptemp
				mptemp, 1, 20, 50, 100, 200, 300, 
				mptemp, 6, 400, 500, 600, 700, 800, 
				mptemp, 11, 900, 1000, 1100, 1200, 1300, 
				mptemp, 16, 1400, 1500,
				mpdata, KXX, 115, 1, 329, 318, 301, 270, 243,
				mpdata, KXX, 115, 6, 219, 199, 182, 168, 156,
				mpdata, KXX, 115, 11, 147, 139, 134, 129, 126,
				mpdata, KXX, 115, 16, 124, 123
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'KYY',then
				mptemp
				mptemp, 1, 20, 50, 100, 200, 300, 
				mptemp, 6, 400, 500, 600, 700, 800, 
				mptemp, 11, 900, 1000, 1100, 1200, 1300, 
				mptemp, 16, 1400, 1500,
				mpdata, KYY, 115, 1, 118, 114, 107, 96, 86,
				mpdata, KYY, 115, 6, 78, 71, 65, 61, 57,
				mpdata, KYY, 115, 11, 55, 53, 51, 50, 50,
				mpdata, KYY, 115, 16, 50, 50
			*endif
		
			*if,PROP_ARRAY(1,I),eq,'KZZ',then
				mptemp
				mptemp, 1, 20, 50, 100, 200, 300, 
				mptemp, 6, 400, 500, 600, 700, 800, 
				mptemp, 11, 900, 1000, 1100, 1200, 1300, 
				mptemp, 16, 1400, 1500,
				mpdata, KZZ, 115, 1, 116, 112, 105, 94, 84
				mpdata, KZZ, 115, 6, 75, 69, 63, 58, 55,
				mpdata, KZZ, 115, 11, 52, 50, 48, 47, 47,
				mpdata, KZZ, 115, 16, 46, 46
			*endif
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
				mptemp
				mptemp, 1, 50, 100, 200, 300, 400,
				mptemp, 6, 500, 600, 700, 800, 900,
				mptemp, 11, 1000, 1100, 1200, 1300, 1400,
				mptemp, 16, 1500,
				mpdata, C, 115, 1, 799, 1031, 1262, 1398, 1494,
				mpdata, C, 115, 6, 1568, 1629, 1681, 1725, 1765,
				mpdata, C, 115, 11, 1800, 1832, 1861, 1887, 1912,
				mpdata, C, 115, 16, 1935
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
			
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
			
			*endif

		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
			
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
			
			*endif
			
		! Other properties
		
		! Minimum yield strength: Sy_min
			*if,PROP_ARRAY(1,I),eq,'SY_MIN_115',then
	
			*endif

		! Average yield strength: Sy_av
			*if,PROP_ARRAY(1,I),eq,'SY_AV_115',then
		
			*endif
		
		! Minimum tensile strength: Su_min
			*if,PROP_ARRAY(1,I),eq,'SU_MIN_115',then
			
			*endif
			
		! Average tensile strength: Su_av
			*if,PROP_ARRAY(1,I),eq,'SU_AV_115',then
			
			*endif	
			
		*enddo	
	*endif
	
	!------------------------------------------------------------------------------
	! Material 116. CFC CX-2002U Grade. 
	! SDC-IC A.A03 Carbon Fibre Composites (CFC)
	!------------------------------------------------------------------------------
	
	*if,MAT_NAME,eq,MATNAMES_ARRAY(1,16),or,MAT_NUMBER,eq,MATNUMBERS_ARRAY(16),then

		! Define the material tag (MAT_TAG)
		MAT_CFC_CX=116
		
		*do,I,1,NUM_PROP,1
		
		! Mean,average or secant coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'ALPX',then
			
			*endif
		
		! Instantaneous coefficient of thermal expansion
			*if,PROP_ARRAY(1,I),eq,'CTEX',then
			
			*endif
		
		! Young Modulus
			*if,PROP_ARRAY(1,I),eq,'EX',then
			
			*endif
		
		! Poisson's ratio
			*if,PROP_ARRAY(1,I),eq,'PRXY',then
			
			*endif

			*if,PROP_ARRAY(1,I),eq,'PRYZ',then

			*endif

			*if,PROP_ARRAY(1,I),eq,'PRXZ',then

			*endif
		! Mass density
			*if,PROP_ARRAY(1,I),eq,'DENS',then
				mptemp
				mptemp, 1, 20
				mpdata, DENS, 116, 1, 1670
			*endif

		! Conductivity
			*if,PROP_ARRAY(1,I),eq,'KXX',then
				mptemp
				mptemp, 1, 20, 1000, 1500
				mpdata, KXX, 116, 1, 380, 120, 104 
			*endif
			
			*if,PROP_ARRAY(1,I),eq,'KYY',then
				mptemp
				mptemp, 1, 20, 1000, 1500
				mpdata, KYY, 116, 1, 320, 100, 85 
			*endif
		
			*if,PROP_ARRAY(1,I),eq,'KZZ',then
				mptemp
				mptemp, 1, 20, 1000, 1500
				mpdata, KZZ, 116, 1, 215, 74, 65
			*endif
		
		! Specific heat
			*if,PROP_ARRAY(1,I),eq,'C',then
				mptemp
				mptemp, 1, 20, 1000, 1500
				mpdata, C, 116, 1, 710, 1900, 2010 
			*endif
		
		! Stress-strain elastic curves. Nonlinear structural, multilinear elastic.
			*if,PROP_ARRAY(1,I),eq,'MELAS',then
			
			*endif
		
		! Isotropic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BISO',then
			
			*endif

		! Kinematic hardening plasticity. Bilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'BKIN',then
			
			*endif

		! Kinematic hardening plasticity. Multilinear stress-strain curves.
			*if,PROP_ARRAY(1,I),eq,'KINH',then
			
			*endif
			
		*enddo
	*endif
	
*else
	*msg,WARN
	MATLIB input property is blank.
	The MATLIB command is ignored.
*endif

! Delete parameters

ARG_INIT=
ARGUMENT_TYPE=
I=
IDX=
INDX=
MAT_NAME_TYPE=
!NUM_PROP=
NUM_MAT=
MAT_NUMBER=
MAT_NAME=