Aller au contenu

Sous-routine de traitement des charges externes définies par l’utilisateur (uload.f)

Fournit des interfaces pour le traitement des charges externes définies par l’utilisateur.

Pour utiliser une charge externe définie par l’utilisateur, définissez d’abord la structure numérique tULoad servant à définir la charge externe, puis utilisez !ULOAD, FILE=ファイル名 dans le fichier d’entrée afin de lire la définition depuis le fichier indiqué par le nom de fichier. Utilisez ensuite les interfaces suivantes pour incorporer la charge externe.

(1) Sous-routine de lecture d’une charge externe

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname
  • fname : nom du fichier externe. La charge externe définie par l’utilisateur est lue depuis ce fichier.

(2) Sous-routine d’incorporation de la charge externe dans le vecteur de charge global

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)
  • cstep : numéro de l’étape d’analyse courante
  • factor : facteur de charge de l’étape courante
  • exForce : vecteur de charge global

(3) Sous-routine de calcul de la contrainte résiduelle

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)
  • cstep : numéro de l’étape d’analyse courante
  • factor : facteur de charge de l’étape courante
  • residual : vecteur global des forces résiduelles