Zum Inhalt

Subroutine zur Verarbeitung benutzerdefinierter äußerer Lasten (uload.f)

Stellt Schnittstellen zur Verarbeitung benutzerdefinierter äußerer Lasten bereit.

Um eine benutzerdefinierte äußere Last zu verwenden, definieren Sie zunächst die numerische Struktur tULoad zur Definition der äußeren Last und verwenden Sie !ULOAD, FILE=ファイル名 in der Eingabedatei, um die Definition aus der durch den Dateinamen angegebenen Datei einzulesen. Verwenden Sie anschließend die folgenden Schnittstellen, um die äußere Last einzubeziehen.

(1) Subroutine zum Einlesen der äußeren Last

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname
  • fname: Name der externen Datei. Die benutzerdefinierte äußere Last wird aus dieser Datei eingelesen.

(2) Subroutine zum Einbeziehen der äußeren Last in den Gesamtlastvektor

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)
  • cstep: Aktuelle Nummer des Analyseschritts
  • factor: Lastfaktor des aktuellen Schritts
  • exForce: Gesamtlastvektor

(3) Subroutine zur Berechnung der Eigenspannung

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)
  • cstep: Aktuelle Nummer des Analyseschritts
  • factor: Lastfaktor des aktuellen Schritts
  • residual: Gesamtvektor der Residualkräfte