ABAQUS用戶子程序?qū)W習小結

1、1.1 FORTRAN語言不區(qū)分大小寫,文件擴展名為for,正文從第7列開始,第15列是標號區(qū),第六列是續(xù)行標志區(qū)。1.2 FORTRAN語言中的“I-N規(guī)則”:I、J、K、L、M、N開頭的為整型變量,其他開頭為實型變量;2 DIMENSION COORDS(3表示聲明一個含3個元素的數(shù)組,下標分別為1、2、3,訪問形式為COORDS(n,n為13;3 子程序(*.for文件中如何輸出調(diào)試信息:WRITE(6,*COORDS(1,COORDS(1,在*.dat文件中可看到輸出,如果希望WRITE輸出到msg文件中,則寫為WRITE(7,*COORDS.;4 用戶子程序DLOAD中COORDS數(shù)

2、組的含義:COORDS(1也是一個數(shù)組,存貯單元集合中所有單元積分點的X坐標,COORDS(2存貯Y坐標,相應INP文件中的寫法為:*DLOADPY,PYNU其中PY為單元集合名稱,定義方法為:*Elset, elset=BEAM, generate1, 5, 1.*ELSET,ELSET=PYBEAM5 DLOAD中F的定義方法:F只有定義在單元積分點上才有效,例如:F=1.0*COORDS (1附一個簡單實例:beam.inp文件:*Heading* Job name: Job-1 Model name: beam*Preprint, echo=NO, model=NO, history=

3、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: (Section-1-BEAM:BE

4、AM, (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, internal, instance=P

5、ART-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,PYNU* OUTPUT REQUE

6、STS* 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.INCCDIMENSION TIME(2, COORDS (3CHARACTER*80 SNAMEWRITE