Μετάβαση στο περιεχόμενο

Υπορουτίνα επεξεργασίας εξωτερικών φορτίων ορισμένων από τον χρήστη (uload.f)

Παρέχει διεπαφές για την επεξεργασία εξωτερικών φορτίων ορισμένων από τον χρήστη.

Για τη χρήση εξωτερικού φορτίου ορισμένου από τον χρήστη, ορίστε πρώτα την αριθμητική δομή tULoad για τον ορισμό του εξωτερικού φορτίου και χρησιμοποιήστε το !ULOAD, FILE=όνομα_αρχείου στο αρχείο εισόδου για να διαβάσετε τον ορισμό από το αρχείο που καθορίζεται από το όνομα αρχείου. Στη συνέχεια, χρησιμοποιήστε τις ακόλουθες διεπαφές για να ενσωματώσετε το εξωτερικό φορτίο.

(1) Υπορουτίνα ανάγνωσης εξωτερικού φορτίου

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname
  • fname: Όνομα εξωτερικού αρχείου. Από αυτό το αρχείο διαβάζεται το εξωτερικό φορτίο που έχει οριστεί από τον χρήστη.

(2) Υπορουτίνα ενσωμάτωσης του εξωτερικού φορτίου στο καθολικό διάνυσμα φορτίου

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)
  • cstep: Τρέχων αριθμός βήματος ανάλυσης
  • factor: Συντελεστής φορτίου του τρέχοντος βήματος
  • exForce: Καθολικό διάνυσμα φορτίου

(3) Υπορουτίνα υπολογισμού παραμένουσας τάσης

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)
  • cstep: Τρέχων αριθμός βήματος ανάλυσης
  • factor: Συντελεστής φορτίου του τρέχοντος βήματος
  • residual: Καθολικό διάνυσμα δύναμης υπολοίπου