




版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、1.1 FORTRAN語(yǔ)言不區(qū)分大小寫,文件擴(kuò)展名為for,正文從第7列開始,第15列是標(biāo)號(hào)區(qū),第六列是續(xù)行標(biāo)志區(qū)。1.2 FORTRAN語(yǔ)言中的“I-N規(guī)則”:I、J、K、L、M、N開頭的為整型變量,其他開頭為實(shí)型變量;2 DIMENSION COORDS(3表示聲明一個(gè)含3個(gè)元素的數(shù)組,下標(biāo)分別為1、2、3,訪問(wèn)形式為COORDS(n,n為13;3 子程序(*.for文件中如何輸出調(diào)試信息:WRITE(6,*'COORDS(1',COORDS(1,在*.dat文件中可看到輸出,如果希望WRITE輸出到msg文件中,則寫為WRITE(7,*'COORDS.;4 用戶子
2、程序DLOAD中COORDS數(shù)組的含義:COORDS(1也是一個(gè)數(shù)組,存貯單元集合中所有單元積分點(diǎn)的X坐標(biāo),COORDS(2存貯Y坐標(biāo),相應(yīng)INP文件中的寫法為:*DLOADPY,PYNU其中PY為單元集合名稱,定義方法為:*Elset, elset=BEAM, generate1, 5, 1.*ELSET,ELSET=PYBEAM5 DLOAD中F的定義方法:F只有定義在單元積分點(diǎn)上才有效,例如:F=1.0*COORDS (1附一個(gè)簡(jiǎn)單實(shí)例:beam.inp文件:*Heading* Job name: Job-1 Model name: beam*Preprint, echo=NO, mod
3、el=NO, history=NO, contact=NO* PARTS*Part, name=PART-1*End Part* ASSEMBLY*Assembly, name=Assembly*Instance, name=PART-1-1, part=PART-1*Node1, 0., 0.2, 20., 0.3, 40., 0.4, 60., 0.5, 80., 0.6, 100., 0.*Element, type=B311, 1, 22, 2, 33, 3, 44, 4, 55, 5, 6*Elset, elset=BEAM, generate1, 5, 1* Region: (Se
4、ction-1-BEAM:BEAM, (Beam Orientation:BEAM* Section: Section-1-BEAM Profile: Profile-1*Beam Section, elset=BEAM, material=STEEL, temperature=GRADIENTS, section=RECT 0.2, 5.0.,0.,-1.*End Instance*Nset, nset=ENDS, instance=PART-1-11, 6*Nset, nset=_M4, internal, instance=PART-1-16,*Nset, nset=_M5, inter
5、nal, instance=PART-1-11,*End Assembly* MATERIALS*Material, name=STEEL*Elastic210000., 0.3*ELSET,ELSET=PYBEAM* BOUNDARY CONDITIONS* Name: Disp-BC-1 Type: Symmetry/Antisymmetry/Encastre*Boundary_M4, ENCASTRE* -* STEP: Step-1*Step, name=Step-1*Static* Name: CFORCE-1 Type: Concentrated force*DLOADPY,PYN
6、U* OUTPUT REQUESTS* FIELD OUTPUT: F-Output-1*Output, field, variable=PRESELECT* FIELD OUTPUT: F-Output-2*Output, field*Element OutputSF,* HISTORY OUTPUT: H-Output-1*Output, history*Node Output, nset=ENDSCF1, CF2, CF3, CM1, CM2, CM3, RF1, RF2RF3, RM1, RM2, RM3, U1, U2, U3, UR1UR2, UR3*El Print, freq=999999*Node Print, freq=999999*End Stepbbb.for文件SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS,1 JLTYP,SNAMECINCLUDE 'ABA_PARAM.INC'CDIMENSION TIME(2, COORDS (3CHARACTER*80 SNAMEWRITE(6,*'
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 個(gè)人鋰電轉(zhuǎn)讓合同范本
- 凍蝦銷售合同范例
- 內(nèi)河租船合同標(biāo)準(zhǔn)文本
- 書柜加工合同標(biāo)準(zhǔn)文本
- 個(gè)人經(jīng)營(yíng)合伙合同標(biāo)準(zhǔn)文本
- 買牛定金合同標(biāo)準(zhǔn)文本
- 農(nóng)村院子租賃合同標(biāo)準(zhǔn)文本
- 農(nóng)戶承包合同范例
- bt項(xiàng)目合同標(biāo)準(zhǔn)文本
- 學(xué)校物業(yè)管理制度與操作規(guī)范
- 商戶外擺合作協(xié)議
- 中小學(xué)落實(shí)每天體育2小時(shí)開展情況校長(zhǎng)匯報(bào)發(fā)言:從政策到行動(dòng)如何讓學(xué)生體育兩小時(shí)落地生花
- 2024年河北建投集團(tuán)招聘工作人員考試真題
- 公司文員面試試題及答案
- 2024-2025學(xué)年江蘇省常州市高一上學(xué)期期末統(tǒng)考英語(yǔ)試卷
- 統(tǒng)編版語(yǔ)文四年級(jí)下冊(cè) 第四單元 習(xí)作:《我的動(dòng)物朋友》課件
- 2025年職工職業(yè)技能競(jìng)賽(瓦斯抽放工賽項(xiàng))參考試指導(dǎo)題庫(kù)(含答案)
- 中央2025年中央宣傳部直屬單位招聘78人筆試歷年參考題庫(kù)附帶答案詳解
- 2025年道教人員考試試題及答案
- 2025年遼寧盤錦市盤山縣公開招聘事業(yè)單位工作人員221名歷年高頻重點(diǎn)模擬試卷提升(共500題附帶答案詳解)
- 2025年江蘇紫金財(cái)產(chǎn)保險(xiǎn)股份有限公司招聘筆試參考題庫(kù)含答案解析
評(píng)論
0/150
提交評(píng)論