HELIUS2_STRENGTH 可以进行调用以获得当前单向复合材料的复合材料强度。
SUBROUTINE HELIUS2_STRENGTH(HPROP, STRENGTH) INTEGER(INT_PTR_KIND()), INTENT(IN) :: HPROP REAL(8), INTENT(OUT) :: STRENGTH(6) ENDSUBROUTINE