一个例子,各模块具体是什么意思就得自己查手册了
我也记不住,呵呵
用READ求解实特征值问题SOLREADCOMPILEREAD,LISTSUBDMAPREADTYPEPARM,,LOGICAL,N,GOTK,GOTMINCLUDE′PREFACE.DAT′DMIINDMI,DMINDX/STIF,MASS,,,,,,,,/S,N,GOTK/S,N,GOTM
IF(GOTK AND GOTM)THEN
MESSAGE //'GOT MATRICES - MATPRT FOLLOWS' MATPRTSTIF//
MATPRT MASS// ELSE
MESSAGE //'MATRICES NOT FOUND' ENDIFREADSTIF,MASS,,,DYNAMICS,,CASECC,,,,,,,/MYLAMA,MYPHI,MODEMASS,EIGMAT,LAMMAT,/′MODES′/S,N,NMODES
MESSAGE //' FOUND '/NMODES/'MODES' OFP MYLAMA// MATPRTLAMMAT//
MATPRT MYPHI// MATPRTMODEMASS//
OFP EIGMAT// END
CEND
TITLE = READ MATRIX USING DMIIN
METHOD = 1
BEGIN BULK
EIGRL,1,,,3
DMI,stif,0,6,1,,,3,3
DMI,stif,1,1,1.,-1.,0.
DMI,stif,2,1,-1.,2.,-1.
DMI,stif,3,1,0.,-1.,1.
$
DMI,mass,0,6,1,,,3,3
DMI,mass,1,1,1.
DMI,mass,2,2,1.
DMI,mass,3,3,1.
ENDDATA |