Kullanıcı Tanımlı Dış Yükleri İşlemek için Alt Program (uload.f)

Kullanıcı tanımlı dış yüklerin işlenmesi için arayüzler sağlar.

Kullanıcı tanımlı bir dış yük kullanmak için önce dış yükü tanımlayan sayısal yapı tULoad tanımlanır ve giriş dosyasında !ULOAD, FILE=ファイル名 kullanılarak tanım, dosya adıyla belirtilen dosyadan okunur. Ardından dış yükü sisteme dahil etmek için aşağıdaki arayüzler kullanılır.

(1) Dış yükü okuyan alt program

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

• fname: Dış dosya adı. Kullanıcı tanımlı dış yük bu dosyadan okunur.

(2) Dış yükü global yük vektörüne dahil eden alt program

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

• cstep: Geçerli analiz adımı sayısı
• factor: Geçerli adımın yük katsayısı
• exForce: Global yük vektörü

(3) Artık Gerilmeyi Hesaplayan Alt Program

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

• cstep: Geçerli analiz adımı sayısı
• factor: Geçerli adımın yük katsayısı
• residual: Global artık kuvvet vektörü