உள்ளடக்கத்திற்கு செல்க

பயனர் வரையறுத்த வெளிப்புற சுமைகளைச் செயலாக்கும் துணைநிரல் (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: ஒட்டுமொத்த மீதி விசைத் திசையன்