!*********************************************************************************************************************************************************!
!* Copyright (c) <2015> <Purdue University> All rights reserved.																					     *!
!*                                                                      																			     *!
!* Developed by:  Fang Jiang, Wenbin Yu                                                                                                                  *!
!*        <Prof. Yu’s Research Group>,                                                                                                                   *!
!*        <School of Aeronautics and Astronautics, Purdue University>                                                                                    *!
!*        <https://cdmhub.org/projects/ansysvabsgui2015>                                                                                                 *!
!*                                                                      																			     *!
!* Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"),    *!
!* to deal with the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense,  *!
!* and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:            *!
!*                                                                      																			     *!
!* •Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimers.                        *!
!*                                                                      																			     *!
!* •Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimers in the documentation *!
!*  and/or other materials provided with the distribution.                                                                                               *!
!*                                                                      																			     *!
!* •Neither the names of < Prof. Yu’s Research Group, School of Aeronautics and Astronautics, Purdue University >,                                       *!
!*  nor the names of its contributors may be used to endorse or promote products derived from this Software without specific prior written permission.   *!
!*                                                                      																			     *!
!* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,   *!
!* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE CONTRIBUTORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR     *!
!* OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER     *!
!* DEALINGS WITH THE SOFTWARE. 																															 *!
!*********************************************************************************************************************************************************!
*CFOPEN,VABS_Check/VABSGen_9_nmate,dat 

!============================================================
! material constants block   DONE
!------------------------------------------------------------
! matid; orth (0->iso; 1->ortho; 2->aniso )
! constant1; constant2; constant3; ..... (material constant)
!------------------------------------------------------------
*DO,i,1,matid_max,1
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*IF, exit_flat_MTID%matid%, EQ, 1, THEN
!*IF, MTID%i%mrkr, EQ, 19870503, THEN                         !determine if MTID_# exit
*IF, orth_MTID%i%, EQ,0, AND, thermal_flag, EQ,0, THEN
*VWRITE, i, orth_MTID%i%
(F9.0,TL1,' ', 2X, F9.0,TL1,' ') 
*VWRITE, E_MTID%i%, niu_MTID%i%
(E13.5, 2X, E13.5) 
*VWRITE,rou_MTID%i%
(E13.5) 
	*ELSE
*ENDIF
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*IF, orth_MTID%i%, EQ,0, AND, thermal_flag, EQ,3, THEN
*VWRITE, i, orth_MTID%i%
(F9.0,TL1,' ', 2X, F9.0,TL1,' ') 
*VWRITE, E_MTID%i%, niu_MTID%i%
(E13.5, 2X, E13.5) 
*VWRITE, rou_MTID%i%
(E13.5) 
*VWRITE, alpha_MTID%i%
(E13.5) 
	*ELSE
*ENDIF
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*IF, orth_MTID%i%, EQ,1, AND, thermal_flag, EQ,0, THEN
*VWRITE, i, orth_MTID%i%
(F9.0,TL1,' ', 2X, F9.0,TL1,' ') 
*VWRITE, E1_MTID%i%, E2_MTID%i%, E3_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE, G12_MTID%i%, G13_MTID%i%, G23_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE, niu12_MTID%i%, niu13_MTID%i%, niu23_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE, rou_MTID%i%
(E13.5)
	*ELSE
*ENDIF
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*IF, orth_MTID%i%, EQ,1, AND, thermal_flag, EQ,3, THEN
*VWRITE,i,orth_MTID%i%
(F9.0,TL1,' ', 2X, F9.0,TL1,' ') 
*VWRITE,E1_MTID%i%,E2_MTID%i%,E3_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,G12_MTID%i%,G13_MTID%i%,G23_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,niu12_MTID%i%,niu13_MTID%i%,niu23_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,rou_MTID%i%
(E13.5)
*VWRITE,alpha11_MTID%i%,alpha22_MTID%i%,alpha33_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
	*ELSE
*ENDIF
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*IF, orth_MTID%i%, EQ,2, AND, thermal_flag, EQ,0, THEN
*VWRITE, i, orth_MTID%i%
(F9.0,TL1,' ', 2X, F9.0,TL1,' ') 
*VWRITE,c11_MTID%i%,c12_MTID%i%,c13_MTID%i%,c14_MTID%i%,c15_MTID%i%,c16_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c22_MTID%i%,c23_MTID%i%,c24_MTID%i%,c25_MTID%i%,c26_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c33_MTID%i%,c34_MTID%i%,c35_MTID%i%,c36_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c44_MTID%i%,c45_MTID%i%,c46_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c55_MTID%i%,c56_MTID%i%
(E13.5, 2X, E13.5) 
*VWRITE,c66_MTID%i%
(E13.5) 
*VWRITE,rou_MTID%i%
(E13.5)
	*ELSE
*ENDIF
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*IF, orth_MTID%i%, EQ,2, AND, thermal_flag, EQ,3, THEN
*VWRITE, i, orth_MTID%i%
(F9.0,TL1,' ', 2X, F9.0,TL1,' ') 
*VWRITE,c11_MTID%i%,c12_MTID%i%,c13_MTID%i%,c14_MTID%i%,c15_MTID%i%,c16_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c22_MTID%i%,c23_MTID%i%,c24_MTID%i%,c25_MTID%i%,c26_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c33_MTID%i%,c34_MTID%i%,c35_MTID%i%,c36_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c44_MTID%i%,c45_MTID%i%,c46_MTID%i%
(E13.5, 2X, E13.5, 2X, E13.5) 
*VWRITE,c55_MTID%i%,c56_MTID%i%
(E13.5, 2X, E13.5) 
*VWRITE,c66_MTID%i%
(E13.5) 
*VWRITE,rou_MTID%i%
(E13.5)
*VWRITE,alpha_MTID%i%,alpha11_MTID%i%,twcalpha12_MTID%i%,twcalpha13_MTID%i%,alpha22_MTID%i%,twcalpha23_MTID%i%,alpha33_MTID%i% 
(E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5, 2X, E13.5) 
	*ELSE
*ENDIF
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*VWRITE 
(' ')
	*ELSE
*ENDIF
*ENDDO


*CFCLOS