!   m54.mac
!   Tempel laminate M54 material
!    arg1 = the material number
!

*if,arg2,le,0,then
  arg2=1
*endif
/COM,ANSYS REVISION  5.1               58    15:34:17    11/06/1995
tbdel,bh,arg1      !  extra
/NOPR
TB,BH  ,    arg1,   1,  40    !   modified
!           mod.       make larger
TBTEM,  .000000000    ,   1
TBPT,,  91.9036000    ,  .400000000*arg2
TBPT,,  104.384800    ,  .500000000*arg2
TBPT,,  116.799300    ,  .600000000*arg2
TBPT,,  129.866300    ,  .700000000*arg2
TBPT,,  143.689300    ,  .800000000*arg2
TBPT,,  159.143700    ,  .900000000*arg2
TBPT,,  175.839600    ,  1.00000000*arg2
TBPT,,  194.373700    ,  1.10000000*arg2
TBPT,,  215.947800    ,  1.20000000*arg2
TBPT,,  242.965100    ,  1.30000000*arg2
TBPT,,  281.792100    ,  1.40000000*arg2
TBPT,,  369.099200    ,  1.50000000*arg2
TBPT,,  788.214200    ,  1.60000000*arg2
TBPT,,  2136.65450    ,  1.70000000*arg2
TBPT,,  4509.73260    ,  1.80000000*arg2
TBPT,,  7977.87680    ,  1.90000000*arg2
tbpt,,  15000         ,  1.965*arg2
/GO