test.f90 Source File


Contents

Source Code


Source Code

program main
    use MaterialPropClass
    implicit none

    type(MaterialProp_)::Mat
    real(8)::mat_cons(2,6)


    mat_cons(:,1)=10000.0d0
    mat_cons(:,2)=0.35d0
    mat_cons(:,3)=0.0d0
    mat_cons(:,4)=10000.0
    mat_cons(:,5)=2.0d0
    mat_cons(:,6)=0.5d0

    mat_cons(1,1)=10.0d0
    call ImportMatPara(Mat,mat_cons)
    call ShowMatPara(Mat)



end program main