一个例子,各模块具体是什么意思就得自己查手册了
我也记不住,呵呵
$ 用READ求解实特征值问题
SOL READ
COMPILE READ,LIST
SUBDMAP READ
TYPE PARM,,LOGICAL,N,GOTK,GOTM
INCLUDE 'PREFACE.DAT'
DMIIN DMI,DMINDX/STIF,MASS,,,,,,,,/
S,N,GOTK/S,N,GOTM $
IF(GOTK AND GOTM)THEN
MESSAGE //'GOT MATRICES - MATPRT FOLLOWS' $
MATPRT STIF// $
MATPRT MASS// $
ELSE $
MESSAGE //'MATRICES NOT FOUND' $
ENDIF
READ STIF,MASS,,,DYNAMICS,,CASECC,,,,,,,/
MYLAMA,MYPHI,MODEMASS,EIGMAT,LAMMAT,/
'MODES'/S,N,NMODES $
MESSAGE //' FOUND '/NMODES/'MODES' $
$OFP MYLAMA// $
MATPRT LAMMAT// $
MATPRT MYPHI// $
MATPRT MODEMASS// $
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 |