Subrutin untuk Memproses Beban Luaran Takrif Pengguna (uload.f)¶

Menyediakan antara muka untuk memproses beban luaran takrif pengguna.

Untuk menggunakan beban luaran takrif pengguna, mula-mula takrifkan struktur berangka tULoad bagi mentakrifkan beban luaran, dan gunakan !ULOAD, FILE=ファイル名 dalam fail input untuk membaca takrif daripada fail yang ditentukan oleh nama fail. Kemudian gunakan antara muka berikut untuk memasukkan beban luaran.

(1) Subrutin untuk membaca beban luaran¶

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

• fname: Nama fail luaran. Beban luaran takrif pengguna dibaca daripada fail ini.

(2) Subrutin untuk memasukkan beban luaran ke dalam vektor beban keseluruhan¶

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

• cstep: Nombor langkah analisis semasa
• factor: Faktor beban bagi langkah semasa
• exForce: Vektor beban keseluruhan

(3) Subrutin untuk Mengira Tegasan Baki¶

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

• cstep: Nombor langkah analisis semasa
• factor: Faktor beban bagi langkah semasa
• residual: Vektor daya baki keseluruhan