/SOLU ANTYPE MODAL MODOPT, subsp, 2,,, 2, ON MXPAND. 2., YES FINISH /postl set,l,l tabl. kene kene *get, kenevall, ssum, item, kene *get, fregvall, mode, 1, freq eigen=(2*3.14159* freya11)**2 pmass1=2*kenevall/eigen set, 1.2 tabl. ke ene, kene *get, keneva12, ssum, item, kene *get, fregval2, mode, 2, freq eigen2=(2*3.14159* freya12)**2 pmass2=2*keneva12/eigen finish/SOLU ANTYPE,MODAL MODOPT,subspa,2,,,2,ON MXPAND,2,,,YES SOLVE FINISH /post1 set,1,1 etabl,kene,kene ssum *get,keneval1,ssum,,item,kene *get,freqval1,mode,1,freq eigen1=(2*3.14159*freqval1)**2 pmass1=2*keneval1/eigen1 set,1,2 etabl,kene,kene ssum *get,keneval2,ssum,,item,kene *get,freqval2,mode,2,freq eigen2=(2*3.14159*freqval2)**2 pmass2=2*keneval2/eigen2 finish