Przejdź do treści

Podprogram do przetwarzania obciążeń zewnętrznych definiowanych przez użytkownika (uload.f)

Udostępnia interfejsy do przetwarzania obciążeń zewnętrznych definiowanych przez użytkownika.

Aby użyć obciążenia zewnętrznego definiowanego przez użytkownika, należy najpierw zdefiniować strukturę numeryczną tULoad służącą do definiowania obciążenia zewnętrznego i użyć !ULOAD, FILE=ファイル名 w pliku wejściowym, aby wczytać definicję z pliku wskazanego przez nazwę pliku. Następnie należy użyć poniższych interfejsów, aby uwzględnić obciążenie zewnętrzne.

(1) Podprogram do wczytywania obciążenia zewnętrznego

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname
  • fname: Nazwa pliku zewnętrznego. Z tego pliku wczytywane jest obciążenie zewnętrzne zdefiniowane przez użytkownika.

(2) Podprogram do uwzględniania obciążenia zewnętrznego w globalnym wektorze obciążenia

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)
  • cstep: Bieżący numer kroku analizy
  • factor: Współczynnik obciążenia bieżącego kroku
  • exForce: Globalny wektor obciążenia

(3) Podprogram do obliczania naprężeń resztkowych

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)
  • cstep: Bieżący numer kroku analizy
  • factor: Współczynnik obciążenia bieżącego kroku
  • residual: Globalny wektor sił resztkowych