HELIUS2_STRENGTH は現在の一方向複合材料の複合材料強度を取得するために呼び出すことができます。
SUBROUTINE HELIUS2_STRENGTH(HPROP, STRENGTH) INTEGER(INT_PTR_KIND()), INTENT(IN) :: HPROP REAL(8), INTENT(OUT) :: STRENGTH(6) ENDSUBROUTINE