សាប់រូទីន សម្រាប់ដំណើរការបន្ទុកខាងក្រៅកំណត់ដោយអ្នកប្រើ (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: វ៉ិចទ័រកម្លាំងសំណល់សរុប