Subrutin untuk Memproses Beban Eksternal yang Didefinisikan Pengguna (uload.f)

Menyediakan antarmuka untuk memproses beban eksternal yang didefinisikan pengguna.

Untuk menggunakan beban eksternal yang didefinisikan pengguna, pertama definisikan struktur numerik tULoad untuk mendefinisikan beban eksternal, dan gunakan !ULOAD, FILE=ファイル名 dalam file input untuk membaca definisi dari file yang ditentukan oleh nama file. Kemudian gunakan antarmuka berikut untuk memasukkan beban eksternal.

(1) Subrutin untuk membaca beban eksternal

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname

• fname: Nama file eksternal. Beban eksternal yang didefinisikan pengguna dibaca dari file ini.

(2) Subrutin untuk memasukkan beban eksternal ke dalam vektor beban global

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)

• cstep: Nomor step analisis saat ini
• factor: Faktor beban step saat ini
• exForce: Vektor beban global

(3) Subrutin untuk Menghitung Tegangan Residual

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)

• cstep: Nomor step analisis saat ini
• factor: Faktor beban step saat ini
• residual: Vektor gaya residual global